Merge Multiple PDF fiels in Single PDF file in Business Central

 Hello Team,

Merge multiple pdf files is single pdf file is demanding requirement in Business Central SaaS Version

We have develop very simple API Utility that can take N number on input Base64 data and combine in single PDF and return sigle Base 64 file for merge PDF.

Key Feature:

- Merge N Numbers of different file in Single PDF

- Merge Standard Attached PDF Documents on Master with Primary Document File

- Send Merge PDF Files on Email

- Save Merge PDF File in Document Attachment

Code Snapshot:

 procedure MergeInvoices(var SIH_vRec: Record "Sales Invoice Header")

    var

        ReportSelect_lRec: Record "Report Selections";

        CurrentSIH_lRec: Record "Sales Invoice Header";

        Base64Convert: Codeunit "Base64 Convert";

        RecRef: RecordRef;

        Base64String: Text;

        Win_gDlg: Dialog;

        Curr_gInt: Integer;

    begin

        Win_gDlg.Open('Total #1#############\Current #2##############');

        Win_gDlg.Update(1, SIH_vRec.Count);

        ReportSelect_lRec.Reset();

        ReportSelect_lRec.Setrange(Usage, ReportSelect_lRec.Usage::"S.Invoice");

        ReportSelect_lRec.FindFirst();

        ReportSelect_lRec.Testfield("Report ID");

        IF SIH_vRec.FindSet() THen

            repeat

                Curr_gInt += 1;

                Win_gDlg.Update(2, Curr_gInt);

                CurrentSIH_lRec.get(SIH_vRec."No.");

                CurrentSIH_lRec.SetFilter("No.", SIH_vRec."No.");

                RecRef.GetTable(CurrentSIH_lRec);

                RecRef.SetView(CurrentSIH_lRec.GetView());

                Clear(Rpt_TempBlob);

                Clear(Rpt_OutStream);

                Clear(Rpt_InStream);

                Rpt_TempBlob.CreateOutStream(Rpt_OutStream);

                Report.SaveAs(ReportSelect_lRec."Report ID", RecRef.GetFilters(),

ReportFormat::Pdf, Rpt_OutStream, RecRef);

                Rpt_TempBlob.CreateInStream(Rpt_InStream);

                Base64String := Base64Convert.ToBase64(Rpt_InStream);

                //FileBase64 Object

                Clear(JObject);

                JObject.Add('FileBase64', Base64String);

                ObjectJArray.Add(JObject);

            until SIH_vRec.NEXT() = 0;

        Win_gDlg.Close();

        CallPDFMergeAPI();

    end;

 local procedure CallPDFMergeAPI()

    var

        Base64Convert: Codeunit "Base64 Convert";

        DoubleQuote_Lbl: Label '""""';

        lText: Text;

        ShipmentResponse: Text;

        MergeFileName_lTxt: Text;

        gHttpClient: HttpClient;

        OrderDetailContent: HttpContent;

        lheaders: HttpHeaders;

        greqMsg: HttpRequestMessage;

        gResponseMsg: HttpResponseMessage;

    begin

        OrderObject.Add('Files', ObjectJArray);

        OrderObject.WriteTo(lText);

        // Message(lText);

        OrderDetailContent.WriteFrom(lText);

        Clear(greqMsg);

        Clear(gHttpClient);

        greqMsg.SetRequestUri(API Link here....);

        lheaders.Clear();

        OrderDetailContent.GetHeaders(lheaders);

        lheaders.Remove('Content-Type');

        lheaders.Add('Content-Type', 'application/json');

        OrderDetailContent.GetHeaders(lheaders);

        greqMsg.Content(OrderDetailContent);

        greqMsg.Method := 'post';

        gHttpClient.Send(greqMsg, gResponseMsg);

        ShipmentResponse := '';

        gResponseMsg.Content().ReadAs(ShipmentResponse);

        ShipmentResponse := DelChr(ShipmentResponse, '<>', DoubleQuote_Lbl);

        //  Message(ShipmentResponse);

        Clear(Rpt_TempBlob);

        Rpt_TempBlob.CreateOutStream(Rpt_OutStream);

        Base64Convert.FromBase64(ShipmentResponse, Rpt_OutStream);

        Rpt_TempBlob.CreateInStream(Rpt_InStream);

        MergeFileName_lTxt := 'MergeFile_' + FORMAT(CURRENTDATETIME, 0,

'<Day,2>_<Month,2>_<Year4>_<Hours24>_<Minutes,2>_<Seconds,2>') + '_' +

Format(Random(100)) + '.pdf';

        DownloadFromStream(Rpt_InStream, '', '', '', MergeFileName_lTxt);

    end;

    var

        Rpt_TempBlob: Codeunit "Temp Blob";

        OrderObject: JsonObject;

        ObjectJArray: JsonArray;

        JObject: JsonObject;

        Rpt_InStream: InStream;

        Rpt_OutStream: OutStream;

Done...

Very simple and most useful solution.

If you need this utility than contact to Intech Systems

Thank you for reading...

Keep Sharing...Keep Growing...

API Base Cloud Printing in Business Central SaaS Version

Hello Friends,

It was very demanding in Business Central Cloud version to allow user to print directly from BC / Mobile App / Tablet App.

This can only be possible using Cloud API for printing.

We have develop very advance cloud printing API utility for print any Report by just single click from Business Central - any version.

procedure GetBase64_DS(ReportID: Integer; RecRef: RecordRef)

    var

        APISetup_lRec: Record "Cloud Print API Setup";

        ReportPrinterSetup: Record "Report Printer Setup";

        Base64Convert: Codeunit "Base64 Convert";

        Rpt_TempBlob: Codeunit "Temp Blob";

        gHttpClient: HttpClient;

        gcontent: HttpContent;

        lheaders: HttpHeaders;

        greqMsg: HttpRequestMessage;

        gResponseMsg: HttpResponseMessage;

        Rpt_InStream: InStream;

        DuplexPrintOption_lInt: Integer;

        ReqJObject: JsonObject;

        Rpt_OutStream: OutStream;

        Base64String: Text;

        JSONResponse: Text;

        ltext: Text;

        lurl: Text;

        PDFCMDBase64_lTxt: Text;

        PrintCmdText: Text;

        PrinterName_iTxt: Text;

        ReportFileName_lTxt: Text;

    begin

        APISetup_lRec.GET;

        APISetup_lRec.Testfield("Exe Path");

        APISetup_lRec.Testfield("Folder Path");

        APISetup_lRec.Testfield("Print API");

        ReportPrinterSetup.Reset();

        ReportPrinterSetup.SetRange("User ID", UserId);

        ReportPrinterSetup.SetRange("Report ID", ReportID);

        IF ReportPrinterSetup.FindFirst() THEN begin

            DuplexPrintOption_lInt := ReportPrinterSetup."Print Duplex Mode" + 1;

            PrinterName_iTxt := ReportPrinterSetup."Printer Name"

        End Else begin

            ReportPrinterSetup.SetRange("Report ID", 0);

            IF ReportPrinterSetup.FindFirst() THEN begin

                DuplexPrintOption_lInt := ReportPrinterSetup."Print Duplex Mode" + 1;

                PrinterName_iTxt := ReportPrinterSetup."Printer Name";

            End;

        end;

        Rpt_TempBlob.CreateOutStream(Rpt_OutStream);

        Report.SaveAs(ReportID, RecRef.GetFilters(), ReportFormat::Pdf,

Rpt_OutStream, RecRef);

        Rpt_TempBlob.CreateInStream(Rpt_InStream);

        Base64String := Base64Convert.ToBase64(Rpt_InStream);

        ReportFileName_lTxt := 'Inv_' + FORMAT(CURRENTDATETIME, 0,

'<Day,2>_<Month,2>_<Year4>_<Hours24>_<Minutes,2>_<Seconds,2>') + '_' +

Format(Random(100)) + '.pdf';

        PrintCmdText := StrSubstNo('%1 -duplex %2 -printer "%3" %4%5',

APISetup_lRec."Exe Path", DuplexPrintOption_lInt, PrinterName_iTxt,

APISetup_lRec."Folder Path", ReportFileName_lTxt);

        PDFCMDBase64_lTxt := Base64Convert.ToBase64(PrintCmdText);

        ReqJObject.Add('ReportBase64', Base64String);

        ReqJObject.Add('PrintCMDCommand', PDFCMDBase64_lTxt);

        ReqJObject.Add('FileName', ReportFileName_lTxt);

        ReqJObject.Add('FolderPath', Base64Convert.ToBase64(APISetup_lRec."Folder Path"));

        ReqJObject.Add('Exepath', Base64Convert.ToBase64(APISetup_lRec."Exe Path"));

        ReqJObject.WriteTo(ltext);

        lurl := APISetup_lRec."Print API";

        gcontent.WriteFrom(ltext);

        greqMsg.SetRequestUri(lurl);

        lheaders.Clear();

        gcontent.GetHeaders(lheaders);

        lheaders.Remove('Content-Type');

        lheaders.Add('Content-Type', 'application/json');

        gcontent.GetHeaders(lheaders);

        greqMsg.Content(gcontent);

        greqMsg.GetHeaders(lheaders);

        greqMsg.Method := 'POST';

        if not gHttpClient.Send(greqMsg, gResponseMsg) then

            Error('API Authorization token request failed...');

        JSONResponse := '';

        gResponseMsg.Content().ReadAs(JSONResponse);

        IF STRPOS(JSONResponse, 'An error has occurred') <> 0 then

            Error('Error %1 \\ PDF Command (in Base64) %2', JSONResponse, PDFCMDBase64_lTxt);

        IF STRPOS(JSONResponse, 'Time of printing is:') <> 0 then

            Message('Document Print Successfully')

        Else

            Message(JSONResponse);

    end;

}

Done...

This will print any report in just single click - where user can setup Default printer name in Business Central

Also this utility provide advance command of print like - Simple / Duplex Print and Paper Source Selection.

New Revaluation of Printing in cloud application !!!

If you intrested to purcahse this utility than contact to Intech System.

Thank you for reading....

Keep Sharing...Keep Growing...