4. Mai 2010 11:46
4. Mai 2010 11:52
GetClientType() : Text[30]
// > TL6.00:05 >>>
// +------------------------------------------------------------------------+
// | Based on the idea of Eric Wauters a.k.a. 'waldo' |
// | http://dynamicsuser.net/blogs/waldo/archive/2009/12/01/where-am-i.aspx |
// +------------------------------------------------------------------------+
IF ISSERVICETIER THEN
IF GUIALLOWED THEN
EXIT(SELECTSTR(3,Text0001)) // Role Tailored Client (RTC)
ELSE
EXIT(SELECTSTR(4,Text0001)) // Web Service (WS)
ELSE
IF GUIALLOWED THEN
EXIT(SELECTSTR(1,Text0001)) // Classic Client (CC)
ELSE
EXIT(SELECTSTR(2,Text0001)) // NAV Application Server (NAS)
// < TL6.00:05 <<<
Name ConstValue
Text0001 CC,NAS,RTC,WS