Index: AXimpl/Utils.cls.xml
===================================================================
diff -u -r43143 -r43212
--- AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 43143)
+++ AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 43212)
@@ -191,21 +191,21 @@
 	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
 	#dim StockNietStock As %String = Product.Basis.StockNietStock
 	#dim SubGroep As %String = Product.Klassificatie.SubGroep
-	#dim SubGroepBevatVPK As %Integer = $Find(SubGroep,"VPK/")
-	#dim SubGroepBevatVPA As %Integer = $Find(SubGroep,"VPA/")
+	#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 SubGroepBevatBROslashTA As %Integer = $Find(SubGroep,"BRO/TA")
+		#dim SubGroepBevatBROslashTA As %Boolean = ##class(TECH.StringUtils).Contains(SubGroep,"BRO/TA")
 		#dim Groep As %String = Product.Klassificatie.Groep
-		#dim GroepBevatYYY As %Integer = $Find(Groep,"YYY")
-		#dim GroepBevatDRU As %Integer = $Find(Groep,"DRU")
+		#dim GroepBevatYYY As %Boolean = ##class(TECH.StringUtils).Contains(Groep,"YYY")
+		#dim GroepBevatDRU As %Boolean = ##class(TECH.StringUtils).Contains(Groep,"DRU")
 		#dim HoofdGroep As %String = Product.Klassificatie.HoofdGroep
-		#dim HoofdGroepBevatZZ As %Integer = $Find(HoofdGroep,"ZZ")
-		#dim HoofdGroepBevatTA As %Integer = $Find(HoofdGroep,"TA")
-		#dim SubGroepBevatCAT As %Integer = $Find(SubGroep,"CAT")
+		#dim HoofdGroepBevatZZ As %Boolean = ##class(TECH.StringUtils).Contains(HoofdGroep,"ZZ")
+		#dim HoofdGroepBevatTA As %Boolean = ##class(TECH.StringUtils).Contains(HoofdGroep,"TA")
+		#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)-2,$Length(SubGroep))
 		#dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate(Product.BasisGetObjectId())
@@ -224,7 +224,7 @@
 		If ((SubGroepLaatsteDrieKarakters = "/OL") && (LeverancierNummer = "6051") && (DefaultOrderTypeVHBE = "Productie")) {
 			Set ReqGroupIdVH = "MTO"
 		} ElseIf (DefaultOrderTypeVHBE = "Aankooporder"){
-			If ((SubGroepBevatVPK '= 0) || (SubGroepBevatVPA '= 0)) {
+			If ((SubGroepBevatVPK) || (SubGroepBevatVPA)) {
 				Set ReqGroupIdVH = "Handmatig"
 			} ElseIf (StockNietStock '= "1") {
 				If (LeverancierNummer = "5005"){
@@ -237,9 +237,9 @@
 					Set ReqGroupIdVH = "BTO"
 				} ElseIf(ScanType > 0) {
 					Set ReqGroupIdVH = "Min/Max"
-				} ElseIf ((HoofdGroepBevatZZ '= 0) && (GroepBevatYYY '= 0) && (SubGroepBevatCAT '= 0)) {
+				} ElseIf ((HoofdGroepBevatZZ) && (GroepBevatYYY) && (SubGroepBevatCAT)) {
 					Set ReqGroupIdVH = "Handmatig"
-				} ElseIf ((HoofdGroepBevatTA '= 0) && (GroepBevatDRU '= 0) && (SubGroepBevatBROslashTA '= 0)) {
+				} ElseIf ((HoofdGroepBevatTA) && (GroepBevatDRU) && (SubGroepBevatBROslashTA)) {
 					Set ReqGroupIdVH = "Handmatig"
 				} ElseIf (LeverancierNummer = "5005"){
 					Set ReqGroupIdVH = "Blum"_LeveringsDagen_"d ND"
@@ -266,7 +266,7 @@
 		
 		If ((StockNietStock = "1") && (SubGroepEersteVierKarakters = "12AL")) {
 			Set ReqGroupIdHLX = "MTS-1W"
-		}ElseIf (((SubGroepBevatVPK '= 0) || (SubGroepBevatVPA '= 0)) && (DefaultOrderTypeHLX ="Aankooporder")) {
+		}ElseIf (((SubGroepBevatVPK) || (SubGroepBevatVPA)) && (DefaultOrderTypeHLX ="Aankooporder")) {
 			Set ReqGroupIdHLX = "Handmatig"
 		}ElseIf ((Herbestelsurplus = "") && (Herbestelafronding ="") && (LeverancierNummer = "6051")) {
 			Set ReqGroupIdHLX = "BTO"