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

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

Empezado por Dadaista

Los propietarios de las tiendas pasan la informacion de las ventas a sus asesores/contables y son estos últimos los que se encargan de todo el papeleo con hacienda.

No comentas "cómo pasan los propietarios esa información". Si es de forma telemática o más manual. De todas formas, sólo evitarías el paso del envío, pero creo que eso es lo de menos, porque es lo más sencillo, todo el trabajo anterior debe hacerlo tu aplicación.

Empezado por Dadaista

Mi pregunta es, si vosotros veis necesario/obligatorio que yo implemente Ticketbai en mi pequeña aplicación para las personas dueñas de las tiendas donde se utiliza mi aplicacion que se encuentran en Euskadi.

Como han comentado, tu aplicación es la que genera tickets, por lo tanto es tu aplicación es la que al generar el ticket, debe crear el archivo XML y firmarlo. Esa información la necesitas para el siguiente ticket.

También tienes que generar el código QR y añadirlo al ticket que se lleva el cliente.

Supongo que si has revisado el hilo, ya la habrás visto, pero esta imagen es bastante explicativa del proceso.
Pasos al facturar en TicketBAI

Empezado por Dadaista

En caso que considereis que es necesario.. los ficheros XML quien los firmaria?... la persona dueña de la tienda o yo?

Como te hemos comentado los ficheros los debe firmar tu aplicación utilizando un certificado, que lo lógico es que vaya a nombre de la dueña, que es la que está tributando.

[espinete]

Buenas...

(Parece ser que ) por fin he conseguido hacer un envío. Al menos ya no obtengo Bad Request. He usado el siguiente código facilitado por keys un par de páginas atrás. La única diferencia que había con el mío era la forma de adjuntar el archivo comprimido en la petición:

Código Delphi [-]
var json : string;
    RequestBody: TFileStream;
    AResponse: IHTTPResponse;
begin
    RequestBody := TFileStream.Create('archivo.gz', fmOpenRead);

    NetHTTPClient1.SecureProtocols := [THTTPSecureProtocol.TLS12];
    NetHTTPClient1.CustomHeaders['Accept-Encoding'] := 'gzip';
    NetHTTPClient1.CustomHeaders['Content-Encoding'] := 'gzip';
    NetHTTPClient1.CustomHeaders['Content-Type'] := 'application/octet-stream';
    NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-version'] := '1.0';
    NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-content-type'] := 'application/xml';

    //Formamos los parametros json de entrada
    json :=  f_cabecera_LROE('LROE', //concepto
             '1.1',  //subcapitulo
             'XXXXXXXXX',  //NIF
             'XXXXXXXXXXXXXXXXX',   //Nombre o Razón Social
             '',   //Primer Apellido
             '',   //Segundo Apellido
             '140',   //140 o 240
             '2021'); //Ejercicio

    NetHTTPClient1.CustomHeaders['eus-bizkaia-n3-data'] := json;
    AResponse := NetHTTPClient1.Post('https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena',RequestBody);

    memo2.Lines.Append(inttostr(AResponse.StatusCode)+' '+AResponse.StatusText);

    memo2.Lines.Append(AResponse.ContentAsString());
end;

Ahora obtengo 200 - OK, pero nada más. No sé cómo obtener la respuesta al envío, que por lo que he leído, es un archivo comprimido que contiene un XML.

AResponse.ContentAsString() no contiene nada. Está en blanco.

¿Alguien sabe qué hacer a continuación?

[tejano]

Buenos días,

Que programa estáis utilizando para generar el archivo gz comprimido.

Saludos

[espinete]

5 mensajes más arriba tienes un código para comprimir un archivo en .gz usando la librería ZLib que trae Delphi

[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