TOTVSTEC

Árvore de páginas

Instale o Certificado (A1), Leitor USB ou Midia Criptográfica (A3) conforme instruções do fornecedor do e-CPF.

Compile o programa de teste no seu ambiente.

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


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


Será exibida a tela de Parâmetros Iniciais. Execute o programa de teste.


Verifique se o valor do e-CPF foi recebido corretamente.






  • Sem rótulos