Index: AXimpl/Utils.cls.xml
===================================================================
diff -u -r46306 -r46404
--- AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 46306)
+++ AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 46404)
@@ -223,6 +223,9 @@
 	
 	If Firma = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
 		#dim DefaultOrderTypeVHBE As %String = ..ConvertDefaultOrderType(Firma,Product)
+		#dim KortTekst As %String = Product.Basis.KortTekst
+		#dim KortTekstOL As %Boolean = ($Extract(KortTekst,1,2) = "OL")
+		#dim KortTekstTA As %Boolean = ($Extract(KortTekst,1,2) = "TA")
 		#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/")
@@ -233,9 +236,9 @@
 		#dim HoofdGroep As %String = Product.Klassificatie.HoofdGroep
 		#dim HoofdGroepBevatZZ As %Boolean = ##class(TECH.StringUtils).Contains(HoofdGroep,"ZZ")
 		#dim HoofdGroepBevatTA As %Boolean = ##class(TECH.StringUtils).Contains(HoofdGroep,"TA")
+		#dim HoofdGroepBevatOL As %Boolean = ##class(TECH.StringUtils).Contains(HoofdGroep,"OL")
 		#dim SubGroepBevatCAT As %Boolean = ##class(TECH.StringUtils).Contains(SubGroep,"CAT")
 		#dim ScanType As %String = Product.Basis.ScanType
-		#dim SubGroepLaatsteDrieKarakters As %String = $Extract(SubGroep,$Length(SubGroep)-3,$Length(SubGroep)-1) // SubGroep eindigt met een spatie
 		#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate(Product.BasisGetObjectId())
 		#dim LeveringsDagen As %Integer = $$$If(ScanType="L",6,$$$If(VoorraadInstelling.LeveringsDagen=5,6,VoorraadInstelling.LeveringsDagen)) // Voor Logsteuer hardcoded op 6 en sowieso 5 ook op 6 zetten volgens sprint 12 analyse
 		#dim Exceptiestring As %String = "Voor product "_Product.BasisGetObjectId()_" zijn er meer dan 99 LeveringsDagen berekend, nml.: "_LeveringsDagen
@@ -249,7 +252,7 @@
 			Set LeveringsDagen = ##class(TECH.StringUtils).AddLeadingChar(LeveringsDagen,"0",2)
 		}
 		
-		If ((SubGroepLaatsteDrieKarakters = "/OL") && (LeverancierNummer = "6051") && (DefaultOrderTypeVHBE = "Productie")) {
+		If ((HoofdGroepBevatOL || HoofdGroepBevatTA) && (KortTekstOL || KortTekstTA) && (LeverancierNummer = "6051") && (DefaultOrderTypeVHBE = "Productie")) {
 			Set ReqGroupId = "MTO"
 		} ElseIf (DefaultOrderTypeVHBE = "Aankooporder"){
 			If ((SubGroepBevatVPK) || (SubGroepBevatVPA)) {
@@ -262,7 +265,7 @@
 				}
 			} ElseIf (StockNietStock = "1") {
 				If (PrimaryVendorId = "06332") {
-					Set ReqGroupId = "BTO"
+					Set ReqGroupId = "BTO Halux"
 				} ElseIf ((LeverancierNummer = "6051") && (ScanType '> 0)) {
 					Set ReqGroupId = "MTO"
 				} ElseIf (ScanType > 0) {