Hoje começou a retornar este erro, alguém já passou por ele, pesquisei na net e não achei nada... alguma dica?
Error WINOLE/1007 A data deste certificado não é válida ou já expirou
(0x80072F05): msxml6.dll (DOS Error -2147352567)
Called from ->WIN_OLEAUTO:SEND(0)
Called from ->BIO_ENVIA_WH(337)
Uso essa rotina para baixar os XMLS, pelo SOAPUI, comunica normalmente.
Try
oServer := win_OleCreateObject( "MSXML2.ServerXMLHTTP.6.0" )
cBegin := TIME()
cEnd := TimeToSec(cBEGIN) - 180 // hora menos 14 minutos 60*14=840 // 18000 = 5hrs
DTFIM := DTOC(DATE())+[ ]+TIME() // hora atual
DTINI := DTOC(DATE())+[ ]+SECTOTIME(cEND) // hora atual - 14 minutos
cUrl := "https://ws.bionexo.com.br"
cHost := "https://ws.bionexo.com.br"
cXmlEnvio := [<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:web="http://webservice.bionexo.com/">]
cXmlEnvio += [<soapenv:Header/>]
cXmlEnvio += [<soapenv:Body>]
cXmlEnvio += [<web:request>]
cXmlEnvio += [<login>es</login>]
cXmlEnvio += [<password>123</password>]
cXmlEnvio += [<operation>] + xWG + [</operation>]
cXmlEnvio += [<parameters>DT_BEGIN=] + DTINI + [;DT_END=] + DTFIM + [;LAYOUT=WG;ISO=0</parameters>]
cXmlEnvio += [</web:request>]
cXmlEnvio += [</soapenv:Body>]
cXmlEnvio += [</soapenv:Envelope>]
Hb_MemoWrit( cXML, cXmlEnvio)
CATCH
return
endtry
try
oServer:Open( "POST", cUrl, .F. )
oServer:SetRequestHeader( "Content-Type", [text/xml;charset=UTF-8])
oServer:SetRequestHeader( "Content-Length", [468] )
oServer:SetRequestHeader( "Host", [ws.bionexo.com.br])
oServer:SetRequestHeader( "Connection", [Keep-Alive])
oServer:SetRequestHeader( "User-Agent", [Apache-HttpClient/4.1.1 (java 1.5)])
oServer:send( cXmlEnvio )
if oServer:readyState <> 4
oServer:WaitForResponse( 5000 )
endif
If oServer:Status = 200 // if oServer:readyState() = 4
cRetorno := oServer:responseText
IF ValType( cRetorno ) != "C"
cRetorno := ""
ELSE
HB_MemoWrit( ArquivoXml, hb_UTF8ToStr(TROCA_ACENTO(cRETORNO, .T.), "PTISO" ) )
Ler_dados_SOAP(UTF_REMOVE(ArquivoXml))
ENDIF
endif
Catch
ArquivoXml := [C:\BIONEXO\DISTRI\ENTRADA\ERRO_BIO_SOAP_]+SUBSTR(TIME(),1,2)+[_]+SUBSTR(TIME(),4,2)+[_]+SUBSTR(TIME(),7,2)+[.XML]
HB_MemoWrit( ArquivoXml, [Erro de conexao] )
return nil
endtry
Outra duvida, como posso ler o retorno do erro do MSXML2.ServerXMLHTTP.
Grato