En un Form de Facturación tengo un Nº de comprobante para Factura A, otra B, C y Presupuesto.(son 4 campos distintos)
Código Delphi
[-]
procedure tfac.Numero_A;
begin
na:=0;
datos.Historial_Factura.Last;
inc(na);
na:=na+datos.Historial_FacturaNumero_a.Value ;
end;
Tengo un combo que guarda las letras(A,B,C) de los comprobantes, según oprima se van a visualizar los correspondientes DbEdit a cada nº.
Código Delphi
[-]
procedure TFac.ImprimirClick(Sender: TObject);
begin
if
MessageDlg('¿Comfirma los datos del Comprobante?',
MTWarning, mbOKCancel,0) <> mrOK
then
Exit;
if dbedit13.Visible=true then numero_presupuesto;
if dbedit14.Visible=true then numero_a;
if dbedit15.Visible=true then numero_b;
if dbedit16.Visible=true then numero_c;
with datos do begin
historial_factura.Insert;
Historial_FacturaVendedor.Value := dbedit10.Text ;
Historial_FacturaTipodeComprobante.Value := Tipo_Comprobantesdescripcion.Value;
Historial_FacturaLetraComprobante.Value := Letra_CompLetra.Value;
Historial_FacturaFechadeEmision.Value := Trunc(Now);
Historial_FacturaCodigo_de_Cliente.Value:= ClientesCodigodeCliente.Value;
Historial_FacturaNombre_Apellido_Cliente.value:= ClientesNombre_Apellido.Value;
Historial_FacturaForma_de_Pago.Value:= cond_ventaDescripcion.Value;
Historial_FacturaSubtotal.Value:= FFac_SubTotal;
Historial_Facturatotal.Value:= FFac_Total;
Historial_facturaNumero_presupuesto.Value:=NP;
historial_FacturaNumero_A.Value:=NA;
Historial_FacturaNumero_B.Value:=NB;
Historial_FacturaNumero_c.Value:=NC;
datos.Historial_Factura.Post;
with datos.factura do begin
First;
while not EOF do begin
detalle_factura.Append;
detalle_factura.FieldByName('Codigo').Value:=FieldByName('Codigo').Value;
detalle_factura.FieldByName('Descripcion').Value:=FieldByName('Nombre').Value;
detalle_factura.FieldByName('Precio Unitario').Value:= FieldByName('Costo').Value;
detalle_factura.FieldByName('Cantidad').Value:=FieldByName('Cantidad').Value;
detalle_factura.FieldByName('Importe').Value:= FieldByName('Importe').Value;
Next;
end;
Bien, el problema es que imprimo un par de Facturas y después los valores de
los Dbedit se ponen en 0;
Les doy las gracias por anticipado por su tiempo y espero que se interprete.