Small and medium business | Business Central, N...

How to read blob file in nav

(1) Share

Report

Posted on by AjayPandey

133

Can you please check where i am wrong

TemplateTable.CALCFIELDS(ImportTemp);
IF TemplateTable.GET('141') THEN
TempBlob.Blob.CREATEINSTREAM(Ins);
WHILE NOT Ins.EOS DO BEGIN
Ins.READTEXT(EmailTemplateBody);
MESSAGE('%1',EmailTemplateBody);
END;

I have the same question (0)

All responses (3)

Answers (0)

Suggested answer

YUN ZHU 95,595 Super User 2025 Season 2 on at

Like (0)

Report

Hi, hope the following helps.

Thanks.

ZHU

Was this reply helpful? Yes No
Suggested answer

Nitin Verma 21,708 Moderator on at

Like (0)

Report
Hi,

You can have an idea by going to Sales Header Table and find the function to get and set work description.

procedure SetWorkDescription(NewWorkDescription: Text) var OutStream: OutStream; begin Clear("Work Description"); "Work Description".CreateOutStream(OutStream, TEXTENCODING::UTF8); OutStream.WriteText(NewWorkDescription); Modify(); end; procedure GetWorkDescription() WorkDescription: Text var TypeHelper: Codeunit "Type Helper"; InStream: InStream; begin CalcFields("Work Description"); "Work Description".CreateInStream(InStream, TEXTENCODING::UTF8); exit(TypeHelper.TryReadAsTextWithSepAndFieldErrMsg(InStream, TypeHelper.LFSeparator(), FieldName("Work Description"))); end;

Was this reply helpful? Yes No
AjayPandey 133 on at

Like (0)

Report

I want to read HTML templates which i have already import in templates table and i want to use this templates in email to customers

mention below are the codes for import templates.

ImportTemplate - OnAction()
Rec.CALCFIELDS(ImportTemp);
IF Rec.ImportTemp.HASVALUE THEN
MESSAGE('Template is alredy Uploaded');
IF NOT CONFIRM('Do you want to ReUpload?') THEN
EXIT;

FileName := Filemgm.BLOBImportWithFilter(TempBlob, 'Upload File', '', 'All Files (*.*)|*.HTML*', '.HTML');
TempBlob.Blob.CREATEINSTREAM(Ins);
Rec.ImportTemp.CREATEOUTSTREAM(Outs);
COPYSTREAM(Outs, Ins);
IF TempBlob.Length()>5000000 THEN
ERROR('File size must be less than or equal to 3MB')
ELSE BEGIN
Rec.MODIFY(TRUE);
MESSAGE('File Uploaded');
END;

ExportTemplate - OnAction()
Rec.CALCFIELDS(ImportTemp);
Rec.ImportTemp.CREATEINSTREAM(Ins);
TempBlob.Blob.CREATEOUTSTREAM(Outs);
COPYSTREAM(Outs,Ins);
IF Rec.ImportTemp.HASVALUE THEN
FilemngCU.BLOBExport(TempBlob, FileName + 'Parcel.html', TRUE)
ELSE
ERROR('File Not found');

Was this reply helpful? Yes No