Am trying to print Sales order attachments in reports. if there is image file in attachment am able to print but not pdf and word.
is there any way to print attachments in report.?
report 50000 "Print attachments"
{
DefaultLayout = RDLC;
RDLCLayout = './attach.rdl';
UsageCategory = ReportsAndAnalysis;
ApplicationArea = All;
dataset
{
dataitem(Salesheader; "Sales Header")
{
column(SelltoCustomerName; "Sell-to Customer Name")
{
}
column(SelltoCustomerNo; "Sell-to Customer No.")
{
}
column(No; "No.")
{
}
dataitem(Docattach; "Document Attachment")
{
DataItemLinkReference = Salesheader;
DataItemLink = "Document Type" = field("Document Type"), "No." = field("No.");
column(DocumentReferenceID; TenantMedia.Content)
{
}
column(PicDataBASE64; PicDataBASE64)
{
}
trigger OnAfterGetRecord()
begin
MyProcedure();
end;
}
}
}
local procedure MyProcedure()
var
tempblob: Codeunit "Temp Blob";
base64convert: Codeunit "Base64 Convert";
PicInStream: InStream;
lstr_Out: OutStream;
lstr_OutBASE64: OutStream;
PicData: Text;
begin
tempblob.CreateOutStream(lstr_Out);
Docattach."Document Reference ID".ExportStream(lstr_Out);
tempblob.CreateInStream(PicInStream);
PicInStream.ReadText(PicData);
PicDataBASE64 := base64convert.ToBase64(PicData);
end;
var
TenantMedia: Record "Tenant Media";
PicDataBASE64: Text;
}
layout:
