procedure DownloadFromCloud(Id: Code[50])
    var
        OneDrive: Record OneDrive;
        Base64Convert: Codeunit "Base64 Convert";
        Istream: InStream;
        FileArrayBase64: text;
        Filename: Text;
    begin
        OneDrive.Get(Id);

        Filename := OneDrive.Name;

        OneDrive.CalcFields(FileArray);
        if OneDrive.FileArray.HasValue then begin
            OneDrive.FileArray.CreateInStream(Istream);
            FileArrayBase64 := Base64Convert.ToBase64(Istream);
            DownloadFromStream(Istream, 'Export', '', 'All Files (*.*)|*.*', Filename);
        end;
    end;