Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r2022 -r2028
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 2022)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 2028)
@@ -85,12 +85,29 @@
 Do ##class(zTryout.CSC.Try).Try4()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT KenmerkGroep, UnID, KenmerkNaam FROM Prod_Kenmerk.DataDefinitie WHERE Waarden is null OR Waarden = ''")
-	Do ResultSet.Execute()
-	While (ResultSet.Next())
+	s i = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProductIterator()
+	While (i.HasNext())
 	{
-		Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM(ResultSet.Data("KenmerkGroep"),ResultSet.Data("UnID"),ResultSet.Data("KenmerkNaam"))
+		set p = i.Next()
+		If (p.%Extends("DOM.PM.TBXProduct.TBXLade") && p.BevatBodem())
+		{
+			If (p.BevatVoorgezaagdeBodem())
+			{
+				If ('$Data(^PRBS("BS",p.GeefPRNr(),"PRBDHZ.001")))
+				{
+					w p.GeefPRNr()_" verwacht gezaagd, maar"_$S($Data(^PRBS("BS",p.GeefPRNr(),"PRBDHO.001")):" bevat strook",1:" geen bodem"),!
+					Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",p.GeefPRNr(),"MATKL","HS")
+				}
+			}
+			Else
+			{
+				If ('$Data(^PRBS("BS",p.GeefPRNr(),"PRBDHO.001")))
+				{
+					w p.GeefPRNr()_" verwacht strook maar"_$S($Data(^PRBS("BS",p.GeefPRNr(),"PRBDHZ.001")):" bevat gezaagd",1:" geen bodem"),!
+					Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",p.GeefPRNr(),"MATKL","HA")
+				}
+			}
+		}
 	}
 ]]></Implementation>
 </Method>