Index: TECH/Context/RuntimeContext.cls.xml =================================================================== diff -u -r3760 -r3762 --- TECH/Context/RuntimeContext.cls.xml (.../RuntimeContext.cls.xml) (revision 3760) +++ TECH/Context/RuntimeContext.cls.xml (.../RuntimeContext.cls.xml) (revision 3762) @@ -184,16 +184,16 @@ Set IP = DeviceID } Else { Set ..ComputerNaam = DeviceID - if $ListFind(##class(TECH.Config.ConfigMgr).Instance().GetString("TerminalServers",""),$zcvt($Piece(..ComputerNaam,".",1),"U")) { + if $ListFind(##class(TECH.Config.ConfigMgr).Instance().GetString("TerminalServers",""),$$$UCase($Piece(..ComputerNaam,".",1))) { #dim RemoteDesktopClient as %String = ..ShellExecuteDirectAndRead("GETRDPCLIENTNAME","","",CHUIActief) If $$$HasLength(RemoteDesktopClient){ - if ($ListFind(##class(TECH.Config.ConfigMgr).Instance().GetString("TerminalServers",""),$ZCVT($Piece(RemoteDesktopClient,".",1),"U"),RemoteDesktopClient)) { + if ($ListFind(##class(TECH.Config.ConfigMgr).Instance().GetString("ThinClients",""),$$$UCase($Piece(RemoteDesktopClient,".",1)),RemoteDesktopClient)) { Set ..ComputerNaam = RemoteDesktopClient } else { ; geen omzetting. } } else { - Do ##class(vhLib.Logger).%New().ErrorMail("Reflection terminal emulatie", "Reflection vanuit RDP sessio op "_ ..ComputerNaam _" : Gebruik een terminalserver compatible Reflection configuratie bestand") + Do ##class(vhLib.Logger).%New().ErrorMail("Reflection terminal emulatie", "Reflection vanuit RDP session op "_ ..ComputerNaam _" : Gebruik een terminalserver compatible Reflection configuratie bestand") } } } @@ -227,7 +227,7 @@ Set:("" = ..ComputerNaam) ..ComputerNaam = ##class(TECH.Process).GeefClientHostName() } } - if $zcvt(..ComputerNaam,"U")="LOCALHOST" set ..ComputerNaam=$$$Server_".vanhoecke.be" + if $$$UCase(..ComputerNaam)="LOCALHOST" set ..ComputerNaam=$$$Server_".vanhoecke.be" Quit ..ComputerNaam ]]>