Page 1 of 1
No Pasa el GET
Posted: Tue Mar 20, 2007 8:32 pm
by jacgsoft
Tengo la siguiente funcion con un GET, una vez que ingreso los 6 caracteres no pasa al VALID para ejecutar Verif_cla(@_Log)
no se porque?
Se agradece
Jaime
*******************************************************
Function Check_clav()
Local _Log:=.F.,oDlg,_Clav
_Clav:=Space(6)
Define Dialog oDlg Title 'Clave De Acceso' ;
From 05,04 To 10,40
@ 01,02 Say 'Ingrese Clave :'
@ 01,08 Get _Clav Picture'@!' Password Valid(Verif_cla(@_Log))
Activate Dialog oDlg Center
Return(_Log)
*********************************************************
Posted: Tue Mar 20, 2007 9:10 pm
by karinha
Code: Select all
#Include "FiveWin.Ch"
*******************************************************
FUNCTION Check_Clav()
LOCAL _Log := .F., oDlg, _Clav, _Otro_Get
//-> Necesita 2 Get's Para Funcionar
_Otro_Get := Space(06) //-> Asi, pasa!
_Clav := Space(06)
DEFINE DIALOG oDlg TITLE 'Clave De Acceso' ;
FROM 05, 04 To 18.50, 40
oDlg:lHelpIcon := .F.
@ 1.6, 02 Say 'Nombre del usuario ' SIZE 70,12 OF oDlg
@ 02, 08 Get _Otro_Get Picture '@!' SIZE 50, 12 OF oDlg ;
@ 2.6, 02 Say 'Ingrese Clave : ' SIZE 70, 12 OF oDlg
@ 03, 08 Get _Clav Picture '@!' PASSWORD SIZE 50, 12 OF oDlg ;
VALID( VERIF_CLA( @_Log, oDlg ) )
@ 4.5, 07 BUTTON "&Salida " OF oDlg SIZE 60,12 ;
ACTION( oDlg:End() ) CANCEL
ACTIVATE DIALOG oDlg CENTERED
Release All
RETURN( _Log )
STATIC FUNCTION VERIF_CLA( _Log, oDlg )
LOCAL lRet
lRet := .T.
? 'Log-> ', _Log
RETURN( lRet )
//-> FIN
Posted: Tue Mar 20, 2007 10:38 pm
by jacgsoft
Pero yo no quiero usar otro Get o Boton, quiero que quede como esta porque es una ventana de PASSWORD y solo necesito un GET
Att.
Jaime
Posted: Tue Mar 20, 2007 10:39 pm
by jacgsoft
Pero yo no quiero usar otro Get o Boton, quiero que quede como esta porque es una ventana de PASSWORD y solo necesito un GET
Att.
Jaime
Posted: Tue Mar 20, 2007 11:03 pm
by Patricio Avalos Aguirre
Hola
He probado el ejemplo y me sucede lo mismo
puede ser como no hay mas controles no puede salir de este,
prueba este ejemplo, es un turco chapuson no mas
Code: Select all
Function pass()
Local _Log:=.F.,oDlg,_Clav, oGet, _Clav2, oGet2
_Clav:=Space(6)
Define Dialog oDlg Title 'Clave De Acceso' ;
From 05,04 To 10,40
@ 01,02 Say 'Ingrese Clave :'
@ 01,08 Get oGet ;
VAR _Clav ;
Picture "@!" ;
Valid ( Verif_cla(@_Log), oDlg:End() )
@ 03,02 Say 'Ingrese Clave2 :'
@ 03,08 Get oGet2 ;
VAR _Clav2
Activate Dialog oDlg Center
Return(_Log)
*********************************************************
static function Verif_cla(_Log)
_log = "CLAVE"
ALERT( "MM" )
return( .t. )
Saludos
Patricio
Prueba esto
Posted: Tue Mar 20, 2007 11:10 pm
by fleal
A ver si me explico.
Function Check_clav()
Local _Log:=.F.,oDlg,_Clav
_Clav:=Space(6)
Define Dialog oDlg Title 'Clave De Acceso' ;
From 05,04 To 10,40
@ 01,02 Say 'Ingrese Clave :'
@ 01,08 Get _Clav Picture'@!' Password ;
Valid( Verif_cla( @_Log, _Clav, oDlg ) )
Activate Dialog oDlg Center
Return(_Log)
static function Verif_cla( _Log, _Clav, oDlg ) )
if _Clav == "OK"
_Log := .T.
oDlg:End( )
endif
return .F.
Posted: Wed Mar 21, 2007 6:44 pm
by karinha
Pués... solo te basta invisibilizar uno dos Gets y pronto.