Index: vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml
===================================================================
diff -u -r42792 -r44893
--- vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml	(.../Test.cls.xml)	(revision 42792)
+++ vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml	(.../Test.cls.xml)	(revision 44893)
@@ -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>
@@ -26,6 +31,7 @@
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
  	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
  	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
 ]]></Implementation>
 </Method>
@@ -101,21 +107,61 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor Van Hoecke moet PrimaryVendorId  het LeverancierNummer met indien nodig voorloopnul zijn als DefaultOrderType NIET Productie is en LinkType NIET HH of HHZ is">
+<Method name="Test: Voor Van Hoecke moet voor het PrimaryVendorId de BlumKunde omgezet worden naar AX leverancier als de leverancier in Cache 5005 is">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
 	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("GeefBlumKunde",..#ProductId).DanReturn("044260")
+	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorId,"08607")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke moet het PrimaryVendorId de default 212250 zijn als de leverancier in Cache 5005 is en er geen BlumKunde gedefinieerd is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	Set ..SoprProductConverter = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do ..SoprProductConverter.IndienMethodCall("GeefBlumKunde",..#ProductId).DanReturn("")
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorId,"212250")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke moet PrimaryVendorId per default het LeverancierNummer met indien nodig voorloopnul zijn">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7407)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.LinkType = "S"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
 	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
 	
-	Do $$$AssertEquals(PrimaryVendorId,"05005")
+	Do $$$AssertEquals(PrimaryVendorId,"07407")
 ]]></Implementation>
 </Method>
 
@@ -228,7 +274,7 @@
 <Method name="GeefConverter">
 <Private>1</Private>
 <ReturnType>AXimpl.Utils</ReturnType>
-<Implementation><![CDATA[	quit ##class(AXimpl.Utils).%New(..PartijApi,..ConvertorLeveranciersnummerVanHoeckeNaarHalux,..VoorraadInstellingCalculator)
+<Implementation><![CDATA[	quit ##class(AXimpl.Utils).%New(..PartijApi,..ConvertorLeveranciersnummerVanHoeckeNaarHalux,..VoorraadInstellingCalculator,,,..SoprProductConverter)
 ]]></Implementation>
 </Method>
 </Class>