Index: APPS/VisiDot/impl/CaptureHelper.cls.xml
===================================================================
diff -u -r1774 -r1791
--- APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1774)
+++ APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1791)
@@ -160,11 +160,9 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method GeefDirector() [ Private ]
-{
+<Method name="GeefDirector">
+<Private>1</Private>
+<Implementation><![CDATA[
 	If '$isobject(..CaptureInfo.Director)
 	{
 		 Set ..CaptureInfo.Director=##class(%ListOfObject).%New()
@@ -178,10 +176,12 @@
 		Do ..CaptureInfo.Director.Insert(Director)
 	}
 	Quit Director
-}
+]]></Implementation>
+</Method>
 
-Method GeefDirectorSleutelWaarde(Sleutel)
-{
+<Method name="GeefDirectorSleutelWaarde">
+<FormalSpec>Sleutel</FormalSpec>
+<Implementation><![CDATA[
 	Quit:'$isobject(..CaptureInfo.Director) ""
 	Set Director=..CaptureInfo.Director.GetAt(1)
 	Quit:'$isObject(Director) ""
@@ -190,17 +190,17 @@
 	Set ReadData=..ZoekSleutel(Director.ReadData,Sleutel)
 	Quit:'$isObject(ReadData) ""
 	Quit ReadData.Value
-}
+]]></Implementation>
+</Method>
 
-Method ZetDirectorSleutelWaarde(Sleutel,Waarde)
-{
+<Method name="ZetDirectorSleutelWaarde">
+<FormalSpec>Sleutel:%String,Waarde:%String,BewaarVoorHergebruik:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[
 	Set Director=..GeefDirector()
 	Set:'$isObject(Director.ReadData) Director.ReadData=##class(%ListOfObject).%New()
-	Do ..AddSleutelWaarde(Director.ReadData,Sleutel,Waarde)
-}
-*/
-]]></Content>
-</UDLText>
+	Do ..AddSleutelWaarde(Director.ReadData,Sleutel,Waarde, BewaarVoorHergebruik)
+]]></Implementation>
+</Method>
 
 <Method name="GeefERPSleutelWaarde">
 <FormalSpec>Sleutel</FormalSpec>
@@ -217,11 +217,11 @@
 </Method>
 
 <Method name="ZetERPSleutelWaarde">
-<FormalSpec>Sleutel,Waarde,BewaarVoorHergebruik</FormalSpec>
+<FormalSpec>Sleutel:%String,Waarde:%String,BewaarVoorHergebruik:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	Set ERP=..GeefERP()
 	Set:'$isObject(ERP.ReadData) ERP.ReadData=##class(%ListOfObject).%New()
-	Do ..AddSleutelWaarde(ERP.ReadData,Sleutel,Waarde)
+	Do ..AddSleutelWaarde(ERP.ReadData,Sleutel,Waarde, BewaarVoorHergebruik)
 ]]></Implementation>
 </Method>
 
@@ -244,7 +244,7 @@
 </Method>
 
 <Method name="AddSleutelWaarde">
-<FormalSpec>List,Sleutel,Waarde,BewaarVoorHergebruik</FormalSpec>
+<FormalSpec>List,Sleutel:%String,Waarde:%String,BewaarVoorHergebruik:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	Set ReadData=..ZoekSleutel(List,Sleutel)
 	If $isobject(ReadData)
@@ -257,7 +257,7 @@
 		Set ReadData=##class(APPS.VisiDot.dto.ReadData).%New()
 		Set ReadData.Name=Sleutel
 		Set ReadData.Value=Waarde
-		Set:$G(BewaarVoorHergebruik) ReadData.Preserved=BewaarVoorHergebruik
+		Set:(BewaarVoorHergebruik'=0) ReadData.Preserved=BewaarVoorHergebruik
 		Do List.Insert(ReadData)
 	}
 ]]></Implementation>