Skip to content

Sending file via custom codeunit

In this documentation, we will create a sample codeunit that enables the integration of external code, allowing Document Dispatch to send files received via a codeunit.

Info

This custom codeunit must be implemented within a custom extension. Please consider the comments within the sample codeunit.

The following requirements must be met: The Document Dispatch extension must be licensed. The Document Dispatch extension must be referenced in the custom extension.

Document Dispatch Custom Codeunit:

AL
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
codeunit 50000 "Document Dispatch Custom Codeunit"
{
    TableNo = "SIM_EDS Record Attachment";
    Permissions = tabledata "SIM_EDS Queue Line" = RIM;

    trigger OnRun()
    begin
        CreateCustomAttatchments(Rec);
    end;

    var
        GlobalCodeunitSIMEDSSI: Codeunit "SIM_EDS SI";

    local procedure CreateCustomAttatchments(ParamRecordSIMEDSRecordAttachment: Record "SIM_EDS Record Attachment")
    var
        LocalRecordSIMEDSQueueLine: Record "SIM_EDS Queue Line";
        LocalCodeunitBase64Convert: Codeunit "Base64 Convert";
        LocalCodeunitSIMCORERecordRef: Codeunit "SIM_CORE RecordRef";
        LocalCodeunitSIMCOREDataMapping: Codeunit "SIM_CORE Data Mapping";
        LocalRecordId: RecordId;
        LocalRRecordRef: RecordRef;
        LocalMappingRecordRef: RecordRef;
        LocalResultRecordRef: RecordRef;
        LocalOOutStream: OutStream;
        LocaliInteger: Integer;
        LocalFileBase64StringText: Text;
        LocalFilenameTempText: Text;
        LocalFileExtensionText: Text;
        LocalLineNoInteger: Integer;
        LocalExample1Boolean: Boolean;
        LocalExample2Boolean: Boolean;
        LocalDoExportBoolean: Boolean;
    begin
        // Check if the codeunit is setup
        if GlobalCodeunitSIMEDSSI.GetCodeunitRecID() = '' then exit;
        if GlobalCodeunitSIMEDSSI.GetCodeunitQueueID() = 0 then exit;
        if not Evaluate(LocalRecordId, GlobalCodeunitSIMEDSSI.GetCodeunitRecID()) then exit;
        if not LocalRRecordRef.Get(LocalRecordId) then exit;

        // Get the Queue Line No. from the Document Dispatch SI codeunit
        LocalLineNoInteger := GlobalCodeunitSIMEDSSI.GetCodeunitQueueLineNo();

        // Retrieve the recordref from the Attachment Record
        if ParamRecordSIMEDSRecordAttachment."Dynamic Mapping Code" = '' then
            LocalCodeunitSIMCORERecordRef.FilterRecRefByKey(LocalRRecordRef, LocalResultRecordRef)
        else begin
            LocalCodeunitSIMCORERecordRef.FilterRecRefByKey(LocalRRecordRef, LocalMappingRecordRef);
            LocalCodeunitSIMCOREDataMapping.GetRecordFromMappingHeader(ParamRecordSIMEDSRecordAttachment."Dynamic Mapping Code", LocalMappingRecordRef, LocalResultRecordRef);
            LocalMappingRecordRef.Close();
        end;

        // Repeat for each record found in the result recordref
        if LocalResultRecordRef.FindSet() then
            repeat
                // Set LocalDoExportBoolean to false so that the record is not exported by default
                LocalDoExportBoolean := false;

                // Perform checks to determine if the record should be exported
                if (NOT LocalExample1Boolean) AND LocalExample2Boolean then
                    LocalDoExportBoolean := true;

                // If the record should be exported, create a new queue line
                if LocalDoExportBoolean then begin
                    // LocalLineNoInteger needs to be incremented by 10000 for each new queue line
                    LocalLineNoInteger += 10000;

                    LocalRecordSIMEDSQueueLine.Init();
                    LocalRecordSIMEDSQueueLine."Queue Entry No." := GlobalCodeunitSIMEDSSI.GetCodeunitQueueID();
                    LocalRecordSIMEDSQueueLine."Line No." := LocalLineNoInteger;

                    // Set the document name and extension to the correct values
                    LocalFilenameTempText := 'test.pdf';
                    for LocaliInteger := StrLen(LocalFilenameTempText) downto 1 do
                        if LocalFilenameTempText[LocaliInteger] = '.' then begin
                            LocalFileExtensionText := CopyStr(LocalFilenameTempText, LocaliInteger, StrLen(LocalFilenameTempText));
                            LocaliInteger := 1;
                        end;

                    // Set the values of the queue line
                    LocalRecordSIMEDSQueueLine."Document Name" := CopyStr(LocalFilenameTempText, 1, 250);
                    LocalRecordSIMEDSQueueLine."Filename Extension" := CopyStr(LocalFileExtensionText, 1, MaxStrLen(LocalRecordSIMEDSQueueLine."Filename Extension"));
                    LocalRecordSIMEDSQueueLine.Type := ParamRecordSIMEDSRecordAttachment.Type;
                    LocalRecordSIMEDSQueueLine."Attachment Group" := ParamRecordSIMEDSRecordAttachment."Attachment Group";
                    LocalRecordSIMEDSQueueLine."Record Attachment Line No." := ParamRecordSIMEDSRecordAttachment."Line No.";
                    LocalRecordSIMEDSQueueLine.Description := ParamRecordSIMEDSRecordAttachment.Description;
                    LocalRecordSIMEDSQueueLine."Source ID" := LocalResultRecordRef.RecordId;

                    case ParamRecordSIMEDSRecordAttachment."Default Output" of
                        ParamRecordSIMEDSRecordAttachment."Default Output"::" ":
                            LocalRecordSIMEDSQueueLine."Subtype" := LocalRecordSIMEDSQueueLine."Subtype"::" ";
                        ParamRecordSIMEDSRecordAttachment."Default Output"::Codeunit:
                            LocalRecordSIMEDSQueueLine."Subtype" := LocalRecordSIMEDSQueueLine."Subtype"::Codeunit;
                        ParamRecordSIMEDSRecordAttachment."Default Output"::Report:
                            LocalRecordSIMEDSQueueLine."Subtype" := LocalRecordSIMEDSQueueLine."Subtype"::Report;
                    end;

                    LocalRecordSIMEDSQueueLine."Codeunit File Found" := true;
                    LocalRecordSIMEDSQueueLine."User Change Report Settings" := ParamRecordSIMEDSRecordAttachment."User Change Report Settings";
                    LocalRecordSIMEDSQueueLine."Report Settings Needed" := ParamRecordSIMEDSRecordAttachment."Report Settings Needed";
                    LocalRecordSIMEDSQueueLine."Optional Attachment" := ParamRecordSIMEDSRecordAttachment."Optional Attachment";
                    LocalRecordSIMEDSQueueLine."Attach Tag" := ParamRecordSIMEDSRecordAttachment."Default selection";

                    // The LocalFileBase64StringText variable should be set to the base64 string of the file. The Logic how to get the base64 string is not provided in this snippet.
                    LocalFileBase64StringText := 'BASE64STRING';

                    // Write the base64 string to the queue line
                    Clear(LocalOOutStream);
                    LocalRecordSIMEDSQueueLine."Document Blob".CreateOutStream(LocalOOutStream);
                    LocalCodeunitBase64Convert.FromBase64(LocalFileBase64StringText, LocalOOutStream);

                    // Insert the queue line
                    LocalRecordSIMEDSQueueLine.Insert();
                end;
            until LocalResultRecordRef.Next() = 0;

        GlobalCodeunitSIMEDSSI.SetCodeunitQueueLineNo(LocalLineNoInteger);
    end;
}