Version 14 and version 15 Business Central

(0) Share

Report

Posted on by Dynamics 365 Busine...

700

Hi All,

I have developed an extension in Business Central version 14 and now, want to publish it to version 15. But, it is showing error on record 'TempBlob'. Could anyone please tell me the alternative to this method which can be used in version 15 !

Thanks !

I have the same question (0)

All responses (4)

Answers (1)

Dynamics 365 Busine... 700 on at

Like (0)

Report
Copy link

Link copied!

Thank you so much, sir. It worked !

Was this reply helpful? Yes No
Verified answer

Oleksandr Shevchuk 175 on at

Like (1)

Report
Copy link

Link copied!

Your code needs to be rewritten in the following way:

    procedure UploadFile(CountryPolicy: Record CountryPolicy)

    var

        // TempBlob: Record TempBlob;

        TempBlob: Codeunit "Temp Blob";

        FileManagement: Codeunit "File Management";

        RecordRef: RecordRef;

        FileName: Text;

        ImportTxt: Label 'Upload File';

        FileDialogTxt: Label 'Attachments (%1)|%1';

        FilterTxt: Label '*.jpg;*.jpeg;*.bmp;*.png;*.gif;*.tiff;*.tif;*.pdf;*.docx;*.doc;*.xlsx;*.xls;*.pptx;*.ppt;*.msg;*.xml;*.*';

    begin

        FileName := FileManagement.BLOBImportWithFilter(TempBlob, ImportTxt, FileName, StrSubstNo(FileDialogTxt, FilterTxt), FilterTxt);

        // CountryPolicy."Attached Country Policy " := TempBlob.Blob;

        RecordRef.GetTable(CountryPolicy);

        TempBlob.ToRecordRef(RecordRef, CountryPolicy.FieldNo("Attached Country Policy "));

        RecordRef.SetTable(CountryPolicy);

        if CountryPolicy."Attached Country Policy ".HasValue() then begin

            CountryPolicy."Country Policy File Name" := CopyStr(FileManagement.GetFileNameWithoutExtension(FileName), 1, MAXSTRLEN(CountryPolicy."Country Policy File Name"));

            CountryPolicy."Country Policy File Extension" := LowerCase(CopyStr(FileManagement.GetExtension(FileName), 1, MAXSTRLEN(CountryPolicy."Country Policy File Extension")));

            CountryPolicy."Country Policy Attached" := true;

            CountryPolicy.Modify();

        end;

    end;

    procedure DownloadFile(CountryPolicy: Record CountryPolicy)

    var

        // TempBlob: Record TempBlob;

        TempBlob: Codeunit "Temp Blob";

        FileManagement: Codeunit "File Management";

    begin

        if CountryPolicy."Attached Country Policy ".HasValue() then begin

            CountryPolicy.CalcFields("Attached Country Policy ");

            // TempBlob.Blob := CountryPolicy."Attached Country Policy ";

            TempBlob.FromRecord(CountryPolicy, CountryPolicy.FieldNo("Attached Country Policy "));

            FileManagement.BLOBExport(TempBlob, CountryPolicy."Country Policy File Name" + '.' + CountryPolicy."Country Policy File Extension", true);

        end;

    end;

P.S. It seems that I give you a broken link in my previous answer, so here is the correct one:

[View:https://github.com/microsoft/ALAppExtensions/blob/master/BREAKINGCHANGES.md:750:50]

Was this reply helpful? Yes No
Dynamics 365 Busine... 700 on at

Like (0)

Report
Copy link

Link copied!

Thanks for your information. But I am very new to Business Central. Could you please modify the source code for me !

procedure UploadFile(CountryPolicy: Record CountryPolicy)

var

TempBlob: Record TempBlob;

FileManagement: Codeunit "File Management";

FileName: Text;

ImportTxt: Label 'Upload File';

FileDialogTxt: Label 'Attachments (%1)|%1';

FilterTxt: Label '*.jpg;*.jpeg;*.bmp;*.png;*.gif;*.tiff;*.tif;*.pdf;*.docx;*.doc;*.xlsx;*.xls;*.pptx;*.ppt;*.msg;*.xml;*.*';

begin

FileName := FileManagement.BLOBImportWithFilter(TempBlob, ImportTxt, FileName, STRSUBSTNO(FileDialogTxt, FilterTxt), FilterTxt);

CountryPolicy."Attached Country Policy " := TempBlob.Blob;

IF CountryPolicy."Attached Country Policy ".HASVALUE THEN BEGIN

CountryPolicy."Country Policy File Name" := COPYSTR(FileManagement.GetFileNameWithoutExtension(FileName), 1, MAXSTRLEN(CountryPolicy."Country Policy File Name"));

CountryPolicy."Country Policy File Extension" := LOWERCASE(COPYSTR(FileManagement.GetExtension(FileName), 1, MAXSTRLEN(CountryPolicy."Country Policy File Extension")));

CountryPolicy."Country Policy Attached" := TRUE;

CountryPolicy.MODIFY;

END;

end;

procedure DownloadFile(CountryPolicy: Record CountryPolicy)

var

TempBlob: Record TempBlob;

FileManagement: Codeunit "File Management";

begin

IF CountryPolicy."Attached Country Policy ".HASVALUE THEN BEGIN

CountryPolicy.CALCFIELDS("Attached Country Policy ");

TempBlob.Blob := CountryPolicy."Attached Country Policy ";

FileManagement.BLOBExport(TempBlob, CountryPolicy."Country Policy File Name" + '.' + CountryPolicy."Country Policy File Extension", TRUE);

END;

END;

Was this reply helpful? Yes No
Suggested answer

Oleksandr Shevchuk 175 on at

Like (0)

Report
Copy link

Link copied!

Hi,

For version 15 version, you will need to use the BLOB Storage Module instead of the Tempblob table.

You can find some useful information regarding your question in the BLOB Storage Module section by the following link:

github.com/.../BREAKINGCHANGES.md

Was this reply helpful? Yes No

Join the conversation

Community site session details

Version 14 and version 15 Business Central

Helpful resources

News and Announcements

Quick Links

Responsible AI policies

Neeraj Kumar – Community Spotlight

Congratulations to the December Top 10 Community Leaders!

Leaderboard > Small and medium business | Business Central, NAV, RMS

Featured topics

Product updates

Community site session details

Version 14 and version 15 Business Central

Helpful resources

News and Announcements

Quick Links

Responsible AI policies

Neeraj Kumar – Community Spotlight

Congratulations to the December Top 10 Community Leaders!

Subscribe to this forum!

Select categories

Leaderboard > Small and medium business | Business Central, NAV, RMS

Featured topics

Product updates