1 respuesta en este tema

[FGarcia]

Ya regrese por aqui, tengo este codigo:

delphi

procedure TForm1.btValidarClick(Sender: TObject);
begin
  if VerificaDatos then
    begin
      if DatoValido then
        GuardaDatoEntrada
      else
        showmessage('¡Lo que sea, ESPERE!');
    end;
end;

Entonces esto es asi:
1 Pulso el boton de Validar
2 Se cumple la primera condicion
3 Se cumple la segunda condicion
4 Se guarda el dato
5 Termina la ejecucion

pero que tal si:
1 Pulso el boton de Validar
2 Se cumple la primera condicion
3 NO Se cumple la segunda condicion
4 Aparece la ventana de alerta
5 Termina la ejecucion

Hasta aqui el procedimiento y su ejecucion es lo normal. Debo de volver a pulsar el boton de validar para volver a verificar y si se cumplen todas las condiciones terminar la ejecucion o si no nuevamente empezar. Ahora bien, hace tiempo yo vi un programa hecho en Clipper en el que aparece la ventana de alerta y al pulsar el boton de Aceptar el programa "automaticamente" volvia al inicio y mientras el procedimiento no se cumpla seguia el mensaje de alerta y el operador solo pulsa el boton de Aceptar del mensaje. ¿como se puede hacer esto mismo en Delphi?

Saludos!

[FGarcia]

Bueno Hice esto, en el clik del boton solo ejecuto un procedimiento y si se cumple se llama al procedimiento GuardaDatoEntrada. Este ultimo lo modifique para que, primero verifique si el dato es valido y de ser asi lo guarde en la BD, en caso contrario muestra el mensaje, si se presiona la tecla YES se vuelve a ejecutar este ultimo procedimiento (¿funciones recursivas?):

delphi

procedure TForm1.btValidarClick(Sender: TObject);
begin
  if VerificaDatos then
     GuardaDatoEntrada;
 end;
 
procedure TForm1.GuardaDatoEntrada;
begin
  dmDatos.dstEntrada.Open ;
 
  if DatoValido then
    with dmDatos.dstEntrada do
      begin
        Append;
         //Lo que se tenga que guardar
        Post;
      end
  else
    if Alerta('¡El Dato no es valido! ¡ESPERE!') then
      GuardaDatoEntrada;
 
end;

Alerta es una funcion general que tengo para mensajes de tipo YES / NO

delphi

function Alerta(Msg:String): Boolean;
begin
 Result := MessageDlg(Msg, mtconfirmation, mbYesNo, 0) = mrYes;
end;

He estado haciendo algunas pruebas y me esta funcionando, aun asi lo pongo a su consideracion para corregir cualquier error que no haya detectado o mejorar el codigo.

(d)2