TENGO UNA APLICACION DONDE MECONECTO A UNA PAGINA HTTP SIN PROBLEMA, EL CODIGO ES EL SIGUIENTE:
L_WEB
=https://www.mysuitecfdi.com/mx.com.fact.wsfront/Factwsfront.asmx?wsdl
LOCAL
O
AS
MSSOAP.
SoapClient30
O
=
CREATEOBJECT
("MSSOAP.SoapClient30")
O
.MSSoapInit(L_WEB
)
L_DATOS
=O.RequestTransaction(L_REQ,L_TRAN,L_ORI,L_ERFC,L_USER,L_UNAME,L_DAT1,L_DAT2,L_DAT3
)
WAIT WINDOW
"DATOS............."
L_RXML
=L_DATOS.item(0).parentNode.xml
SI CAMBIO LA DERECCION DEL WEB SERVICE POR
https://www.mysuitecfdi.com/mx.com.fact.wsfront/Factwsfront.asmx?wsdl
ME DA ERROR DE CERTIFICADO:
EN
SU LIGA DAN UNA FORMA DE PASAR ESTE CERTIFICADO PERO EN VB QUE ES EL SIGUIENTE:
Imports System.Net
Imports System.Security.Cryptography.X509Certificates
Public Class MyPolicy
Implements ICertificatePolicy
Public Function CheckValidationResult(ByVal srvPoint As ServicePoint, _
ByVal cert As X509Certificate, ByVal request As WebRequest, _
ByVal certificateProblem As Integer) _
As Boolean Implements ICertificatePolicy.CheckValidationResult
'Return True to force the certificate to be accepted.
Return True
End Function
End Class
ServicePointManager.CertificatePolicy =
New MyPolicy()
COMO TRADUZCO ESTO A VFP