Salir de una validación

Salir de una validación

Postby José Camilo » Mon Feb 12, 2024 6:33 pm

Buenas tardes.
Tengo un GET numerico de 4 digitos que al ser 0 llama a una funcion de ayuda donmde muestra los posibles datos a cargar. hasta alli todo bien.
la pregunta es como puedo salir de ese GET validado sin entrar a la funcion que valida valga la redundancia. el GET esta asi:

REDEFINE GET oGarante1 VAR ngarante1 PICTURE "9999" ID Con_Garante1 OF oDlgCF valid VeoGaran(@nGarante1,@cVeoGaran1,.t.) .and. (oGarante1:Refresh(),oVeoGaran1:Refresh(),.t.)

si oprimo ESCAPE en el GET me cierra el dialogo.
Aclaro que de la funcion que valida ( VEOGARAN ) puedo salir con valor 0 y continuar con los restantes GETS del dialogo, lo que busco es poder oprimir una tecla (ej. TAB ) en el GET para NO INGRESAR a la función. Se puede?

Gracias
José Camilo
 
Posts: 180
Joined: Wed Apr 07, 2021 3:56 pm

Re: Salir de una validación

Postby karinha » Mon Feb 12, 2024 9:15 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7213
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Salir de una validación

Postby José Camilo » Tue Feb 13, 2024 12:05 am

Gracias por tu tiempo Joao !!! pero no es lo que busco.
Gracias
José Camilo
 
Posts: 180
Joined: Wed Apr 07, 2021 3:56 pm

Re: Salir de una validación

Postby Marco Augusto » Tue Feb 13, 2024 1:35 am

no funcionaría como

valid (ngarante1=0 .or. (VeoGaran(@nGarante1,@cVeoGaran1,.t.) .and. (oGarante1:Refresh(),oVeoGaran1:Refresh(),.t.) )
Marco Augusto Rodriguez Manzo
FWH January 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport

PERZO SOFT
Sistemas Personalizados
User avatar
Marco Augusto
 
Posts: 141
Joined: Wed Oct 12, 2005 1:03 pm
Location: Cuernacava, Morelos Mexico

Re: Salir de una validación

Postby José Camilo » Tue Feb 13, 2024 1:53 am

Hola Marco Augusto, gracias por tu tiempo.
Si funcionaria pero sucede que cuando doy enter con valor 0 lo uso para llamar a la función de ayuda.
lo que estoy buscando es saber si se puede saltar la validación al oprimir una tecla como por ejemplo TAB.

Muchas gracias igual.
Abrazo
José Camilo
 
Posts: 180
Joined: Wed Apr 07, 2021 3:56 pm

Re: Salir de una validación

Postby nageswaragunupudi » Wed Feb 14, 2024 2:39 am

Code: Select all  Expand view
@ r,c GET oGet VAR nVar PICTURE "9999" SIZE w,h PIXEL OF oDlg ;
VALID If( oGet:nLastKey == VK_TAB, .T., ( your valid function ) )
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10247
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Salir de una validación

Postby José Camilo » Wed Feb 14, 2024 4:51 am

Gracias Mr. Rao !!!
perfecto.
José Camilo
 
Posts: 180
Joined: Wed Apr 07, 2021 3:56 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 69 guests

cron