Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r29059 -r34431
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 34431)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="zTryout.WV.PM.Test">
 <IncludeCode>vhLib.Macro,Prod.Product</IncludeCode>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="IsRecentMaatwerkProduct">
 <FormalSpec>ProductID:%String</FormalSpec>
Index: zTryout/WV/PM/TBXBouwstenenFixer.cls.xml
===================================================================
diff -u
--- zTryout/WV/PM/TBXBouwstenenFixer.cls.xml	(revision 0)
+++ zTryout/WV/PM/TBXBouwstenenFixer.cls.xml	(revision 34431)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.PM.TBXBouwstenenFixer">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="RecalcAllTOBFabrPrep">
+<Description>
+Oproepen via 
+  d ##class(zTryout.WV.PM.TBXBouwstenenFixer).%New().RecalcAllTOBFabrPrep() </Description>
+<Implementation><![CDATA[
+	#dim SqlStatement As %String = ""
+	Set SqlStatement = "SELECT BS1.Moeder AS ProductID, BS1.ProductieVoorbereiding FROM DOM_PM_Bouwstenen.BouwsteenHalfFabr As BS1 " 
+		_ " JOIN Prod_Kenmerk.DataDefinitie As DDef ON (DDef.PRNr = BS1.Moeder) "
+		_ " WHERE (BS1.Moeder > 1400000) AND (BS1.BSKey [ 'PRTOB') AND (BS1.ProductieVoorbereiding is Null) AND (DDef.Kenmerk = 'TBX||BM') AND ($LIST(DDef.Waarden) = 'TOB') "
+		_ " GROUP BY BS1.Moeder "
+	
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,""))
+	
+	While (ResultSet.Next()) {
+		#dim ProductID As DOM.common.ProductID = ResultSet.GetDataByName("ProductID")
+		Write !,"PR: "_ProductID_"   ORD: "_($D(^ORD("IP",ProductID))>0)_"   OFF: "_($D(^KOFKLP(ProductID))>0)_" "
+		#dim GADataID As %String = ""
+		If ..CheckGADataExists(ProductID,.GADataID) {
+			Write "  "_GADataID
+			Do ..RecalcTOBFabrPrep(ProductID)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="RecalcTOBFabrPrep">
+<FormalSpec>ProductID:DOM.common.ProductID</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ModOpties As %String = "H"
+	
+	#dim sc As %Status = ##class(Prod.GAData.Product).KPRModify(ProductID,ModOpties,0)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,"Error bij KPRModify voor ProductID "_ProductID)
+	Write "   --> OK. "
+]]></Implementation>
+</Method>
+
+<Method name="CheckGADataExists">
+<FormalSpec><![CDATA[PRNr:%String,&GADataID:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set GADataID=$P(^KPR(PRNr,"G"),"\",13)
+	#dim blnExists As %Boolean = ##class(Prod.GAData.Product).%ExistsId(GADataID)
+	If $$$Not(blnExists) {
+		// No persistent object for GADataID 
+		Write !!,"Geen GAData Product gevonden voor PRNr "_PRNr_"  (GADataID="_GADataID_"). ",!
+		Read "Druk op een toets om verder te gaan ... ",Key
+		Write !!
+		Set GADataID=""
+	}
+	Quit blnExists
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>