Index: AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml
===================================================================
diff -u -r49434 -r69259
--- AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml	(.../DataBouwer.cls.xml)	(revision 49434)
+++ AXimpl/Controle/OrdDiff/Admin/DataBouwer.cls.xml	(.../DataBouwer.cls.xml)	(revision 69259)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="AXimpl.Controle.OrdDiff.Admin.DataBouwer">
-<IncludeCode>BL.Derde.KlantSpecifiek</IncludeCode>
+<IncludeCode>BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="AdminOrderLijnIterator">
@@ -13,6 +13,15 @@
 <Type>AX.Uitgaand.EC.DataAX.impl.Translator</Type>
 </Property>
 
+<Property name="SoprConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+</Property>
+
+<Property name="Cache">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -21,13 +30,15 @@
 <Implementation><![CDATA[
 	Set ..AdminOrderLijnIterator = ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnIterator).%New()
 	Set ..Translator=##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New()
+	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="HaalOp">
 <Implementation><![CDATA[
+	Set Cnt=0
 	While (..AdminOrderLijnIterator.HasNext()) {
 		
 		#dim AdminOrderLijn As DOM.VKP.ProductOrderlijn = ..AdminOrderLijnIterator.Next()
@@ -65,21 +76,42 @@
 			Set AdminData = ##class(AXimpl.Controle.OrdDiff.Admin.OrderData).%New()
 			Set AdminData.OrderLijnId = OrderLijnId
 			Set AdminData.ProductNr = ProductNr
+			Set AXPRNr=..SoprConvertor.GeefVervangProductDoorSOPRInAX(ProductNr)
+			Set:AXPRNr'="" ProductNr=AXPRNr
+
 			Do AdminData.ProductSetObjectId(ProductNr)
 
-			Set AdminData.ItemId = ..Translator.GeefItemIDForAX(ProductNr)
+			Set AdminData.ItemId = ##class(AX.Uitgaand.EC.DataAX.impl.Translator).%New().GeefItemIDForAX(ProductNr)
 
 			Set AdminData.Aantal = Aantal
 			Set AdminData.AantalLijnen=1
 			Set AdminData.Leverdatum=Leverdatum
 			Set AdminData.AXSalesId=AXSalesId
+			Set:$D(^ORDW("IO",OrderId,OrderLijnId)) AdminData.InWMS=1
 			Set ProductOrderLijn.Admin=AdminData
 		}
+		Do ..ControleToeleveringHLX(AdminData,AdminOrderLijn)
 		Do ProductOrderLijn.Save()
+		Set Cnt=Cnt+1
+
 	}
+	w "Admin orderlijnen",Cnt,!
 ]]></Implementation>
 </Method>
 
+<Method name="ControleToeleveringHLX">
+<FormalSpec>AdminData:AXimpl.Controle.OrdDiff.Admin.OrderData,AdminOrderLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
+<Implementation><![CDATA[
+	If (AdminData.Product.LeverancierNummer=$$$LevHalux) && (AdminOrderLijn.GeefToeleveringLijnNr()'="KOM") && ('AdminData.Product.StockNietStock)  ; LijnNr=KOM : reeds geproduceerd
+	{ If '$isObject(AdminOrderLijn.GeefToeleveringLijn()) ;toeleveringslijn bestaat niet
+		{
+			Set AdminData.HeeftGeenToelevering=1
+			Write AdminOrderLijn.GeefOrderID()," "
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefBestaandeOrderLijn">
 <FormalSpec>KlantNr:%String,OrderId:%String,ProductNr:%String,AxInventTransId:%String</FormalSpec>
 <ReturnType>AXimpl.Controle.OrdDiff.ProductOrderLijn</ReturnType>