GetRemoteType

GetRemoteType ( [ @cLibVersion] ) --> nRet

(numerico)
• Retorna o número correspondente ao sistema operacional, em uso, que o Smart Client está sendo executado. Sendo: -1 = Job, Web ou Working Thread (Sem remote); 1 = Ambiente Microsoft Windows ou 2 = Ambiente Linux/Unix.

GetRemoteType( @cLib )
QOut( cLib ) // -> "QT-4.5.2 WIN"

Tipos de Retorno

-1 = A execução do programa não utiliza o Smart Client, geralmente é um JOB.

0 = Smart Client das versões 6 e 7 em ambiente Windows.

1 = Smart Client das verões 8 e 10 em ambiente Windows (*).

2 = Smart Client das verões 8 e 10 em ambiente Linux /MacOS (*).

3 = Não utilizado.

4 = Sessão TELNET do módulo 4GL.

5 = Smart Client versão HTML (experimental, não homologado).

6 = Não utilizado.

7 = TOTVS Smart Client versão Windows CE (experimental, não homologado)

(*) A partir dos builds superiores a 7.00.080806P - Oct  2 2008 - 11:47:14, pode-se passar parâmetro por referência para obter a versão da biblioteca gráfica em uso pelo Smart Client.

#include "totvs.ch"
user function tstGetRmtT()
Local cLib

QOut( GetRemoteType( @cLib ) ) // -> 1 se executar TOTVS SmartClient em versão Windows
QOut( cLib ) // -> "QT-4.5.2 WIN" -> Retorno do SO implementado em versões superiores a 120420A
return