Production Process Steering - Tandembox Genereert van een Toelevering de verpakkingsdefinitie Prod.Product,BL.Prod.OptiBox,BL.PPS.TBX.Common,BL.Sys.Toegang,BL.Sys.Proxy 1 WPAbstract HALUX 0 = rechtdoor, 1 = rechts, 2 = links 0 5 7 %String %String %String Bij het initieel starten of het terug opstarten van de werkpost Kan ook als GetNext gebruikt worden omdat zo gauw iets verwerkt is de status veranderd BatchID Hierbij moet de vorige nog niet verwerkt zijn QueueID :Sequence ORDER BY Sequence) Quit QueueID ]]> QueueID,Redo BL.Sys.Proxy.pxStatus Actie : "LOB" = Losse onderdelen beschadigd
Actie : "LOM" = Losse onderdelen ontbreken
Actie : "LOF" = Losse onderdelen foutief
Actie : "UITGESTELD" = Lade uitgesteld
Actie : "VERWERKT" = Lade volledig verwerkt
Actie : "HERZET" = Herzet status om terug te herwerken
]]> QueueIDs,Actie BL.Sys.Proxy.pxStatus Actie="X" ; Removed Actie="F" ; Finished Actie="L" ; Postponed Actie="D" ; Damaged Actie="W" ; Reset to waiting QueueID:%String,ProdStatus:%String="",WPStatus:%String="",SnijStatus:%String="" BL.Sys.Proxy.pxStatus oQ,Redo,PPSOutput BL.Sys.Proxy.pxStatus Callback van Optimizer zowel voor Optimizatie, Snijden en Status 1 ObjType,ObjRef,QueueID,OptiID,Type,Status,Message "X" = $$$wsNVT %SQLQuery BatchID ProductNr, Product->KortTekst, DOSNr, CASE Status WHEN 'W' THEN WPLosOnderdeel_WPStatus WHEN 'F' THEN 'F' ELSE 'DEL' END WPStatus,WPLosOnderdeel_SnijStatus SnijStatus,WPLosOnderdeel_Message Message FROM PPS.TBX_Queue WHERE BatchID=:BatchID and (WPLosOnderdeel_WPStatus is not null and WPLosOnderdeel_WPStatus <> 'X') ORDER BY Sequence]]> Opgeroepen door de PPS.TBX.Sequencer Elke lade met losse onderdelen krijgen een WPLosOnderdeel subobject 1 KLNr,TOENr,TLUNr,PRNr,Qty 1) ; Bureaulade Set:IsBuro&&$P($G(^PRBS("BS",PRNr,$$$KeyCorpusProfiel)),"\",2) IsBuro=0 If VPK?1(1"S")&&('IsBuro) Do . Set oWP=##class(DS.PPS.TBX.sub.emWPLosOnderdeel).%New() . ;If IsSpoel Do . ;. Set oWP.WPStatus=$$$wsNVT . ;. Set oWP.SnijStatus=$$$osNVT . ;Else Do . . Set oWP.WPStatus=$$$wsWachtend . Set oWP.SnijStatus=$$$osWachtend Else Do . Set oWP="" Quit oWP ]]> Bulk snijden van bepaalde doosjes Type 500M, 500K of 500D Type,Qty D ##class(BL.PPS.TBX.WPLosOnderdeel).Instantiate().JobAllFromBatch(4594) BatchID,ExcludeList 1 BatchID,ExcludeList 10 min, in seconden 600 D ##class(BL.PPS.TBX.WPLosOnderdeel).Instantiate().AllFromBatch(4594) BatchID,ExcludeList,RunAsBatch BL.Sys.Proxy.pxStatus