Index: DOM/AKP/event/Cache05GeproduceerdEvent.cls.xml
===================================================================
diff -u -r51992 -r52055
--- DOM/AKP/event/Cache05GeproduceerdEvent.cls.xml	(.../Cache05GeproduceerdEvent.cls.xml)	(revision 51992)
+++ DOM/AKP/event/Cache05GeproduceerdEvent.cls.xml	(.../Cache05GeproduceerdEvent.cls.xml)	(revision 52055)
@@ -6,6 +6,17 @@
 <Super>TECH.PubSub.Event</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="%OnNew">
+<FormalSpec>Data:TECH.PubSub.EventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	Set ..Type = "Cache05Geproduceerd"
+	Quit ##super(Data)
+]]></Implementation>
+</Method>
+
 <Method name="Type">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>
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
  
Index: DOM/AKP/event/Cache05GeproduceerdEventData.cls.xml
===================================================================
diff -u -r51992 -r52055
--- DOM/AKP/event/Cache05GeproduceerdEventData.cls.xml	(.../Cache05GeproduceerdEventData.cls.xml)	(revision 51992)
+++ DOM/AKP/event/Cache05GeproduceerdEventData.cls.xml	(.../Cache05GeproduceerdEventData.cls.xml)	(revision 52055)
@@ -3,7 +3,7 @@
 <Class name="DOM.AKP.event.Cache05GeproduceerdEventData">
 <ClassType>serial</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.PubSub.EventData</Super>
+<Super>DOM.AKP.event.ProductToelevLijnEventData</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="XMLTYPE">
@@ -43,6 +43,8 @@
 	Set ..AxInventTransId = AxInventTransId
 	Set ..AxMaatwerkGenerischItemId = AxMaatwerkGenerischItemId
 	
+	Do ##super(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID)
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -81,7 +83,6 @@
 <Type>%Library.CacheSerialState</Type>
 <State>Cache05GeproduceerdEventDataState</State>
 <Data name="Cache05GeproduceerdEventDataState">
-<Structure>listnode</Structure>
 <Subscript>"DOM.AKP.event.Cache05GeproduceerdEventData"</Subscript>
 <Value name="1">
 <Value>Aantal</Value>
@@ -98,6 +99,18 @@
 <Value name="5">
 <Value>ReceptieTijdstip</Value>
 </Value>
+<Value name="6">
+<Value>LeverancierID</Value>
+</Value>
+<Value name="7">
+<Value>ProductID</Value>
+</Value>
+<Value name="8">
+<Value>ToeleveringID</Value>
+</Value>
+<Value name="9">
+<Value>ToeleveringLijnCode</Value>
+</Value>
 </Data>
 <Data name="ProductToelevLijnEventDataState">
 <Subscript>"DOM.AKP.event.ProductToelevLijnEventData"</Subscript>