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