Index: APPS/VisiDot/impl/CaptureHelper.cls.xml
===================================================================
diff -u -r1839 -r1866
--- APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1839)
+++ APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1866)
@@ -141,11 +141,23 @@
 	
 	/// ERP ReadStatus instellen
 	Do ..ZetReadStatus(##class(APPS.VisiDot.enu.ResultCodes).Fout())
-	
 	Do ##class(vhLib.Logger).%New("APPS.VisiDot").Warning(Titel,Omschrijving)
 ]]></Implementation>
 </Method>
 
+<Method name="ZetGebruikersInfo">
+<FormalSpec>Info:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set UserInfo = ##class(APPS.VisiDot.dto.UserInfo).%New()
+	Set UserInfo.Text = Info
+	
+	If '$IsObject(..CaptureInfo.GUI.GetAt(1)){
+		Do ..CaptureInfo.GUI.Insert(##class(APPS.VisiDot.dto.GUI).%New())
+	}
+	Do ..CaptureInfo.GUI.GetAt(1).UserInfo.Insert(UserInfo)
+]]></Implementation>
+</Method>
+
 <Method name="ZetFoutCode">
 <FormalSpec>FoutCode:APPS.VisiDot.enu.FoutCodes</FormalSpec>
 <Implementation><![CDATA[