vhLib.Macro,BL.Derde.KlantSpecifiek 1 %RegisteredObject,%XML.Adaptor right PAKBON %String %String %String %String BL.Flow.Proxy.pxPakbonLijn list DOM.PM.ProductAPI 1 APPS.Halux.AAP.DnaCodeService 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 arProduct:TECH.MultiDim 1 arProduct:TECH.MultiDim,IsTegroeperenPerKlaarzetLocatie:%Boolean 1 %ListOfDataTypes LijstKlaarzetlocaties:%ListOfDataTypes 1 BL.Flow.Proxy.pxPakbonLijn Klaarzetlocaties :" Set pxLijn.Product.TEKST = ##class(BL.FOP.Basis.pxTekstBlok).CreateFromRichTextBlock($$$CRLF_##class(TECH.ListUtils).ListToPieces(LijstKlaarzetlocaties,$$$CRLF)_$$$CRLF_$$$HardeSpatie) Quit pxLijn ]]> 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 PickPalletID:%String 1 %String Tijdstip:Sys.cTimeStamp 1 %String oLijn:Flow.OrderWMS.Lijn %Boolean