La AEAT no me acepta el certificado digital

[FacilIng]

Buenos días a tod@s ...

Estoy intentando hacer mi primer envío de un RdF a la AEAT y, lo que menos me esperaba yo, es que me devolviese un error en HTML indicando que el certificado no es válido.
He cogido el código HTML que me devuelve la AEAT en "responseFromServer" y lo he metido en un WebBrowser. Podéis verlo en la imagen adjunta.
También adjunto todo el texto devuelto en la variable "responseFromServer".
Básicamente lo que me dice es que el certificado electrónico no es válido ... ¡pero sí lo es!
Es el certificado electrónico (micertificado.p12) emitido por la FNMT que utilizamos en mi empresa para conectarnos a la Seguridad Social, a Hacienda, etc.

El código que uso es el siguiente:

      'Establecemos el protocolo TLS 1.2 ...
      ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
      '4) Realizamos el envío al Webservice de la AEAT --------------------------------------------------------------------------
      '4.1) Definimos el objeto "request" par conectarnos al webservice ...
      varError = 40
      Dim DireccionWebService As String = "https :// prewww1.aeat.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP" 'TEST (sin los espacios, que no me deja poner enlaces)
      Dim request As HttpWebRequest = HttpWebRequest.Create(DireccionWebService)
      request.Method = "POST"
      request.ContentType = "text/xml; charset=utf-8"
      request.Accept = "text/xml"
      request.Timeout = 60000 'Le damos 60 segundos al servidor para contestar ...
      '4.2) Añadimos el certificado de autenticación para la AEAT al objeto "request" ...
      varError = 50
      Dim miCertificado As String = "micertificado.p12"
      Dim miContraseña As String = "micontraseña"
      Dim cert As New System.Security.Cryptography.X509Certificates.X509Certificate2
      cert.Import(miCertificado, miContraseña, System.Security.Cryptography.X509Certificates.X509KeyStorageFlags.DefaultKeySet)
      request.ClientCertificates.Add(cert)
      '4.3) Preparamos la petición al webservice ...
      varError = 60
      Dim byteArray As Byte() = Encoding.UTF8.GetBytes(lSOAPEnvelope)
      request.ContentLength = byteArray.Length
      Dim dataStream As Stream = request.GetRequestStream()
      dataStream.Write(byteArray, 0, byteArray.Length)
      dataStream.Close()
      '4.4) Envío la petición y obtengo la respuesta ...
      varError = 70
      Dim response As HttpWebResponse = request.GetResponse()
      dataStream = response.GetResponseStream()
      Dim reader As New StreamReader(dataStream)
      Dim responseFromServer As String = reader.ReadToEnd()
      reader.Close() : reader = Nothing
      dataStream.Close() : dataStream = Nothing
      response.Close() : response = Nothing

      '5) Devolvemos la respuesta -----------------------------------------------------------------------------------------------
      varError = 90
      pMSGRetorno = responseFromServer
      Return True

¿Alguien me podría decir en qué me estoy equivocando o qué estoy haciendo mal?
La verdad es que no es la primera vez que hago peticiones con certificado a un WS y no me había pasado esto nunca.

Muchísimas gracias!

[novatico]

Empezado por FacilIng

Buenos días a tod@s ...

Estoy intentando hacer mi primer envío de un RdF a la AEAT y, lo que menos me esperaba yo, es que me devolviese un error en HTML indicando que el certificado no es válido.
He cogido el código HTML que me devuelve la AEAT en "responseFromServer" y lo he metido en un WebBrowser. Podéis verlo en la imagen adjunta.
También adjunto todo el texto devuelto en la variable "responseFromServer".
Básicamente lo que me dice es que el certificado electrónico no es válido ... ¡pero sí lo es!
Es el certificado electrónico (micertificado.p12) emitido por la FNMT que utilizamos en mi empresa para conectarnos a la Seguridad Social, a Hacienda, etc.

El código que uso es el siguiente:

      'Establecemos el protocolo TLS 1.2 ...
      ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
      '4) Realizamos el envío al Webservice de la AEAT --------------------------------------------------------------------------
      '4.1) Definimos el objeto "request" par conectarnos al webservice ...
      varError = 40
      Dim DireccionWebService As String = "https :// prewww1.aeat.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP" 'TEST (sin los espacios, que no me deja poner enlaces)
      Dim request As HttpWebRequest = HttpWebRequest.Create(DireccionWebService)
      request.Method = "POST"
      request.ContentType = "text/xml; charset=utf-8"
      request.Accept = "text/xml"
      request.Timeout = 60000 'Le damos 60 segundos al servidor para contestar ...
      '4.2) Añadimos el certificado de autenticación para la AEAT al objeto "request" ...
      varError = 50
      Dim miCertificado As String = "micertificado.p12"
      Dim miContraseña As String = "micontraseña"
      Dim cert As New System.Security.Cryptography.X509Certificates.X509Certificate2
      cert.Import(miCertificado, miContraseña, System.Security.Cryptography.X509Certificates.X509KeyStorageFlags.DefaultKeySet)
      request.ClientCertificates.Add(cert)
      '4.3) Preparamos la petición al webservice ...
      varError = 60
      Dim byteArray As Byte() = Encoding.UTF8.GetBytes(lSOAPEnvelope)
      request.ContentLength = byteArray.Length
      Dim dataStream As Stream = request.GetRequestStream()
      dataStream.Write(byteArray, 0, byteArray.Length)
      dataStream.Close()
      '4.4) Envío la petición y obtengo la respuesta ...
      varError = 70
      Dim response As HttpWebResponse = request.GetResponse()
      dataStream = response.GetResponseStream()
      Dim reader As New StreamReader(dataStream)
      Dim responseFromServer As String = reader.ReadToEnd()
      reader.Close() : reader = Nothing
      dataStream.Close() : dataStream = Nothing
      response.Close() : response = Nothing

      '5) Devolvemos la respuesta -----------------------------------------------------------------------------------------------
      varError = 90
      pMSGRetorno = responseFromServer
      Return True

¿Alguien me podría decir en qué me estoy equivocando o qué estoy haciendo mal?
La verdad es que no es la primera vez que hago peticiones con certificado a un WS y no me había pasado esto nunca.

Muchísimas gracias!

¿ Puedes ser que hayas renovado el certificado y no hayas desinstalado el caducado ?

[FacilIng]

Empezado por novatico

¿ Puedes ser que hayas renovado el certificado y no hayas desinstalado el caducado ?

El certificado es válido hasta el 27/09/2025 ...
Y no lo tengo instalado en Windows, ni éste ni ninguno ...
Como se ve en el código, lo cojo directamente de disco (archivo "micertificado.p12") ...

[Neftali [Germán.Estévez]]

Yo probaría con los certificados "de prueba" de la AEAT.
Puedes solicitarlos.

Más que nada para descartar.
a) Si con el de prueba falla, es que hay algo en el código que no está bien.
b) Si con el de prueba funciona, es que es algo del certificado que estás utilizando.

[rci]

Empezado por Neftali [Germán.Estévez]

Yo probaría con los certificados "de prueba" de la AEAT.
Puedes solicitarlos.

Es una buena idea pero ten en cuenta que están apunto de caducar, en concreto el 02/07/2025 y el 11/07/2025.
De momento no los han renovado, pero ya nos han dicho que se tendrán que volver a solicitar...

[Neftali [Germán.Estévez]]

Empezado por rci

Es una buena idea pero ten en cuenta que están apunto de caducar, en concreto el 02/07/2025 y el 11/07/2025.
De momento no los han renovado, pero ya nos han dicho que se tendrán que volver a solicitar...

También habrá que ver qué hacen cuando envíes con uno caducado.
En el caso de TicketBai, por ejemplo, al principio las aceptaban con errores y te avisaban de que tenías que renovarlo. Durante un tiempo te iba saliendo este aviso.

[FacilIng]

Buenas tardes de nuevo y muchas gracias por vuestras respuestas ...

Después de probar y probar ¡MAGIA! simplemente cambiando código de lugar, creando un par de funciones, pero sin cambiar nada en operativa de la programación el WS de la AEAT me acaba de responder con un XML tal y como yo esperaba ...

Sinceramente, después de 30 años en el mundillo, aún sigo flipando con cosas como estas ...
Esperemos que no haya muchas más ...

Lo dicho, ¡muchas gracias a todos!

[Toñico]

Empezado por FacilIng

Buenas tardes de nuevo y muchas gracias por vuestras respuestas ...

Después de probar y probar ¡MAGIA! simplemente cambiando código de lugar, creando un par de funciones, pero sin cambiar nada en operativa de la programación el WS de la AEAT me acaba de responder con un XML tal y como yo esperaba ...

Sinceramente, después de 30 años en el mundillo, aún sigo flipando con cosas como estas ...
Esperemos que no haya muchas más ...

Lo dicho, ¡muchas gracias a todos!

Buenos dias FacilIng.

Yo tengo el mismo problema. Estoy usando delphi 10.3 y me estoy volviendo loco. No hay forma de enviar un registro y que me responda bien.

Podrías poner la parte del código que estás usando para el envío, por favor.

Te estaría muy muy agradecido.

Gracias.

[aposi]

Empezado por Neftali [Germán.Estévez]

Yo probaría con los certificados "de prueba" de la AEAT.
Puedes solicitarlos.

Más que nada para descartar.
a) Si con el de prueba falla, es que hay algo en el código que no está bien.
b) Si con el de prueba funciona, es que es algo del certificado que estás utilizando.

Donde se puede pedir el certificado de prueba?

Nada. he encontrado el correo electronico: [email protected]

[Neftali [Germán.Estévez]]

https://www.clubdelphi.com/foros/sho...d.php?p=562700

Una rápida búsqueda en los foros...
"Se piden a este correo, pides un certificado de pruebas, te mandaran un formulario, lo rellenas y ya te mandaran el certificado.
[email protected]"

[Fernando_58]

Empezado por Neftali [Germán.Estévez]

Yo probaría con los certificados "de prueba" de la AEAT.
Puedes solicitarlos.

Más que nada para descartar.
a) Si con el de prueba falla, es que hay algo en el código que no está bien.
b) Si con el de prueba funciona, es que es algo del certificado que estás utilizando.

Dónde se solicita el certificado de pruebas?

[Neftali [Germán.Estévez]]

Empezado por Fernando_58

Dónde se solicita el certificado de pruebas?

Busca en los foros.
Hay un hilo dedicado a ello.
Mandas un correo, te envían un formulario, lo rellenas, lo devuelves y te los envían.

[novatico]

Empezado por Neftali [Germán.Estévez]

Busca en los foros.
Hay un hilo dedicado a ello.
Mandas un correo, te envían un formulario, lo rellenas, lo devuelves y te los envían.

Perdona la duda, me han enviado el formulario, lo relleno pero no puedo firmarlo para enviarlo. ¿ Cómo lo haceis ?

[Neftali [Germán.Estévez]]

Empezado por novatico

Perdona la duda, me han enviado el formulario, lo relleno pero no puedo firmarlo para enviarlo. ¿ Cómo lo haceis ?

Lo imprimes, lo firmas, lo escaneas y lo devuelves.
Burocracia, que esperábamos...
Meteorito ya!

[novatico]

Empezado por Neftali [Germán.Estévez]

Lo imprimes, lo firmas, lo escaneas y lo devuelves.
Burocracia, que esperábamos...
Meteorito ya!

Lo intento así. Muchas gracias.

[novatico]

Acabo de instalar el certificado de prueba que me ha enviado la AEAT.
Aparentemente se ha instalado correctamente y puedo comprobar todos sus datos.

¿ Es posible que este certificado de pruebas de la AEAT no se pueda usar para comprobar el NIF/CIF de los clientes ?

[Faneka]

Empezado por novatico

Acabo de instalar el certificado de prueba que me ha enviado la AEAT.
Aparentemente se ha instalado correctamente y puedo comprobar todos sus datos.

¿ Es posible que este certificado de pruebas de la AEAT no se pueda usar para comprobar el NIF/CIF de los clientes ?

No funciona, tienes que seleccionar uno "bueno". Yo el otro día tambien tenía el de prueba activo y me estaba volviendo loco, hasta que me di cuenta.

[Neftali [Germán.Estévez]]

Empezado por novatico

¿ Es posible que este certificado de pruebas de la AEAT no se pueda usar para comprobar el NIF/CIF de los clientes ?

Para eso necesitas uno "real". Los de prueba no funcionan.

[novatico]

Empezado por Faneka

No funciona, tienes que seleccionar uno "bueno". Yo el otro día tambien tenía el de prueba activo y me estaba volviendo loco, hasta que me di cuenta.

Muchas gracias !!!