Production Process Steering - Tandembox Genereert van een Toelevering de verpakkingsdefinitie Prod.Product,BL.Prod.OptiBox,BL.Sys.Toegang,BL.Sys.Proxy 1 %RegisteredObject 192.168.0.10 8888 0 OL||Overdoos TAOR indelingen||Overdoos OL||Bodem Deksel OL||Bodem Deksel OL||Platte doos OL||AntislipMat OL||Bestekinzet GEN||Volume GEN||Pallet %Integer 1170 %Integer 770 %Integer %Integer %List 1 WS.Prod.PanOpti.q1.OPTIREQ WS.Prod.PanOpti.q1.BOXDEF vhLib.Logger 1 %Status D ##class(BL.PPS.OL.OptiBox).OptimizeBon(393622) 1 BONNr:%String 0 1 PRNr D ##class(BL.PPS.OL.OptiBox).SnijBoxDirect(13930) 1 PRNr,Qty,MachineID Callback van Optimizer zowel voor Optimizatie als Status 1 ObjType,ObjRef,Key,OptiID,Type,Status,Message oParent pxParent:WS.Prod.PanOpti.q1.OPTIREQ,BONNr:%String pxParent:WS.Prod.PanOpti.q1.OPTIREQ,Bon:DOM.VKP.Bon WS.Prod.PanOpti.q1.BOXDEF 100 { Set pxOverDoos.NOBOXIMAGE=1 } If $G(Body)'="" Do . Set Body=Body_$C(13,10) . Do %blProdOptiBoxOptimize.oRequest.XMLExportToString(.String,,"literal,indent") . Set String = $Extract(String,0,32000) // Voorkomen dat we over de maximum length van een String gaan. . Set Body=Body_String . Set Body=Body_$C(13,10)_##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_" - "_$zu(5) . Do SendMiniMail^vhLib("Optibox@vanhoecke.be",$LB("PV@vanhoecke.be,am@de7.be"),"Missing boxdata "_ Bon.GeefKlantID() _"-"_ Bon.GeefID() ,Body) Quit pxOverDoos ]]> pxParent:WS.Prod.PanOpti.q1.OPTIREQ,BONNr:%String,BasisRef:%String WS.Prod.PanOpti.q1.BOXDEF Deze method ondersteunt enkel producten met slechts 1 BoxData object dat geen "DeelVan" een ander BoxData object is. ProductID:%String %Boolean WS.Prod.PanOpti.q1.BOXDEF 1 BONNr,WithPallet