Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r47897 -r47991
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 47897)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 47991)
@@ -38,25 +38,31 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringService">
+<Type>AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01</FormalSpec>
+<FormalSpec>OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01,ToeleveringService:AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
-	Set ..DateTimeAPI = $$$Implementation(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())
+	Set ..DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())
 	Set ..OrderLevenCyclusService = $$$Inject(OrderLevenCyclusService,##class(APPS.VKP.OrderLevenCyclusService).%New(..DateTimeAPI))
 	Set ..ProductBepaler = $$$Inject(ProductBepaler, ##class(AXimpl.Admin.Common.ProductBepaler).%New())
 	Set ..DocumentReferentiesRepository = $$$Inject(DocumentReferentiesRepository,##class(DOM.VKP.DocumentReferentiesRepository).%New())
 	Set ..OrderlijnenSorteerder = $$$Inject(OrderlijnenSorteerder, ##class(AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder).%New())
 	Set ..OrderSluiter = $$$Inject(OrderSluiter, ##class(CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01).%New())
+	Set ..ToeleveringService = $$$Inject(ToeleveringService, ##class(AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService).%New())
 	
 	Set ..Logger = ##class(vhLib.Logger).%New()
 
@@ -89,7 +95,7 @@
 
 		#dim PrijsOrderLijn As DOM.VKP.ProductOrderlijn = ..GeefOfMaakOrderLijn(Order, OrderLine)
 		
-		Do ..UpdatePrijsOrderLijn(PrijsOrderLijn, OrderLine)
+		Do ..UpdateOrderLijn(PrijsOrderLijn, OrderLine)
 		 
 		Do ..Logger.Debug("Aanmaken Order", "OrderLijn properties zijn gezet voor PrijsOrderLijn " _PrijsOrderLijn.GeefID() )
 
@@ -102,6 +108,7 @@
 	Do ..Logger.Debug("Aanmaken Order", "Order is gesorteerd met OrderID " _Order.GeefID())
 	
 	Do ..SluitOrder(Order)
+	Set Order = ""
 ]]></Implementation>
 </Method>
 
@@ -116,17 +123,17 @@
 ]]></Implementation>
 </Method>
 
-<Method name="UpdatePrijsOrderLijn">
-<FormalSpec>PrijsOrderLijn:DOM.VKP.ProductOrderlijn,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
+<Method name="UpdateOrderLijn">
+<FormalSpec>OrderLijn:DOM.VKP.ProductOrderlijn,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do PrijsOrderLijn.ZetAxInventTransId(OrderLine.InventTransId) 
-	Do PrijsOrderLijn.ZetMunt(OrderLine.CurrencyCode) 
-	Do PrijsOrderLijn.ZetEenheidPrijsExclBTW(OrderLine.LineAmount / OrderLine.RemainSalesPhysical)
-	Do PrijsOrderLijn.ZetTotaalNettoExclBTW(OrderLine.LineAmount)
-	Do PrijsOrderLijn.ZetLeverdag(..GeefLeverDatum(OrderLine))
-	Do PrijsOrderLijn.ZetAxConfigId(OrderLine.ConfigId)
-	Do PrijsOrderLijn.ZetTextVoorAfdrukDocumentType(OrderLine.PackingSlipBody, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
+	Do OrderLijn.ZetAxInventTransId(OrderLine.InventTransId) 
+	Do OrderLijn.ZetMunt(OrderLine.CurrencyCode) 
+	Do OrderLijn.ZetEenheidPrijsExclBTW(OrderLine.LineAmount / OrderLine.RemainSalesPhysical)
+	Do OrderLijn.ZetTotaalNettoExclBTW(OrderLine.LineAmount)
+	Do OrderLijn.ZetLeverdag(..GeefLeverDatum(OrderLine))
+	Do OrderLijn.ZetAxConfigId(OrderLine.ConfigId)
+	Do OrderLijn.ZetTextVoorAfdrukDocumentType(OrderLine.PackingSlipBody, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
 ]]></Implementation>
 </Method>
 
@@ -156,7 +163,10 @@
 <Implementation><![CDATA[
 	If ..OrderAPI.BestaatOrder(OrderID) {
 		Do ..Logger.Debug("Aanmaken Order", "Bestaand order met OrderID " _OrderID _" wordt geupdatet." )
-		Quit ..OrderAPI.GeefOrder(OrderID)
+		#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderID)
+		Do Order.HerlaadLijnen()
+		Do ..ToeleveringService.VerwijderToeleveringenViaOrder(Order)
+		Quit Order
 	}
 	
 	Do ..OrderAPI.VerwijderOverbodigeIndexen(OrderID)