No Pasa el GET

No Pasa el GET

Postby jacgsoft » Tue Mar 20, 2007 8:32 pm

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)
*********************************************************
User avatar
jacgsoft
 
Posts: 105
Joined: Fri Nov 24, 2006 9:03 pm
Location: Lima - Peru

Postby karinha » Tue Mar 20, 2007 9:10 pm

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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7856
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby jacgsoft » Tue Mar 20, 2007 10:38 pm

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
User avatar
jacgsoft
 
Posts: 105
Joined: Fri Nov 24, 2006 9:03 pm
Location: Lima - Peru

Postby jacgsoft » Tue Mar 20, 2007 10:39 pm

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
User avatar
jacgsoft
 
Posts: 105
Joined: Fri Nov 24, 2006 9:03 pm
Location: Lima - Peru

Postby Patricio Avalos Aguirre » Tue Mar 20, 2007 11:03 pm

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
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Prueba esto

Postby fleal » Tue Mar 20, 2007 11:10 pm

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.
fleal
 
Posts: 234
Joined: Tue Oct 25, 2005 12:39 am
Location: México, DF

Postby karinha » Wed Mar 21, 2007 6:44 pm

Pués... solo te basta invisibilizar uno dos Gets y pronto.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7856
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: RSalazarU and 35 guests