Index: vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(revision 42531)
@@ -0,0 +1,441 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Utils.ConvertReqGroupId.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<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="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Fake.AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Set ..PartijApi = ##class(vhTest.Fake.DOM.PARTIJ.PartijAPI).%New()
+	Set ..VoorraadInstellingCalculator = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 1 voor Van Hoecke is ReqGroupId MTO">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "S"
+	Set AxProduct.Klassificatie.SubGroep = "Groep/OL"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"MTO")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 2a voor Van Hoecke is ReqGroupId Handmatig">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Klassificatie.SubGroep = "VPK/Groep"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 2b voor Van Hoecke is ReqGroupId Handmatig">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Klassificatie.SubGroep = "VPA/Groep"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 3a voor Van Hoecke is ReqGroupId BTO Blum">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "2"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"BTO Blum")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 3b voor Van Hoecke is ReqGroupId BTO ntBlum">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "2"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"BTO ntBlum")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 4 voor Van Hoecke is ReqGroupId Min/Max">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.ScanType = "8"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"Min/Max")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5a voor Van Hoecke is ReqGroupId Blumxxd ND waarbij xx de LeveringsTermijn via de VoorraadInstellingCalculator 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)
+	
+	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate()
+	Set VoorraadInstelling.LeveringsDagen = "55"
+	
+	Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+	Do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.ScanType = "0"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"Blum55d ND")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5b voor Van Hoecke is ReqGroupId BTS Agofor">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5002)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.ScanType = "0"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"BTS Agofor")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5c voor Van Hoecke is ReqGroupId BTS Baliko">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5938)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.ScanType = "0"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"BTS Baliko")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5d voor Van Hoecke is ReqGroupId Handmatig">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5000)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Klassificatie.SubGroep = "GroepCAT"
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.ScanType = "0"
+	Set AxProduct.Klassificatie.HoofdGroep = "GroepZZ"
+	Set AxProduct.Klassificatie.Groep = "GroepYYY"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5e voor Van Hoecke is ReqGroupId Handmatig">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6494)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.ScanType = "0"
+	Set AxProduct.Klassificatie.HoofdGroep = "OokGroepje"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5f voor Van Hoecke is ReqGroupId Handmatig">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6330)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.ScanType = "0"
+	Set AxProduct.Klassificatie.HoofdGroep = "OokGroepje"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5g voor Van Hoecke is ReqGroupId BTS-1W">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5000)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.ScanType = "0"
+	Set AxProduct.Klassificatie.HoofdGroep = "OokGroepje"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"BTS-1W")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 6 voor Van Hoecke is ReqGroupId Handmatig">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "S"
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.ScanType = "0"
+	Set AxProduct.Klassificatie.HoofdGroep = "OokGroepje"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als voor Halux StockNietStock 1 is en SubGroep begint met 12AL dan moet ReqGroupId MTS streepje 1W zijn">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Klassificatie.SubGroep = "12ALGroep"
+	Set AxProduct.Basis.StockNietStock = "1"
+		
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"MTS-1W")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als voor Halux SubGroep VPK gevolgd door een slash bevat en DefaultOrderType Aankooporder is dan moet ReqGroupId Handmatig zijn">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#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.Klassificatie.SubGroep = "GroepVPK/"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als voor Halux SubGroep VPA gevolgd door een slash bevat en DefaultOrderType Aankooporder is dan moet ReqGroupId Handmatig zijn">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#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.Klassificatie.SubGroep = "GroepVPA/"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"Handmatig")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als voor Halux HerbestelSurplus leeg is en HerbestelAfronding leeg is en LeverancierNummer 6051 is dan moet ReqGroupId BTO zijn">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.HerbestelSurplus = ""
+	Set AxProduct.Basis.HerbestelAfronding = ""
+		
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"BTO")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeConverterenProduct">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	Do AxProduct.BasisSetObjectId(..#ProductId)
+	quit AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="GeefConverter">
+<Private>1</Private>
+<ReturnType>AXimpl.Utils</ReturnType>
+<Implementation><![CDATA[	quit ##class(AXimpl.Utils).%New(..PartijApi,..ConvertorLeveranciersnummerVanHoeckeNaarHalux,..VoorraadInstellingCalculator)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml	(revision 42531)
@@ -0,0 +1,237 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Utils.ConvertPrimaryVendorId.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<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="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Fake.AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Set ..PartijApi = ##class(vhTest.Fake.DOM.PARTIJ.PartijAPI).%New()
+	Set ..VoorraadInstellingCalculator = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke moet PrimaryVendorId leeg zijn als 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(6051)
+	
+	#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,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke moet PrimaryVendorId 06332 zijn als DefaultOrderType NIET Productie is en LinkType HH is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorId,"06332")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke moet PrimaryVendorId 06332 zijn als DefaultOrderType NIET Productie is en LinkType 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(6051)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HHZ"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorId,"06332")
+]]></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">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#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")
+]]></Implementation>
+</Method>
+
+<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)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "A"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+		
+	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorId,"05497")
+]]></Implementation>
+</Method>
+
+<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 = "HH"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorId,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Halux moet PrimaryVendorId leeg zijn als LinkType HHZ 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 = "HHZ"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorId,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Halux moet PrimaryVendorId het LeverancierNummer zijn volgens Haluxnotering met een voorloopnul als LinkType HH is en DefaultOrderType NIET 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(7407)
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	do ..ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","7407").DanReturn("05921")
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorId,"05921")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Halux moet PrimaryVendorId het LeverancierNummer zijn volgens Haluxnotering met een voorloopnul als LinkType HHZ is en DefaultOrderType NIET 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(7407)
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	do ..ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","7407").DanReturn("05921")
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "HHZ"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim PrimaryVendorId As %String = Converter.ConvertPrimaryVendorId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(PrimaryVendorId,"05921")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeConverterenProduct">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	do AxProduct.BasisSetObjectId(..#ProductId)
+	quit AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="GeefConverter">
+<Private>1</Private>
+<ReturnType>AXimpl.Utils</ReturnType>
+<Implementation><![CDATA[	quit ##class(AXimpl.Utils).%New(..PartijApi,..ConvertorLeveranciersnummerVanHoeckeNaarHalux,..VoorraadInstellingCalculator)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Utils/ConvertUOMSeqGroupId/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Utils/ConvertUOMSeqGroupId/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Utils/ConvertUOMSeqGroupId/Test.cls.xml	(revision 42531)
@@ -0,0 +1,468 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Utils.ConvertUOMSeqGroupId.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<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="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Fake.AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Set ..PartijApi = ##class(vhTest.Fake.DOM.PARTIJ.PartijAPI).%New()
+	Set ..VoorraadInstellingCalculator = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 1a UOMSeqGroupId is STK streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = 0
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 0
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 1b UOMSeqGroupId is STK streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = ""
+	Set AxProduct.Prijs.NormaleVerpakking = 0
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 0
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 1c UOMSeqGroupId is STK streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = 1
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 0
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 1d UOMSeqGroupId is STK streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = ""
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 0
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 1e UOMSeqGroupId is STK streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = ""
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = ""
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 2Aa UOMSeqGroupId is STK streepje GVP streepje PLT">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = 0
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP-PLT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 2Ab UOMSeqGroupId is STK streepje GVP streepje PLT">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = ""
+	Set AxProduct.Prijs.NormaleVerpakking = 0
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP-PLT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 2Ac UOMSeqGroupId is STK streepje GVP streepje PLT">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = ""
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP-PLT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 2Ba UOMSeqGroupId is STK streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = 0
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 2Bb UOMSeqGroupId is STK streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = ""
+	Set AxProduct.Prijs.NormaleVerpakking = 0
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 2Bc UOMSeqGroupId is STK streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = ""
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 3Aa UOMSeqGroupId is STK streepje GVP streepje PLT">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = 1
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP-PLT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 3Ab UOMSeqGroupId is STK streepje GVP streepje PLT">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = ""
+	Set AxProduct.Prijs.NormaleVerpakking = 1
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP-PLT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 3Ba UOMSeqGroupId is STK streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = 1
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 3Bb UOMSeqGroupId is STK streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = ""
+	Set AxProduct.Prijs.NormaleVerpakking = 1
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 4Aa UOMSeqGroupId is STK streepje KVP streepje GVP streepje PLT">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = 2
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-KVP-GVP-PLT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 4Ab UOMSeqGroupId is STK streepje KVP  streepje GVP streepje PLT">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = ""
+	Set AxProduct.Prijs.NormaleVerpakking = 2
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-KVP-GVP-PLT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 4Ba UOMSeqGroupId is STK streepje KVP streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 0
+	Set AxProduct.Prijs.NormaleVerpakking = 2
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-KVP-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 4Bb UOMSeqGroupId is STK streepje KVP  streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = ""
+	Set AxProduct.Prijs.NormaleVerpakking = 2
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-KVP-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5A UOMSeqGroupId is STK streepje KVP streepje NVP streepje GVP streepje PLT">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 1
+	Set AxProduct.Prijs.NormaleVerpakking = 1
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-KVP-NVP-GVP-PLT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 5B UOMSeqGroupId is STK streepje KVP streepje NVP streepje GVP">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Prijs.KleinVerpakking = 1
+	Set AxProduct.Prijs.NormaleVerpakking = 1
+	Set AxProduct.Prijs.GrootVerpakking = 1
+	Set AxProduct.Basis.PalletAantal = 1
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim UOMSeqGroupId As %String = Converter.ConvertUOMSeqGroupId(AxProduct)
+	
+	Do $$$AssertEquals(UOMSeqGroupId,"STK-KVP-NVP-GVP")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeConverterenProduct">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	Do AxProduct.BasisSetObjectId(..#ProductId)
+	quit AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="GeefConverter">
+<Private>1</Private>
+<ReturnType>AXimpl.Utils</ReturnType>
+<Implementation><![CDATA[	quit ##class(AXimpl.Utils).%New(..PartijApi,..ConvertorLeveranciersnummerVanHoeckeNaarHalux,..VoorraadInstellingCalculator)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Utils/ConvertDefaultOrderType/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Utils/ConvertDefaultOrderType/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Utils/ConvertDefaultOrderType/Test.cls.xml	(revision 42531)
@@ -0,0 +1,157 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Utils.ConvertDefaultOrderType.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductId">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<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="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Fake.AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Set ..PartijApi = ##class(vhTest.Fake.DOM.PARTIJ.PartijAPI).%New()
+	Set ..VoorraadInstellingCalculator = ##class(vhTest.Fake.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke is DefaultOrderType Productie als LinkType S is en de Leverancier Van Hoecke is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#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 DefaultOrderType As %String = Converter.ConvertDefaultOrderType(Firma,AxProduct)
+	
+	Do $$$AssertEquals(DefaultOrderType,"Productie")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke is DefaultOrderType Aankooporder als LinkType S is en de Leverancier NIET Van Hoecke 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)
+	
+	#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 DefaultOrderType As %String = Converter.ConvertDefaultOrderType(Firma,AxProduct)
+	
+	Do $$$AssertEquals(DefaultOrderType,"Aankooporder")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke is DefaultOrderType Aankooporder als LinkType NIET S is en de Leverancier Van Hoecke is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = ""
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim DefaultOrderType As %String = Converter.ConvertDefaultOrderType(Firma,AxProduct)
+	
+	Do $$$AssertEquals(DefaultOrderType,"Aankooporder")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Halux is DefaultOrderType Productie als de Leverancier Halux 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()
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim DefaultOrderType As %String = Converter.ConvertDefaultOrderType(Firma,AxProduct)
+	
+	Do $$$AssertEquals(DefaultOrderType,"Productie")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Halux is DefaultOrderType Aankooporder als de Leverancier NIET Halux 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)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim DefaultOrderType As %String = Converter.ConvertDefaultOrderType(Firma,AxProduct)
+	
+	Do $$$AssertEquals(DefaultOrderType,"Aankooporder")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeConverterenProduct">
+<Private>1</Private>
+<ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New()
+	do AxProduct.BasisSetObjectId(..#ProductId)
+	quit AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="GeefConverter">
+<Private>1</Private>
+<ReturnType>AXimpl.Utils</ReturnType>
+<Implementation><![CDATA[	quit ##class(AXimpl.Utils).%New(..PartijApi,..ConvertorLeveranciersnummerVanHoeckeNaarHalux,..VoorraadInstellingCalculator)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/AXimpl/Utils.cls.xml
===================================================================
diff -u -r42197 -r42531
--- vhTest/Fake/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 42197)
+++ vhTest/Fake/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 42531)
@@ -14,13 +14,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertDefaultOrderType">
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ConvertKlantTaxItemGroup">
 <FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertPrimaryVendorId">
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ConvertReqGroupId">
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ConvertUOMSeqGroupId">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ConvertLeverancierTaxGroup">
 <FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Leverancier:DOM.AKP.Leverancier</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhTest/Mock/AXimpl/Utils.cls.xml
===================================================================
diff -u -r42355 -r42531
--- vhTest/Mock/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 42355)
+++ vhTest/Mock/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 42531)
@@ -9,6 +9,13 @@
 <Super>AXimpl.Utils,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="ConvertDefaultOrderType">
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertDefaultOrderType",Firma,Product)
+]]></Implementation>
+</Method>
+
 <Method name="ConvertKlantTaxGroup">
 <FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -36,6 +43,27 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertLeverancierVendGroup",Firma,Leverancier)
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertPrimaryVendorId">
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertPrimaryVendorId",Firma,Product)
+]]></Implementation>
+</Method>
+
+<Method name="ConvertReqGroupId">
+<FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertReqGroupId",Firma,Product)
+]]></Implementation>
+</Method>
+
+<Method name="ConvertUOMSeqGroupId">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertUOMSeqGroupId",Product)
+]]></Implementation>
+</Method>
 </Class>
 
 
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>