FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Salir de una validaci贸n
Posts: 212
Joined: Wed Apr 07, 2021 03:56 PM
Salir de una validaci贸n
Posted: Mon Feb 12, 2024 06: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

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Salir de una validaci贸n
Posted: Mon Feb 12, 2024 09:15 PM
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 212
Joined: Wed Apr 07, 2021 03:56 PM
Re: Salir de una validaci贸n
Posted: Tue Feb 13, 2024 12:05 AM

Gracias por tu tiempo Joao !!! pero no es lo que busco.

Gracias

Posts: 151
Joined: Wed Oct 12, 2005 01:03 PM
Re: Salir de una validaci贸n
Posted: Tue Feb 13, 2024 01: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
Posts: 212
Joined: Wed Apr 07, 2021 03:56 PM
Re: Salir de una validaci贸n
Posted: Tue Feb 13, 2024 01: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

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Salir de una validaci贸n
Posted: Wed Feb 14, 2024 02:39 AM
Code (fw): Select all Collapse
@ 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
Posts: 212
Joined: Wed Apr 07, 2021 03:56 PM
Re: Salir de una validaci贸n
Posted: Wed Feb 14, 2024 04:51 AM

Gracias Mr. Rao !!!

perfecto.

Continue the discussion