Index: AXimpl/Utils.cls.xml
===================================================================
diff -u -r44854 -r44856
--- AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 44854)
+++ AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 44856)
@@ -169,30 +169,26 @@
 	#dim DefaultOrderType As %String = ..ConvertDefaultOrderType(Firma,Product)
 	
 	If Firma = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
-		#dim PrimaryVendorIdVH As %String = ""
 		If (DefaultOrderType = "Productie") {
-			Set PrimaryVendorIdVH = "06051"
+			Set PrimaryVendorId = "06051"
 		}
 		ElseIf ((LinkType = "HH") || (LinkType = "HHZ")) {
-			Set PrimaryVendorIdVH = "06332"
+			Set PrimaryVendorId = "06332"
 		}
 		Else {
-			Set PrimaryVendorIdVH = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+			Set PrimaryVendorId = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
 		}
-		Set PrimaryVendorId = PrimaryVendorIdVH
 	} ElseIf Firma = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
-		#dim PrimaryVendorIdHLX As %String = ""
 		If ((LinkType '= "HH") && (LinkType '= "HHZ")) {
-			Set PrimaryVendorIdHLX = "05497"
+			Set PrimaryVendorId = "05497"
 		}
 		ElseIf (DefaultOrderType = "Productie") {
-			Set PrimaryVendorIdHLX = ""
+			Set PrimaryVendorId = ""
 		}
 		Else {
 			Set LeverancierNummer = ..ConvertorLeveranciersnummerVanHoeckeNaarHalux.ConvertorLeveranciersnummerVanHoeckeNaarHalux(LeverancierNummer)
-			Set PrimaryVendorIdHLX = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+			Set PrimaryVendorId = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
 		}
-		Set PrimaryVendorId = PrimaryVendorIdHLX
 	} Else {
 		Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee!"
 	}