[georgejg]

Código Delphi [-]
procedure TUnit_Main.Button1Click(Sender: TObject);
begin

//Activar Tabla1 para que permita guardar mas de un registro de Tabla2
      BDMasdata.Table1.Active:= True;
      BDMasdata.Table1.Edit;

  //Guardar Tabla2
  BDMasdata.Query1.SQL.Text:= 'SELECT Max(CONSECUTIVO) FROM Tabla2';
  BDMasdata.Query1.Open;
  DBEdit1.Text:= FloatToStr(BDMasdata.Query1.Fields[0].AsFloat+1);
  BDMasdata.Query1.Close;

  BDMasdata.Table2.Active:= True;
  BDMasdata.Table2.Insert; 
  BDMasdata.Table2.FieldByName('EMPRESA').AsString:= ComboEmp.Text;
  BDMasdata.Table2.FieldByName('FECHA').AsDateTime:= Trunc(fecha.Date);
  BDMasdata.Table2.FieldByName('REPORTE').AsString:= ComboRep.Text;
  BDMasdata.Table2.FieldByName('CONSECUTIVO').AsString:= DBEdit1.Text;
  BDMasdata.Table2.FieldByName('TOTAL2').AsString:= EditTotal2.Text;
  BDMasdata.Table2.Post;

//Dar Valor a las variables
      if EditTotal2.Text = '' then begin EditTotal2.Text:= IntToStr(0); aco1:= StrToInt(EditTotal2.Text); end
      else begin aco1:= StrToInt(EditTotal2.Text); end;

      if Edit84.Text = '' then begin Edit84.Text:= IntToStr(0); aco2:= StrToInt(Edit84.Text); end
      else begin aco2:= StrToInt(Edit84.Text); end;

      MessageDlg('El Registro fue Guardado Satisfactoriamente',mtInformation,[mbOk],0);

  if MessageDlg('Desea Ingresar Mas Detalles !!',mtConfirmation,[mbYes, mbNo],0) = idYes then
    begin

      DBEdit2.Clear; DBEdit3.Clear; DBEdit4.Clear; DBEdit5.Clear;
      DBEdit6.Clear; DBEdit7.Clear; DBEdit8.Clear;

      DBEdit1.Clear;

      Cancelar.Enabled:= False;

      //Iniciar Nuevamente desde Fecha
      Fecha.SetFocus;

      //Dar Valor a las variables y sumar TOTAL
      aco3:= aco1+aco2;

      Edit84.Text:= IntToStr(aco3);
      EditTotal2.Text:='';
      aco1:= 0;

      //Mostrar un nuevo consecutivo en los DBEdit determinados
 BDMasdata.Query1.SQL.Text:= 'SELECT Max(CONSECUTIVO) FROM Tabla2';
 BDMasdata.Query1.Open;
 DBEdit1.Text:= FloatToStr(BDMasdata.Query1.Fields[0].AsFloat+1);
 BDMasdata.Query1.Close;

    end
    else begin

      DBEdit2.Clear; DBEdit3.Clear; DBEdit4.Clear; DBEdit5.Clear;
      DBEdit6.Clear; DBEdit7.Clear; DBEdit8.Clear;

      //Dar Valor a las variables y sumar
      aco3:= aco1+aco2;

      Edit84.Text:= IntToStr(aco3);
      EditTotalH.Text:= '';
      aco1:= 0;

    //Realizar modificaciones a la Tabla1 de acuerdo al Acumuldo de los Totales
      BDMasdata.Table1.Edit;
      BDMasdata.Table1.FieldByName('TOTALH_ENTREGADO_LIMPIO').Value:= Edit84.Text;
      BDMasdata.Table1.Post;
    end;