TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco - Página 6

edejuan · #1 31-10-2022

Hola,

Desde que enviaste el formulario de registro cuanto han tardado en remitirte la licencia de producción ?

Yo aún estoy a la espera y hoy es 31 ya ...

Cita:

Empezado por sEngine

Ahora que al fin nos hemos registrado en guipuzkoa y tenemos el codigo, hay que hacerlo tambien en el resto? o con uno ya sirve para todos?

sEngine · #2 31-10-2022

Cita:

Empezado por edejuan

Hola,

Desde que enviaste el formulario de registro cuanto han tardado en remitirte la licencia de producción ?

Yo aún estoy a la espera y hoy es 31 ya ...

Me llegó el mismo dia, casi al momento

Irreo · #3 31-10-2022

Cita:

Empezado por edejuan

Hola,

Desde que enviaste el formulario de registro cuanto han tardado en remitirte la licencia de producción ?

Yo aún estoy a la espera y hoy es 31 ya ...

Los compañeros que hicieron el registro que yo sepa no recibieron nada (o no lo vieron).

Entrando en el propio panel de Hacienda les aparecía el registro como OK y podían descargar los acuerdos, licencia, etc...

josevalle · #4 31-10-2022

Hola: En Álava presenté 2, el primero tardó mes y medio, el segundo una semana.

elcharlie · #5 14-10-2022

Cita:

Empezado por josevalle

Hola

Tengo problemas al generar los qr cuando al firmar el xml me aparece un signo + en os primeros caracteres de SignatureValue

...id=TBAI-14894343A-081022-Wx+Royp0h3nOY-210&s=FAC&nf=100019&i=1.62&cr=064...

He consultado con los de soporte de la Bfa, pero no entiendo la respuesta. Si simplemente cambio el + por %2B me sigue dando error. En los demás casos funciona bien y ya tengo la aplicación en producción.

Egun on,
Nos ponemos en contacto con usted porque hemos recibido a través de la aplicación “Comprueba tu factura”, la imagen de una factura emitida por usted cuyo código QR da error de lectura.
En este sentido, le informamos que el código QR debe contener una URL válida para acceder a la aplicación web de comprobación de facturas o justificantes expedidos con software garante con los datos de la factura o justificante incluidos como parámetros. Si la URL o sus parámetros contienen caracteres no válidos, deberán ser codificados (URL encoding) de forma correcta siguiendo los usos normales de las arquitecturas web, como por ejemplo reemplazar el símbolo “+ ” por “%2B” o el símbolo “/” por “%2F”.

En Bizkaia y en Gipuzkoa, tienes que calcular el crc con la url ya modificada, en Araba no es necesario

josevalle · #6 15-10-2022

Cita:

Empezado por elcharlie

En Bizkaia y en Gipuzkoa, tienes que calcular el crc con la url ya modificada, en Araba no es necesario

La respuesta que me dieron los de soporte de Bfa era correcta aunque me costó entenderla.

De la firma extraigo los 13 primeros caracteres de ‘SignatureValue’, en mi caso Wx+Royp0h3nOY
cText:=”zzzz batuz.eus/QRTBAI/?id=TBAI-14894343A-081022-Wx+Royp0h3nOY-“
Calculo el crc8 lo los 36 últimos caracteres TBAI-14894343A-081022-Wx+Royp0h3nOY-
Que es: 125, los añado y también la serie, el número de factura y el importe
zzzz batuz.eus/QRTBAI/?id=TBAI-14894343A-081022-Wx+Royp0h3nOY-125&s=FAC&nf=100019&i=1.62
Sustituyo el signo + por %2B
zzzz batuz.eus/QRTBAI/?id=TBAI-14894343A-081022-Wx%2BRoyp0h3nOY-125&s=FAC&nf=100019&i=1.62
y calculo el crc, que es 1, lo añado y ya está
ctext:=zzzz batuz.eus/QRTBAI/?id=TBAI-14894343A-081022-Wx%2BRoyp0h3nOY-125&s=FAC&nf=100019&i=1.62&cr=001

Irreo · #7 17-10-2022

Buenas!,

¿Os funciona el servicio de consultar QR?

https://tbai.prep.gipuzkoa.eus/qr/

A mi me viene dando 503 desde la semana pasada...

Neftali [Germán.Estévez] · #8 17-10-2022

Cita:

Empezado por Irreo

Buenas!,
¿Os funciona el servicio de consultar QR?
https://tbai.prep.gipuzkoa.eus/qr/
A mi me viene dando 503 desde la semana pasada...

A mi me está funcionando correctamente.
Una consultada ahora mismo:
https://tbai.prep.gipuzkoa.eus/qr/?i...&i=3.63&cr=029

Código PHP:


			
https://tbai.prep.gipuzkoa.eus/qr/?id=TBAI-B05430756-041022-Z3494GXYnsewV-035&s=SGG&nf=36&i=3.63&cr=029

sexxxwax · #9 09-11-2022

Buenas a tod@s, estoy migrando un programa de D6 a D10 con todo lo que supone d incompatibilidades (componentes bde, informes qr, ...) y ahora encima esto del ticketbai; estoy leyendo el foro d ticketbai (voy x la página 60) y me imagino las horas y roturas d cabeza que llevais, la cantidad d errores que habeis solucionado entre todos, así que os felicito.

Yo necesitaría algo d ayuda, así que pondré varias cosas x si alguno tiene tiempo o ganas d ayudarme, d todas formas gracias x anticipado.

Estoy montando el xml insertando datos d las tablas del tpv y al hacer el bucle para recorrer las líneas d la venta actual añadiendolas como iddetalleventa sólo me carga la última línea. Os pego el código x si me podeis ayudar.

Código Delphi [-]DATOSFACTURA.FechaOperacion:=TPVH.FIELDBYNAME('FECHA').ASSTRING; 
DATOSFACTURA.DescripcionFactura:='TPV1-'+FIELDBYNAME('N_VENTA').ASSTRING; 
TPV.FIRST; 
while NOT TPV.EOF do BEGIN 
    with DATOSFACTURA.DetallesFactura.IDDetalleFactura do begin 
        DescripcionDetalle:=FIELDBYNAME('ARTICULO').ASSTRING; 
        Cantidad:=FIELDBYNAME('CTDAD').ASSTRING; 
        ImporteUnitario:=FLOATTOSTR(ROUNDTO(FIELDBYNAME('PVP_E U').VALUE,-2)); 
        Descuento:=FIELDBYNAME('DTO').ASSTRING; 
        ImporteTotal:=FLOATTOSTR(ROUNDTO(FIELDBYNAME('IMPORTE_ EU').VALUE,-2)); 
    end; 
    TPV.NEXT; 
END; 
DATOSFACTURA.IMPORTETOTALFACTURA:=FLOATTOSTR(ROUNDTO(TPVH.FIELDBYNAME('TOTAL_EU').VALUE,-2));

Irreo · #10 09-11-2022

Cita:

Empezado por sexxxwax

sólo me carga la última línea. Os pego el código x si me podeis ayudar.

De DELPHI no tengo ni idea, pero mirando ese bucle, no veo ningún código que me sugiera que estás agregando líneas de factura.
Veo por un lado asignaciones a Cantidad, Descuento, etc...
Y por otro lado veo que a cada vuelta entras en "IDDetalleFactura" con un With.
Si en Delphi con ese "with" inicial ya estás creando una nueva línea, entonces no me hagas caso, pero si ese lenguaje es parecido a otros que he usado, diría que estás asignando los valores todo el rato a la misma fila.

Neftali [Germán.Estévez] · #11 09-11-2022

Cita:

Empezado por sexxxwax

Estoy montando el xml insertando datos d las tablas del tpv y al hacer el bucle para recorrer las líneas d la venta actual añadiendolas como iddetalleventa sólo me carga la última línea.

Es posible que para añadir cada línea debas hacer antes un Add:

Código Delphi [-]var
   Detalle: IXMLIDDetalleFacturaType;
begin
   ...
   Detalle := ...DatosFactura.DetallesFactura.Add;
   // rellenar los valores
   Detalle.DescripcionDetalle := ...;
   Detalle.Cantidad := ...;
   Detalle.ImporteUnitario := ...;
   Detalle.Descuento := ...;
   Detalle.ImporteTotal := ...;

sexxxwax · #12 09-11-2022

Cita:

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

Es posible que para añadir cada línea debas hacer antes un Add:

Código Delphi [-]var
   Detalle: IXMLIDDetalleFacturaType;
begin
   ...
   Detalle := ...DatosFactura.DetallesFactura.Add;
   // rellenar los valores
   Detalle.DescripcionDetalle := ...;
   Detalle.Cantidad := ...;
   Detalle.ImporteUnitario := ...;
   Detalle.Descuento := ...;
   Detalle.ImporteTotal := ...;

Gracias pero el add no lo reconoce, esto tira sin error:

Código Delphi [-]  while NOT TPV.EOF do
  BEGIN
    DATOSFACTURA.DetallesFactura.addchild('IDDetalleFactura');
    DATOSFACTURA.DetallesFactura.IDDetalleFactura.addchild('DescripcionDetalle');
    DATOSFACTURA.DetallesFactura.IDDetalleFactura.DescripcionDetalle := FIELDBYNAME('ARTICULO').ASSTRING;
    DATOSFACTURA.DetallesFactura.IDDetalleFactura.addchild('Cantidad');
    DATOSFACTURA.DetallesFactura.IDDetalleFactura.Cantidad := FIELDBYNAME('CTDAD').ASSTRING;
    DATOSFACTURA.DetallesFactura.IDDetalleFactura.addchild('ImporteUnitario');
    DATOSFACTURA.DetallesFactura.IDDetalleFactura.ImporteUnitario := FLOATTOSTR(ROUNDTO(FIELDBYNAME('PVP_E U').VALUE, -2));
    DATOSFACTURA.DetallesFactura.IDDetalleFactura.addchild('Descuento');
    DATOSFACTURA.DetallesFactura.IDDetalleFactura.Descuento := FIELDBYNAME('DTO').ASSTRING;
    DATOSFACTURA.DetallesFactura.IDDetalleFactura.addchild('ImporteTotal');
    DATOSFACTURA.DetallesFactura.IDDetalleFactura.ImporteTotal := FLOATTOSTR(ROUNDTO(FIELDBYNAME('IMPORTE_ EU').VALUE, -2));
    TPV.NEXT;
  END;

pero obtengo esta salida:

Cita:

DetallesFactura
IDDetalleFactura
DescripcionDetalle = CORREO ALAVA
Cantidad = 4
ImporteUnitario = 2,3
Descuento = 0
ImporteTotal = 9,2
DescripcionDetalle
Cantidad
ImporteUnitario
Descuento
ImporteTotal
IDDetalleFactura
ImporteTotalFactura = 11,7

intento poner el formato d código delphi y en previsualizar se ve bien pero luego sale todo sin formato, sorry. Puede ser x este aviso??? 'Aún no tienes permitido poner enlaces ni imágenes'

sexxxwax · #13 09-11-2022

Much@s a lo mejor os estareis partiendo la caja flipando conmigo, que no soy capaz d mandar un post en condiciones, no es mi intención dar curro al admin editando mis post, pero intento hacerlo bien.

Desarrollé una aplicación en los años 90, D1, D2... d unas 89.000 líneas de código, además dl schema d la bbdd que entre sp y triggers andará x las 2.500. Pero todo esto me supera, en todos los grupos hay un amigo patoso, tener paciencia conmigo.

Si alguien necesita código de lectura d cod d barras, facturación, etc..... estoy encantado d aportar mi granito d arena.

Un saludo a tod@s y gracias x la comprensión

Neftali [Germán.Estévez] · #14 09-11-2022

Cita:

Empezado por sexxxwax

intento poner el formato d código delphi y en previsualizar se ve bien pero luego sale todo sin formato, sorry. Puede ser x este aviso??? 'Aún no tienes permitido poner enlaces ni imágenes'

Es posible que sea problema del previsualizador o del navegador (o de ambas cosas).
Prueba a no usar la previsualización.

Neftali [Germán.Estévez] · #15 09-11-2022

Cita:

Empezado por sexxxwax

Gracias pero el add no lo reconoce, esto tira sin error:

Sí que funciona el Add.
Te pongo algo de código para trabajar en las facturas de TBAI, simplemente para que veas.

Un código como este (revisa sobre todo la parte del Add para las líneas):

Código Delphi [-]uses
  ticketBaiV12, XMLDoc, XMLIntf;

procedure TForm3.Button1Click(Sender: TObject);
var
  TicketBAI: IXMLTicketBai;
  detalleFactura: IXMLIDDetalleFacturaType;
begin
  TicketBAI := NewTicketBai;

  TicketBAI.Cabecera.IDVersionTBAI := '1.2';
  //  ...
  detalleFactura := TicketBAI.Factura.DatosFactura.DetallesFactura.Add;
  detalleFactura.DescripcionDetalle := 'primera linea';
  detalleFactura.Cantidad := '1';
  detalleFactura.ImporteUnitario:= '100';
  detalleFactura.DescripcionDetalle := '10';
  detalleFactura.ImporteTotal := '90';
  detalleFactura := TicketBAI.Factura.DatosFactura.DetallesFactura.Add;
  detalleFactura.DescripcionDetalle := 'segunda linea';
  detalleFactura.Cantidad := '2';
  detalleFactura.ImporteUnitario:= '200';
  detalleFactura.DescripcionDetalle := '10';
  detalleFactura.ImporteTotal := '180';
  //...
  Memo1.Text := TicketBAI.XML;

  Memo1.Text := xmlDoc.FormatXMLData(TicketBAI.OwnerDocument.XML.Text);

end;

Genera una salida como esta (con 2 detalles de líneas):

Código:

<?xml version="1.0"?>
<T:TicketBai xmlns:T="urn:ticketbai:emision">
  <Cabecera>
    <IDVersionTBAI>1.2</IDVersionTBAI>
  </Cabecera>
  <Sujetos/>
  <Factura>
    <DatosFactura>
      <DetallesFactura>
        <IDDetalleFactura>
          <DescripcionDetalle>10</DescripcionDetalle>
          <Cantidad>1</Cantidad>
          <ImporteUnitario>100</ImporteUnitario>
          <ImporteTotal>90</ImporteTotal>
        </IDDetalleFactura>
        <IDDetalleFactura>
          <DescripcionDetalle>10</DescripcionDetalle>
          <Cantidad>2</Cantidad>
          <ImporteUnitario>200</ImporteUnitario>
          <ImporteTotal>180</ImporteTotal>
        </IDDetalleFactura>
      </DetallesFactura>
    </DatosFactura>
  </Factura>
  <HuellaTBAI/>
</T:TicketBai>

APO · #16 11-11-2022

Cita:

Empezado por sexxxwax

Buenas a tod@s, estoy migrando un programa de D6 a D10 con todo lo que supone d incompatibilidades (componentes bde, informes qr, ...) y ahora encima esto del ticketbai; estoy leyendo el foro d ticketbai (voy x la página 60) y me imagino las horas y roturas d cabeza que llevais, la cantidad d errores que habeis solucionado entre todos, así que os felicito.

Yo necesitaría algo d ayuda, así que pondré varias cosas x si alguno tiene tiempo o ganas d ayudarme, d todas formas gracias x anticipado.

Estoy montando el xml insertando datos d las tablas del tpv y al hacer el bucle para recorrer las líneas d la venta actual añadiendolas como iddetalleventa sólo me carga la última línea. Os pego el código x si me podeis ayudar.

Código Delphi [-]DATOSFACTURA.FechaOperacion:=TPVH.FIELDBYNAME('FECHA').ASSTRING; 
DATOSFACTURA.DescripcionFactura:='TPV1-'+FIELDBYNAME('N_VENTA').ASSTRING; 
TPV.FIRST; 
while NOT TPV.EOF do BEGIN 
    with DATOSFACTURA.DetallesFactura.IDDetalleFactura do begin 
        DescripcionDetalle:=FIELDBYNAME('ARTICULO').ASSTRING; 
        Cantidad:=FIELDBYNAME('CTDAD').ASSTRING; 
        ImporteUnitario:=FLOATTOSTR(ROUNDTO(FIELDBYNAME('PVP_E U').VALUE,-2)); 
        Descuento:=FIELDBYNAME('DTO').ASSTRING; 
        ImporteTotal:=FLOATTOSTR(ROUNDTO(FIELDBYNAME('IMPORTE_ EU').VALUE,-2)); 
    end; 
    TPV.NEXT; 
END; 
DATOSFACTURA.IMPORTETOTALFACTURA:=FLOATTOSTR(ROUNDTO(TPVH.FIELDBYNAME('TOTAL_EU').VALUE,-2));

Yo lo hago de la siguiente manera:

Código Delphi [-]var
   FicheroXML: IXMLTicketBai;

...

            with FicheroXML.Factura.DatosFactura do
            begin
               FechaOperacion:=FormatDateTime('dd-mm-yyyy',qExec.FieldByName('FECHA').AsDateTime);
               DescripcionFactura:='VENTAS AL POR MENOR EESS';
               //Detalle factura
               qExec.First;
               i:=0;
               while not qExec.Eof do
               begin
                  DetallesFactura.Add;
                  DetallesFactura.IDDetalleFactura[i].DescripcionDetalle:=trim(qExec.FieldByName('DESCRIPCION_PRODUCTO').AsString);
                  DetallesFactura.IDDetalleFactura[i].Cantidad:=TransFloat(qExec.FieldByName('UNIDADES').AsFloat,2);
                  DetallesFactura.IDDetalleFactura[i].ImporteUnitario:=TransFloat(qExec.FieldByName('PRECIO_VENTA').AsFloat,8); //Importe unitario SIN  IVA
                  if Redondeo(qExec.FieldByName('PRECIO_VENTA').AsFloat,2)<>Redondeo(qExec.FieldByName('PRECIO').AsFloat,  2) then
                  begin
                     //Importe en euros del descuento de la línea de factura (el importe de descuento ha de ir siempre en positivo).
                     DetallesFactura.IDDetalleFactura[i].Descuento:=TransFloat((qExec.FieldByName('PRECIO_VENTA').AsFloat-qExec.FieldByName('PRECIO').AsFloat) *
                                                                                Redondeo(qExec.FieldByName('UNIDADES').AsFloat,2),2);
                  end
                  else
                  begin
                     DetallesFactura.IDDetalleFactura[i].Descuento:='0.00';
                  end;
                  DetallesFactura.IDDetalleFactura[i].ImporteTotal:=TransFloat(qExec.FieldByName('IMPORTE_IVA').AsFloat,2); //Importe total CON IVA
                  qExec.Next;
                  i:=i+1;
               end;
               ImporteTotalFactura:=TransFloat(qExec.FieldByName('TOTAL').AsFloat,2); //Importe total de la factura simplificada
               //Claves
               Claves.Add;
               Claves.IDClave[0].ClaveRegimenIvaOpTrascendencia:='01'; //Operación de régimen general
            end;

espinete · #17 14-11-2022

Buenas...

Tengo un problema con un cliente que decidió enviar a Hacienda facturas reales al entorno de pruebas (por ejemplo, de la 1 a la 10), luego siguió enviando facturas al entorno real/producción (de la 11 a la 20) y ahora quiere enviar, al entorno real, esas primeras 10 facturas que solo se enviaron al de pruebas.

Obviamente da error de encadenamiento, pero el cliente dice que Hacienda le dice que sí debería poder enviarlas.

Yo le he dicho que, si ya envió al entorno real, las facturas 11 a la 20, si quiere enviar ahora de la 1 a la 10 me temo que no queda otra que anular o hacer rectificativas de todas, lo cual es un coñazo.

¿Hay alguna otra opción?

Irreo · #18 14-11-2022

Cita:

Empezado por espinete

Buenas...

Tengo un problema con un cliente que decidió enviar a Hacienda facturas reales al entorno de pruebas (por ejemplo, de la 1 a la 10), luego siguió enviando facturas al entorno real/producción (de la 11 a la 20) y ahora quiere enviar, al entorno real, esas primeras 10 facturas que solo se enviaron al de pruebas.

Obviamente da error de encadenamiento, pero el cliente dice que Hacienda le dice que sí debería poder enviarlas.

Yo le he dicho que, si ya envió al entorno real, las facturas 11 a la 20, si quiere enviar ahora de la 1 a la 10 me temo que no queda otra que anular o hacer rectificativas de todas, lo cual es un coñazo.

¿Hay alguna otra opción?

¿Pero la factura "1" la está encadenando con la "20"?

Yo he hecho cosas raras con números y fechas de emisión, y por el momento no he obtenido errores de encadenamiento (de hecho justo unos mensajes atrás pregunto sobre ese tema). Yo por ahora estoy haciendo lo que dicen ellos: "encadenar con la última factura emitida por el dispositivo", independientemente de qué fechas o números tenga.

(Eso sí, en mi caso todavía tengo que confirmar en la Sede que el lío de fechas y números que he montado está "correcto", independientemente de que la respuesta suya haya sido "OK")

Ramon88 · #19 14-11-2022

Tengo un cliente en gipuzkoa en producción que esta teniendo problemas para subir las facturas.
Os funciona?

Irreo · #20 14-11-2022

Cita:

Empezado por Ramon88

Tengo un cliente en gipuzkoa en producción que esta teniendo problemas para subir las facturas.
Os funciona?

Durante esta mañana no he tenido problemas, de hecho estamos enviando facturas ahora bien.

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice	newtron	Internet	3557	Hace 1 Semana 17:42:47
Como utilizar la ayuda del nuevo Sistema Operativo	gluglu	Humor	3	24-09-2007 09:39:05
Aplicacion Agencia De Viajes	ArdiIIa	Varios	9	20-01-2007 16:49:53
El Vasco Aguirre	Al González	La Taberna	5	26-05-2006 09:22:28
Microsoft ha lanzado su nuevo sistema operativo	DarkByte	Humor	0	25-01-2004 09:21:14