Index: HADOPV.mac.rou
===================================================================
diff -u -r54629 -r58527
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 54629)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 58527)
@@ -731,7 +731,8 @@
  .. Set OldQty=$P(RecP,D)
  .. Set NewQty=$S(NewQty="-":-OldQty,NewQty="+":BldQty,1:NewQty)
  .. Do ADDGLAS^HADVUL(.GVORDNr,PRNr,TOENr,TULNr,+$H,NewQty,BldQty,$S(Node="H":"H",Node="h":"L",1:""),Reden)
- .. Do OrderlijnStatusGewijzigd(FabKey,"Klaargezet") ; Indien glas voor kaderdeuren besteld is, dan de overeenkomstige orderlijn blokkeren adhv Klaargezet status... Set NewQty=##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(FabKey,Node,NewQty,BldQty,Time)
+ .. Do:(NewQty>0) OrderlijnStatusGewijzigd(FabKey,"Klaargezet") ; Indien glas voor kaderdeuren besteld is, dan de overeenkomstige orderlijn blokkeren adhv Klaargezet status... 
+ .. Do:(NewQty<=0) OrderlijnStatusGewijzigd(FabKey,"KlaargezetWissen") ; Indien glasbestelling voor kaderdeuren geannuleerd is, dan de overeenkomstige orderlijn blokkeren adhv KlaargezetWissen status... 
  . Else  Do ; glasbesteld of herbesteld ook markeren voor MDS 
  .. Set KLNr=$P(RecO,D,2)
  .. Do AddLabel(.LabelCache,Node,FabKey,NewQty,BldQty,PRNr,KLNr) ; glasbesteld dan moet er een label afgedrukt worden
@@ -743,10 +744,10 @@
  
  ; Event bij het doorsturen van een lijn naar AX
 OrderlijnStatusGewijzigd(FabKey,Status)
- New ProductToeleveringLijnKlaargezetVoorProductieEventData,ProductToeleveringLijnKlaargezetVoorProductieEvent
- Set ProductToeleveringLijnKlaargezetVoorProductieEventData = ##class(BL.Legacy.HaluxProductieOpvolging.ProductToeleveringLijnKlaargezetVoorProductieEventData).%New(FabKey, Status)
- Set ProductToeleveringLijnKlaargezetVoorProductieEvent = ##class(BL.Legacy.HaluxProductieOpvolging.ProductToeleveringLijnKlaargezetVoorProductieEvent).%New(ProductToeleveringLijnKlaargezetVoorProductieEventData)
- Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductToeleveringLijnKlaargezetVoorProductieEvent)
+ New KlaargezetVoorProductieEventData,KlaargezetVoorProductieEvent
+ Set KlaargezetVoorProductieEventData = ##class(BL.Legacy.HaluxProductieOpvolging.ProductToeleveringLijnKlaargezetVoorProductieEventData).%New(FabKey, Status)
+ Set KlaargezetVoorProductieEvent = ##class(BL.Legacy.HaluxProductieOpvolging.ProductToeleveringLijnKlaargezetVoorProductieEvent).%New(KlaargezetVoorProductieEventData)
+ Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(KlaargezetVoorProductieEvent)
  Quit
  
 OpenLabel(LabelCache)