BL.PPS.WPBasisKarton TAOR TAOR QueueID:%String,Redo BL.Sys.Proxy.pxStatus 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:%String %String Hierbij moet de vorige nog niet verwerkt zijn QueueID:%String %String :Sequence ORDER BY SorteerSleutel,Sequence) Quit QueueID ]]> 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:%String,Actie:%String 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 Callback van Optimizer zowel voor Optimizatie, Snijden en Status 1 ObjType,ObjRef,QueueID,OptiID,Type,Status,Message "X" = $$$wsNVT %SQLQuery BatchID ProductNr as PRNr, Product->KortTekst as KortTekst, DOSNr, CASE Q.Status WHEN 'W' THEN WPLosOnderdeel_WPStatus WHEN 'F' THEN 'F' ELSE 'DEL' END as WPStatus,WPLosOnderdeel_SnijStatus as SnijStatus,WPVerpak_Message as Message FROM PPS.TBX_Queue as Q JOIN APPS_Halux_common_impl.BatchImpl as B on B.ID=Q.BatchID WHERE BatchID=:BatchID and (WPLosOnderdeel_WPStatus is not null and WPLosOnderdeel_WPStatus <> 'X') ORDER BY SorteerSleutel,Sequence]]> Type,Qty 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 #dim TeSnijdenLO As %Boolean = ##class(BL.PPS.TBX.OptiBox).TeSnijdenLO(PRNr) 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 . . If (TeSnijdenLO) { . Set oWP.WPStatus=$$$wsWachtend . Set oWP.SnijStatus=$$$osWachtend . } Else { . Set oWP.WPStatus=$$$wsNVT . Set oWP.SnijStatus=$$$osNVT . } Else Do . Set oWP="" Quit oWP ]]> BatchID:%String TECH.Iterator Queue:DS.PPS.TBX.Queue,Redo:%Boolean,PPSOutput:%String BL.Sys.Proxy.pxStatus 1 ProductID:%String BL.PPS.WPBasisOptibox %String