FiveTech Support Forums

El código que pongo a continuación no refresca bien el browse. He optado por el antiguo método de "ON RIGHT CLICK MenuPopUp(oBrw, nRow, nCol) que funciona perfectamente. ¿Puede que lo esté haciendo mal?

oBrw:bPopUp := { |o| ColMenu( o ) }

----------------------------
Static Function ColMenu(oCol)
----------------------------

local oPop

MENU oPop POPUP 2007
MENUITEM "Todos" ACTION (oBrw:cAlias)->(ordSetFocus("VCTO"))
MENUITEM "Pendientes" ACTION (oBrw:cAlias)->(ordSetFocus("PENDIENTES"))
MENUITEM "Cancelados" ACTION (oBrw:cAlias)->(ordSetFocus("CANCELADOS"))
ENDMENU

(oBrw:cAlias)->(dbGoTop())
oBrw:refresh()
oBrw:MakeTotals()

return oPop

----------------------------
Static Function ColMenu(oCol)
----------------------------

local oPop
local bAction := {||(oBrw:cAlias)->(dbGoTop()), oBrw:Refresh(), oBrw:MakeTotals()}

MENU oPop POPUP 2007
MENUITEM "Todos" ACTION (oBrw:cAlias)->(ordSetFocus("VCTO")) ACTION eval(bAction)
MENUITEM "Pendientes" ACTION (oBrw:cAlias)->(ordSetFocus("PENDIENTES")) ACTION eval(bAction)
MENUITEM "Cancelados" ACTION (oBrw:cAlias)->(ordSetFocus("CANCELADOS")) ACTION eval(bAction)
ENDMENU

return oPop