Codeunit 1236 Suggest Col. Definition - XML, source in 29

namespace System.IO;

codeunit 1236 "Suggest Col. Definition - XML"
{

    trigger OnRun()
    begin
    end;

    procedure GenerateDataExchColDef(URLPath: Text; DataExchLineDef: Record "Data Exch. Line Def")
    var
        DataExchColumnDef: Record "Data Exch. Column Def";
        TempXMLBuffer: Record "XML Buffer" temporary;
        XMLBufferWriter: Codeunit "XML Buffer Writer";
        ColumnNo: Integer;
    begin
        XMLBufferWriter.GenerateStructureFromPath(TempXMLBuffer, URLPath);

        DataExchColumnDef.SetRange("Data Exch. Def Code", DataExchLineDef."Data Exch. Def Code");
        DataExchColumnDef.SetRange("Data Exch. Line Def Code", DataExchLineDef.Code);
        DataExchColumnDef.DeleteAll();
        ColumnNo := 0;

        TempXMLBuffer.Reset();
        if TempXMLBuffer.FindSet() then
            repeat
                ColumnNo += 10000;

                DataExchColumnDef.Init();
                DataExchColumnDef.Validate("Data Exch. Def Code", DataExchLineDef."Data Exch. Def Code");
                DataExchColumnDef.Validate("Data Exch. Line Def Code", DataExchLineDef.Code);
                DataExchColumnDef.Validate("Column No.", ColumnNo);

                DataExchColumnDef.Validate(Name, TempXMLBuffer.Name);
                DataExchColumnDef.Validate(Path, TempXMLBuffer.Path);
                DataExchColumnDef.Insert(true);
            until TempXMLBuffer.Next() = 0;
    end;
}