Distinto numeros de Factura
 

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;{incremento a el Nº de la Factura 1 mas}
begin
na:=0;
datos.Historial_Factura.Last;
inc(na);
na:=na+datos.Historial_FacturaNumero_a.Value  ;
end;
{se repite lo mismo para los demás comprobantes}
{NA=fac A}
{NB=fac B}
{NC=fac C}
{NP=presupuesto}

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);{mando a Imprimir}
begin
if
 MessageDlg('¿Comfirma los datos del Comprobante?',
    MTWarning, mbOKCancel,0) <> mrOK
  then
    Exit;
{si el dbedit que contiene al Nº de Comp. está visible al imprimir, que le sume 1 a ese Nº nada mas}
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  {van el detalle para documentos emitidos}
        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;
{el historial con el detalle arman un Maestro-Detalle}

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.

Opción 1:
Puede ser que el Dataset esté cerrado y por eso la función numero_a devuelva 0.

Código Delphi [-]procedure tfac.Numero_A;{incremento a el Nº de la Factura 1 mas} begin na:=0; datos.Historial_Factura.Last; inc(na); na:=na+datos.Historial_FacturaNumero_a.Value ; end;


Opción 2:
Luego de hacer el Post, quizás deberías hacer un Refresh o un Close;Open; de la tabla Historial_Factura, para refrescar los datos y que la función Numero_A funcione correctamente.

Código Delphi [-]
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;
    datos.Historial_Factura.Close;
    datos.Historial_Factura.Open;

Hola hugo_junion, añadiendo a lo que dijo duliosiloa, no estas haciendo un post por cada registro del detalle.

Código Delphi [-]
while not EOF do begin  {van el detalle para documentos emitidos}
  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;
  detalle_factura.Post;  
  Next;
end;

Saluditos

Ya solucionés los del Post del detalle, gracias. Pero sigo teniendo el mismo problema cuando abro el formulario me muestra los últimos nº, pero cuando imprimo un factura, le suma a la letra que estoy trabajando y al resto las pone en 0.

solucionado
 

Ya está solucionado, gracias a todos.:)