Heute 15:06
Heute 15:57
action("Download Custom PDF")
{
ApplicationArea = All;
Image = ExportFile;
trigger OnAction()
var
TempBlob: Codeunit "Temp Blob";
OutStream: OutStream;
RecRef: RecordRef;
FileManagement: Codeunit "File Management";
SalesHeader: Record "Sales Header";
ReportNo: Integer;
ReportName: Text[50];
begin
// Hole den Datensatz, z. B. Verkaufsauftrag
SalesHeader.Get("Document Type"::Order, "No.");
RecRef.GetTable(SalesHeader);
// Erstelle OutStream für TempBlob
TempBlob.CreateOutStream(OutStream);
// Hier noch ReportNo und ReportName belegen
// Speichere Report als PDF in TempBlob
Report.SaveAs(ReportNo, '', ReportFormat::Pdf, OutStream, RecRef);
// Exportiere mit benutzerdefiniertem Dateinamen
FileManagement.BLOBExport(TempBlob, StrSubstNo('%1_%2_%3.pdf', ReportNo, Reportname, SalesHeader."No."), true);
end;
}