Asignar teclas a un get ( Solucionado )

[horacio]

Colegas, necesito asignarle ciertas teclas a un control get pero al hacerlo se deshabilitan las teclas por defecto ( las flechas, retroceso, etc. ). Alguna pista para que esto no suceda ? Muchisimas gracias

[karinha]

Muestra como estás haciendo via código. Saludos.

[horacio]

Gracias por responder, aquí el código

Code: Select all  Expand view

oGet[ 4 ] : bKeyDown  := { | nKey | ::KeyGet4( nKey, oDlg ) }  
 

Saludos

[karinha]

Que hace ?

Code: Select all  Expand view

   Function KeyGet4  ?? ahi algo en ella que causa este efecto ó no?
 

[horacio]

No creo, esto funciona en FWH 14.12 no así en FWH 17.01. Posteo el código

Code: Select all  Expand view

//----------------------------------------------------------------------------//
Method KeyGet4( nKey, oDlg ) Class TCobro
//----------------------------------------------------------------------------//

    Switch nKey
        Case VK_RETURN
            If( Round( ::nTCobrarBk, 2 ) == Round( ::nContado, 2 ) )
                ::RealizaPago()
            Else
                ::MenuContado( oDlg )
            End
            Exit
        Case VK_F9
            AEval( ::aFacturas, { | x | x[ 1 ] := .f. } )
            ::oBrw1 : Refresh()
            ::nContado := 0
            ::nTotal   := 0
            oGet[ 4 ] : Refresh()
            oGet[ 4 ] : Disable()
            ::oBrw1 : Enable()
            ::oBrw1 : GoTop()
            ::oBrw1 : aCols[ 5 ] : cFooter := Transform( ::nTotal, '@E 99,999,999.99' )
            ::oBrw1 : SetFocus()
            Exit
    EndSwitch                  
    Return 0

 

Saludos

[karinha]

Intentas asi:

Code: Select all  Expand view

//----------------------------------------------------------------------------//
Method KeyGet4( nKey, oDlg ) Class TCobro
//----------------------------------------------------------------------------//

    Switch nKey
        Case VK_RETURN
            If( Round( ::nTCobrarBk, 2 ) == Round( ::nContado, 2 ) )
                ::RealizaPago()
            Else
                ::MenuContado( oDlg )
            End
            Exit
        Case VK_F9
            AEval( ::aFacturas, { | x | x[ 1 ] := .f. } )
            ::oBrw1 : Refresh()
            ::nContado := 0
            ::nTotal   := 0
            oGet[ 4 ] : Refresh()
            oGet[ 4 ] : Disable()
            ::oBrw1 : Enable()
            ::oBrw1 : GoTop()
            ::oBrw1 : aCols[ 5 ] : cFooter := Transform( ::nTotal, '@E 99,999,999.99' )
            ::oBrw1 : SetFocus()
            Exit
    EndSwitch

Return( nKey )

//    Return 0
 

[horacio]

Gracias Karinha, funcionó perfectamente.

Saludos