Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
GetRemoteType
GetRemoteType

Função: GetRemoteType

Identifica a tipo e versão do Smart Client em execução.

GetRemoteType ( [ @cLibVersion] ) --> nRet

 

NomeTipoDescriçãoObrigatórioReferência
cLibVersionCaracterIndica a versão da biblioteca gráfica do Smart Client. X

 

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.

 

Importante

Função disponível a partir da build 7.00.040308A.

*Em versões superiores à 120420A foi implementado o retorno do sistema operacional à partir do parâmetro cLibVersion (por referência).
Esta característica foi implementada devido aos sistemas operacionais Linux e MacOS retornarem o mesmo código, pois ambos são Unix.
Com a nova implementação teremos os seguintes retornos:

WIN=Windows
LINUX=Linux
MAC=MacOS 

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

 

Bloco de código
themeEclipse
languagecpp
titleExemplo
linenumberstrue
#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
return
Microsiga Protheus 8.11 , TOTVS Application Server 10 , ByYou Application Server