Index: APPS/VisiDot/impl/CaptureHelper.cls.xml
===================================================================
diff -u -r1791 -r1808
--- APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1791)
+++ APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1808)
@@ -69,16 +69,23 @@
 </UDLText>
 
 <Method name="ZetError">
-<FormalSpec>FoutType,Titel,Omschrijving</FormalSpec>
+<FormalSpec>FoutType:APPS.VisiDot.enu.FoutTypes,Titel:%String,Omschrijving:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ..AddErrorMessage(Titel, Omschrijving)
 	Do ..ZetStatusLight(FoutType)
 	;Write "Capture zet error: ",FoutType," ",Titel," ",Omschrijving,!
 ]]></Implementation>
 </Method>
 
+<Method name="ZetOK">
+<Implementation><![CDATA[
+	Do ..ZetReadStatus(##class(APPS.VisiDot.enu.ResultCodes).Goed())
+	Do ..ZetStatusLight()
+]]></Implementation>
+</Method>
+
 <Method name="ZetStatusLight">
-<FormalSpec>FoutType</FormalSpec>
+<FormalSpec>FoutType:APPS.VisiDot.enu.FoutTypes=""</FormalSpec>
 <Implementation><![CDATA[
 	Set ERP=..GeefERP()
 	Set StatusLight=ERP.StatusLight.GetAt(1)
@@ -88,29 +95,36 @@
 		Do ERP.StatusLight.Insert(StatusLight)
 	}
 	
-	If ##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(..VorigFoutType)<##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(FoutType)
-	{
-		If FoutType=##class(APPS.VisiDot.enu.FoutTypes).Systeem()
+	If (FoutType '= ""){
+		If ##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(..VorigFoutType)<##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(FoutType)
 		{
-			Set StatusLight.Color="Red"
-			Set StatusLight.Time=10000
-			Set StatusLight.BuzzerStatus="Yes" 
-			Set StatusLight.BuzzerTime="2000"
+			If FoutType=##class(APPS.VisiDot.enu.FoutTypes).Systeem()
+			{
+				Set StatusLight.Color=##class(APPS.VisiDot.enu.DetectionKleur).Rood()
+				Set StatusLight.Time=10000
+				Set StatusLight.BuzzerStatus="Yes" 
+				Set StatusLight.BuzzerTime="2000"
+			}
+			ElseIf FoutType=##class(APPS.VisiDot.enu.FoutTypes).Fout()
+			{
+				Set StatusLight.Color=##class(APPS.VisiDot.enu.DetectionKleur).Rood()
+				Set StatusLight.Time=5000
+				Set StatusLight.BuzzerStatus="Yes" 
+				Set StatusLight.BuzzerTime="500"
+			}
+			ElseIf FoutType=##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing() 
+			{
+				Set StatusLight.Color=##class(APPS.VisiDot.enu.DetectionKleur).Rood()
+				Set StatusLight.Time=5000
+				Set StatusLight.BuzzerStatus="No" 
+				Set StatusLight.BuzzerTime="0"
+			}
 		}
-		ElseIf FoutType=##class(APPS.VisiDot.enu.FoutTypes).Fout()
-		{
-			Set StatusLight.Color="Red"
-			Set StatusLight.Time=5000
-			Set StatusLight.BuzzerStatus="Yes" 
-			Set StatusLight.BuzzerTime="500"
-		}
-		ElseIf FoutType=##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing() 
-		{
-			Set StatusLight.Color="Red"
-			Set StatusLight.Time=5000
-			Set StatusLight.BuzzerStatus="No" 
-			Set StatusLight.BuzzerTime="0"
-		}
+	}Else{		
+		Set StatusLight.Color=##class(APPS.VisiDot.enu.DetectionKleur).Groen()
+		Set StatusLight.Time=""
+		Set StatusLight.BuzzerStatus="No" 
+		Set StatusLight.BuzzerTime="0"
 	}
 ]]></Implementation>
 </Method>
@@ -124,6 +138,9 @@
 
 	Set ERP=..GeefERP()
 	Do ERP.ErrorMessage.Insert(ErrorMessage)
+	
+	/// ERP ReadStatus instellen
+	Do ..ZetReadStatus(##class(APPS.VisiDot.enu.ResultCodes).Fout())
 ]]></Implementation>
 </Method>
 
@@ -262,5 +279,14 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ZetReadStatus">
+<FormalSpec>Status:APPS.VisiDot.enu.ResultCodes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ERP=..GeefERP()
+	Set ERP.ReadStatus = Status
+]]></Implementation>
+</Method>
 </Class>
 </Export>