JOP-AL

Objects/Codeunits/Codeunit 1276 Exp. Writing Gen. Jnl.

Codeunit 1276 Exp. Writing Gen. Jnl., source in 29

, Base Application, releases/29.x at a66254c3b8, checked

Source29

src/Layers/W1/BaseApp/System/DataExchange/ExpWritingGenJnl.Codeunit.al25 lines, Copyright (c) Microsoft Corporation. MIT

namespace System.IO;

codeunit 1276 "Exp. Writing Gen. Jnl."
{
    Permissions = TableData "Data Exch. Field" = rimd;
    TableNo = "Data Exch.";

    trigger OnRun()
    var
        DataExchDef: Record "Data Exch. Def";
        DataExchField: Record "Data Exch. Field";
        OutputStream: OutStream;
    begin
        DataExchDef.Get(Rec."Data Exch. Def Code");
        DataExchDef.TestField("Reading/Writing XMLport");

        Rec."File Content".CreateOutStream(OutputStream);
        DataExchField.SetRange("Data Exch. No.", Rec."Entry No.");
        XMLPORT.Export(DataExchDef."Reading/Writing XMLport", OutputStream, DataExchField);

        DataExchField.DeleteAll(true);
    end;
}