Index: APPS/VisiDot/impl/CaptureHelper.cls.xml
===================================================================
diff -u -r1808 -r1839
--- APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1808)
+++ APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1839)
@@ -130,7 +130,7 @@
 </Method>
 
 <Method name="AddErrorMessage">
-<FormalSpec>Titel,Omschrijving</FormalSpec>
+<FormalSpec>Titel:%String,Omschrijving:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ErrorMessage=##class(APPS.VisiDot.dto.ErrorMessage).%New()
 	Set ErrorMessage.Message=Omschrijving
@@ -141,6 +141,8 @@
 	
 	/// ERP ReadStatus instellen
 	Do ..ZetReadStatus(##class(APPS.VisiDot.enu.ResultCodes).Fout())
+	
+	Do ##class(vhLib.Logger).%New("APPS.VisiDot").Warning(Titel,Omschrijving)
 ]]></Implementation>
 </Method>
 
@@ -204,7 +206,7 @@
 	Quit:'$isObject(Director) ""
 	Quit:'$isObject(Director.ReadData) ""
 	
-	Set ReadData=..ZoekSleutel(Director.ReadData,Sleutel)
+	Set ReadData=##class(APPS.VisiDot.impl.Tech).ZoekSleutel(Director.ReadData,Sleutel)
 	Quit:'$isObject(ReadData) ""
 	Quit ReadData.Value
 ]]></Implementation>
@@ -215,7 +217,7 @@
 <Implementation><![CDATA[
 	Set Director=..GeefDirector()
 	Set:'$isObject(Director.ReadData) Director.ReadData=##class(%ListOfObject).%New()
-	Do ..AddSleutelWaarde(Director.ReadData,Sleutel,Waarde, BewaarVoorHergebruik)
+	Do ##class(APPS.VisiDot.impl.Tech).AddSleutelWaarde(Director.ReadData,Sleutel,Waarde, BewaarVoorHergebruik)
 ]]></Implementation>
 </Method>
 
@@ -227,7 +229,7 @@
 	Quit:'$isObject(ERP) ""
 	Quit:'$isObject(ERP.ReadData) ""
 	
-	Set ReadData=..ZoekSleutel(ERP.ReadData,Sleutel)
+	Set ReadData=##class(APPS.VisiDot.impl.Tech).ZoekSleutel(ERP.ReadData,Sleutel)
 	Quit:'$isObject(ReadData) ""
 	Quit ReadData.Value
 ]]></Implementation>
@@ -238,48 +240,10 @@
 <Implementation><![CDATA[
 	Set ERP=..GeefERP()
 	Set:'$isObject(ERP.ReadData) ERP.ReadData=##class(%ListOfObject).%New()
-	Do ..AddSleutelWaarde(ERP.ReadData,Sleutel,Waarde, BewaarVoorHergebruik)
+	Do ##class(APPS.VisiDot.impl.Tech).AddSleutelWaarde(ERP.ReadData,Sleutel,Waarde, BewaarVoorHergebruik)
 ]]></Implementation>
 </Method>
 
-<Method name="ZoekSleutel">
-<FormalSpec>List,Sleutel</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Quit:'$isObject(List) ""
-	Set it=##class(TECH.ListIterator).%New(List)
-	Set Found=0
-	While (it.HasNext()) && ('Found)
-	{
-		Set ReadData=it.Next()
-		Continue:'$isobject(ReadData)
-		Set:ReadData.Name=Sleutel Found=1
-	}
-	Quit:'Found ""
-	Quit ReadData
-]]></Implementation>
-</Method>
-
-<Method name="AddSleutelWaarde">
-<FormalSpec>List,Sleutel:%String,Waarde:%String,BewaarVoorHergebruik:%Boolean=0</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:(BewaarVoorHergebruik'=0) ReadData.Preserved=BewaarVoorHergebruik
-		Do List.Insert(ReadData)
-	}
-]]></Implementation>
-</Method>
-
 <Method name="ZetReadStatus">
 <FormalSpec>Status:APPS.VisiDot.enu.ResultCodes</FormalSpec>
 <Private>1</Private>