Index: APPS/VisiDot/impl/CaptureHelper.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1749)
@@ -12,10 +12,12 @@
 
 <Property name="CaptureInfo">
 <Type>APPS.VisiDot.dto.CaptureInfo</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="VorigFoutType">
 <Type>APPS.VisiDot.enu.FoutTypes</Type>
+<Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
@@ -71,7 +73,7 @@
 <Implementation><![CDATA[
 	Do ..AddErrorMessage(Titel, Omschrijving)
 	Do ..ZetStatusLight(FoutType)
-	Write "Capture zet error: ",FoutType," ",Titel," ",Omschrijving,!
+	;Write "Capture zet error: ",FoutType," ",Titel," ",Omschrijving,!
 ]]></Implementation>
 </Method>
 
@@ -86,7 +88,7 @@
 		Do ERP.StatusLight.Insert(StatusLight)
 	}
 	
-	If ..FoutType2Prioriteit(..VorigFoutType)<..FoutType2Prioriteit(FoutType)
+	If ##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(..VorigFoutType)<##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(FoutType)
 	{
 		If FoutType=##class(APPS.VisiDot.enu.FoutTypes).Systeem()
 		{
@@ -113,16 +115,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="FoutType2Prioriteit">
-<FormalSpec>FoutType</FormalSpec>
-<Implementation><![CDATA[
-	Quit:FoutType=##class(APPS.VisiDot.enu.FoutTypes).Systeem() 9
-	Quit:FoutType=##class(APPS.VisiDot.enu.FoutTypes).Fout() 5
-	Quit:FoutType=##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing() 2
-	Quit 0
-]]></Implementation>
-</Method>
-
 <Method name="AddErrorMessage">
 <FormalSpec>Titel,Omschrijving</FormalSpec>
 <Implementation><![CDATA[
@@ -135,6 +127,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetFoutCode">
+<FormalSpec>FoutCode:APPS.VisiDot.enu.FoutCodes</FormalSpec>
+<Implementation><![CDATA[
+	Quit:##class(APPS.VisiDot.enu.FoutCodes).GeefPrioriteit(..GeefERPSleutelWaarde("FoutCode"))>##class(APPS.VisiDot.enu.FoutCodes).GeefPrioriteit(FoutCode)
+	Do ..ZetERPSleutelWaarde("FoutCode",FoutCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFoutCode">
+<ReturnType>APPS.VisiDot.enu.FoutCodes</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefERPSleutelWaarde("FoutCode")
+]]></Implementation>
+</Method>
+
 <Method name="GeefERP">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -154,38 +160,63 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZoekSleutel">
-<FormalSpec>List,Sleutel</FormalSpec>
+<Method name="GeefDirector">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Quit:'$isObject(List) ""
-	Set it=##class(TECH.ListIterator).%New(List)
-	Set Found=0
-	While (it.HasNext()) && ('Found)
+	If '$isobject(..CaptureInfo.Director)
 	{
-		Set ReadData=it.Next()
-		Continue:'$isobject(ReadData)
-		Set:ReadData.Name=Sleutel Found=1
+		 Set ..CaptureInfo.Director=##class(%ListOfObject).%New()
 	}
-	Quit:'Found ""
-	Quit ReadData
+	
+	Set Director=..CaptureInfo.Director.GetAt(1)
+	
+	If '$isObject(Director)
+	{
+		Set Director=##class(APPS.VisiDot.dto.Director).%New()
+		Do ..CaptureInfo.Director.Insert(Director)
+	}
+	Quit Director
 ]]></Implementation>
 </Method>
 
-<Method name="GeefSleutelWaarde">
+<Method name="GeefDirectorSleutelWaarde">
 <FormalSpec>Sleutel</FormalSpec>
 <Implementation><![CDATA[
+	Quit:'$isobject(..CaptureInfo.Director) ""
+	Set Director=..CaptureInfo.Director.GetAt(1)
+	Quit:'$isObject(Director) ""
+	Quit:'$isObject(Director.ReadData) ""
+	
+	Set ReadData=..ZoekSleutel(Director.ReadData,Sleutel)
+	Quit:'$isObject(ReadData) ""
+	Quit ReadData.Value
+]]></Implementation>
+</Method>
+
+<Method name="ZetDirectorSleutelWaarde">
+<FormalSpec>Sleutel,Waarde</FormalSpec>
+<Implementation><![CDATA[
+	Set Director=..GeefDirector()
+	Set:'$isObject(Director.ReadData) Director.ReadData=##class(%ListOfObject).%New()
+	Do ..AddSleutelWaarde(Director.ReadData,Sleutel,Waarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefERPSleutelWaarde">
+<FormalSpec>Sleutel</FormalSpec>
+<Implementation><![CDATA[
 	Quit:'$isobject(..CaptureInfo.ERP) ""
 	Set ERP=..CaptureInfo.ERP.GetAt(1)
 	Quit:'$isObject(ERP) ""
 	Quit:'$isObject(ERP.ReadData) ""
 	
-	Set ReadData=..ZoekSleutel(List,Sleutel)
-	Quit ReadData.Waarde
+	Set ReadData=..ZoekSleutel(ERP.ReadData,Sleutel)
+	Quit:'$isObject(ReadData) ""
+	Quit ReadData.Value
 ]]></Implementation>
 </Method>
 
-<Method name="ZetSleutelWaarde">
+<Method name="ZetERPSleutelWaarde">
 <FormalSpec>Sleutel,Waarde</FormalSpec>
 <Implementation><![CDATA[
 	Set ERP=..GeefERP()
@@ -194,10 +225,27 @@
 ]]></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,Waarde</FormalSpec>
 <Implementation><![CDATA[
-
 	Set ReadData=..ZoekSleutel(List,Sleutel)
 	If $isobject(ReadData)
 	{