Estimados colegas,
Estuvimos trabajando con este mismo tema y utilizamos esto que podría serles de utilidad,
*-----------------------
MENU oPopRub POPUP 2007
*-----------------------
MENUITEM "Todos los Productos" RESOURCE 'b_xopen' ACTION ( wfprodu->(Dbclearfil()), wfprodu->(Dbgotop()),;
oBrw:refresh(),oBrw:Gotop(),oBrw:SetFocus(),;COLORPNEL CLR_HRED
SEPARATOR
for x:= 1 TO len(aRubros)
MENUITEM "Rubro " + aRubros[x] RESOURCE 'b_xopen' ;
ACTION ( Dbclearfil(), Dbsetfilter({|| wfprodu->rubro = Substr( oPopRub:oLastItem:cCaption,7,1) }) , ;
wfprodu->(Dbgotop()),oBrw:Refresh(),oBrw:Gotop(),oBrw:SetFocus() ) ;
COLORPNEL CLR_BLACK
SEPARATOR
next
ENDMENU
Saludos Mariano y Raul
↧