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>
Index: APPS/VisiDot/impl/VHossCaptureHelper.cls.xml
===================================================================
diff -u -r1764 -r1774
--- APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 1764)
+++ APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 1774)
@@ -93,16 +93,16 @@
 <Method name="GeefBatchID">
 <Implementation><![CDATA[
 	
-	Quit ..GeefDirectorSleutelWaarde("OrderID")
+	Quit ..GeefERPSleutelWaarde("OrderID")
 ]]></Implementation>
 </Method>
 
 <Method name="ZetBatchID">
 <FormalSpec>BatchID</FormalSpec>
 <Implementation><![CDATA[
 	
-	Do ..ZetDirectorSleutelWaarde("OrderID",BatchID)
-	Do ..ZetERPSleutelWaarde("BatchID",BatchID)
+	;Do ..ZetDirectorSleutelWaarde("OrderID",BatchID)
+	Do ..ZetERPSleutelWaarde("BatchID",BatchID,1)
 ]]></Implementation>
 </Method>
 
Index: APPS/VisiDot/dto/ReadData.cls.xml
===================================================================
diff -u -r1717 -r1774
--- APPS/VisiDot/dto/ReadData.cls.xml	(.../ReadData.cls.xml)	(revision 1717)
+++ APPS/VisiDot/dto/ReadData.cls.xml	(.../ReadData.cls.xml)	(revision 1774)
@@ -3,6 +3,7 @@
 <Class name="APPS.VisiDot.dto.ReadData">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="XMLNAME">
 <Default>Read_Data</Default>
@@ -29,5 +30,12 @@
 <Parameter name="XMLNAME" value="Value"/>
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
+
+<Property name="Preserved">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Preserved"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
 </Class>
 </Export>