GeneXus - Control Tecla Escape

Hola foro....

Uso GN 8.0 con VFP.

Quiero controlar que salga o no del WorkPanel cuando usan la tecla Escape.
En mi caso quiero verificar que el asiento balancee.
En el Evento el boton CONFIRM funciona OK, pero si el operador pulsa
ESCAPE muestra el mensaje pero no regresa al campo indicado.
Estoy haciendo esto:

Event Exit
IF &TotalDebe <> &TotalHaber
Msg ('Los Importes No Balancean en Exit ')
&AstObs.setfocus() // lo mando a un campo del WP
EndIf
EndEvent

Entiendo que en el Evento Exit ya se salió del WorkPanel y es por eso
que el SetFocus no funciona.
Un colega me recomendó que en el botón Cancela cree un evento nuevo y
lo maneje desde ese evento....... Funcionó perfecto.
Pero.... cuando usan la tecla escape o la cruz del vértice superior
derecho, el problema continúa.

Para ser más claro... Quiero que cuando el usuario pulse ESC el
programa haga las validaciones y habilite la salida o lo haga regresar
a algún campo del WP.

¿Cómo se soluciona?

Desde ya muchas gracias. Desde Venado Tuerto un abrazo.

Marcelo Madelón
[email protected]

Hola Foro.

Pude solucionar este problema.
Antes que nada gracias a Patricio Ojeda V..

Me habian aconsejado que suprimiera la tecla Escape. Es solución no me gustó pues lo hace para todo el proyecto.

Lo que hice fue: en el WKP que lo llamaba coloqué lo que sigue

Event MenuBar.ID_ASIENTOS_MANUALES
do while &Ok <> 'S'
Call(WAstManual , &UserId , &Perfil , &AstNro_1 , &Ok)
endDo
EndEvent // MenuBar.ID_ASIENTOS_MANUALES

Donde &Ok trae 'S' si balancea

En el WKP AstManual hice:

Parm( &UserId , &Perfil , &AstNro_1 , InOut: &Ok);

Event Start
&TotalDebe = 0
&TotalHaber = 0
&AstNro = &AstNro_1
For each order AstNro, AstImput, CtaNro
where AstNro = &AstNro

&TotalDebe += AstDeb
&TotalHaber+= AstHab
&Diferencia = &TotalDebe - &TotalHaber
load
endfor
If &Diferencia = 0
&Ok = 'S'
else
&Ok = ''
Endif

Gracias nuevemante y saludos.

Marcelo Madelon
Computos Municipalidad de Venado Tuerto