TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco

[ermendalenda]

Empezado por hodeinavarro

El error es B4_1000002
'eus-bizkaia-n3-mensaje-respuesta': 'Todos los registros incluidos en la petición son incorrectos.'

<DescripcionErrorRegistroES>La firma no cumple los requisitos de la pol\xc3\xadtica de firma TicketBAI.(El mensaje ha sido modificado en tr\xc3\xa1nsito o la firma no est\xc3\xa1 bien realizada -- SignedInfo failed to verify. [src/xml2signatureobj.cpp(315)] - (10606))</DescripcionErrorRegistroES>

Segun lo que nos comentaron por correo: Este error se suele dar cuando el contenido del fichero firmado ha sido modificado después de la firma.

A lo que yo respondi que hemos realizado comprobaciones y que no encontrabamos fallo, que por favor investigaran un poco más el tema y nos dijeron el problema que he descrito en el primer post.
"La correlación de hashes es correcta, no lo es la información del certificado firmante"

Hola pueden ser varias cosas, mi experiencia en este problema es que se modifique en el envío, quiero decir que el método que usas de envio no este parametrizado correctamente y se modifican los caracteres especiales. Con Curl hay que enviarlo en formato - - binary para asegurar que no se modifique en tránsito.

[skatologiko]

¿Alguien ha conseguido enviar el famoso archivo comprimido a Vizcaya con la librerías Chilkat? Sí que consigo enviar el xml a Guipuzcoa, pero el de Vizcaya no, al ser un .gz,
Este es mi código en vb6:

Public Function EnviarXMLTbai(sFich As String) As String   'devuelve el identificadorTBAI que da el servidor

Dim http As New ChilkatHttp
Dim success As Boolean

' Get the XML we wish to send in the body of the request.
Dim sbXml As New ChilkatStringBuilder
success = sbXml.LoadFile(sFich, "utf-8")
If (success = False) Then
    Debug.Print ("Failed to load XML that is to be the HTTP request body")
    Exit Function
End If

Dim Url As String
Url = "tbai-z.egoitza.gipuzkoa.eus/sarrerak/alta"

Dim Resp As ChilkatHttpResponse

Set Resp = http.PostXml(Url, sbXml.GetAsString, "utf-8")

If (http.LastMethodSuccess = False) Then
    Debug.Print (http.LastErrorText)
    Exit Function
End If

http.ClearHeaders
EnviarXMLTbai =  Resp.StatusCode