FiveTech Software tech support forums

Posted: **Fri Dec 14, 2007 5:31 pm**

Problemas con BKEYDOWN Y TECLA ESCAPE...

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

        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.

Posted: **Sat Dec 15, 2007 1:27 pm**

Joao,

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

Posted: **Mon Dec 17, 2007 11:16 am**

Antonio Linares wrote:Joao,

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

Gracias Maestro. funcionó perfecto.

És un Genio.

Posted: **Mon Dec 17, 2007 11:24 am**

No

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

FiveTech Software tech support forums

Problemas con BKEYDOWN Y TECLA ESCAPE EN TWBROWSE

Problemas con BKEYDOWN Y TECLA ESCAPE EN TWBROWSE