Recursividad en campos

[yeseniahdz]

¡Hola!

Tengo un problema que no se como resolver, resulta que tengo una tabla que se llama "Tareas" ya que en ella se reportan fallas de otros programas y se describe tanto la falla que hay como la solución que se le da, y tengo que hacer las siguientes validaciones:
*Que al cambiar el campo "PorcentajeAvance" (en este campo se lleva el porcentaje que se ha avanzado de la tarea o fallo, así que su valor puede ser de 1 hasta 100,)a un valor de 100, automaticamente ponga por default la fecha de hoy (el día en que se ejecute) al campo "FechaSolucion" (en este campo se almacena la fecha en que se da solución a la tarea) y cero al campo "Ejecutando" (este campo esta relacionado a un checkbox, por lo tanto su valor puede ser 0 ó 1, cero cuando es falso y uno cuando es verdadero, en general se refiere a que cuando es verdadero se esta trabajando sobre esa tarea y cuando es falso es por que ya se solucionó).
*Al establecer una fecha de solución no nula el campo de "PorcentajeAvance" sea igual a 100 y el campo de "Ejecutando" sea igual a cero.
Intente lo siguiente;En el evento OnChange del campo PorcentajeAvance hice esto:

 
If TaTareasPorcentajeAvance.Value = 100 Then
  Begin
	TaTareasFechaSolucion.Value := Date ();
	TaTareasEjecutando.Value := 0;
  End;

y en el evento OnChange de FechaSolucion lo siguiente:

 
If Not TaTareasFechaSolucion.IsNull Then
  Begin
	TaTareasPorcentajeAvance.Value := 100;
	TaTareasEjecutando.Value := 0;
  End;

TaTareas es el nombre de la tabla.
El problema es que al correr el programa y dar una fecha de solución me manda el siguiente error:
Project Tareas.exe raised exception class EStackOverflow with message 'Estack overflow'
Me parece que el problema es que hay recursividad en los campos o algo así pero no se como solucionarlo.

NOTA: Trabajo con delphi 7 y Firebird.
De antemano gracias por la ayuda que puedan brindarme.

[[Lepe]]

En lugar de usar los eventos Onchange, usa otros eventos... key up, mouse down de los controles asociados.

Y si esto no te sirve, entonces por fuerza bruta (haciendo honor a mi nick ):

Código Delphi [-]
If TaTareasPorcentajeAvance.Value = 100 Then
  Begin
     try
         // anulo el evento OnChange mientras modifico su valor por código
        TaTareasFechaSolucionChange := nil;

    TaTareasFechaSolucion.Value := Date ();
    TaTareasEjecutando.Value := 0;
     finally
        TaTareasFechaSolucionChange:= taTareasFechaSolucionChange;
     end; // finally
  End;

saludos

[jachguate]

Me parece que lo adecuado son los eventos OnChange. Tenes dos formas de enfrentarlo:

• Lo que te falta es lo que yo llamo una "bandera anti-recursiva".
  
  La idea es tener una propiedad o un miembro de la clase, que te indique si se está realizando una modificación. Digamos FAjustandoDatosRel, de tipo booleano. Al crearse la forma (o datamodule) esta bandera vale falso. Luego en los eventos OnChange "relacionados" en la recursividad indirecta algo como:
  
  

  Código Delphi [-]
  if FAjustandoDatosRel Then
    exit;
  If TaTareasPorcentajeAvance.Value = 100 Then
  Begin
    FAjustandoDatosRel := True;
    try
      TaTareasFechaSolucion.Value := Date ();
      TaTareasEjecutando.Value := 0;
    finally
      FAjustandoDatosRel := False;
    end;
  End;

  
  Igual aplicarias al otro método.
  
• La otra solución es simplemente hacer las asignaciones de manera "condicional". Es decir, en lugar de simplemente asignar 100 a TaTareasPorcentajeAvance, hacerlo solamente si el valor no es ya 100. Basta con añadir un if:
  

  Código Delphi [-]
    if TaTareasPorcentajeAvance.Value < 100 Then
      taTareasPorcentajeAvance.Value := 100;

Hasta luego.

[jachguate]

No me habia fijado en la segunda solución de lepe... pero asignar nil al evento también funcionaría a la perfección. Siempre que se restituya su valor en una clausula Try/Finally que envuelva todo lo que pueda fallar en el camino...

[yeseniahdz]

¡Hola!

Muchas gracias a los dos por su ayuda, que me fue de mucha utilidad; lo probe de las tres formas y funcionó bien, pero me quede con la última ya que es la más práctica.

Gracias nuevamente y hasta luego