FiveTech Support Forums

Amigos del Foro,

En alguna parte que despues de una busqueda detallada no logre encontrar estaba la repuesta a esto, pero bueno el problema es el siguiente : tengo un dialogo donde se ejecutan 7 valid, como debo hacer para que si el usuario con el mouse pincha la tecla aceptar (Grabar) se obligue a ejecutarse todos los valid ? o sea que no quede ni uno si evaluar ?

Espero haberme explicado, y agradeciendo de antemano su colaboracion

Ramon Paredes
Desde Managua, Nicaragua

Tendras que evaluar los bValids de cada control: EVAL(<control>:bValid)

Si solo tienes 7 controles y todos los controles tienen validacion puedes hacer directamente:

LOCAL lValid := .F.
AEVAL(oDlg:aControls, { |o| lValid .OR. EVAL(o:bValid) }

En caso contrario tendras que evaluarlos uno por uno:

lValid := EVAL( oGet1:bValid ) .OR. EVAL( oGet2:bValid ) .OR. ......

Lo que puedes hacer es utilizar un ARRAY:

LOCAL aGet := ARRAY(7)
.
.
REDEFINE GET aGet[1] ....
REDEFINE GET aGet[2] ....
REDEFINE GET aGet[3] ....
.
.
Así podras hacer:

LOCAL lValid := .F.
AEVAL(aGet, { |o| lValid .OR. EVAL(o:bValid) }

En todos los casos, si lValid da .T. es que han pasado todas las validaciones, sino es que algún bValid ha dado .F.

Tendras que evaluar los bValids de cada control: EVAL(<control>:bValid)

Si solo tienes 7 controles y todos los controles tienen validacion puedes hacer directamente:

LOCAL lValid := .F.
AEVAL(oDlg:aControls, { |o| lValid .OR. EVAL(o:bValid) }

En caso contrario tendras que evaluarlos uno por uno:

lValid := EVAL( oGet1:bValid ) .OR. EVAL( oGet2:bValid ) .OR. ......

Lo que puedes hacer es utilizar un ARRAY:

LOCAL aGet := ARRAY(7)
.
.
REDEFINE GET aGet[1] ....
REDEFINE GET aGet[2] ....
REDEFINE GET aGet[3] ....
.
.
Así podras hacer:

LOCAL lValid := .F.
AEVAL(aGet, { |o| lValid .OR. EVAL(o:bValid) }

En todos los casos, si lValid da .T. es que han pasado todas las validaciones, sino es que algún bValid ha dado .F.

Gracias antolin ,probare a ver que tal,

Saludes
Ramon Paredes