vhLib.Macro,BL.Derde.KlantSpecifiek 1 %RegisteredObject,%XML.Adaptor right PAKBON %String %String %String %String BL.Flow.Proxy.pxPakbonLijn list DOM.PM.ProductAPI 1 initvalue:%CacheString 1 1 %Status 1 s px=##class(BL.Flow.Proxy.pxPakbon).TestCreate(367791,.status) do ProxyToXMLFile^vhLib(px,"\\notes01\shared\p v e\resultaat.xml","DOCS",1,1) 1 pxFlowDocs s px=##class(BL.Flow.Proxy.pxPakbon).Create(367791,.status) 1 pxPakbon Leveringsbon invullen BONNr:%String %Status 1 Doos (dozen) met losse onderdelen voor "_$$$CRLF_" Tandembox bulkverpakking." Set pxLijn=##class(pxTekstLijn).BuildHTML(InfoText,0,1) Do ..Lijnen.InsertAt(pxLijn.%ConstructClone(1),1) ; vooraan Do ..Lijnen.Insert(pxLijn) ; achteraan Quit ]]> PRNr:%String 1 %Boolean 1 %String WmsDeelPicking:Flow.OrderWMS.Sub 1 %String Tijdstip:Sys.cTimeStamp 1 %String oLijn:Flow.OrderWMS.Lijn %Boolean