Index: EWTOE.mac.rou
===================================================================
diff -u -r52002 -r52055
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 52002)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 52055)
@@ -278,11 +278,10 @@
  .Set RTemp=R
  .Set:$P(RTemp,D,2) R=$$CV2EENH^MRP(PRNr,$P(RTemp,D,2)),$P(RTemp,D,5)=$P(RTemp,D,5)/$P(RTemp,D,2)*R,$P(RTemp,D,2)=R
  .Set R=RTemp,$P(R,D,13)=1
- .d WLIP^vhDBG(191,"Tralalala "_TOENr_" - "_TLUNr)
  .Do WV^KPR10,PUT^PRHIST(PRNr,AantWMS,"I","W",LEVNr,TOENr,TLUNr,RCPODate,,,,,,$G(OrdDat))
  .Set ^TVE(+$H,$I(^TVE(+$H)))=PRNr_"\"_AantWMS_"\"_"I"_"\"_"W"_"\"_LEVNr_"\"_TOENr_"\"_TLUNr_"\"_RCPODate_"\"_$G(OrdDat)_"\Cache05"
  .Do:$$HasHalfFabr^PRBS(PRNr) HADPR^PRHF(TOENr,TLUNr,PRNr,AantWMS,RCPODate) ; Verwerking halffabrikaten
- Else  If $E(IDNr)'=7 Do  ; Geen DO-product
+ Else  Do  ; Geen DO-product
  .Do:Histor["O"
  ..Set R=$TR($$EXTDATE^vhDTyp($S('RCPODate:$H,1:RCPODate),"DS"),D,"")
  ..Set R=R_1_D_AantWMS_D_$J(CifPPL,0,$S(IsEuro:4,1:2))_D_1_D_$J(LijstPr,0,$S(IsEuro:4,1:2))_D_D_0_D_TOENr_D
@@ -295,8 +294,6 @@
  ..Do PUT^PRHIST(PRNr,AantWMS,"I",Magazijn,LEVNr,TOENr,TLUNr,+RCPODate,$G(RCPNr),$G(HistRef),.WMS,,MPRNr,$G(OrdDat))
  .Set ^TVE(+$H,$I(^TVE(+$H)))=PRNr_"\"_$G(AantWMS)_"\"_"I"_"\"_$G(Magazijn)_"\"_$G(LEVNr)_"\"_$G(TOENr)_"\"_$G(TLUNr)_"\"_+$G(RCPDate)_"\"_$G(RCPNr)_"\"_$G(HistRef)_"\"_$G(WMS)_"\"_$G(MRPNr)_"\"_$G(OrdDat)_"\Cache05"
  .Do:$$HasHalfFabr^PRBS(PRNr) HADPR^PRHF(TOENr,TLUNr,PRNr,AantWMS,RCPODate) ; Verwerking halffabrikaten
- Else  Do  ; DO-product
- .Do ONE^BLHIST(PRNr,RCPODate,AantWMS,(CifPPL*AantWMS),("T;"_TOENr))
  Quit
  
 Cache05Geproduceerd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId)
@@ -305,8 +302,9 @@
 	 Set LeverancierID = "L||"_LeverancierNummer
 	 Set Cache05GeproduceerdEventData = ##class(DOM.AKP.event.Cache05GeproduceerdEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId)
 	 Set Cache05GeproduceerdEvent = ##class(DOM.AKP.event.Cache05GeproduceerdEvent).%New(Cache05GeproduceerdEventData)
-	 Set ^TVE(+$H,$I(^TVE(+$H)))="Cache05GeproduceerdEvent\"_ProductID_"\"_Aantal
-	 Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Cache05GeproduceerdEvent)
+	 Set ^TVE(+$H,$I(^TVE(+$H)))=$H_"\Cache05GeproduceerdEvent\"_ProductID_"\"_Aantal_"\"_ToeleveringID_"\"_ToeleveringLijnCode_"\"_ProductID_"\"_LeverancierID_"\"_ReceptieTijdstip_"\"_Aantal_"\"_AxConfigId_"\"_AxInventTransId_"\"_AxMaatwerkGenerischItemId
+	 Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Cache05GeproduceerdEvent)
+	 Set ^TVE(+$H,$I(^TVE(+$H)))=$H_"\Cache05GeproduceerdEvent geraised"
  }
  Quit