Index: AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml
===================================================================
diff -u -r45041 -r48428
--- AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml	(.../AdminOrderLijnConverter.cls.xml)	(revision 45041)
+++ AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml	(.../AdminOrderLijnConverter.cls.xml)	(revision 48428)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SoprContractIdConverter">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.SoprContractIdConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="OrderWMSLijnRepository">
 <Type>Flow.OrderWMS.LijnRepository</Type>
 <Private>1</Private>
@@ -28,24 +33,25 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductRolApi">
-<Type>DOM.PM.ProductRolAPI</Type>
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ProductRolApi:DOM.PM.ProductRolAPI,AxProductConvertor:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor,PartijApi:DOM.PARTIJ.PartijAPI,OrderWMSLijnRepository:Flow.OrderWMS.LijnRepository</FormalSpec>
+<FormalSpec>ProductApi:DOM.PM.ProductAPI,AxProductConvertor:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor,PartijApi:DOM.PARTIJ.PartijAPI,OrderWMSLijnRepository:Flow.OrderWMS.LijnRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ProductRolApi = $$$Inject(ProductRolApi,##class(DOM.DomeinContext).Instance().GeefProductRolAPI())
+	Set ..ProductApi = $$$Inject(ProductApi,##class(DOM.DomeinContext).Instance().GeefProductAPI())
 	Set ..AxProductConvertor = $$$Inject(AxProductConvertor,##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New())
 	Set ..PartijApi = $$$Inject(PartijApi,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..OrderWMSLijnRepository = $$$Inject(OrderWMSLijnRepository,##class(Flow.OrderWMS.LijnRepository).%New())
 	Set ..AdminToAxUtils = ##class(AXimpl.AdminToAxUtils).%New()
 	Set ..Formatter = ##class(TECH.Context).Instance().GeefFormatAPI()
+	Set ..SoprContractIdConverter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.SoprContractIdConverter).%New()
 
 	Quit $$$OK
 ]]></Implementation>
@@ -64,7 +70,7 @@
 	// Iteratie 1:
 	Set ConvertedAdminOrderLijn.Klant = ..AdminToAxUtils.ConvertCustomerID(Order.GeefKlantID())
 	Set ConvertedAdminOrderLijn.LeverDatum = ..Formatter.FormatHorolog(AdminOrderLijn.GeefLeverdag(),"JJJJ-MM-DD")
-	Set ConvertedAdminOrderLijn.Product = ..ProductRolApi.GeefAdministratiefProduct(AdminOrderLijn.GeefProductID()).GeefIdentNr()
+	Set ConvertedAdminOrderLijn.Product = ..BepaalProduct(AdminOrderLijn.GeefProductID(), KlantNummer)
 	Set ConvertedAdminOrderLijn.VerkochtAantal = ..Formatter.FormatNumber(AdminOrderLijn.GeefAantal(),16,",")
 	Set ConvertedAdminOrderLijn.VerkoopOrderId = Order.GeefAxSalesId()
 	Set ConvertedAdminOrderLijn.VerkoopOrderLijnId = AdminOrderLijn.GeefAxInventTransId()
@@ -83,11 +89,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalProduct">
+<FormalSpec>ProductID:%String,KlantNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductNummer As %String = ProductID
+	
+	If (KlantNummer = "5005") {
+		If (..AxProductConvertor.IsSOPRInCache(ProductID) && $$$Not(..AxProductConvertor.IsSOPRInAX(ProductID))) {
+			Set ProductNummer = ..AxProductConvertor.GeefVervangProductDoorSOPRInAX(ProductID)
+		}
+	}
+	
+	Quit ..ProductApi.GeefProduct(ProductNummer).GeefIdentNr()
+]]></Implementation>
+</Method>
+
 <Method name="BepaalSopr">
 <FormalSpec>AdminOrderLijn:DOM.VKP.ProductOrderlijn,KlantNummer:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $$$If(KlantNummer="5005",..AxProductConvertor.GeefBlumKunde(AdminOrderLijn.GeefProductID()),"")
+<Implementation><![CDATA[	Quit $$$If(KlantNummer="5005",..SoprContractIdConverter.AdminNaarAx(..AxProductConvertor.GeefBlumKunde(AdminOrderLijn.GeefProductID())),"")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml
===================================================================
diff -u -r45507 -r48428
--- vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45507)
+++ vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48428)
@@ -18,7 +18,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductRolApiStub">
+<Property name="ProductApiStub">
 <Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
 </Property>
@@ -42,13 +42,13 @@
 	
 	Set ..AxProductConvertor = ##class(vhTest.Dummy.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
 	
-	Set ..ProductRolApiStub = ##class(vhTest.Mock.DOM.PM.ProductRolAPI).%New()
+	Set ..ProductApiStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Set ..ProductOrderLijnStub = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
 	
 	#dim ProductId As %String = ..ProductOrderLijnStub.GeefProductID()
 	#dim Product As DOM.PM.impl.ProductImpl = ..GeefTeConverterenProduct()
 	
-	Do ..ProductRolApiStub.IndienMethodCall("GeefAdministratiefProduct",ProductId).DanReturn(Product)
+	Do ..ProductApiStub.IndienMethodCall("GeefProduct",ProductId).DanReturn(Product)
 	
 	Set ..PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
 	Do ..PartijApiStub.IndienMethodCall("GeefPartij","K||1234").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant())
@@ -101,6 +101,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Voor Product wordt nagegaan of het een Sopr is in Cache en niet in Ax en wordt dan de principaal opgehaald">
+<Implementation><![CDATA[
+	Do ..ProductOrderLijnStub.GeefOrder().IndienMethodCall("GeefKlantID").DanReturn("K||5005")
+	Do ..PartijApiStub.IndienMethodCall("GeefPartij","K||5005").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant())
+	
+	Set AxProductConvertorMock = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do AxProductConvertorMock.IndienMethodCall("GeefBlumKunde",..#ProductId).DanDoeNiks()
+	Do AxProductConvertorMock.VerwachtMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$True).ExactAantalKeer(1)
+	Do AxProductConvertorMock.VerwachtMethodCall("IsSOPRInAX",..#ProductId).DanReturn($$$False).ExactAantalKeer(1)
+	Do AxProductConvertorMock.IndienMethodCall("GeefVervangProductDoorSOPRInAX",..#ProductId).DanReturn("PrincipaalPRNr")
+	
+	#dim Product As DOM.PM.impl.ProductImpl = ..GeefTeConverterenProduct()
+	
+	Do ..ProductApiStub.IndienMethodCall("GeefProduct","PrincipaalPRNr").DanReturn(Product)
+	
+	Set ..AxProductConvertor = AxProductConvertorMock
+	
+	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
+	
+	Do AxProductConvertorMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: VerkochtAantal bevat het Aantal met komma als DecimalSeperator en tot op 16 cijfers na de komma">
 <Implementation><![CDATA[
 	#dim ConvertedProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..GeefConverter().Convert(..ProductOrderLijnStub)
@@ -170,6 +193,7 @@
 	Do ..PartijApiStub.IndienMethodCall("GeefPartij","K||5005").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant())
 	
 	Set AxProductConvertorMock = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do AxProductConvertorMock.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
 	Do AxProductConvertorMock.VerwachtMethodCall("GeefBlumKunde",..#ProductId).DanDoeNiks()
 	Set ..AxProductConvertor = AxProductConvertorMock
 	
@@ -208,7 +232,7 @@
 <Method name="GeefConverter">
 <Private>1</Private>
 <ReturnType>AXimpl.Controle.Order.Admin.AdminOrderLijnConverter</ReturnType>
-<Implementation><![CDATA[	Quit ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnConverter).%New(..ProductRolApiStub, ..AxProductConvertor, ..PartijApiStub)
+<Implementation><![CDATA[	Quit ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnConverter).%New(..ProductApiStub, ..AxProductConvertor, ..PartijApiStub)
 ]]></Implementation>
 </Method>
 </Class>