topic-6415

Posts: 114

Joined: Fri Nov 24, 2006 09:03 PM

No Pasa el GET
Posted: Tue Mar 20, 2007 08: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)

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

No Pasa el GET
Posted: Tue Mar 20, 2007 09:10 PM

Code: Select all Collapse

#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

jacgsoft

Posts: 114

Joined: Fri Nov 24, 2006 09:03 PM

No Pasa el GET
Posted: 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

jacgsoft

Posts: 114

Joined: Fri Nov 24, 2006 09:03 PM

No Pasa el GET
Posted: 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

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

No Pasa el GET
Posted: 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 Collapse

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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

fleal

Posts: 234

Joined: Tue Oct 25, 2005 12:39 AM

Prueba esto
Posted: 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.

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

No Pasa el GET
Posted: Wed Mar 21, 2007 06: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

FiveTech Support Forums

Continue the discussion