Index: vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml
===================================================================
diff -u -r45821 -r48571
--- vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml	(.../Test.cls.xml)	(revision 45821)
+++ vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml	(.../Test.cls.xml)	(revision 48571)
@@ -165,39 +165,39 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor Halux moet PrimaryVendorId 05497 zijn als LinkType NIET HH of HHZ is">
+<Method name="Test: Voor Halux moet PrimaryVendorId leeg zijn als LinkType HH is en DefaultOrderType Productie is">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
-	Set AxProduct.Basis.LinkType = "A"
+	Set AxProduct.Basis.LinkType = "HH"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
-		
+	
 	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
 	
-	Do $$$AssertEquals(PrimaryVendorId,"05497")
+	Do $$$AssertEquals(PrimaryVendorId,"")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor Halux moet PrimaryVendorId leeg zijn als LinkType HH is en DefaultOrderType Productie is">
+<Method name="Test: Voor Halux moet PrimaryVendorId 05497 zijn als LinkType NIET HH of HHZ is">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
-	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7407)
 	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
-	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Basis.LinkType = "A"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
-	
+		
 	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
 	
-	Do $$$AssertEquals(PrimaryVendorId,"")
+	Do $$$AssertEquals(PrimaryVendorId,"05497")
 ]]></Implementation>
 </Method>