Index: APPS/CHUI/NativeCommandoService.cls.xml
===================================================================
diff -u -r29059 -r60822
--- APPS/CHUI/NativeCommandoService.cls.xml	(.../NativeCommandoService.cls.xml)	(revision 29059)
+++ APPS/CHUI/NativeCommandoService.cls.xml	(.../NativeCommandoService.cls.xml)	(revision 60822)
@@ -3,7 +3,7 @@
 <Class name="APPS.CHUI.NativeCommandoService">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="ShellExecute">
 <Description>
@@ -52,6 +52,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="DoInstructionAndRead">
+<FormalSpec>Actie:%String,Executable:%String,Parameter:%String,CHUIActief:%Boolean=$$$True</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Context.RuntimeContext).%New().ShellExecuteDirectAndRead(Actie,Executable,Parameter,CHUIActief)
+]]></Implementation>
+</Method>
+
 <Method name="ShellExecuteDirect">
 <FormalSpec>Actie:%String,Executable:%String,Parameter:%String</FormalSpec>
 <Private>1</Private>
@@ -81,6 +88,51 @@
 	Quit
 ]]></Implementation>
 </Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// opgelet: ook gebruikt in %ZSTART.int (%ZSTART.mac bestaat niet)
+
+]]></Content>
+</UDLText>
+
+<Method name="ReflectionRDPClientName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+ 
+	#dim Antwoord as %String =""
+	Use 0:(:/ECHO=0)
+	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_")")
+	}	
+	Q Antwoord
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// opgelet gebruikt in %ZSTART.int (%ZSTART.mac bestaat niet)
+
+]]></Content>
+</UDLText>
+
+<Method name="ReflectionComputerName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Antwoord as %String
+	Use 0:(:/ECHO=0)
+	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_")")
+	}
+	Q Antwoord
+]]></Implementation>
+</Method>
 </Class>