No Pasa el GET

[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)
*********************************************************

[karinha]

Code: Select all  Expand view  RUN


#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


[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

[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

[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  Expand view  RUN

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

[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.

[karinha]

Pués... solo te basta invisibilizar uno dos Gets y pronto.