Problemas con BKEYDOWN Y TECLA ESCAPE EN TWBROWSE

[karinha]

Problemas con BKEYDOWN Y TECLA ESCAPE...

Code: Select all  Expand view  RUN

METHOD KeyDown( nKey, nFlags ) CLASS TWBrowse

   LOCAL uRet

   If ::bKeyDown != nil                 // nuevo
      uRet := Eval( ::bKeyDown, nKey )  // nuevo
      If ValType( uRet ) == "L" .and. uRet  //-> By Antonio Linares
         Return Nil
      Endif
   Endif                                // nuevo


Maestro Antonio...

Hice esta modificacione en la CLASSE TWBROWSE y cuando hago una ACCION via BKEYDOW, ejemplo:

Code: Select all  Expand view  RUN

        oLbx:bKeyDown := { | nKey |                           ;
             IF ( nKey = VK_RETURN,                           ;
                ( CLICK(), GETMOVCR( .F., CADMOVCR, CADBANCO, ;
                                          CADPARAM, CADHISBA, ;
                                          CADCUSTO, CADMOVBA, ;
                                          CADCLIEN, oLbx,     ;
                                          lBaixaDuplic := .T.,;
                                          lPesquisa := .F. ) ), ) }


Cuando se pulsa la TECLA ESCAPE para SALIR del DIALOGO, el DIALOGO se ACCIONA
DOS VECES.

Que hago mal?

Best regards.

[Antonio Linares]

Joao,

lPesquisa := .F. ), .T. ), .T. ) }

[karinha]

Joao,

lPesquisa := .F. ), .T. ), .T. ) }

Gracias Maestro. funcionó perfecto.

És un Genio.

[Antonio Linares]

No

Sólo hay que poner un poco de atención