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

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

Yo las primeras pruebas las hice directamente con Postman y/o con Imsomnia (similar). En ambos casos se permite instalar un certificado cliente y para probar los envíos y obtener las respuestas son suficientes.

Lo digo porque es una forma de comprobar el fichero, la sintaxis, la codificación,... y dejar de lado la codificación en Delphi.
Una vez que sabemos que el fichero es correcto (o que nos tiene que dar determinado error), podemos empezar a codificar.

De esta forma compartimentamos problemas. Si probamos todo a la vez, no sabemos si es del fichero, del certificado, del firnado, del comprimido, del los parámetros, de la forma de envío,...

[espinete]

Acabo de probar con Postman y el envío se realiza. Comparé los headers, etc. de Postman con los míos y una de las diferencias era el UserAgent.

Fui a mi código y añadí UserAgent := 'PostmanRuntime/7.26.10'; y ahora sí obtengo una respuesta (bastante larga).

Así que el UserAgent por defecto (Embarcadero URI Client/1.0) parece ser que no sirve, aunque no entiendo el motivo exacto.

Tanto en Postman como con mi proyecto, obtengo un JSON con developerMessage enorme e inservible y Status 500.

El certificado en Postman parece estar correcto, porque en pruebas anteriores sí obtenía un error que hacía referencia a "password invalid" y en otras pruebas sí recibía errores como "el formato del NIF no es válido", por lo que esta respuesta de error 500 cuando todo parece estar bien no sé a qué puede ser debido.

[Dadaista]

Muy agradecido keys y Neftali

[elcharlie]

Se ha abierto la posibilidad de realizar envíos al entorno de pruebas mediante certificados de dispositivo.

Con carácter previo a la remisión de las anotaciones, se deberán comunicar los datos identificativos de el/los certificados de dispositivo mediante la cumplimentación del formulario electrónico al que se puede acceder en el siguiente enlace: https://www.ebizkaia.eus/es/catalogo...os?procID=1740.



En https://www.batuz.eus/es/documentacion-tecnica dispone de un manual para obtener el número de serie asociado al certificado de dispositivo.



Por otro lado, se ha habilitado igualmente en el entorno de pruebas la anulación de los siguientes subcapítulos:



1.1 - Ingresos con factura con Software garante del LROE de personas físicas y entidades sin personalidad jurídica (modelo 140).
1.1 - Facturas emitidas con Software garante del LROE de personas jurídicas y de contribuyentes no residentes con establecimiento permanente (modelo 240).



Las consultas o incidencias relacionadas con el entorno de pruebas se deben dirigir por escrito a [email protected].

Esto han enviado desde Batuz, por si alguien le interesa hacer las pruebas con los certificados de dispositivos.

[espinete]

Me respondo a mí mismo...

Las respuestas al envío de la petición REST vienen en el Header de la respuesta. Concretamente en estos valores:

Código Delphi [-]
    if AResponse.ContainsHeader('eus-bizkaia-n3-mensaje-respuesta') then
        memo2.Lines.Append(AResponse.HeaderValue['eus-bizkaia-n3-mensaje-respuesta']);

    if AResponse.ContainsHeader('eus-bizkaia-n3-codigo-respuesta') then
        memo2.Lines.Append(AResponse.HeaderValue['eus-bizkaia-n3-codigo-respuesta']);

    if AResponse.ContainsHeader('eus-bizkaia-n3-tipo-respuesta') then
        memo2.Lines.Append(AResponse.HeaderValue['eus-bizkaia-n3-tipo-respuesta']);

Ahora ya consigo ver los distintos motivos de error en los envíos.

[espinete]

Me devuelve "Error al descomprimir el fichero.Not in GZIP format", así que me temo que el algoritmo para comprimir en GZIP no es válido.

Buscando en StackOverflow encontré esta variante que parece que sí funciona:

Código Delphi [-]
procedure comprimir(origen,destino:string);
var LInput, LOutput: TFileStream;
    LZip: TZCompressionStream;
begin
    { Create the Input, Output, and Compressed streams. }
    LInput := TFileStream.Create(origen, fmOpenRead);
    LOutput := TFileStream.Create(destino, fmCreate);
    LZip := TZCompressionStream.Create(LOutput, zcDefault, 15 + 16);

    { Compress data. }
    LZip.CopyFrom(LInput, LInput.Size);

    { Free the streams. }
    LZip.Free;
    LInput.Free;
    LOutput.Free;
end;

[espinete]

Después de corregir otros errores en el envío (certificado, modelo, etc.) y de adaptar el envío tanto para el 140 como para el 240, etc. ahora obtengo el siguiente error

El XML no cumple el esquema.[Linea:1 Columna:180] Error:cvc-complex-type.2.4.a: Invalid content was found starting with element '{"https://www.batuz.eus/fitxategiak/batuz/LROE/esquemas/LROE_PJ_240_1_1_FacturasEmitidas_ConSG_AltaPeticion_V1_0_1.xsd":Cabecera}'. One of '{Cabecera}' is expected.

Si comparo los XML generados por mi aplicación, con los XML de ejemplo que proporciona Bizkaia, la única diferencia que veo es que los de Bizkaia empiezan así:

<lrpjfecsgap:LROEPJ240FacturasEmitidasConSGAltaPeticion xmlns:lrpjfecsgap="https://www.batuz.eus/fitxategiak/batuz/LROE/esquemas/LROE_PJ_240_1_1_FacturasEmitidas_ConSG_AltaPeticion_V1_0_1.xsd">
<Cabecera>
<Modelo>240</Modelo>
...

...y el mío empieza así...

<LROEPJ240FacturasEmitidasConSGAltaPeticion xmlns="https://www.batuz.eus/fitxategiak/batuz/LROE/esquemas/LROE_PJ_240_1_1_FacturasEmitidas_ConSG_AltaPeticion_V1_0_1.xsd">
<Cabecera>
<Modelo>240</Modelo>
...

¿Alguien más ha tenido este problema? Si la causa es esa... ¿hay forma de forzar a añadir ese prefijo en los XML o hay que hacerlo manualmente modificando directamente los strings antes de guardar el xml?

[elcharlie]

Empezado por espinete

Me devuelve "Error al descomprimir el fichero.Not in GZIP format", así que me temo que el algoritmo para comprimir en GZIP no es válido.

Buscando en StackOverflow encontré esta variante que parece que sí funciona:

Código Delphi [-]
procedure comprimir(origen,destino:string);
var LInput, LOutput: TFileStream;
    LZip: TZCompressionStream;
begin
    { Create the Input, Output, and Compressed streams. }
    LInput := TFileStream.Create(origen, fmOpenRead);
    LOutput := TFileStream.Create(destino, fmCreate);
    LZip := TZCompressionStream.Create(LOutput, zcDefault, 15 + 16);

    { Compress data. }
    LZip.CopyFrom(LInput, LInput.Size);

    { Free the streams. }
    LZip.Free;
    LInput.Free;
    LOutput.Free;
end;

Yo creo que lo estas haciendo bien, asi lo hago yo.