JOP-AL

Objects/Codeunits

Codeunit 1276 Exp. Writing Gen. Jnl.

, Base Application 28.5.54151.54365, checked

App
Base Application
Namespace
System.IO
Versions
17-28

Versions171819202122232425262728

Source29

Source in 29

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;
}