Index: AXimpl/Utils.cls.xml
===================================================================
diff -u -r44870 -r44871
--- AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 44870)
+++ AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 44871)
@@ -284,6 +284,8 @@
 				Set ReqGroupId = "BTS APT"
 			}ElseIf (LeverancierNummer = "7771"){
 				Set ReqGroupId = "BTS Unilin"
+			}ElseIf (LeverancierNummer = "6792"){
+				Set ReqGroupId = "BTS Horate"
 	}}} Else {
 		Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee!"
 	}
Index: vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml
===================================================================
diff -u -r44870 -r44871
--- vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 44870)
+++ vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml	(.../Test.cls.xml)	(revision 44871)
@@ -513,6 +513,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Stap 2g voor Halux is ReqGroupId BTS Horate">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6792)
+	
+	#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,"BTS Horate")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeConverterenProduct">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>