Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml
===================================================================
diff -u -r41192 -r41216
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 41192)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 41216)
@@ -57,6 +57,7 @@
 <ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
 <Implementation><![CDATA[
 	Set ..Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(ProductID)
+	Do ..GeefLeverancierNummer()
 	
 	If ..Vestiging = "VanHoecke" {
 		Do ..ConvertVanHoecke()
@@ -86,6 +87,11 @@
 	Set AxProduct.ItemId = ..Product.Basis.IdentNummer
 	Set AxProduct.ModuleType = "03"
 
+	// OPGELET: Volgende "Set AxProduct"-lijnen zijn niet nodig voor AX, maar kunnen gebruikt worden ter controle:
+	Set AxProduct.DefaultOrderType = ..BepaalDefaultOrderTypeVH()
+	Set AxProduct.LeverancierNummer = ..Product.Basis.LeverancierNummer
+	Set AxProduct.LinkType = ..Product.Basis.LinkType
+
 	Set ..AxProduct = AxProduct
 	Quit ..AxProduct
 ]]></Implementation>
@@ -103,6 +109,12 @@
 	Set AxProduct.ItemId = ..Product.Basis.IdentNummer
 	Set AxProduct.ModuleType = "03"
 	
+	// OPGELET: Volgende "Set AxProduct"-lijnen zijn niet nodig voor AX, maar kunnen gebruikt worden ter controle:
+	Set AxProduct.DefaultOrderType = ..BepaalDefaultOrderTypeHLX()
+	Set AxProduct.LeverancierNummer = ..Product.Basis.LeverancierNummer
+	Set AxProduct.LinkType = ..Product.Basis.LinkType
+
+	
 	Set ..AxProduct = AxProduct
 	Quit ..AxProduct
 ]]></Implementation>
@@ -113,9 +125,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim CustVendRelationVH As %String
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer()
 	
-	Set CustVendRelationVH = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+	Set CustVendRelationVH = ##class(TECH.StringUtils).AddLeadingChar(..LeverancierNummer,"0",5)
 
 	Quit CustVendRelationVH
 ]]></Implementation>
@@ -125,15 +136,47 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim CustVendRelationHLX As %String
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer()
+	#dim CustVendRelationHLX,LeverancierNummer As %String
 	
-	Set LeverancierNummer = ##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New().ConvertorLeveranciersnummerVanHoeckeNaarHalux(LeverancierNummer)
+	Set LeverancierNummer = ##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New().ConvertorLeveranciersnummerVanHoeckeNaarHalux(..LeverancierNummer)
 	Set CustVendRelationHLX = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
 
 	Quit CustVendRelationHLX
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalDefaultOrderTypeVH">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DefaultOrderTypeVH As %String
+	#dim LinkType As %String = ..Product.Basis.LinkType
+	
+	If ((LinkType = "S") && (..LeverancierNummer = "6051")){
+		Set DefaultOrderTypeVH = "Productie"
+	}
+	Else {
+		Set DefaultOrderTypeVH = "Aankooporder"
+	}
+	Quit DefaultOrderTypeVH
+]]></Implementation>
+</Method>
+
+<Method name="BepaalDefaultOrderTypeHLX">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DefaultOrderTypeHLX As %String
+	
+	If (..LeverancierNummer = "6332") {
+		Set DefaultOrderTypeHLX = "Productie"
+	}
+	Else {
+		Set DefaultOrderTypeHLX = "Aankooporder"
+	}
+	Quit DefaultOrderTypeHLX
+]]></Implementation>
+</Method>
 </Class>