Index: vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml
===================================================================
diff -u -r43143 -r44863
--- vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 43143)
+++ vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 44863)
@@ -386,71 +386,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Stap 1 voor Halux Als StockNietStock 1 is en SubGroep begint met 12AL dan moet ReqGroupId MTS streepje 1W zijn">
+<Method name="Test: Stap 1 voor Halux Als 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.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: Stap 2a voor Halux Als 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 = "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 Halux Als 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 = "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 3 voor Halux Als 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 = ""
 		
@@ -462,61 +405,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Stap 4a voor Halux Als StockNietStock 1 is en LeverancierNummer 6494 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(6494)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
-	Set AxProduct.Basis.StockNietStock = "1"
-	
-	#dim Converter As AXimpl.Utils = ..GeefConverter()
-	
-	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
-	
-	Do $$$AssertEquals(ReqGroupId,"Handmatig")
-]]></Implementation>
-</Method>
-
-<Method name="Test: Stap 4b voor Halux Als StockNietStock 1 is en LeverancierNummer 6330 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(6330)
-	
-	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
-	
-	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
-	Set AxProduct.Basis.StockNietStock = "1"
-	
-	#dim Converter As AXimpl.Utils = ..GeefConverter()
-	
-	#dim ReqGroupId As %String = Converter.ConvertReqGroupId(Firma,AxProduct)
-	
-	Do $$$AssertEquals(ReqGroupId,"Handmatig")
-]]></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>
Index: AXimpl/Utils.cls.xml
===================================================================
diff -u -r44858 -r44863
--- AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 44858)
+++ AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 44863)
@@ -199,14 +199,13 @@
 	#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 %Boolean = ##class(TECH.StringUtils).Contains(SubGroep,"VPK/")
-	#dim SubGroepBevatVPA As %Boolean = ##class(TECH.StringUtils).Contains(SubGroep,"VPA/")
 	
 	If Firma = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
-		#dim ReqGroupIdVH As %String = ""
 		#dim DefaultOrderTypeVHBE As %String = ..ConvertDefaultOrderType(Firma,Product)
 		#dim PrimaryVendorId = ..ConvertPrimaryVendorId(Firma,Product)
+		#dim SubGroep As %String = Product.Klassificatie.SubGroep
+		#dim SubGroepBevatVPK As %Boolean = ##class(TECH.StringUtils).Contains(SubGroep,"VPK/")
+		#dim SubGroepBevatVPA As %Boolean = ##class(TECH.StringUtils).Contains(SubGroep,"VPA/")
 		#dim SubGroepBevatBROslashTA As %Boolean = ##class(TECH.StringUtils).Contains(SubGroep,"BRO/TA")
 		#dim Groep As %String = Product.Klassificatie.Groep
 		#dim GroepBevatYYY As %Boolean = ##class(TECH.StringUtils).Contains(Groep,"YYY")
@@ -231,63 +230,48 @@
 		}
 		
 		If ((SubGroepLaatsteDrieKarakters = "/OL") && (LeverancierNummer = "6051") && (DefaultOrderTypeVHBE = "Productie")) {
-			Set ReqGroupIdVH = "MTO"
+			Set ReqGroupId = "MTO"
 		} ElseIf (DefaultOrderTypeVHBE = "Aankooporder"){
 			If ((SubGroepBevatVPK) || (SubGroepBevatVPA)) {
-				Set ReqGroupIdVH = "Handmatig"
+				Set ReqGroupId = "Handmatig"
 			} ElseIf (StockNietStock '= "1") {
 				If (LeverancierNummer = "5005"){
-				Set ReqGroupIdVH = "BTO Blum"
+				Set ReqGroupId = "BTO Blum"
 				} Else {
-					Set ReqGroupIdVH = "BTO ntBlum"
+					Set ReqGroupId = "BTO ntBlum"
 				}
 			} ElseIf (StockNietStock = "1") {
 				If (PrimaryVendorId = "06332") {
-					Set ReqGroupIdVH = "BTO"
+					Set ReqGroupId = "BTO"
 				} ElseIf(ScanType > 0) {
-					Set ReqGroupIdVH = "Min/Max"
+					Set ReqGroupId = "Min/Max"
 				} ElseIf ((HoofdGroepBevatZZ) && (GroepBevatYYY) && (SubGroepBevatCAT)) {
-					Set ReqGroupIdVH = "Handmatig"
+					Set ReqGroupId = "Handmatig"
 				} ElseIf ((HoofdGroepBevatTA) && (GroepBevatDRU) && (SubGroepBevatBROslashTA)) {
-					Set ReqGroupIdVH = "Handmatig"
+					Set ReqGroupId = "Handmatig"
 				} ElseIf (LeverancierNummer = "5005"){
-					Set ReqGroupIdVH = "Blum"_LeveringsDagen_"d ND"
+					Set ReqGroupId = "Blum"_LeveringsDagen_"d ND"
 				} ElseIf (LeverancierNummer = "5002"){
-					Set ReqGroupIdVH = "BTS Agofor"
+					Set ReqGroupId = "BTS Agofor"
 				} ElseIf (LeverancierNummer = "5938"){
-					Set ReqGroupIdVH = "BTS Baliko"
+					Set ReqGroupId = "BTS Baliko"
 				} ElseIf (LeverancierNummer = "6494"){
-					Set ReqGroupIdVH = "Handmatig"
+					Set ReqGroupId = "Handmatig"
 				} ElseIf (LeverancierNummer = "6330"){
-					Set ReqGroupIdVH = "Handmatig"
+					Set ReqGroupId = "Handmatig"
 				} Else {
-					Set ReqGroupIdVH = "BTS-1W"
+					Set ReqGroupId = "BTS-1W"
 			}}} Else {
-				Set ReqGroupIdVH = "Handmatig"
+				Set ReqGroupId = "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) || (SubGroepBevatVPA)) && (DefaultOrderTypeHLX ="Aankooporder")) {
-			Set ReqGroupIdHLX = "Handmatig"
-		}ElseIf ((Herbestelsurplus = "") && (Herbestelafronding ="") && (LeverancierNummer = "6051")) {
-			Set ReqGroupIdHLX = "BTO"
-		}ElseIf ((StockNietStock = "1") && (LeverancierNummer = "6494")) {
-			Set ReqGroupIdHLX = "Handmatig"
-		}ElseIf ((StockNietStock = "1") && (LeverancierNummer = "6330")) {
-			Set ReqGroupIdHLX = "Handmatig"
-		}Else {
-			Set ReqGroupIdHLX = "BTS-2D"
-		}
-		Set ReqGroupId = ReqGroupIdHLX
-	} Else {
+		If ((Herbestelsurplus = "") && (Herbestelafronding ="") && (LeverancierNummer = "6051")) {
+			Set ReqGroupId = "BTO"
+	}} Else {
 		Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee!"
 	}