topic-20140

Posts: 196

Joined: Fri May 15, 2009 01:25 AM

Consulta sobre GET
Posted: Wed Oct 27, 2010 04:41 PM

Amigos del foro :

Si alguien pudiera ayudarme

Esto es un fragmento de mi código :

REDEFINE GET oGet1 VAR cCodIni ID 101 OF oDlg update ;
        PICTURE "@!" ;
        ON CHANGE Self:Assign() ;
        VALID OkCodIni( cCodIni )
        oGet1:bGotFocus := {||SetKey( VK_F2, { || VerCodIni( oGet1, @cCodIni, oDlg ) })}
        oGet1:bGotFocus := { | oSelf | oSelf:SelectAll()} 
        oGet1:bLostFocus := {||SetKey( VK_F2, nil )}

La intención es que al mismo tiempo que yo asigno la tecla F2 a VerCodIni, tambien me aparezca seleccionado el Get.

Hay alguna forma de que con una sola instrucción oGet1:bGotFocus() pueda hacer las dos cosas ?

De antemano muchas gracias

Saludos

Juan Arroyo
México
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Consulta sobre GET
Posted: Wed Oct 27, 2010 06:50 PM

Hola

Puedes usarlo asi.

Code (fw): Select all Collapse

bSetKey := SetKey( VK_F2, { |x,y,z| iif( z:classname = "TGET" .and. Z:nId = 101, VerCodIni(..), nil ) } )

REDEFINE GET oGet1 VAR cCodIni ID 101 OF oDlg update ;
        PICTURE "@!" ;
        ON CHANGE Self:Assign() ;
        VALID OkCodIni( cCodIni )

oGet1:bGotFocus := { | oSelf | oSelf:SelectAll()}

ACTIVATE DIALOG oDlg

SetKey( VK_F2, bSetKey )

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

juan_arroyo_t

Posts: 196

Joined: Fri May 15, 2009 01:25 AM

Re: Consulta sobre GET
Posted: Thu Oct 28, 2010 03:56 AM

Patricio

Gracias por tus atenciones :

Probé tu codigo y funcionó perfecto, pero lo que yo no comenté es que quiero hacerlo para tres Gets y asignar la tecla F2 para los tres

Es posible hacerlo ?

Aqui está mi código :

Code (fw): Select all Collapse

STATIC FUNCTION PoneFil( oLbx )
    LOCAL oDlg, oBAce, bSetKey1, bSetkey2, bSetKey3
    LOCAL oGet1, oGet2, oGet3
    LOCAL cCodIni, cCodFin, cFamil
    
    cat->(DBGOTOP())
    cCodIni := cat->modelo
    cat->(DBGOBOTTOM())
    cCodFin := cat->modelo
    cat->(DBGOTOP())
    cFamil := "?????"
    
    bSetKey1 := SetKey( VK_F2, { |x,y,z| iif( z:classname = "TGET" .and. ;
                          Z:nId = 101, VerCodIni( oGet1, @cCodIni, oDlg ), nil ) } )
    bSetKey2 := SetKey( VK_F2, { |x,y,z| iif( z:classname = "TGET" .and. ;
                              Z:nId = 103, VerCodFin( oGet2, @cCodFin, oDlg ), nil ) } )
    bSetKey3 := SetKey( VK_F2, { |x,y,z| iif( z:classname = "TGET" .and. ;
                              Z:nId = 105, VerFamil( oGet3, @cFamil, oDlg ), nil ) } )
                              
    DEFINE DIALOG oDlg RESOURCE "CamPre"
      oDlg:lHelpIcon := .F.
    
    REDEFINE GET oGet1 VAR cCodIni ID 101 OF oDlg update ;
        PICTURE "@!" ;
        ON CHANGE Self:Assign() ;
        VALID OkCodIni( cCodIni )
        oGet1:bGotFocus := { | oSelf | oSelf:SelectAll()}
        
    REDEFINE GET oGet2 VAR cCodFin ID 103 OF oDlg update ;
        PICTURE "@!" ;
        ON CHANGE Self:Assign() ;
        VALID OkCodFin( cCodFin )
        oGet2:bGotFocus := { | oSelf | oSelf:SelectAll()}
        
    REDEFINE GET oGet3 VAR cFamil  ID 105 OF oDlg update ;
        PICTURE "@!" ;
        ON CHANGE Self:Assign()
        
    REDEFINE BUTTON oBAce ID 107 OF oDlg ;
        ACTION Filtro( cCodIni, cCodFin, cFamil ), oDlg:End()
    
    ACTIVATE DIALOG oDlg CENTERED
        SetKey( VK_F2, bSetKey1 )
        SetKey( VK_F2, bSetKey2 )
        SetKey( VK_F2, bSetKey3 )
      oLbx:refresh()
      oLbx:SetFocus()
    
RETURN NIL

Saludos

Juan Arroyo
México
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Consulta sobre GET
Posted: Thu Oct 28, 2010 12:37 PM

Hola

Si es posible, debes hacerlo en un solo Setkey, ya que si asignas en otro eliminas el anterior

Code (fw): Select all Collapse

bSetKey := SetKey( VK_F2, { |x,y,z| iif( z:classname = "TGET" .and. Z:nId = 101, VerCodIni(..), nil ),;
                                      iif( z:classname = "TGET" .and. Z:nId = 103, VerCodIni(..), nil ),;
                                      iif( z:classname = "TGET" .and. Z:nId = 105, VerCodIni(..), nil ) } )

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

juan_arroyo_t

Posts: 196

Joined: Fri May 15, 2009 01:25 AM

Re: Consulta sobre GET
Posted: Fri Oct 29, 2010 01:10 AM

Patricio

Muchas gracias por tu ayuda te estoy muy agradecido, funcionó tal como yo deseaba

Sólo una cosa mas :

La linea SetKey( VK_F2, bSetkey) que va despues del ACTIVATE DIALOG cuál es su función porque si no la incluyo tambien funciona mi código

ACTIVATE DIALOG oDlg CENTERED
//SetKey( VK_F2, bSetKey )
oLbx:refresh()
oLbx:SetFocus()

Saludos

Juan Arroyo
México
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Consulta sobre GET
Posted: Fri Oct 29, 2010 12:22 PM

Hola

que bien que te haya resultado, debes cerrar tu post (SOLUCIONADO )

Code (fw): Select all Collapse

SetKey()
Associates a code block with a key. 

SetKey( <nInkeyCode>    , ;
       [<bNewCodeblock>], ;
       [<bCondition>]     ) --> bOldCodeblock

Como vez retorna la ultima tecla asociada

estará activo mientras no asignes un nuevo codeblock a la tecla

si ya no quieres asignar mas la tecla F2, solo le asignas NIL

Code (fw): Select all Collapse

Setkey( VK_F2, NIL )

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

FiveTech Support Forums

Continue the discussion