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 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 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 ]]> arProduct:TECH.MultiDim 1 0) { #dim pxLijn As BL.Flow.Proxy.pxPakbonLijn = ..GeefPakbonLijnMetPalletCodeOverzicht(LijstPalletCodes) Do ..Lijnen.Insert(pxLijn) } } Catch { #dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Set NewExceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("MaakPakbonPalletCodeOverzicht", "Fout voor BonNr '"_..LeveringsBon_"' van klant '"_..KlantNaam_"'. "_$$$CRLF_"De pakbon PDF wordt gerendered zonder PalletCodeOverzicht") Do NewExceptie.VoegToeInnerExceptie(GecatchteException) Do ##class(vhLib.Logger).%New("pxPakbon").LogEnMailExceptie(NewExceptie) } ]]> arProduct:TECH.MultiDim 1 %ListOfDataTypes LijstPalletCodes:%ListOfDataTypes 1 BL.Flow.Proxy.pxPakbonLijn Voorgemonteerde lades :" Set pxLijn.Product.TEKST = ##class(BL.FOP.Basis.pxTekstBlok).CreateFromRichTextBlock($$$CRLF_##class(TECH.ListUtils).ListToPieces(LijstPalletCodes,$$$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