Estoy intentando conectar con AEAT para el SII pero no sé cómo poner el certificado en MSXML2.ServerXMLHTTP
. ¿Admite MSXML2 algún comando, o algo para elegir el certificado? ¿Cómo incluir un certificado en MSXML6 usando VBA al consumir un web service que lo pide?
Parece que coge "UN" certificado de la carpeta personal de certificados y parece que coge el último introducido.
El wsdl de AEAT contesta con:
A)Es necesario un certificado
B)El certificado no es válido (coge el mío personal en vez de el de la empresa
C)Parece que funciona si hay sólo un certificado o es el último introducido
¿A alguien le pasa lo mismo?
El código es:
Dim XML As MSXML2.ServerXMLHTTP60
...
Set XML = CreateObject("MSXML2.serverXMLHTTP.6.0")
...
With XML
.Open "POST", BASE_URL, False
.send TextoMandar
End With
...
BASE_URL
es la del servicio web del SII, tanto la real o la de prueba, que figuran en:
https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroFactEmitidas.wsdl
TextoMandar es un XML que se envía como texto.
.setOption 3, "Common Name (CN) parte del nombre del certificado"
?