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

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

Empezado por keys

Para neftali. si accedes asi ¿como le dices luego al componente de firma cual es el certificado? yo lo hago asi.

Nosotros guardamos el HASH del certificado.
Con ese procedimiento cargas los certificados disponibles usando la clase TElWinCertStorage.
Aquí hay un ejemplo de cómo acceder a esa clase. Está en VB, pero verás que es muy parecido al código que he puesto yo.

Desde esa clase puedes acceder a los certificados y obtener elementos de la clase TElX509Certificate.

[rci]

Buenas tardes, a ver si lo he entendido bien, para utilizar el entorno de pruebas de batuz que se puso en marcha recientemente, a parte ser necesaria una inscripción previa de la empresa desarrolladora, también debemos utilizar los certificados de pruebas y especificar unos datos del obligado tributario ficticios que nos proporcionará batuz.


Por lo tanto no podemos poner nuestro programa a un cliente final nuestro y dejarlo en entorno de pruebas batuz para que envie con su certificado y sus datos de obligado tributario, para ir probando antes de pasar al entorno real a partir del 1 de enero del 2022 (período voluntario)


pues si es así pierde toda la gracia ese entorno de pruebas...



Es así o me equivoco?


Muchas gracias

[sEngine]

Como haceis para coger la respuesta de Bizkaia desde delphi?

La respuesta me da esto

Código Delphi [-]
#$1F'�'#8#8#0#0#0#0#0'�5251550_peticion_Resp.xml'#0'�T]��0'#$14'}�W0�k��+:Ȏâ�;�k�j��'#4'��.'#$10'�����'#5'E���)�p�9����'#6'�a'#$1F'��_�'#5'e�@�[����g'#1'�7'#3'u�'#$18'5'#$D'U'#$11#$12'�'#1#$E'YL'#6'�;'#$11'��0c��'#$7F'��:ӗvG'#$1B'a_�'#$1C#$B'''  ��'#6'X�,�����3"��@�'#2'2��C�@�J��>B�ݮ�a�~�H*К�=�dC�'#$1B'ʳ(k�����'#8'�#2'��'#$17'�j5'#$14'xL'#$1B'{�'''#$1C#$1F'�<��'#5'$d'#$16'46��'#4'm�P�BJ7�黄��'#$18'-�T'#$13'%�5'#1'I'#$1F',��'#$1A'��aIY'#$1D'�'#0'�'#0'�'#8'J��M�O��jkm�)㊊'#$17'�'#$D#$E#$0602'S/��W��0y'#$1E'Y�^��4�wo�,�'#$13'�'#9#9'C'#$1A'01a���'#$C#$7F'��̧8��_����r�]'#$1A'��'#$1F#$11'��N��x''�;'#$7F'm���r���'#$12'3s�'#7'c>b�Ĕ'#$13'AbynՈ�[\�ڝ��73g'#$14'��w��;��֨:Q '#1'�ּk|�'#$05F5'�SnJ'#$15'9���r�'#$19#$C'����J�"w��s'#0'�tM��o'#$1D#$7F'<��%v'#$18'5�))(��'#$14'�r�  �&iT'#$10'�'#$1E'�V%�^����'#$13#$12'd�'#$15#$17'��⣳���=�'#$1B'�'#2'�'#$1B'�'#$1C'�On�u''s�#��9'#$11'  l�9�%��Q'#7'�d?im�z���pM�?<��'#$F'�)|'#$10'['#5#0#0

y no se como guardarlo en un archivo, ya que siempre me esta diciendo que es un archivo erroneo.
He probado con estas opciones

Código Delphi [-]
   Respuesta := idhttp_fac.Post('https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena',RequestBody);
    AResponse := TStringStream.Create(Respuesta);
    Comprimido := TFileStream.Create(ExtractFilePath(Application.ExeName)+'\LROE_respuesta.gz', fmCreate);
    Comprimido.CopyFrom(AResponse, AResponse.Size);

Código Delphi [-]
    MyText := TStringList.Create;
    MyText.Add(Respuesta);
    MyText.SaveToFile(ExtractFilePath(Application.ExeName)+'\LROE_respuesta2.gz',TEncoding.UTF8);
    MyText.Free;

[tejano]

La WSDL es https://sarrerak.bizkaia.eus/N3B4000M/aurkezpena, ya no es https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena

Empezado por sEngine

Como haceis para coger la respuesta de Bizkaia desde delphi?

La respuesta me da esto

Código Delphi [-]
#$1F'�'#8#8#0#0#0#0#0'�5251550_peticion_Resp.xml'#0'�T]��0'#$14'}�W0�k��+:Ȏâ�;�k�j��'#4'��.'#$10'�����'#5'E���)�p�9����'#6'�a'#$1F'��_�'#5'e�@�[����g'#1'�7'#3'u�'#$18'5'#$D'U'#$11#$12'�'#1#$E'YL'#6'�;'#$11'��0c��'#$7F'��:ӗvG'#$1B'a_�'#$1C#$B'''  ��'#6'X�,�����3"��@�'#2'2��C�@�J��>B�ݮ�a�~�H*К�=�dC�'#$1B'ʳ(k�����'#8'�#2'��'#$17'�j5'#$14'xL'#$1B'{�'''#$1C#$1F'�<��'#5'$d'#$16'46��'#4'm�P�BJ7�黄��'#$18'-�T'#$13'%�5'#1'I'#$1F',��'#$1A'��aIY'#$1D'�'#0'�'#0'�'#8'J��M�O��jkm�)㊊'#$17'�'#$D#$E#$0602'S/��W��0y'#$1E'Y�^��4�wo�,�'#$13'�'#9#9'C'#$1A'01a���'#$C#$7F'��̧8��_����r�]'#$1A'��'#$1F#$11'��N��x''�;'#$7F'm���r���'#$12'3s�'#7'c>b�Ĕ'#$13'AbynՈ�[\�ڝ��73g'#$14'��w��;��֨:Q '#1'�ּk|�'#$05F5'�SnJ'#$15'9���r�'#$19#$C'����J�"w��s'#0'�tM��o'#$1D#$7F'<��%v'#$18'5�))(��'#$14'�r�  �&iT'#$10'�'#$1E'�V%�^����'#$13#$12'd�'#$15#$17'��⣳���=�'#$1B'�'#2'�'#$1B'�'#$1C'�On�u''s�#��9'#$11'  l�9�%��Q'#7'�d?im�z���pM�?<��'#$F'�)|'#$10'['#5#0#0

y no se como guardarlo en un archivo, ya que siempre me esta diciendo que es un archivo erroneo.
He probado con estas opciones

Código Delphi [-]
   Respuesta := idhttp_fac.Post('https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena',RequestBody);
    AResponse := TStringStream.Create(Respuesta);
    Comprimido := TFileStream.Create(ExtractFilePath(Application.ExeName)+'\LROE_respuesta.gz', fmCreate);
    Comprimido.CopyFrom(AResponse, AResponse.Size);

Código Delphi [-]
    MyText := TStringList.Create;
    MyText.Add(Respuesta);
    MyText.SaveToFile(ExtractFilePath(Application.ExeName)+'\LROE_respuesta2.gz',TEncoding.UTF8);
    MyText.Free;

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

Empezado por tejano

La WSDL es https://sarrerak.bizkaia.eus/N3B4000M/aurkezpena, ya no es https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena

Funcionan las 2.
Desde hace unos días ya está de nuevo en marcha el servidor de PREPRODUCCION:
https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena
NOTA: Para poder utilizarlo hay que hacer esto.

Y el de PRODUCCION (que por ahora es "a modo de pruebas") es este:
https://sarrerak.bizkaia.eus/N3B4000M/aurkezpena
NOTA: Este se cerrará el 10 de Diciembre

un lío vamos...

[rci]

Gracias por las respuestas unomasmas y Neftali

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

Empezado por sEngine

Como haceis para coger la respuesta de Bizkaia desde delphi?

Ten en cuenta que la respuesta en el caso de Bizkaiano puedes tratarla como texto para recuperarla o guardarla en disco.
He visto que usas TStringStream o TStringList. Inténtalo con TStream, porque al utilizar etructuras para strings se producen conversiones no deseadas.


Crea un TFileStream y utiliza el Post recogiendo la respuesta en ese objeto, para guardarlo en disco.

[sEngine]

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

Ten en cuenta que la respuesta en el caso de Bizkaiano puedes tratarla como texto para recuperarla o guardarla en disco.
He visto que usas TStringStream o TStringList. Inténtalo con TStream, porque al utilizar etructuras para strings se producen conversiones no deseadas.


Crea un TFileStream y utiliza el Post recogiendo la respuesta en ese objeto, para guardarlo en disco.

Muchas gracias, ya lo he conseguido guardar con esto

Código Delphi [-]
Comprimido := TFileStream.Create(ExtractFilePath(Application.ExeName)+'\LROE_respuesta.gz', fmCreate);
    idhttp_fac.Post('https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena',RequestBody,Comprimido);

[unomasmas]

Empezado por rci

Buenas tardes, a ver si lo he entendido bien, para utilizar el entorno de pruebas de batuz que se puso en marcha recientemente, a parte ser necesaria una inscripción previa de la empresa desarrolladora, también debemos utilizar los certificados de pruebas y especificar unos datos del obligado tributario ficticios que nos proporcionará batuz.

Por lo tanto no podemos poner nuestro programa a un cliente final nuestro y dejarlo en entorno de pruebas batuz para que envie con su certificado y sus datos de obligado tributario, para ir probando antes de pasar al entorno real a partir del 1 de enero del 2022 (período voluntario)

pues si es así pierde toda la gracia ese entorno de pruebas...

Es así o me equivoco?

Muchas gracias

Yo también estoy sorprendido, aunque no entiendo para qué es necesaria la inscripción previa de la empresa desarrolladora si en el XML TicketBAI hay que indicar estos datos:
▪ Licencia TBAI: TBAIBI00000000PRUEBA
▪ NIF entidad desarrolladora: A99800005
▪ Nombre: SOFTWARE GARANTE TICKETBAI PRUEBA
▪ Versión: 1.0

O sea, te dan estos datos, te dan los certificados que puedes usar y tras la inscripción te indicarán los datos de clientes con los que hacer las pruebas. Todo predefinido ¿No? Si estos datos de clientes se hacen públicos ¿Para qué es necesaria la inscripción?

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

Empezado por unomasmas

Yo también estoy sorprendido, aunque no entiendo para qué es necesaria la inscripción previa de la empresa desarrolladora si en el XML TicketBAI hay que indicar estos datos:
▪ Licencia TBAI: TBAIBI00000000PRUEBA
▪ NIF entidad desarrolladora: A99800005
▪ Nombre: SOFTWARE GARANTE TICKETBAI PRUEBA
▪ Versión: 1.0
▪ Solicitar datos de los interesados para 140/240 (NIF y NombreApellidos / NIF y RazonSocial)

Se que han tenido problemas con envíos de prueba a PRODUCCION, imagino que de esta manera pueden filtrar esos errores, aunque hubiera bastado con la Licencia (un único datos), no hacía falta cambiarlos todos y solicitar un segundo registro.

Como en muchas otras cosas, me da la impresión de que sólo están pensando en su beneficio y no están pensando en las empresas desarrolladoras.

Empezado por rci

Por lo tanto no podemos poner nuestro programa a un cliente final nuestro y dejarlo en entorno de pruebas batuz para que envie con su certificado y sus datos de obligado tributario

Como ya dijeron en su día, el entorno de PREPRODUCCION lo tienen pensado sólo para utilizar en las empresas desarrolladoras. No debería haber ningun cliente real en PRE (al menos es lo que pretenden).

[keys]

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

Nosotros guardamos el HASH del certificado.
Con ese procedimiento cargas los certificados disponibles usando la clase TElWinCertStorage.
Aquí hay un ejemplo de cómo acceder a esa clase. Está en VB, pero verás que es muy parecido al código que he puesto yo.

Desde esa clase puedes acceder a los certificados y obtener elementos de la clase TElX509Certificate.

Hola a todos.

Al final hablando con SecureBlackBox me han dado la siguiente solución.

Your version of SecureBlackbox used a “DRU” approach to incorporate the SecureBlackbox product DLL into your application and load it manually in run time. That was an efficient and handy approach, but it proved to have one drawback. Certain variants of the operation system and antimalware apps take that approach suspiciously, and stop the applications from loading the DLL in that way right in the middle of the process (effectively, by making the application crash). The behaviour you are observing looks very similar to that.
That’s why we eventually stopped offering that option and suggested to always ship the SecureBlackbox DLL in the “normal” way, by deploying it alongside the application. This eliminates any side effects caused by DEP and anti-malware software.
To fix the issue on your side, please do the following two things:
1) Define USESECUREBLACKBOXDLL globally in your project settings.
2) When deploying your application, please put the SecureBlackbox20.dll file (you will find it in the \lib directory in the SBB folder) alongside your application’s executable

Lo he probado y funciona correctamente.

Ahora el problema lo tengo a la hora de firmar el fichero con sbxXAdESSigner1.Sign(); que despues de cargarle todos los parametros me sale el siguiente error.

1048581 The certificate does not have a associated private key

El certificado le he puesto uno nuestro y le pasa lo mismo. Por algún motivo no puede acceder a la clave privada de los certificados.

Un Saludo.

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

Empezado por keys

El certificado le he puesto uno nuestro y le pasa lo mismo. Por algún motivo no puede acceder a la clave privada de los certificados.

No se si es lo mismo (no creo, pero por si acaso), pero si son certificados que están instalados en la máquina (no como usuario local), hay problemas al acceder a ellos.
Necesitas elevación de permisos.

[Ramon88]

Sigo con el error y ellos sin contestar, creo que no soy el único que está con el error 400.
Subo las cabeceras por si veis algo raro, no se por donde tirar la verdad.


He visto que el Json esta bien formado, lo armo con una funcion de .Net que lo hace solo.

Código SQL [-]
{
Accept-Encoding: gzip
Content-Encoding: gzip
eus-bizkaia-n3-version: 1.0
eus-bizkaia-n3-content-type: application/xml
Encoding: gzip
Content-Type: application/octet-stream; charset=utf-8
eus-bizkaia-n3-data: {"con":"LROE","apa":"1.1","inte":[{"nif":"A99800237","nrs":"GLe7VAi7qZ","ap1":"PuWn2yvAaQ","ap2":"BjvRzNGZq5"}],"drs":[{"mode":"140","ejer":"2021"}]}
}

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

Modifico los parámetros que has enviado para iguarlarlos con los mios:

Código PHP:

Accept-Encoding:gzip
Content-Encoding:gzip
eus-bizkaia-n3-version: 1.0
eus-bizkaia-n3-content-type: application/xml
eus-bizkaia-n3-data: {"con":"LROE","apa":"1.1","inte":[{"nif":"A99800237","nrs":"GLe7VAi7qZ","ap1":"PuWn2yvAaQ","ap2":"BjvRzNGZq5"}],"drs":[{"mode":"140","ejer":"2021"}]}
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Content-Type: application/octet-stream 


Las llaves no se porque aparecen en tus parámetros, porque el conjunto no es un único parámetro, sino que son diferentes parámetros como HEADERS. Uno de ellos sí es un JSON.
¿No lo estarás enviando todo como un único JSON?

[Ramon88]

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

Modifico los parámetros que has enviado para iguarlarlos con los mios:

Código PHP:

Accept-Encoding:gzip
Content-Encoding:gzip
eus-bizkaia-n3-version: 1.0
eus-bizkaia-n3-content-type: application/xml
eus-bizkaia-n3-data: {"con":"LROE","apa":"1.1","inte":[{"nif":"A99800237","nrs":"GLe7VAi7qZ","ap1":"PuWn2yvAaQ","ap2":"BjvRzNGZq5"}],"drs":[{"mode":"140","ejer":"2021"}]}
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Content-Type: application/octet-stream 


Las llaves no se porque aparecen en tus parámetros, porque el conjunto no es un único parámetro, sino que son diferentes parámetros como HEADERS. Uno de ellos sí es un JSON.
¿No lo estarás enviando todo como un único JSON?

No, lo que pasa que lo he cogido desde el debug y sale así, pero eso esta bien.
Lo que veo distinto es el orden y lo de Accept... voy a ver si me tomo un cafe y sigo probando!

[Ramon88]

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

Modifico los parámetros que has enviado para iguarlarlos con los mios:

Código PHP:

Accept-Encoding:gzip
Content-Encoding:gzip
eus-bizkaia-n3-version: 1.0
eus-bizkaia-n3-content-type: application/xml
eus-bizkaia-n3-data: {"con":"LROE","apa":"1.1","inte":[{"nif":"A99800237","nrs":"GLe7VAi7qZ","ap1":"PuWn2yvAaQ","ap2":"BjvRzNGZq5"}],"drs":[{"mode":"140","ejer":"2021"}]}
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Content-Type: application/octet-stream 


Las llaves no se porque aparecen en tus parámetros, porque el conjunto no es un único parámetro, sino que son diferentes parámetros como HEADERS. Uno de ellos sí es un JSON.
¿No lo estarás enviando todo como un único JSON?

Si pongo la cabacera Accept me da error:
El encabezado 'Accept' se debe modificar con la propiedad o metodo adecuados.

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

Nosotros los añadimos así:

Código Delphi [-]
// Estas dos son como propiedades del componente
CompEnvioRESTClient.Accept := 'application/json, text/plain; q=0.9, text/html;q=0.8,';
CompEnvioRESTClient.AcceptCharset := 'utf-8, *;q=0.8';
// El resto como headers
CompEnvioRESTClient.AddParameter('Accept-Encoding', 'gzip', pkHTTPHEADER);
CompEnvioRESTClient.AddParameter('Content-Encoding', 'gzip', pkHTTPHEADER);
CompEnvioRESTClient.AddParameter('Content-Type', 'application/octet-stream', pkHTTPHEADER, [poDoNotEncode]);
CompEnvioRESTClient.AddParameter('eus-bizkaia-n3-version', '1.0', pkHTTPHEADER);
CompEnvioRESTClient.AddParameter('eus-bizkaia-n3-content-type', 'application/xml', pkHTTPHEADER, [poDoNotEncode] );
CompEnvioRESTClient.AddParameter('eus-bizkaia-n3-data', JSON, TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]);

Y es resultado es este:

Código Delphi [-]
Accept-Encoding=gzip
Content-Encoding=gzip
Content-Type=application/octet-stream
eus-bizkaia-n3-version=1.0
eus-bizkaia-n3-content-type=application/xml
eus-bizkaia-n3-data={"con": "LROE","apa": "1.1","inte": {"nif": "_CIF_","nrs": "_RAZON_SOCIAL_"},"drs":{"mode": "240","ejer": "2021"}}

[espinete]

Sigo pensando que un cambio o devolución en un punto de venta no debería requerir una rectificativa, sino una simple factura ordinaria (en negativo o positivo según sea cambio, devolución, etc.).

Y para intentar aclararlo al 100%, le he enviado a las tres haciendas forales varios supuestos que creo que no han tenido en cuenta, pero que se dan a diario en miles de comercios minoristas.
Me refiero a las cadenas de tiendas o franquicias con varias tiendas en distintas localidades e inlcuso en distintas provincias.

Se trata de casos en los que considero que emitir una rectificativa es inviable. Resumiendo:

* Persona que compra en ZARA Gipuzkoa (Tienda A) una camisa y la devuelve o la cambia en OTRO ZARA de Gipuzkoa
* Persona que compra en ZARA MADRID y devuelve o cambia en ZARA Gipuzkoa

¿Cómo sabe la Tienda que hace la devolución, qué factura tiene que rectificar, su encadenamiento, etc. si ellos NO tienen esa factura en el programa?

(No me digan que ZARA lo sabe porque lo tienen todo centralizado porque no es verdad. Además es solo un ejemplo, muchas otras tiendas no lo tienen centralizado ni de coña, ni les puedes obligar a tenerlo).

Cada tienda tiene su propia facturación, con su enumeración correlativa e independiente, etc. pero muchas cadenas permiten devolver/cambiar productos en toda España, por lo que no sé cómo podrían emitir una rectificativa si no la tienen en su base de datos. ¿Obligas al usuario a escribir los datos a mano a partir del tícket? Suerte con eso.

Publicaré las respuesta que me den las tres haciendas forales (suerte con esto también).

Un saludo

[keys]

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

No se si es lo mismo (no creo, pero por si acaso), pero si son certificados que están instalados en la máquina (no como usuario local), hay problemas al acceder a ellos.
Necesitas elevación de permisos.

Hola a todos.

Ejecutando como administrador pasa lo mismo.

Haciendo pruebas tontas he visto que si lo ejecuto desde un programa de pruebas (.exe) funciona correctamente, pero desde una dll que es donde lo tenemos todo metido no. He copiado todo a una carpeta nueva y FUNCIONA, es decir copio y pego toda la carpeta del programa y funciona bien desde una dll.

Magia

[ermendalenda]

Empezado por keys

Hola a todos.

Ejecutando como administrador pasa lo mismo.

Haciendo pruebas tontas he visto que si lo ejecuto desde un programa de pruebas (.exe) funciona correctamente, pero desde una dll que es donde lo tenemos todo metido no. He copiado todo a una carpeta nueva y FUNCIONA, es decir copio y pego toda la carpeta del programa y funciona bien desde una dll.

Magia

Comprueba Sí la dll es win32 o win64, si es win32 y el sistema es de 64 seguramente tengas que meter la dll en windows\syswow64 en vez de system32 y registra lo allí como administrador con regsvr32.exe