Insert sucesivos

[ASEP]

Muchísimas Gracias Neftali, es justo lo que necesitaba, me ha quedado super claro....

GRACIAS...

[[oscarac]]

Complementando un poco y quiza te ayude, yo hago algo similar a esto

tengo una variable que forma un bucle
p_opcion := 0;

Código Delphi [-]
  p_opcion := 0;
  While p_opcion = 0 do
  Begin
      CdsDetalle.Append
      frmIngresoComprobantesVariosD := TfrmIngresoComprobantesVariosD.Create(nil);
      frmIngresoComprobantesVariosD.FormStyle := fsNormal;
      frmIngresoComprobantesVariosD.Visible := False;
      frmIngresoComprobantesVariosD.ShowModal;
  End;

y en el boton de cancelar del formulario donde se agregan los datos coloco esto

Código Delphi [-]
procedure TfrmIngresoComprobantesVariosD.BtnCancelClick(Sender: TObject);
begin
  frmIngresoComprobantesVarios.p_opcion := -1;
  frmIngresoComprobantesVarios.CdsDetalle.Cancel;
  Close;
end;

de esa manera se sale del bucle

[ASEP]

Muchas gracias Oscarac

[[Al González]]

Solucionada la consulta de ASEP, me pregunto por qué usar una variable numérica en lugar de Boolean (True/False), estimado oscarac.

Empezado por oscarac

tengo una variable que forma un bucle

Código Delphi [-]
  p_opcion := 0;
  While p_opcion = 0 do
  Begin
      CdsDetalle.Append
      frmIngresoComprobantesVariosD := TfrmIngresoComprobantesVariosD.Create(nil);
      frmIngresoComprobantesVariosD.FormStyle := fsNormal;
      frmIngresoComprobantesVariosD.Visible := False;
      frmIngresoComprobantesVariosD.ShowModal;
  End;

//..

procedure TfrmIngresoComprobantesVariosD.BtnCancelClick(Sender: TObject);
begin
  frmIngresoComprobantesVarios.p_opcion := -1;
  frmIngresoComprobantesVarios.CdsDetalle.Cancel;
  Close;
end;