Insert sucesivos

[Neftali [Germán.Estévez]]

Ahora las cosas quedan un poco más claras.

Empezado por ASEP

Lo que pretendo es, al abrir un formulario desde una acción en otro formulario, que este se abra en modo insert, mostrándome los campos del formulario en blanco para la inserción, y cuando el usuario valide los datos de entrada, el formulario vuelva a ponerse en modo inserción sin que el usuario haga nada más que darle a la V “ post” de la barra de menús y así sucesivamente hasta que el usuario cierre la ventana del formulario.

Lo primero que te diría viendo el código que has puesto, es que intentes utilizar los eventos correctos para cada cosa.
Por ejemplo, el evento FormPaint que utilizas "salta" muchas veces (cada vez que se pinta el formulario) así que posiblemente ese código se esté ejecutando muchas más veces de las necesarias.

Para lo que quieres hacer, básicamente necesitas hacer un Post (para guardar los datos actuales) y un Append (cada vez que quiereas añadir un registro nuevo).
Seguramente será más facil con un ejemplo, que explicarlo todo. Te adjunto un proyecto con lo básico para lo que necesitas.



Al finaol se trata de abrir el formulario y realizar el primer Append. Una vez que guardas el registro con Post, vuelves a realizar otro Append para añadir uno nuevo.

[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;