Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r2028 -r2034
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 2028)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 2034)
@@ -85,7 +85,8 @@
 Do ##class(zTryout.CSC.Try).Try4()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	s i = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProductIterator()
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	s i = ProductAPI.GeefProductIterator()
 	While (i.HasNext())
 	{
 		set p = i.Next()
@@ -95,16 +96,23 @@
 			{
 				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")
+					w "    "_p.GeefPRNr()_" verwacht gezaagd, maar"_$S($Data(^PRBS("BS",p.GeefPRNr(),"PRBDHO.001")):" bevat strook",1:" geen bodem")
+					s product = ProductAPI.GeefProduct($Piece(^PRBS("BS",p.GeefPRNr(),"PRBDHO.001"),"\"))
+					w " "_product.GeefKorttekst(),!
+					//w "Set ^PRBS(""BS"","_p.GeefPRNr()_",""PRBDHZ.001"") = """_^PRBS("BS",p.GeefPRNr(),"PRBDHO.001")_"""",!
+					//w "Set ^PRBS(""IP"","_$P(^PRBS("BS",p.GeefPRNr(),"PRBDHO.001"),"\")_","_p.GeefPRNr()_",""PRBDHZ.001"") = ""H""",!
+					//w "Kill ^PRBS(""BS"","_p.GeefPRNr()_",""PRBDHO.001"")",!
+					//w "Kill ^PRBS(""IP"","_$P(^PRBS("BS",p.GeefPRNr(),"PRBDHO.001"),"\")_","_p.GeefPRNr()_",""PRBDHO.001"")",!
 				}
 			}
 			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")
+					w p.GeefPRNr()_" verwacht strook maar"_$S($Data(^PRBS("BS",p.GeefPRNr(),"PRBDHZ.001")):" bevat gezaagd",1:" geen bodem")
+					s product = ProductAPI.GeefProduct($Piece(^PRBS("BS",p.GeefPRNr(),"PRBDHZ.001"),"\"))
+					w " "_product.GeefKorttekst(),!
+					//w "Do ##class(Prod.Kenmerk.DataDefinitie).Set(""TBX"","_p.GeefPRNr()_",""MATKL"",""HA"")",!
 				}
 			}
 		}
Index: DOM/PM/impl/DataM/Bouwsteen.cls.xml
===================================================================
diff -u -r1354 -r2034
--- DOM/PM/impl/DataM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 1354)
+++ DOM/PM/impl/DataM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 2034)
@@ -46,6 +46,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="IsModified">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..IsModified
@@ -111,5 +116,16 @@
 	Quit Status
 ]]></Implementation>
 </Method>
+
+<Method name="%OnConstructClone">
+<FormalSpec><![CDATA[object:%RegisteredObject,deep:%Boolean=0,&cloned:%String]]></FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	// Zeker de get triggeren wanneer een clone wordt gemaakt
+	Set Record = ..BouwsteenRecord
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhDeploy/CSC/Deploy20110912x0941.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20110912x0941.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20110912x0941.cls.xml	(revision 2034)
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20110912x0941">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^PRBS("BS",90631,"PRBDHZ.001") = "561579\1\H\\\\\\\\\\\\"
+	Set ^PRBS("IP",561579,90631,"PRBDHZ.001") = "H"
+	Kill ^PRBS("BS",90631,"PRBDHO.001")
+	Kill ^PRBS("IP",561579,90631,"PRBDHO.001")
+	Set ^PRBS("BS",90632,"PRBDHZ.001") = "561580\1\H\\\\\\\\\\\\"
+	Set ^PRBS("IP",561580,90632,"PRBDHZ.001") = "H"
+	Kill ^PRBS("BS",90632,"PRBDHO.001")
+	Kill ^PRBS("IP",561580,90632,"PRBDHO.001")
+	Set ^PRBS("BS",90633,"PRBDHZ.001") = "561581\1\H\\\\\\\\\\\\"
+	Set ^PRBS("IP",561581,90633,"PRBDHZ.001") = "H"
+	Kill ^PRBS("BS",90633,"PRBDHO.001")
+	Kill ^PRBS("IP",561581,90633,"PRBDHO.001")
+	Set ^PRBS("BS",90634,"PRBDHZ.001") = "561583\1\H\\\\\\\\\\\\"
+	Set ^PRBS("IP",561583,90634,"PRBDHZ.001") = "H"
+	Kill ^PRBS("BS",90634,"PRBDHO.001")
+	Kill ^PRBS("IP",561583,90634,"PRBDHO.001")
+	Set ^PRBS("BS",90635,"PRBDHZ.001") = "561584\1\H\\\\\\\\\\\\"
+	Set ^PRBS("IP",561584,90635,"PRBDHZ.001") = "H"
+	Kill ^PRBS("BS",90635,"PRBDHO.001")
+	Kill ^PRBS("IP",561584,90635,"PRBDHO.001")
+	Set ^PRBS("BS",90636,"PRBDHZ.001") = "561581\1\H\\\\\\\\\\\\"
+	Set ^PRBS("IP",561581,90636,"PRBDHZ.001") = "H"
+	Kill ^PRBS("BS",90636,"PRBDHO.001")
+	Kill ^PRBS("IP",561581,90636,"PRBDHO.001")
+	Set ^PRBS("BS",90637,"PRBDHZ.001") = "561583\1\H\\\\\\\\\\\\"
+	Set ^PRBS("IP",561583,90637,"PRBDHZ.001") = "H"
+	Kill ^PRBS("BS",90637,"PRBDHO.001")
+	Kill ^PRBS("IP",561583,90637,"PRBDHO.001")
+	Set ^PRBS("BS",90638,"PRBDHZ.001") = "561584\1\H\\\\\\\\\\\\"
+	Set ^PRBS("IP",561584,90638,"PRBDHZ.001") = "H"
+	Kill ^PRBS("BS",90638,"PRBDHO.001")
+	Kill ^PRBS("IP",561584,90638,"PRBDHO.001")
+	Set ^PRBS("BS",91017,"PRBDHZ.001") = "561573\1\H\\\\\\\\\\\\"
+	Set ^PRBS("IP",561573,91017,"PRBDHZ.001") = "H"
+	Kill ^PRBS("BS",91017,"PRBDHO.001")
+	Kill ^PRBS("IP",561573,91017,"PRBDHO.001")
+	Set ^PRBS("BS",115422,"PRBDHZ.001") = "561586\1\H\\\\\\\\\\\\"
+	Set ^PRBS("IP",561586,115422,"PRBDHZ.001") = "H"
+	Kill ^PRBS("BS",115422,"PRBDHO.001")
+	Kill ^PRBS("IP",561586,115422,"PRBDHO.001")
+	
+	Set ^PRBS("BS",315684,"PRBDHO.001") = "568123\1\H\\\\\\\7\HOUT\\\\\1\\Bodem\"
+	Set ^PRBS("BS",315684,"PRBDHO.001","D") = "788\791\909.65"
+	Set ^PRBS("IP",568123,315684,"PRBDHO.001") = "H"
+	Kill ^PRBS("BS",315684,"PRBDHZ.001")
+	Kill ^PRBS("IP",568123,315684,"PRBDHZ.001")
+	
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246806,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246883,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246917,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246919,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246920,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246921,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246925,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246926,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246928,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246930,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246933,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246938,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246941,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",246943,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",248829,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",249305,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",249306,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",249317,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",251525,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",252278,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",252281,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",252282,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",254340,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",254845,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",254846,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",255777,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",259549,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",260748,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",260749,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",261932,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",261940,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",261953,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",262803,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",268313,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",272153,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",275399,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",275475,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",275490,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",281149,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",283292,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",287703,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",290115,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",293631,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",293632,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",296138,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",296154,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",298486,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",298487,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",299882,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",299891,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",299894,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",299895,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",299897,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",301685,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",307792,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",307797,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",311934,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",316566,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",316568,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",318719,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",318740,"MATKL","HA")
+	Do ##class(Prod.Kenmerk.DataDefinitie).Set("TBX",331125,"MATKL","HA")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CSC Productie.prj.xml
===================================================================
diff -u -r1021 -r2034
--- CSC Productie.prj.xml	(.../CSC Productie.prj.xml)	(revision 1021)
+++ CSC Productie.prj.xml	(.../CSC Productie.prj.xml)	(revision 2034)
@@ -1,11 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:21">
-<Project name="CSC Productie" LastModified="2011-02-16 09:58:21">
+<Export generator="Cache" version="9">
+<Project name="CSC Productie" LastModified="2011-09-09 15:05:30">
   <Items>
     <ProjectItem name="BL.PPS.TBX.DocsProPlus" type="CLS"/>
     <ProjectItem name="BL.PPS.TBX.DocsV1" type="CLS"/>
     <ProjectItem name="BL.PPS.TBX.LijstDefinities.RelingLijstDefinitie" type="CLS"/>
     <ProjectItem name="CHUI.PPS.TBX.LeanBatch" type="CLS"/>
+    <ProjectItem name="DOM.PM.TBXProduct.TBXBodem" type="CLS"/>
+    <ProjectItem name="DOM.PM.TBXProduct.TBXLade" type="CLS"/>
+    <ProjectItem name="DOM.PM.TBXProduct.impl.TBXBodemImpl" type="CLS"/>
+    <ProjectItem name="DOM.PM.TBXProduct.impl.TBXLadeImpl" type="CLS"/>
     <ProjectItem name="DS.PPS.TBX.Batch" type="CLS"/>
     <ProjectItem name="HADTBXPrep.MAC" type="MAC"/>
     <ProjectItem name="TECH.Comparator.IComparator" type="CLS"/>
@@ -20,5 +24,4 @@
     <ProjectItem name="zTryout.CSC.ZoekTypeProduct" type="CLS"/>
   </Items>
 </Project>
-<Checksum value="3005561481"/>
 </Export>
Index: DOM/PM/Bouwsteen.cls.xml
===================================================================
diff -u -r1336 -r2034
--- DOM/PM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 1336)
+++ DOM/PM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 2034)
@@ -10,6 +10,12 @@
 <ReturnType>%String</ReturnType>
 </Method>
 
+<Method name="ZetID">
+<Abstract>1</Abstract>
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="IsModified">
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>