Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml =================================================================== diff -u -r1943 -r2831 --- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml (.../TestPlanningService.cls.xml) (revision 1943) +++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml (.../TestPlanningService.cls.xml) (revision 2831) @@ -44,6 +44,9 @@ Set ^KOD(6279,"F",118153,101)="703100 \629192\30\\\59.60\40#0\0\59.60\59.60\703100 \L\\\100\59.60\KF0\\\\E1\EUR\\\62138\\296195\101\62143\\\\\\\\\\\\\\\\\1\\" Set ^KOD(6279,"F",118153,102)="703100 \629192\30\\\59.60\40#0\0\59.60\59.60\703100 \L\\\200\59.60\KF0\\\\E1\EUR\\\62138\\296195\102\62143\\\\\\\\\\\\\\\\\1\\" + Set ^ORD("IU",118153,101) = 100 + Set ^ORD("IU",118153,102) = 200 + Kill ^ORD("IU",118153) Do BUILDORD^FLOWORD3(,118153) @@ -73,6 +76,14 @@ Set ^HADPR("F","298209;100","K") = "33\62038,59594\\\\\\\\\\" Set ^HADPR("F","298209;100","F") = "33\62094,58737\A\\\\\\\\\" + Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(118153,100,6279,703100) + Set ProductOrderLijnGemaakt = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData) + Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ProductOrderLijnGemaakt) + + Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(118153,200,6279,703100) + Set ProductOrderLijnGemaakt = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData) + Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ProductOrderLijnGemaakt) + Quit $$$OK ]]> @@ -98,14 +109,23 @@ Kill ^KOD(6279,"F",118153) Kill ^KO1(118153,"F") Kill ^KO2("F",1000,118153) - + Kill ^ORD("IU",118153) + Kill ^KOD(1000,"F",123441) Kill ^KO1(123441,"F") Kill ^KO2("F",1000,123441) Kill ^KPR(568126,"W 0.0T20110221298072 1") Kill ^KPR(568127,"W 0.0T20110221298072 1") + Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(118153,100,6279,703100) + Set ProductOrderLijnGemaakt = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData) + Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ProductOrderLijnGemaakt) + + Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(118153,200,6279,703100) + Set ProductOrderLijnGemaakt = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData) + Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ProductOrderLijnGemaakt) + Quit Status ]]>