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>