Traductor de Google
Uso la versión fwh 25.12 y hay un problema con o VALID do get, si presiono ENTER directamente no GET, el VALID funciona correctamente, pero si uso un browse de búsqueda (productos, clientes) y hago uno ok, o VALID no se ejecuta.
Uso FiveWin versión 25.12, BCC 7.7, Harbour.
¿Alguien más que use esta versión ha tenido problemas con esto o necesito añadir algo a la compilación?
Puedes mostrar el código PRG para ver como lo haces ?
Gracias sr Antonio, aqui esta parte do código
REDEFINE GET oGet[3] var oQrycl:codvendedor ID 94 OF oDlgi UPDATE FONT oFontSay;
PICTURE "999" bitmap 'lupa' ;
ACTION (SysRefresh(), CodigoVen(oGet[3]) , xsetfocus(oNome));
VALID {|| CheckVen(oQrycl:codvendedor, oNomeVE) }
FUNCTION CheckVen(cCodVen, oNomeVe )
LOCAL lRet := .F.
LOCAL aVerVen:= oServer:query("Select codigove, vendedor from vendedor WHERE codigove="+ oServer:ValToSQL(cCodVen) +" and ativo limit 1")
IF aVerVen:reccount() > 0
oNomeVe:varput( aVerVen:vendedor )
oNomeVe:Refresh()
lRet := .T.
ELSE
IF cCodVen=0
lRet := .F.
ELSE
msgInfo('Código não localizado.','Atenção')
lRet := .F.
ENDIF
ENDIF
aVerVen:end()
RETURN ( lRet )Tente assim:
Prueba asi:
REDEFINE GET oGet[3] var oQrycl:codvendedor ID 94 OF oDlgi UPDATE ;
FONT oFontSay PICTURE "999" bitmap 'lupa' ;
ACTION( CodigoVen( oGet[3] ), xsetfocus( oNome ) ) ;
VALID {|| CheckVen(oQrycl:codvendedor, oNomeVE) }
// BUTTON DE SAIDA COM A CLAUSULA -> CANCEL - OK?
FUNCTION CheckVen(cCodVen, oNomeVe )
LOCAL lRet := .F.
LOCAL aVerVen:= oServer:query("Select codigove, vendedor from vendedor WHERE codigove="+ oServer:ValToSQL(cCodVen) +" and ativo limit 1")
IF aVerVen:reccount() > 0
oNomeVe:varput( aVerVen:vendedor )
oNomeVe:Refresh()
// lRet := .T.
RETURN( .T. )
ELSE
IF cCodVen=0
// lRet := .F.
RETURN( .F. )
ELSE
MsgInfo( 'Código não localizado.', 'Atenção' )
// lRet := .F.
RETURN( .F. )
ENDIF
ENDIF
aVerVen:End() // ??? O que faz isto? Que haces esto?
RETURN( .T. ) // ( lRet )Regards, saludos.
Este es un problema conocido relacionado con cómo el botón ACTION del GET maneja el foco después de ejecutar la acción. Voy a explicar la causa raíz y las soluciones.
En
::oBtn:bAction := {|| Eval( oThis:bAction, oThis ), oThis:SetFocus() }
``` [0-cite-0](#0-cite-0)
Esto significa que después de que su `CodigoVen()` ejecuta y `xsetfocus(oNome)` mueve el foco, el `oThis:SetFocus()` lo devuelve al GET. Como el foco nunca "sale" del GET, el método `FWLostFocus()` nunca se dispara, y por lo tanto `lValid()` nunca se ejecuta. [0-cite-1](#0-cite-1)
El VALID del GET (`TGet:lValid()`) solo se ejecuta cuando el control pierde el foco: [0-cite-2](#0-cite-2)
Cuando presiona ENTER, funciona porque `TControl:KeyChar(VK_RETURN)` mueve el foco al siguiente control, lo que dispara `FWLostFocus()` → `lValid()`. [0-cite-3](#0-cite-3)
**Nota:** En versiones anteriores (antes de FWH 1801), existía la propiedad `lKeepFocus` que controlaba este comportamiento, pero en el código actual se ignora: [0-cite-4](#0-cite-4)
En el código antiguo (`OLDCODE_1712`) sí se respetaba:
```harbour
ACTION ( Eval( oThis:bAction, oThis ), if( ::lKeepFocus, oThis:SetFocus(), nil ) )
``` [0-cite-5](#0-cite-5)
## Soluciones (Workarounds)
### Opción 1: Llamar la validación explícitamente en el ACTION
```harbour
REDEFINE GET oGet[3] var oQrycl:codvendedor ID 94 OF oDlgi UPDATE FONT oFontSay ;
PICTURE "999" bitmap 'lupa' ;
ACTION (SysRefresh(), CodigoVen(oGet[3]), ;
CheckVen(oQrycl:codvendedor, oNomeVE), ;
xsetfocus(oNome)) ;
VALID {|| CheckVen(oQrycl:codvendedor, oNomeVE) }ACTION (SysRefresh(), CodigoVen(oGet[3]), ;
oGet[3]:lValid(), xsetfocus(oNome))Después de definir el GET, sobrescriba el
oGet[3]:oBtn:bAction := {|| Eval( oGet[3]:bAction, oGet[3] ) }Esto permite que
La Opción 1 es la más segura y compatible. Simplemente llame
Señor Antonio, funcionó. Hice lo que me dijo y usé la opción 1. Muchas gracias por su ayuda.