Index: APPS/CHUI/NativeCommandoService.cls.xml
===================================================================
diff -u -r60822 -r74593
--- APPS/CHUI/NativeCommandoService.cls.xml	(.../NativeCommandoService.cls.xml)	(revision 60822)
+++ APPS/CHUI/NativeCommandoService.cls.xml	(.../NativeCommandoService.cls.xml)	(revision 74593)
@@ -105,13 +105,30 @@
 	Write "ReflectionGetRDPClientName"
 	Read Antwoord:1
 	Use 0:(:/ECHO=1)
-	if $$$Not($$$HasLength(Antwoord)){
-		do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events out of date voor reflection ("_$io_")")
+	If $$$Not($$$HasLength(Antwoord)){
+		Do ##class(vhLib.Logger).%New("Reflection terminal emulatie").Info("ReflectionRDPClientName", "VBA code en/of events (RDPClientName) out of date voor reflection ("_$io_")")
+		Do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events (RDPUserName out of date voor reflection ("_$io_")")
 	}	
-	Q Antwoord
+	Quit Antwoord
 ]]></Implementation>
 </Method>
 
+<Method name="ReflectionRDPUserName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Antwoord as %String =""
+	Use 0:(:/ECHO=0)
+	Write "ReflectionGetUsername"
+	Read Antwoord:2
+	Use 0:(:/ECHO=1)
+	If $$$Not($$$HasLength(Antwoord)){
+		Do ##class(vhLib.Logger).%New("Reflection terminal emulatie").Info("ReflectionRDPUserName", "VBA code en/of events (RDPUserName out of date voor reflection ("_$io_")")
+		Do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events (RDPUserName out of date voor reflection ("_$io_")")
+	}	
+	Quit Antwoord
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 // opgelet gebruikt in %ZSTART.int (%ZSTART.mac bestaat niet)
@@ -122,15 +139,16 @@
 <Method name="ReflectionComputerName">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Antwoord as %String
+	#dim Antwoord as %String = ""
 	Use 0:(:/ECHO=0)
-	Write "ReflectionGetComputerName"
+	Write "ReflectionGetComputerName "
 	Read Antwoord:1
 	Use 0:(:/ECHO=1)
-	if $$$Not($$$HasLength(Antwoord)){
-		do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events out of date voor reflection ("_$io_")")
+	If $$$Not($$$HasLength(Antwoord)){
+		Do ##class(vhLib.Logger).%New("Reflection terminal emulatie").Info("ReflectionComputerName","VBA code en/of events (ReflectionComputerName out of date voor reflection ("_$io_")")
+		Do SendMiniMailForced^vhLib.Mail("cachelogin@vanhoecke.be",$LB("ict_meldingen@vanhoecke.be","jo.willems@vanhoecke.be"),"Reflection terminal emulatie", "VBA code en/of events (ReflectionComputerName) out of date voor reflection ("_$io_")")
 	}
-	Q Antwoord
+	Quit Antwoord
 ]]></Implementation>
 </Method>
 </Class>