Index: vhTest/Mock/AXimpl/Utils.cls.xml
===================================================================
diff -u -r42531 -r43143
--- vhTest/Mock/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 42531)
+++ vhTest/Mock/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 43143)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.AXimpl.Utils">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>AXimpl.Utils,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
Index: AXimpl/Utils.cls.xml
===================================================================
diff -u -r42792 -r43143
--- AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 42792)
+++ AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 43143)
@@ -153,7 +153,7 @@
 	If Firma = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
 		#dim PrimaryVendorIdVH As %String = ""
 		If (DefaultOrderType = "Productie") {
-		Set PrimaryVendorIdVH = "06051"
+			Set PrimaryVendorIdVH = "06051"
 		}
 		ElseIf ((LinkType = "HH") || (LinkType = "HHZ")) {
 			Set PrimaryVendorIdVH = "06332"
@@ -197,10 +197,14 @@
 	If Firma = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
 		#dim ReqGroupIdVH As %String = ""
 		#dim DefaultOrderTypeVHBE As %String = ..ConvertDefaultOrderType(Firma,Product)
+		#dim PrimaryVendorId = ..ConvertPrimaryVendorId(Firma,Product)
+		#dim SubGroepBevatBROslashTA As %Integer = $Find(SubGroep,"BRO/TA")
 		#dim Groep As %String = Product.Klassificatie.Groep
 		#dim GroepBevatYYY As %Integer = $Find(Groep,"YYY")
+		#dim GroepBevatDRU As %Integer = $Find(Groep,"DRU")
 		#dim HoofdGroep As %String = Product.Klassificatie.HoofdGroep
 		#dim HoofdGroepBevatZZ As %Integer = $Find(HoofdGroep,"ZZ")
+		#dim HoofdGroepBevatTA As %Integer = $Find(HoofdGroep,"TA")
 		#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))
@@ -229,16 +233,20 @@
 					Set ReqGroupIdVH = "BTO ntBlum"
 				}
 			} ElseIf (StockNietStock = "1") {
-				If (ScanType > 0) {
+				If (PrimaryVendorId = "06332") {
+					Set ReqGroupIdVH = "BTO"
+				} ElseIf(ScanType > 0) {
 					Set ReqGroupIdVH = "Min/Max"
+				} ElseIf ((HoofdGroepBevatZZ '= 0) && (GroepBevatYYY '= 0) && (SubGroepBevatCAT '= 0)) {
+					Set ReqGroupIdVH = "Handmatig"
+				} ElseIf ((HoofdGroepBevatTA '= 0) && (GroepBevatDRU '= 0) && (SubGroepBevatBROslashTA '= 0)) {
+					Set ReqGroupIdVH = "Handmatig"
 				} 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"){
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>