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]
