Index: zTryout/KCA/MaakEenAXOrderAanInCache.cls.xml
===================================================================
diff -u -r43689 -r44076
--- zTryout/KCA/MaakEenAXOrderAanInCache.cls.xml	(.../MaakEenAXOrderAanInCache.cls.xml)	(revision 43689)
+++ zTryout/KCA/MaakEenAXOrderAanInCache.cls.xml	(.../MaakEenAXOrderAanInCache.cls.xml)	(revision 44076)
@@ -21,7 +21,7 @@
 	Set OrderHeader.DlvAddrStreet1 = "Ankerstraat 91"
 	Set OrderHeader.DlvAddrCountry = "1019"
 	Set OrderHeader.DeliveryName = "Een Belg"
-	Set OrderHeader.SalesId = 1
+	Set OrderHeader.SalesId = 96543
 	Set OrderHeader.CreatedDateTimeHeader.content = 64120
 	Set OrderHeader.CustomerRef = "Mijn referentie"
 	Set OrderHeader.CurrencyCode = "EUR"
Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r44065 -r44076
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 44065)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 44076)
@@ -51,20 +51,25 @@
 	#dim OrderHeader As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader = Message.Body.MessageParts.ADUMsgSalesOrderOutQuery.OrderHeader.GetAt(1)
 	#dim KlantID As %String = ##class(AXimpl.AxToAdminUtils).ConvertCustomerID(OrderHeader.CustAccount)
 	
-	#Dim Order As DOM.VKP.Order = ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(KlantID, OrderHeader.SalesId)
+	#Dim Order As DOM.VKP.Order = ..OrderLevenCyclusService.MaakOrderMetKlantGegevens(KlantID, ..MaakOrderID(OrderHeader))
 	
 	Do Order.ZetDocumentReferenties(..MaakOrderReferentie(OrderHeader))	
-	Do Order.ZetAfleveradres(..MaakLeverAdres(OrderHeader))
+	
 	Do Order.ZetCreatieDatum(..MaakCreatieDatum(OrderHeader))
 	Do Order.ZetMunt(OrderHeader.CurrencyCode)
 	Do Order.ZetEDINummer(OrderHeader.RefSalesOriginId)
 	Do Order.ZetLeveringVoorwaarde(..MaakLeveringVoorwaarde(OrderHeader))
-	Do Order.ZetVerzendingWijze(..MaakVerzendingWijze(OrderHeader))
 	Do Order.ZetIngegevenDoor(OrderHeader.NameCustResponsible)
 	Do Order.ZetIngegevenOpTijdstip(..MaakIngegevenOpTijdstip(OrderHeader))
 	Do Order.ZetOorsprong(##class(AXimpl.AxToAdminUtils).ConvertOorsprong())
 	Do Order.ZetStatus(##class(AXimpl.AxToAdminUtils).ConvertStatus())
 	
+	#dim AfleverAdres As DOM.VKP.impl.LeverAdres = ..MaakLeverAdres(OrderHeader)
+	Do Order.ZetAfleveradres(AfleverAdres)
+	
+	#dim VerzendingWijze As %String = ..MaakVerzendingWijze(OrderHeader)
+	Do Order.ZetVerzendingWijze(VerzendingWijze)
+	
 	Set OrderLineIterator = ##class(TECH.ListIterator).%New(OrderHeader.OrderLine)
 	While OrderLineIterator.HasNext() {
 		#dim OrderLine As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine = OrderLineIterator.Next()
@@ -78,18 +83,57 @@
 		
 		Do ProductOrderLijn.ZetAxInventTransId(OrderLine.InventTransId) 
 		Do ProductOrderLijn.ZetMunt(OrderLine.CurrencyCode) 
-		Do ProductOrderLijn.ZetLeverdag(..GeefLeverDatum(OrderLine))
 		Do ProductOrderLijn.ZetEenheidPrijsExclBTW(OrderLine.LineAmount / OrderLine.QtyOrdered)
 		Do ProductOrderLijn.ZetTotaalNettoExclBTW(OrderLine.LineAmount)
+
+		#dim LeverDatum As %Date = ..GeefLeverDatum(OrderLine)
+		Do ProductOrderLijn.ZetLeverdag(LeverDatum)
 		
 		;Do ProductOrderLijn.ZetProjectReferentie(OrderLine. )
 		;Do ProductOrderLijn.ZetPakketReferentie(OrderLine. )
 	}
 	
+	#dim DueOut As TECH.Horolog = ..GeefProductieTijdstip(OrderHeader, AfleverAdres, VerzendingWijze, KlantID)
+	If $Length(DueOut) {
+		Do Order.ZetProductieTijdstip(DueOut)
+	}
+	
 	Do ..OrderAPI.Bewaar(Order)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductieTijdstip">
+<FormalSpec>OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader,AfleverAdres:DOM.VKP.impl.LeverAdres,VerzendingWijze:%String,KlantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Horolog</ReturnType>
+<Implementation><![CDATA[
+	Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(KlantID, VerzendingWijze, AfleverAdres.GeefLandNr(), AfleverAdres.GeefPostcode())
+	Set LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(,VerzendWijze)
+	
+	#dim DueOut As TECH.Horolog = ""
+
+	Set OrderLineIterator = ##class(TECH.ListIterator).%New(OrderHeader.OrderLine)
+	While OrderLineIterator.HasNext() {
+		#dim OrderLine As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine = OrderLineIterator.Next()
+	
+		#dim ProductOrderLijnDueOut As TECH.Horolog = LeveringsTermijn.GetLaatsteProductieTijdstip(..GeefLeverDatum(OrderLine))
+		If (ProductOrderLijnDueOut < DueOut) || (DueOut = "") {
+			Set DueOut = ProductOrderLijnDueOut
+		}
+	}
+	
+	Quit DueOut
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrderID">
+<FormalSpec>OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Extract(OrderHeader.SalesId, $Length(OrderHeader.SalesId) - 4, *)
+]]></Implementation>
+</Method>
+
 <Method name="IsProductLijn">
 <FormalSpec>OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml
===================================================================
diff -u -r44062 -r44076
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 44062)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 44076)
@@ -61,6 +61,7 @@
 	Do OrderMock.IndienMethodCall("ZetOorsprong", $$$ElkeWaarde).DanDoeNiks()
 	Do OrderMock.IndienMethodCall("ZetStatus", $$$ElkeWaarde).DanDoeNiks()
 	Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn("DummyKlantID")
+	Do OrderMock.VerwachtMethodCall("ZetProductieTijdstip", "64482,43200").DanDoeNiks()
 	
 	Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
 	Do OrderAPIMock.IndienMethodCall("Bewaar", OrderMock).DanDoeNiks()
@@ -111,6 +112,7 @@
 	Do OrderMock.IndienMethodCall("ZetOorsprong", $$$ElkeWaarde).DanDoeNiks()
 	Do OrderMock.IndienMethodCall("ZetStatus", $$$ElkeWaarde).DanDoeNiks()
 	Do OrderMock.VerwachtMethodCall("GeefKlantID").DanReturn("DummyKlantID")
+	Do OrderMock.VerwachtMethodCall("ZetProductieTijdstip", "64482,43200").DanDoeNiks()
 	
 	Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
 	Do OrderAPIMock.IndienMethodCall("Bewaar", OrderMock).DanDoeNiks()