Index: AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml =================================================================== diff -u -r47980 -r49623 --- AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml (.../SalesLineStatusUpdate.cls.xml) (revision 47980) +++ AXimpl/Dynamics/SalesLineStatusOut/EventHandler/SalesLineStatusUpdate.cls.xml (.../SalesLineStatusUpdate.cls.xml) (revision 49623) @@ -18,6 +18,26 @@ PickingAnnulatieEvent + +%String +Geproduceerd + + + +%String +Doorgegeven + + + +%String +Klaargezet + + + +%String +Geannuleerd + + 1 Event:TECH.PubSub.Event @@ -45,7 +65,7 @@ Event:TECH.PubSub.Event 1 AXimpl.Request - @@ -66,7 +86,7 @@ Event:TECH.PubSub.Event 1 AXimpl.Request - Index: vhTest/Fake/DOM/VKP/ProductOrderlijn.cls.xml =================================================================== diff -u -r42866 -r49623 --- vhTest/Fake/DOM/VKP/ProductOrderlijn.cls.xml (.../ProductOrderlijn.cls.xml) (revision 42866) +++ vhTest/Fake/DOM/VKP/ProductOrderlijn.cls.xml (.../ProductOrderlijn.cls.xml) (revision 49623) @@ -28,6 +28,11 @@ 1 + +%String +1 + + ID:%Integer 1 @@ -93,6 +98,19 @@ + + +%String + + + + +ToeleveringLijnNr:%String +%String + + Index: vhUnitTest/AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter/Convert/Test.cls.xml =================================================================== diff -u -r48200 -r49623 --- vhUnitTest/AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 48200) +++ vhUnitTest/AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 49623) @@ -40,6 +40,46 @@ ]]> + + + + TECH.RegisteredObject + +%String +Geproduceerd + + + +%String +Doorgegeven + + + +%String +Klaargezet + + + +%String +Geannuleerd + + + +%String +KOM + + DOM.VKP.OrderAPI 1 @@ -47,6 +72,8 @@ #dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder($Piece(Command.SubjectId,"_",1)) #dim Orderlijn As DOM.VKP.Orderlijn = Order.GeefOrderLijn($Piece(Command.SubjectId,"_",2)) + Do ..UpdateMessageIndienMaatwerk(Orderlijn, Command) + #dim TimeStamp As %TimeStamp = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()_"."_$piece(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(6),".",2) Set:$$$HasLength(Order.GeefAxSalesId()) ^LOG.AX.Order(Order.GeefAxSalesId(),TimeStamp,"SalesLineStatusUpdate Orderlijn '"_Orderlijn.GeefID()_"'") = Command.Message @@ -71,6 +98,16 @@ ]]> + +Orderlijn:DOM.VKP.Orderlijn,Command:AXimpl.Request +1 + + + AxInventTransId:%String,Message:%String 1 @@ -101,8 +138,9 @@ 1 %String