Index: vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml
===================================================================
diff -u -r42590 -r43143
--- vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 42590)
+++ vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 43143)
@@ -144,7 +144,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Stap 4 voor Van Hoecke is ReqGroupId Min/Max">
+<Method name="Test: Stap 4 voor Van Hoecke is ReqGroupId BTO">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
@@ -155,6 +155,26 @@
 	Set AxProduct.Basis.LinkType = "HH"
 	Set AxProduct.Klassificatie.SubGroep = "Groepje"
 	Set AxProduct.Basis.StockNietStock = "1"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"BTO")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 4a 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 = "H"
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
+	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.ScanType = "8"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
@@ -165,42 +185,67 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Stap 5a voor Van Hoecke is ReqGroupId Blumxxd ND waarbij xx de LeveringsTermijn via de VoorraadInstellingCalculator is">
+<Method name="Test: Stap 5a 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(5005)
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5000)
 	
-	#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate()
-	Set VoorraadInstelling.LeveringsDagen = "55"
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
-	Set ..VoorraadInstellingCalculator = ##class(vhTest.Mock.AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()
-	Do ..VoorraadInstellingCalculator.IndienMethodCall("Calculate",..#ProductId).DanReturn(VoorraadInstelling)
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.LinkType = "H"
+	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 5b 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 = "Groepje"
+	Set AxProduct.Basis.LinkType = "H"
+	Set AxProduct.Klassificatie.SubGroep = "GroepBRO/TA"
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.ScanType = "0"
+	Set AxProduct.Klassificatie.HoofdGroep = "GroepTA"
+	Set AxProduct.Klassificatie.Groep = "GroepDRU"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
 	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
 	
-	Do $$$AssertEquals(ReqGroupId,"Blum55d ND")
+	Do $$$AssertEquals(ReqGroupId,"Handmatig")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Stap 5b voor Van Hoecke is ReqGroupId BTS Agofor">
+<Method name="Test: Stap 5c 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(5002)
+	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.Basis.LinkType = "H"
 	Set AxProduct.Klassificatie.SubGroep = "Groepje"
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.ScanType = "0"
@@ -209,19 +254,19 @@
 	
 	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
 	
-	Do $$$AssertEquals(ReqGroupId,"BTS Agofor")
+	Do $$$AssertEquals(ReqGroupId,"Blum55d ND")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Stap 5c voor Van Hoecke is ReqGroupId BTS Baliko">
+<Method name="Test: Stap 5d 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(5938)
+	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.Basis.LinkType = "H"
 	Set AxProduct.Klassificatie.SubGroep = "Groepje"
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.ScanType = "0"
@@ -230,46 +275,44 @@
 	
 	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
 	
-	Do $$$AssertEquals(ReqGroupId,"BTS Baliko")
+	Do $$$AssertEquals(ReqGroupId,"BTS Agofor")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Stap 5d voor Van Hoecke is ReqGroupId Handmatig">
+<Method name="Test: Stap 5e 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(5000)
+	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 = "GroepCAT"
+	Set AxProduct.Basis.LinkType = "H"
+	Set AxProduct.Klassificatie.SubGroep = "Groepje"
 	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")
+	Do $$$AssertEquals(ReqGroupId,"BTS Baliko")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Stap 5e voor Van Hoecke is ReqGroupId Handmatig">
+<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(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.Basis.LinkType = "H"
 	Set AxProduct.Klassificatie.SubGroep = "Groepje"
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.ScanType = "0"
-	Set AxProduct.Klassificatie.HoofdGroep = "OokGroepje"
+	Set AxProduct.Klassificatie.HoofdGroep = "Groepje"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -279,19 +322,19 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Stap 5f voor Van Hoecke is ReqGroupId Handmatig">
+<Method name="Test: Stap 5g 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.Basis.LinkType = "H"
 	Set AxProduct.Klassificatie.SubGroep = "Groepje"
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.ScanType = "0"
-	Set AxProduct.Klassificatie.HoofdGroep = "OokGroepje"
+	Set AxProduct.Klassificatie.HoofdGroep = "Groepje"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -301,7 +344,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Stap 5g voor Van Hoecke is ReqGroupId BTS-1W">
+<Method name="Test: Stap 5h 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)
@@ -312,7 +355,7 @@
 	Set AxProduct.Klassificatie.SubGroep = "Groepje"
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.ScanType = "0"
-	Set AxProduct.Klassificatie.HoofdGroep = "OokGroepje"
+	Set AxProduct.Klassificatie.HoofdGroep = "Groepje"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -333,7 +376,7 @@
 	Set AxProduct.Basis.LinkType = "S"
 	Set AxProduct.Klassificatie.SubGroep = "Groepje"
 	Set AxProduct.Basis.ScanType = "0"
-	Set AxProduct.Klassificatie.HoofdGroep = "OokGroepje"
+	Set AxProduct.Klassificatie.HoofdGroep = "Groepje"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -371,7 +414,7 @@
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.LinkType = "HH"
-	Set AxProduct.Klassificatie.SubGroep = "GroepVPK/"
+	Set AxProduct.Klassificatie.SubGroep = "VPK/Groep"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -390,7 +433,7 @@
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.LinkType = "HH"
-	Set AxProduct.Klassificatie.SubGroep = "GroepVPA/"
+	Set AxProduct.Klassificatie.SubGroep = "VPA/Groep"
 	
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -455,6 +498,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Stap 5a voor Halux is ReqGroupId BTS-2D">
+<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 = "1"
+	Set AxProduct.Basis.HerbestelAfronding = "1"
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"BTS-2D")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeConverterenProduct">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>