Index: AXimpl/Utils.cls.xml
===================================================================
diff -u -r42197 -r42531
--- AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 42197)
+++ AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 42531)
@@ -3,37 +3,81 @@
 <Class name="AXimpl.Utils">
 <Super>TECH.Mockable</Super>
 
+<Property name="ConvertorLeveranciersnummerVanHoeckeNaarHalux">
+<Type>AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="PartijApi">
 <Type>DOM.PARTIJ.PartijAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="VoorraadInstellingCalculator">
+<Type>AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>PartijApi:DOM.PARTIJ.PartijAPI</FormalSpec>
+<FormalSpec>PartijApi:DOM.PARTIJ.PartijAPI,ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..PartijApi = $$$Inject(PartijApi,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	Set ..PartijApi = $$$Inject(PartijApi,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = $$$Inject(ConvertorLeveranciersnummerVanHoeckeNaarHalux,##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New())
+	Set ..VoorraadInstellingCalculator = $$$Inject(VoorraadInstellingCalculator,##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertDefaultOrderType">
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DefaultOrderType As %String = ""
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
+	
+	If Firma = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+		#dim LinkType As %String = Product.Basis.LinkType
+		
+		If ((LinkType = "S") && (LeverancierNummer = "6051")){
+			Set DefaultOrderType = "Productie"
+		}
+		Else {
+			Set DefaultOrderType = "Aankooporder"
+		}
+	} ElseIf Firma = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
+		If (LeverancierNummer = "6332") {
+			Set DefaultOrderType = "Productie"
+		}
+		Else {
+			Set DefaultOrderType = "Aankooporder"
+		}
+	} Else {
+		Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee!"
+	}
+	
+	Quit DefaultOrderType
+]]></Implementation>
+</Method>
+
 <Method name="ConvertKlantTaxGroup">
 <FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Klant.GeefID())
 	
-	If Firma="VHBE" {
+	If Firma=##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
 		Quit:Partij.GeefID()="K||7587" "BUNIT"
 		Quit:Partij.GeefID()="K||4682" "BUNIT"
 		Quit:Partij.GeefID()="K||1000" "BUNIT"
 		Quit:Partij.GeefID()="K||5069" "BUNIT"
 		Quit:Partij.GeefID()="K||9544" "BIC"
 		Quit:Partij.GeefID()="K||21643" "BSCHIP"
-	} ElseIf Firma="HLX" {
+	} ElseIf Firma=##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
 		Quit:Partij.GeefID()="K||1389" "BUNIT"
 		Quit:Partij.GeefID()="K||1377" "BUNIT"
 	}
@@ -64,11 +108,11 @@
 <Implementation><![CDATA[
 	#Dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Leverancier.GeefID())
 	
-	If Firma="VHBE" {
+	If Firma=##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
 		Quit:Partij.GeefID()="L||6332" "BUNIT"
 		Quit:Partij.GeefID()="L||6051" "BUNIT"
 		Quit:Partij.GeefID()="L||5908" "BUNIT"
-	} ElseIf Firma="HLX" {
+	} ElseIf Firma=##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
 		Quit:Partij.GeefID()="L||5497" "BUNIT"
 	}
 	Quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BDOM"
@@ -83,19 +127,192 @@
 <Implementation><![CDATA[
 	#Dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Leverancier.GeefID())
 	
-	If Firma="VHBE" {
+	If Firma=##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
 		Quit:Partij.GeefID()="L||6332" "IC"
 		Quit:Partij.GeefID()="L||6051" "IC"
 		Quit:Partij.GeefID()="L||5908" "IC"
 		Quit:Partij.GeefID()="L||6373" "IC"
-	} ElseIf Firma="HLX" {
+	} ElseIf Firma=##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
 		Quit:Partij.GeefID()="L||5497" "IC"
 	}
 	Quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BE"
 	Quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "EU"
 	Quit "EX"
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertPrimaryVendorId">
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PrimaryVendorId As %String = ""
+	#dim LinkType As %String = Product.Basis.LinkType
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
+	#dim DefaultOrderType As %String = ..ConvertDefaultOrderType(Firma,Product)
+	
+	If Firma = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+		#dim PrimaryVendorIdVH As %String = ""
+		If (DefaultOrderType = "Productie") {
+		Set PrimaryVendorIdVH = ""
+		}
+		ElseIf ((LinkType = "HH") || (LinkType = "HHZ")) {
+			Set PrimaryVendorIdVH = "06332"
+		}
+		Else {
+			Set PrimaryVendorIdVH = ##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"
+		}
+		ElseIf (DefaultOrderType = "Productie") {
+			Set PrimaryVendorIdHLX = ""
+		}
+		Else {
+			Set LeverancierNummer = ..ConvertorLeveranciersnummerVanHoeckeNaarHalux.ConvertorLeveranciersnummerVanHoeckeNaarHalux(LeverancierNummer)
+			Set PrimaryVendorIdHLX = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+		}
+		Set PrimaryVendorId = PrimaryVendorIdHLX
+	} Else {
+		Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee!"
+	}	
+	
+	Quit PrimaryVendorId
+]]></Implementation>
+</Method>
+
+<Method name="ConvertReqGroupId">
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ReqGroupId As %String = ""
+	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
+	#dim StockNietStock As %String = Product.Basis.StockNietStock
+	#dim SubGroep As %String = Product.Klassificatie.SubGroep
+	#dim SubGroepBevatVPK As %Integer = $Find(SubGroep,"VPK/")
+	#dim SubGroepBevatVPA As %Integer = $Find(SubGroep,"VPA/")
+	
+	If Firma = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
+		#dim ReqGroupIdVH As %String = ""
+		#dim DefaultOrderTypeVHBE As %String = ..ConvertDefaultOrderType(Firma,Product)
+		#dim Groep As %String = Product.Klassificatie.Groep
+		#dim GroepBevatYYY As %Integer = $Find(Groep,"YYY")
+		#dim HoofdGroep As %String = Product.Klassificatie.HoofdGroep
+		#dim HoofdGroepBevatZZ As %Integer = $Find(HoofdGroep,"ZZ")
+		#dim SubGroepBevatCAT As %Integer = $Find(SubGroep,"CAT")
+		#dim ScanType As %String = Product.Basis.ScanType
+		#dim SubGroepLaatsteDrieKarakters As %String = $Extract(SubGroep,$Length(SubGroep)-2,$Length(SubGroep))
+		#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate(Product.BasisGetObjectId())
+		#dim LeveringsDagen As %Integer = VoorraadInstelling.LeveringsDagen
+		#dim Exceptiestring As %String = "Voor product "_Product.BasisGetObjectId()_" zijn er meer dan 99 LeveringsDagen berekend, nml.: "_LeveringsDagen
+		
+		If (LeveringsDagen > 99) {
+			//W !,"Voor product "_Product.BasisGetObjectId()_" zijn er meer dan 99 LeveringsDagen berekend, nml.: "_LeveringsDagen
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New(Exceptiestring))
+		}
+		
+		If ((SubGroepLaatsteDrieKarakters = "/OL") && (LeverancierNummer = "6051") && (DefaultOrderTypeVHBE = "Productie")) {
+			Set ReqGroupIdVH = "MTO"
+		} ElseIf (DefaultOrderTypeVHBE = "Aankooporder"){
+			If ((SubGroepBevatVPK '= 0) || (SubGroepBevatVPA '= 0)) {
+				Set ReqGroupIdVH = "Handmatig"
+			} ElseIf (StockNietStock '= "1") {
+				If (LeverancierNummer = "5005"){
+				Set ReqGroupIdVH = "BTO Blum"
+				} Else {
+					Set ReqGroupIdVH = "BTO ntBlum"
+				}
+			} ElseIf (StockNietStock = "1") {
+				If (ScanType > 0) {
+					Set ReqGroupIdVH = "Min/Max"
+				} ElseIf (LeverancierNummer = "5005"){
+					Set ReqGroupIdVH = "Blum"_LeveringsDagen_"d ND"
+				} ElseIf (LeverancierNummer = "5002"){
+					Set ReqGroupIdVH = "BTS Agofor"
+				} ElseIf (LeverancierNummer = "5938"){
+					Set ReqGroupIdVH = "BTS Baliko"
+				} ElseIf ((HoofdGroepBevatZZ '= 0) && (GroepBevatYYY '= 0) && (SubGroepBevatCAT '= 0)) {
+					Set ReqGroupIdVH = "Handmatig"
+				} ElseIf (LeverancierNummer = "6494"){
+					Set ReqGroupIdVH = "Handmatig"
+				} ElseIf (LeverancierNummer = "6330"){
+					Set ReqGroupIdVH = "Handmatig"
+				} Else {
+					Set ReqGroupIdVH = "BTS-1W"
+			}}} Else {
+			Set ReqGroupIdVH = "Handmatig"
+		}
+		Set ReqGroupId = ReqGroupIdVH
+	} ElseIf Firma = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
+		#dim ReqGroupIdHLX As %String = ""
+		#dim SubGroepEersteVierKarakters As %String = $Extract(SubGroep,1,4)
+		#dim Herbestelsurplus As %String = Product.Basis.HerbestelSurplus
+		#dim Herbestelafronding As %String = Product.Basis.HerbestelAfronding
+		#dim DefaultOrderTypeHLX As %String = ..ConvertDefaultOrderType(Firma,Product)
+		
+		If ((StockNietStock = "1") && (SubGroepEersteVierKarakters = "12AL")) {
+			Set ReqGroupIdHLX = "MTS-1W"
+		}
+		ElseIf (((SubGroepBevatVPK '= 0) || (SubGroepBevatVPA '= 0)) && (DefaultOrderTypeHLX ="Aankooporder")) {
+			Set ReqGroupIdHLX = "Handmatig"
+		}
+		ElseIf ((Herbestelsurplus = "") && (Herbestelafronding ="") && (LeverancierNummer = "6051")) {
+			Set ReqGroupIdHLX = "BTO"
+		}
+		Else {
+			Set ReqGroupIdHLX = "BTS-2D"
+		}
+		Set ReqGroupId = ReqGroupIdHLX
+	} Else {
+		Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee!"
+	}
+
+	Quit ReqGroupId
+]]></Implementation>
+</Method>
+
+<Method name="ConvertUOMSeqGroupId">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim UOMSeqGroupId As %String = ""
+	#dim KleinVerpakking As %Integer = +Product.Prijs.KleinVerpakking
+	#dim NormaleVerpakking As %Integer = +Product.Prijs.NormaleVerpakking
+	#dim GrootVerpakking As %Integer = +Product.Prijs.GrootVerpakking
+	#dim PalletAantal As %Integer = +Product.Basis.PalletAantal
+	#dim Leverancier As %String = Product.Basis.LeverancierNummer
+	
+	If (GrootVerpakking > 0) {
+		If (((KleinVerpakking = 0) || (KleinVerpakking = "")) && ((NormaleVerpakking = 0) || (NormaleVerpakking = 1) || (NormaleVerpakking = "")) && ((PalletAantal = 0) || (PalletAantal = ""))) {
+			Set UOMSeqGroupId = "STK-GVP"
+		} ElseIf (Leverancier = "5005") {
+			If (((KleinVerpakking = 0) || (KleinVerpakking = "")) && ((NormaleVerpakking = 0) || (NormaleVerpakking = "")) && (PalletAantal > 0)) {
+				Set UOMSeqGroupId = "STK-GVP-PLT"
+			} ElseIf (((KleinVerpakking = 0) || (KleinVerpakking = "")) && (NormaleVerpakking = 1) && (PalletAantal > 0)) {
+				Set UOMSeqGroupId = "STK-GVP-PLT"
+			} ElseIf (((KleinVerpakking = 0) || (KleinVerpakking = "")) && (NormaleVerpakking > 1) && (PalletAantal > 0)) {
+				Set UOMSeqGroupId = "STK-KVP-GVP-PLT"
+			} ElseIf ((KleinVerpakking > 0) && (NormaleVerpakking > 0) && (PalletAantal > 0)) {
+				Set UOMSeqGroupId = "STK-KVP-NVP-GVP-PLT"
+			}
+		} Else {
+			If (((KleinVerpakking = 0) || (KleinVerpakking = "")) && ((NormaleVerpakking = 0) || (NormaleVerpakking = "")) && (PalletAantal > 0)) {
+				Set UOMSeqGroupId = "STK-GVP"
+			} ElseIf (((KleinVerpakking = 0) || (KleinVerpakking = "")) && (NormaleVerpakking = 1) && (PalletAantal > 0)) {
+				Set UOMSeqGroupId = "STK-GVP"
+			} ElseIf (((KleinVerpakking = 0) || (KleinVerpakking = "")) && (NormaleVerpakking > 1) && (PalletAantal > 0)) {
+				Set UOMSeqGroupId = "STK-KVP-GVP"
+			} ElseIf ((KleinVerpakking > 0) && (NormaleVerpakking > 0) && (PalletAantal > 0)) {
+				Set UOMSeqGroupId = "STK-KVP-NVP-GVP"
+			}
+		}
+	}
+	
+	Quit UOMSeqGroupId
+]]></Implementation>
+</Method>
 </Class>