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

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

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]

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:

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]

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]]

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]]

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):

<?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>