Production Process Steering - Tandembox Genereert van een Toelevering de verpakkingsdefinitie %Prod.Product,BL.Prod.OptiBox,BL.Sys.Toegang,BL.Sys.Proxy 1 %RegisteredObject 0 KAD||Vouw errond KAD PH PB MON VPK 20 10 %Boolean %Integer %Integer WS.Prod.PanOpti.q1.OPTIREQ 1 TOENr 1 1 PRNr PRNr:%Integer,ProdQty:%Integer,Qty:%Integer,BaseRef,CallBack:%List,SnijPrioriteit:%Integer,PPSOutput:%Integer,MachineID:%String BL.Sys.Proxy.pxStatus Do ##class(BL.PPS.KAD.OptiBox).%New().SnijOne(PRNr,Qty,"", ,9,1,"HALUX") B:H,1:B) Set Params("BREEDTE")=$S(H>B:B,1:H) Set Params("KADAANTAL")=ProdQty ]]> TOENr 1 TOENr 3 ; Minimum 3 laden voor vert stack ]]> "P" : pallet stapeling "S" : Stuks V1 verpakking "V" : Vertical stacking 1 PRNr (1200-32) "S" ; Max. breedte Quit "P" ; tijdelijk pallet Quit "V" ; Vert Stacked ]]> D ##class(BL.PPS.KAD.OptiBox).CreateMeta() 1 DelAllFirst D ##class(BL.PPS.KAD.OptiBox).CreateData() 1 DelAllFirst