Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 3 Próxima »

Acesse o endereço https do SmartClient HTML. Será solicitado o certificado antes da exibição da tela de Parâmetros Iniciais.

 

Exemplo AdvPL
#INCLUDE "TOTVS.CH"

USER FUNCTION GetECPF()
	Local oMap
	Local cCPF:= ""
	Local lHasFunction:= Findfunction("GetAuthArgs")

	if lHasFunction
		oMap:= GetAuthArgs()
		oMap:Get("ECPF", @cCPF)
	endif

	DEFINE DIALOG oDlg TITLE "e-CPF" FROM 0, 0 TO 200, 400 PIXEL
		if !lHasFunction
			@ 1, 1 SAY "Função 'GetAuthArgs' nao disponivel no Application Server" OF oDlg 
		elseif (cCPF != "")
			@ 1, 1 SAY "e-CPF: " + cCPF OF oDlg 
		else
			@ 1, 1 SAY "Não foi selecionado um e-CPF valido!" OF oDlg 
		endif
	ACTIVATE DIALOG oDlg CENTERED
RETURN

 

 

 

 

 

  • Sem rótulos