Index: vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml
===================================================================
diff -u -r47226 -r47227
--- vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 47226)
+++ vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 47227)
@@ -1603,7 +1603,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Stap 1b voor Halux is ReqGroupId Min/max">
+<Method name="Test: Stap 1b1 voor Halux is ReqGroupId BTS-IC met HerbestelSurplus niet leeg">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6051)
@@ -1613,13 +1613,57 @@
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.StockNietStock = "1"
 	Set AxProduct.Basis.HerbestelSurplus = "5"
-	Set AxProduct.Basis.ScanType = "5"
+	Set AxProduct.Basis.HerbestelAfronding = ""
+		
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
+	Do $$$AssertEquals(ReqGroupId,"BTS-IC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 1b2 voor Halux is ReqGroupId BTS-IC met HerbestelAfronding niet leeg">
+<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.StockNietStock = "1"
+	Set AxProduct.Basis.HerbestelSurplus = ""
+	Set AxProduct.Basis.HerbestelAfronding = "5"
 		
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
 	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
 	
+	Do $$$AssertEquals(ReqGroupId,"BTS-IC")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Stap 1c voor Halux 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(5005)
+	
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","5005").DanReturn("5005")
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.StockNietStock = "1"
+	Set AxProduct.Basis.ScanType = "5"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux
+	
+	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	
+	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
+	
 	Do $$$AssertEquals(ReqGroupId,"Min/max")
 ]]></Implementation>
 </Method>
@@ -1629,11 +1673,16 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7835)
 	
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","7835").DanReturn("05898")
+	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = "5"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux
 		
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -1648,11 +1697,16 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6628)
 	
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","6628").DanReturn("05677")
+	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = "5"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux
 		
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -1667,11 +1721,16 @@
 	#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.Convertor.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.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = "5"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux
 		
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -1686,11 +1745,16 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7802)
 	
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","7802").DanReturn("05931")
+	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = "5"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux
 		
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -1705,11 +1769,16 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6813)
 	
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","6813").DanReturn("05522")
+	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = "5"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux
 		
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -1724,11 +1793,16 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7771)
 	
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","7771").DanReturn("05880")
+	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = "5"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux
 		
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -1743,11 +1817,16 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6792)
 	
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","6792").DanReturn("05605")
+	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = "5"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux
 		
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -1762,11 +1841,16 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5817)
 	
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","5817").DanReturn("05645")
+	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = "5"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux
 		
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -1781,11 +1865,16 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(7063)
 	
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","7063").DanReturn("05688")
+	
 	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
 	
 	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
 	Set AxProduct.Basis.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = "5"
+	Set AxProduct.Basis.LinkType = "HH"
+	
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux
 		
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
@@ -1800,57 +1889,22 @@
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6892)
 	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
+	Set ConvertorLeveranciersnummerVanHoeckeNaarHalux = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Do ConvertorLeveranciersnummerVanHoeckeNaarHalux.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux","6892").DanReturn("05692")
 	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
-	Set AxProduct.Basis.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = "5"
-		
-	#dim Converter As AXimpl.Utils = ..GeefConverter()
-	
-	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
-	
-	Do $$$AssertEquals(ReqGroupId,"BTS AngstP")
-]]></Implementation>
-</Method>
-
-<Method name="Test: Stap 3a voor Halux is ReqGroupId BTS-IC">
-<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.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = "5"
-	Set AxProduct.Basis.HerbestelAfronding = ""
-		
-	#dim Converter As AXimpl.Utils = ..GeefConverter()
+	Set AxProduct.Basis.LinkType = "HH"
 	
-	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
-	
-	Do $$$AssertEquals(ReqGroupId,"BTS-IC")
-]]></Implementation>
-</Method>
-
-<Method name="Test: Stap 3b voor Halux is ReqGroupId BTS-IC">
-<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.StockNietStock = "1"
-	Set AxProduct.Basis.HerbestelSurplus = ""
-	Set AxProduct.Basis.HerbestelAfronding = "5"
+	Set ..ConvertorLeveranciersnummerVanHoeckeNaarHalux = ConvertorLeveranciersnummerVanHoeckeNaarHalux
 		
 	#dim Converter As AXimpl.Utils = ..GeefConverter()
 	
 	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
 	
-	Do $$$AssertEquals(ReqGroupId,"BTS-IC")
+	Do $$$AssertEquals(ReqGroupId,"BTS AngstP")
 ]]></Implementation>
 </Method>
 
Index: AXimpl/Utils.cls.xml
===================================================================
diff -u -r47226 -r47227
--- AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 47226)
+++ AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 47227)
@@ -347,7 +347,9 @@
 			Set ReqGroupId = "BTO"
 		} ElseIf (DefaultOrderTypeHLX = "Aankooporder"){
 			If (StockNietStock = "1"){
-				If (+ScanType > 0){
+				If ((Herbestelsurplus '= "") || (Herbestelafronding '= "")){
+					Set ReqGroupId = "BTS-IC"
+				}ElseIf (+ScanType > 0){
 					Set ReqGroupId = "Min/max"
 				}ElseIf (LeverancierNummer = "7835"){
 					Set ReqGroupId = "BTS Vallin"
@@ -369,9 +371,7 @@
 					Set ReqGroupId = "BTS Beneen"
 				}ElseIf (LeverancierNummer = "6892"){
 					Set ReqGroupId = "BTS AngstP"
-				}ElseIf ((Herbestelsurplus '= "") || (Herbestelafronding '= "")){
-					Set ReqGroupId = "BTS-IC"
-				} 
+				}
 			}
 		}
 	} Else {