HTTPSSLClient

Define em memória as configurações para conexão SSL.

Sintaxe

HTTPSSLClient( < nSSL2 >, < nSSL3 >, < nTLS1 >, < cPassword >, < cCertPath >, < cKeyPath >, < nHSM >, [ lClient ], [ nVerbose ], [ nBugs ], [ nState ], [ cCACertPath ] )

Parâmetros

Nome	Tipo	Descrição	Obrigatório
nSSL2	numérico	Habilita/Desabilita SSL2.	X
nSSL3	numérico	Habilita/Desabilita SSL3.	X
nTLS1	numérico	Habilita/Desabilita TLS1.	X
cPassword	caractere	Senha para a chave privada e/ou certificado.	X
cCertPath	caractere	Indica o caminho do certificado de cliente.	X
cKeyPath	caractere	Indica o caminho da chave privada de cliente.	X
nHSM	numérico	Define se utiliza HSM.
lClient	lógico	Indica se a definição será para conexão pelo SmartClient.
nVerbose	numérico	Habilita/Desabilita Verbose.
nBugs	numérico	Habilita/Desabilita Bugs.
nState	numérico	Habilita/Desabilita State.
cCACertPath	caractere	Indica o caminho do certificado de CA.

Observações

Os parâmetros da função equivalem à configuração contida na seção SSLConfigure do arquivo ini do AppServer, sendo relacionados da seuinte forma:

Parâmetro	Chave da SSLConfigure
nSSL2	SSL2
nSSL3	SSL3
nTLS1	TLS1
cPassword	PassPhrase
cCertPath	CertificateClient
cKeyPath	KeyClient
nHSM	HSM
nVerbose	Verbose
nBugs	BUGS
nState	STATE
cCACertPath	SecondCertificateClient

Para definição no AppServer, o valor padrão dos parâmetros nHSM, nVerbose, nBugs, nState e cCACertPath seguem o padrão da configuração da seção SSLConfigure.
Caso nHSM seja 1, o formato aceito no caminho dos parâmetros cCertPath e cKeyPath é "slot_<num>-id_<idhex>" ou "slot_<nem>-label_<label>", onde <num> é o número do slot, igual ao retornado pela função HSMSlotList, e <idhex> é o id do objeto em hexadecimal, sendo cada 2 caracteres a representação hexadecimal de um caractere da tabela ASCII.
Para definição seja no AppServer, se nHSM for 0 e o caminho apontado por cCertPath, cKeyPath ou cCACertPath não for no AppServer, a aplicação dará uma exceção com a mensagem: "Only server path are allowed (HttpSSLClient)".
Para definição seja no SmartClient, se nHSM for 0 e o caminho apontado por cCertPath, cKeyPath ou cCACertPath não for no SmartClient, a aplicação dará uma exceção com a mensagem: "Only client path are allowed on client side (HttpSSLClient)".
O valor padrão de lClient é .F..
Os parâmetros lClient, nVerbose, nBugs, nState e cCACertPath estão disponíveis a partir da build 7.00.131227A com data de geração superior a 11/03/2016.

Exemplos

user function exemplo()
  
  Local cSlot     := "0"
  Local cModule   := 'C:\Program Files (x86)\Feitian\ePass2000_FT12\ngp11v211.dll' // Pronova
  Local cPass     := "12345678"
  Local idHex     := "80125761605040BE9A5D71B677387F67" // Katoen
  Local cUrl      := 'https://homologacao.nfe.fazenda.sp.gov.br:443/nfeWEB/services/NfeStatusServico.asmx'
  Local cSoapSend := '<?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:xsi="http://www.w3.org/2001/';
                     'XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="';
                     'http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><nfeStatusServicoNF xmlns="';
                     'http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico"><nfeCabecMsg><?xml version="1.0"';
                     ' encoding="UTF-8"?><cabecMsg xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.02">';
                     '<versaoDados>1.07</versaoDados></cabecMsg></nfeCabecMsg><nfeDadosMsg><?xml version="1.0"';
                     ' encoding="UTF-8"?><consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.07">';
                     '<tpAmb>2</tpAmb><cUF>35</cUF><xServ>STATUS</xServ></consStatServ></nfeDadosMsg></nfeStatusServicoNF>';
                     '</soap:Body></soap:Envelope>'
  Local aHeadOut  := {'SOAPAction: http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico/nfeStatusServicoNF','Content-Type:';
                     'text/xml; charset=utf-8','User-Agent: Mozilla/4.0 (compatible; Protheus 7.00.100812P-20101227; ADVPL WSDL Client 1.101007)'}
  Local XMLHeadRet:= ""
  
  HTTPSSLClient(0, 1, 1, cPass, "slot_"+cSlot+"-id_"+idHex, "slot_"+cSlot+"-id_"+idHex, 1)
  HSMInitialize(cModule)
  
  XMLPostRet := HTTPSPost(cUrl, "", "", "", "", cSoapSend, 30, aHeadOut, @XMLHeadRet)
  if !Empty(XMLPostRet)
    conout("        1 - Comunicacao realizada com sucesso !!!")
    conout("[" + XMLPostRet + "]")
  else
    conout("        2 - Falha na  Comunicacao!!!")
  endif
  
return

Árvore de páginas

Sintaxe

Parâmetros

Observações

Exemplos

Veja também