Histórico da Página
...
| 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