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? :cry:

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.