Index: vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml
===================================================================
diff -u -r42531 -r42551
--- vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 42531)
+++ vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 42551)
@@ -343,7 +343,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als voor Halux StockNietStock 1 is en SubGroep begint met 12AL dan moet ReqGroupId MTS streepje 1W zijn">
+<Method name="Test: Stap 1 voor Halux Als 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)
@@ -362,7 +362,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als voor Halux SubGroep VPK gevolgd door een slash bevat en DefaultOrderType Aankooporder is dan moet ReqGroupId Handmatig zijn">
+<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)
@@ -381,7 +381,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als voor Halux SubGroep VPA gevolgd door een slash bevat en DefaultOrderType Aankooporder is dan moet ReqGroupId Handmatig zijn">
+<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)
@@ -400,7 +400,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als voor Halux HerbestelSurplus leeg is en HerbestelAfronding leeg is en LeverancierNummer 6051 is dan moet ReqGroupId BTO zijn">
+<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)
@@ -419,6 +419,42 @@
 ]]></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="GeefTeConverterenProduct">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>