Clipper/FiveWin - Saltar a un get en particular

 
Vista:

Saltar a un get en particular

Publicado por Omar Aguirre (45 intervenciones) el 14/10/2005 16:13:01
Compañeros todos, necesitos me ayuden con el siguiente dilema, tengo una lista de Get's que se originan con el objeto DataBase, es decir, algo como oDbf:Nombre, oDbf:Sueldo...etc, pero quisiera que cuando realizo la evaluacion de alguno de ellos o bajo ciertas condiciones, el siguiente GET al que salte sea uno que yo condicione.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Saltar a un get en particular

Publicado por Armando Estrada Bucio (167 intervenciones) el 14/10/2005 16:31:55
Omar:

En la función de validación que te condiciona a donde quieres saltar utiliza

oGetquequieres:SetControl()

Por ejemplo:

FUNCTION Validar(oGetQueQuiero)
IF Algo
oGetQueQuiero:SetControl()
ELSE
ENDIF
RETURN(.T.)

Saludos, Armando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Saltar a un get en particular

Publicado por Nelson Nunes de Araujo (20 intervenciones) el 22/12/2005 23:58:47
Ola,
tambem pode ser feito o seguinte :
FUNCTION MAIN()
LOCAL oGet::=ARRAY(3), oDlg
.
.
.

REDEFINE oGet[1] VAR oDbf:Nome OF oDlg ;
ID ...
PICT "@!"

REDEFINE oGet[2] VAR oDbf:Endereco OF oDlg ;
ID ...
PICT "@!" VALID VER_NOME( oGet , oDbf )

REDEFINE oGet[3] VAR oDbf:Telef OF oDlg ;
ID ...
PICT "9999-99999"

===========

STATIC FUNCION VER_NOME( oGet , oDbf)

LOCAL lRet:=.F.
IF oDbf:Nome
// Se atender esta opcao, ira para o Get[3[
bla, bla, bla
lRet:=.T.
ELSE
// senao, ira para o Get anterior
oGet[1]:SetFocus() // ou xSetFocus( oGet[1] )
ENDIF

RETURN lRet
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar