IF EXISTS('C:\XML_PO_OUT.XML') THEN ERASE('C:\XML_PO_OUT.XML'); PurchaseHeader.SETRANGE(PurchaseHeader."Document Type",PurchaseHeader."Document Type"::Order); PurchaseLine.SETRANGE(PurchaseLine."Document Type",PurchaseLine."Document Type"::Order); PurchaseHeader.SETFILTER(PurchaseHeader."No.",'104001'); PurchaseLine.SetFilter(PurchaseLine."Document No.", '104001'); TESTFILE.CREATE('C:\XML_PO_OUT.XML'); TESTFILE.CREATEOUTSTREAM(TestStream); XP_PO.SETTABLEVIEW(PurchaseHeader); XP_PO.SETDESTINATION(TestStream); XP_PO.Export; // XMLPORT.EXPORT(123456753,TestStream); TESTFILE.CLOSE; MESSAGE('PO Exported Successfully.');
Answers
RIS Plus, LLC
MVP - Business Apps
Thanks its working.
RIS Plus, LLC
MVP - Business Apps