Histórico da Página
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.
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas