Dynamics Community Forum Thread Details

Get data from a ListPart of a codeunit

Hello everyone.
I would like to get data from the ListPart "Sales Invoice Subform".
What I want to do is to get the data and put it in an xml.
I have the following code.

I hope you can help me, thanks.

codeunit 50901 "XMLtestSUBFORM"
{
    procedure XMLv4(RecordCurr: Record "Sales Header")
    var

        v_XMLDoc: XmlDocument;
        v_XMLDec: XmlDeclaration;
        v_RootNode: XmlElement;
        v_ParentNode: XmlElement;
        v_TempBlob: Codeunit "Temp Blob";
        v_Instr: InStream;
        v_OutStr: OutStream;
        v_ReadTxt: Text;
        v_Writetxt: Text;
        v_Emisor: Record "Company Information";
        v_customer: Record Customer;
        v_salesH: Record "Sales Header";
        DatosActuales: Record "Sales Header";


    begin

        DatosActuales := RecordCurr;
        DatosActuales.SetRecFilter();

        v_XMLDoc := XmlDocument.Create();
        v_XMLDec := XmlDeclaration.Create('1.0', 'UTF-8', 'no');
        v_XMLDoc.SetDeclaration(v_XMLDec);

        v_Emisor.Get();
        v_ParentNode := XmlElement.Create('Emisor', 'http://www.sat.gob.mx/cfd/4');
        v_RootNode.Add(v_ParentNode);
        v_ParentNode.SetAttribute('Name', v_Emisor.Name);
        v_ParentNode.SetAttribute('Rfc', v_Emisor."RFC No.");

        v_salesH.FindSet();
        v_ParentNode := XmlElement.Create('Receptor', 'http://www.sat.gob.mx/cfd/4');
        v_RootNode.Add(v_ParentNode);
        v_ParentNode.SetAttribute('Name', DatosActuales."Bill-to Name");
        v_ParentNode.SetAttribute('Code', DatosActuales."CFDI Export Code");

        v_TempBlob.CreateInStream(v_Instr);
        v_TempBlob.CreateOutStream(v_OutStr);
        v_XMLDoc.WriteTo(v_OutStr);
        v_OutStr.WriteText(v_Writetxt);
        v_Instr.ReadText(v_Writetxt);
        v_ReadTxt := 'name_CFDI40.XML';
        DownloadFromStream(v_Instr, '', '', '', v_ReadTxt);

    end;

}

Categories:

Business Central

Quick Links

Leaderboard