Index: vhUnitTest/AXimpl/Utils/ConvertItemBuyerGroupId/Test.cls.xml
===================================================================
diff -u -r45922 -r46288
--- vhUnitTest/AXimpl/Utils/ConvertItemBuyerGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 45922)
+++ vhUnitTest/AXimpl/Utils/ConvertItemBuyerGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 46288)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SoprProductConverter">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VoorraadInstellingCalculator">
 <Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</Type>
 <Private>1</Private>
@@ -99,6 +104,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: 2b VH ItemBuyerGroupId is SOPR als ">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
+	
+	Do ..BestelImpulsRepositoryMock.IndienMethodCall("BestaatViaProduct",..#ProductId).DanReturn($$$False)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$True)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.ScanType = "Z"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+		
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ItemBuyerGroupId,"SOPR")
+]]></Implementation>
+</Method>
+
 <Method name="Test: 3 VH ItemBuyerGroupId is Nieuw als na vorige test datum vroegste aankooporder minder dan 6 maand geleden is en StockNietStock 1 is">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
@@ -114,6 +142,9 @@
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "A"
 	Set AxProduct.Basis.StockNietStock = 1
@@ -141,6 +172,9 @@
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "A"
 	Set AxProduct.Basis.Uitverkoop = $$$CurrentDate
@@ -150,7 +184,7 @@
 	
 	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
 
-	Do $$$AssertEquals(ItemBuyerGroupId,"Uitlopend")
+	Do $$$AssertEquals(ItemBuyerGroupId,"Uitverkoop")
 ]]></Implementation>
 </Method>
 
@@ -169,6 +203,9 @@
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "A"
 	Set AxProduct.Basis.Uitverkoop = ""
@@ -197,6 +234,9 @@
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "A"
 	Set AxProduct.Basis.Uitverkoop = ""
@@ -225,6 +265,9 @@
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "A"
 	Set AxProduct.Basis.Uitverkoop = ""
@@ -253,6 +296,9 @@
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "5"
 	Set AxProduct.Basis.Uitverkoop = ""
@@ -280,6 +326,9 @@
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "0"
 	Set AxProduct.Basis.Uitverkoop = ""
@@ -307,6 +356,9 @@
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "A"
 	Set AxProduct.Basis.Uitverkoop = ""
@@ -336,6 +388,9 @@
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "A"
 	Set AxProduct.Basis.Uitverkoop = ""
@@ -365,6 +420,9 @@
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$False)
+	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "A"
 	Set AxProduct.Basis.Uitverkoop = ""
@@ -443,15 +501,33 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 2 HLX ItemBuyerGroupId is Limiet als na vorige tests ScanType een positieve numerieke waarde is">
+<Method name="Test: 2 HLX ItemBuyerGroupId is Uitlopend als de Leverancier 5880 is">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5880)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+		
+	#dim ItemBuyerGroupId As %String = Converter.ConvertItemBuyerGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ItemBuyerGroupId,"Uitlopend")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 3 HLX ItemBuyerGroupId is Limiet als na vorige tests ScanType een positieve numerieke waarde is en LinkType HH is zijnde Halffabrikaat Halux">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.ScanType = "5"
+	Set AxProduct.Basis.LinkType = "HH"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -461,7 +537,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 3 HLX ItemBuyerGroupId is Simulatie als na vorige tests StockNietStock 1 is en LinkType NIET S is">
+<Method name="Test: 4 HLX ItemBuyerGroupId is Simulatie als na vorige tests StockNietStock 1 is en LinkType NIET S is">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
@@ -472,7 +548,7 @@
 	Set AxProduct.Basis.ScanType = "A"
 	Set AxProduct.Basis.Uitverkoop = ""
 	Set AxProduct.Basis.StockNietStock = "1"
-	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Basis.LinkType = "H"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -482,7 +558,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 4a HLX ItemBuyerGroupId is leeg na alle vorige tests">
+<Method name="Test: 5a HLX ItemBuyerGroupId is leeg na alle vorige tests">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
@@ -493,7 +569,7 @@
 	Set AxProduct.Basis.ScanType = "A"
 	Set AxProduct.Basis.Uitverkoop = ""
 	Set AxProduct.Basis.StockNietStock = "0"
-	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Basis.LinkType = "H"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -503,7 +579,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 4b HLX ItemBuyerGroupId is leeg na alle vorige tests">
+<Method name="Test: 5b HLX ItemBuyerGroupId is leeg na alle vorige tests">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn($$$DummyInteger)
@@ -537,7 +613,7 @@
 <Method name="GeefConverter">
 <Private>1</Private>
 <ReturnType>AXimpl.Utils</ReturnType>
-<Implementation><![CDATA[	Quit ##class(AXimpl.Utils).%New(..PartijApi,..ConvertorLeveranciersnummerVanHoeckeNaarHalux, ..VoorraadInstellingCalculator, ..VoorraadBewegingService, ..BestelImpulsRepositoryMock)
+<Implementation><![CDATA[	Quit ##class(AXimpl.Utils).%New(..PartijApi,..ConvertorLeveranciersnummerVanHoeckeNaarHalux, ..VoorraadInstellingCalculator, ..VoorraadBewegingService, ..BestelImpulsRepositoryMock, ..SoprProductConverter)
 ]]></Implementation>
 </Method>
 </Class>