//chamo a classe para o tratamento de arquivos WSDL (DOCUMENTAÇÃO: http://tdn.totvs.com/display/tec/Classe+TWsdlManager)
oWsdl := TWsdlManager():New()
//oWsdl:nSSLVersion := 1
oWsdl:cSSLCACertFile := "\certOK\000004_all.pem.pem"
oWsdl:cSSLCertFile := "\certOK\000004_cert.pem"
oWsdl:cSSLKeyFile := "\certOK\000004_key.pem"
oWsdl:cSSLKeyPwd := "XXXXX"
// DLB-Ticket (solicitar o Ticket de Segurança)
xRet := oWsdl:ParseURL("https://ymbdlb.santander.com.br/dl-ticket-services/TicketEndpointService/TicketEndpointService.wsdl")
if xRet == .F.
conout( "Erro primeiro link: " + oWsdl:cError )
Return(.F.)
else
conout( "Sucesso! " )
endif
Retorno objeto oWsdl:cError = [WARN ][SERVER] Trying WSDL annonymous (PEER) connection...
Erro primeiro link: An exception occurred at 0:0 WsdlParser Exception : Unable to connect to https://ymbdlb.santander.com.br/dl-ticket-services/TicketEndpointService/TicketEndpointService.wsdl due to error: SSL connect error