GetRemoteType

GetRemoteType ( [ @cLibVersion] ) --> nRet

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.

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 (*).

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 cLibQOut( GetRemoteType( @cLib ) ) // -> 1 se executar TOTVS SmartClient em versão WindowsQOut( cLib ) // -> "QT-4.4.2"return