Join two or more PDFs into one in Business Central


In the next post we will explain how to join two PDFs into one, we will take as an example the generation of a Sales Order in PDF and Sales Invoice in the same format.


First we will create the codeunit as follows:


Then we will create a page where we will generate the pdf of the Sales Order and the Sales invoice:

page 50148 MergePDF
{

    Caption = 'MergePDF';
    PageType = Card;

    layout
    {
        area(content)
        {
            group(General)
            {
                usercontrol(pdf; PDF)
                {
                    ApplicationArea = all;

                    trigger DownloadPDF(pdfToNav: text)
                    var
                        TempBlob: Codeunit "Temp Blob";
                        Convert64: Codeunit "Base64 Convert";
                        Ins: InStream;
                        Outs: OutStream;
                        Filename: Text;
                    begin
                        if pdfToNav <> '' then begin
                            Filename := 'Test.pdf';
                            TempBlob.CreateInStream(Ins);
                            TempBlob.CreateOutStream(Outs);
                            Convert64.FromBase64(pdfToNav, Outs);
                            DownloadFromStream(Ins, 'Download', '', '', Filename);
                        end;
                    end;
                }
            }
        }
    }

    actions
    {
        area(Processing)
        {
            action(SalesOrder)
            {
                ApplicationArea = All;
                Caption = 'Add Sales Order';
                Image = Order;
                trigger OnAction()
                var
                    SalesHeader: Record "Sales Header";
                    Recref1: RecordRef;
                begin
                    //Get any record
                    SalesHeader.SetRange("Document Type", SalesHeader."Document Type"::Order);
                    SalesHeader.FindFirst();
                    SalesHeader.SetRange("No.", SalesHeader."No.");
                    Recref1.GetTable(SalesHeader);
                    MergePDF.AddReportToMerge(Report::"Standard Sales - Order Conf.", Recref1);
                    Message(DocumentAdded, SalesHeader."No.");
                end;
            }
            action(SalesInvoice)
            {
                ApplicationArea = All;
                Caption = 'Add Posted Sales Invoice';
                Image = Order;
                trigger OnAction()
                var
                    SalesInvoiceHeader: Record "Sales Invoice Header";
                    Recref2: RecordRef;
                begin
                    SalesInvoiceHeader.FindFirst();
                    SalesInvoiceHeader.SetRange("No.", SalesInvoiceHeader."No.");
                    Recref2.GetTable(SalesInvoiceHeader);
                    MergePDF.AddReportToMerge(Report::"Standard Sales - Invoice", Recref2);
                    Message(DocumentAdded, SalesInvoiceHeader."No.");
                end;
            }
            action(Merge)
            {
                ApplicationArea = All;
                Caption = 'Merge documents';
                Image = Print;
                trigger OnAction()
                begin
                    //To check the JsonArray
                    //Message(format(MergePDF.GetJArray()));
                    CurrPage.pdf.MergePDF(format(MergePDF.GetJArray()));
                end;
            }
            action(Clear)
            {
                ApplicationArea = All;
                Caption = 'Clear documents';
                Image = Delete;
                trigger OnAction()
                var
                begin
                    MergePDF.ClearPDF();
                end;
            }
        }
    }
    var
        MergePDF: Codeunit MergePDF;
        DocumentAdded: Label 'Document %1 added';
}



Keep in mind that we must create controladdin  for the PDF:


controladdin PDF

{

    Scripts = 'src/script/pdf-lib.min.js',

    'src/script/download.js',

    'src/script/scripts.js';


    MaximumHeight = 1;

    MaximumWidth = 1;

    event DownloadPDF(stringpdffinal: text);

    procedure createPdf();

    procedure MergePDF(JObjectToMerge: text);


} 


Find the complete code here:


https://github.com/juancamilo0519/mergepdfbusinesscentral


Athor: 

Gonzalo Ríos Ley

https://www.linkedin.com/in/gonzalo-r%C3%ADos-ley/






Comentarios

Publicar un comentario

Entradas populares de este blog

Connect An External Database To Business Central

Imagen
First of all, we need to create a table in Business Central. As an example, we will connect to an older version of Nav and get the customers from the database. The table type will be ‘ExternalSQL’ and the external name will be the same that it´s in SQL Server (Company Name + Table Name). Add the fields you wish to retrieve from the Sql table. This step is quite delicate, you need to have the same data types between SQL Server and Business central fields. Otherwise, the system will display an error and the connection won´t be stablished. (varchar = text or code, unique identifier = guid, and so on). The names of the fields can differ from the ones of Sql but if you do so, then, the field property ‘ExternalName’ must be filled. An example of a table would look like this. Note that if there is no primary key, BC will assing it to the first field. Create the connection First, you need to identify the Sql server, instance (if local server) and database name you will connect to: Then, if you...
Leer más

How to open any document in OneDrive from Business Central

Imagen
https://github.com/juancamilo0519/OpenInOneDrive   The following post explains how to open any document, in this case a Sales Order, from OneDrive in order to immediately share it with our work team: By pressing the Open in Onedrive button, Business Central will ask if we agree to use our OneDrive in our environment. Finally, our document opens directly from OneDrive and we can share it with our work team. Below is the source code: https://github.com/juancamilo0519/OpenInOneDrive //Whith this solution you can copy the file to your bussiness central folder in OneDrive and open it in a new windows. pageextension 50100 SalesOrderExt extends "Sales Order" {     actions     {         addlast ( "O&rder" )         {             action ( OpenInOneDrive )             {                 ApplicationArea = all;     ...
Leer más