Index: TECH/Context/RuntimeContext.cls.xml =================================================================== diff -u -r229 -r243 --- TECH/Context/RuntimeContext.cls.xml (.../RuntimeContext.cls.xml) (revision 229) +++ TECH/Context/RuntimeContext.cls.xml (.../RuntimeContext.cls.xml) (revision 243) @@ -101,15 +101,20 @@ If (GebruikerInitialen = "") { If $$$Not(##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()["DMZ"){ - Set GebruikerInitialen = $$USERNAME^vhUSER(,-1) + #dim GebruikerID = ..GeefGebruikerID() + if $length(GebruikerID) { + set GebruikerInitialen = $$USERNAME^vhUSER($piece(GebruikerID,"||",2),-1) + } else { + set GebruikerInitialen = $$USERNAME^vhUSER(,-1) + } } } If (GebruikerInitialen = "") { Set GebruikerInitialen = "SYS" } - Quit GebruikerInitialen + Quit $zconvert(GebruikerInitialen,"U") ]]>