Exemplo :
#Include 'Protheus.ch'
USER FUNCTION PMSMON01()
Local aMenu
IF ValType(ParamIXB) == "A"
aMenuRdm := aClone(ParamIXB[01])
aAdd(aMenuRdm,{"Cd.C&liente"/*Item do Menu suspenso*/, "Cad.Cliente"/*Nome para o item do menu suspenso*/, "MATA030"/*Função a executar*/})
ELSE
aMenuRdm := {}
ENDIF
RETURN aMenuRdm
PMSMON08 :
PMSMON08 - Manipulação de itens do menu
Exemplo:
#Include 'Protheus.ch'
USER FUNCTION PMSMON08
Local nPosItem := 01
Local oMenu := NIL
IF ValType(ParamIXB) == "0"
oMenuRdm := ParamIXB
IF (nPosItem := aScan(oMenu:aItems, {|x| x:cName == "Cad.Cliente"})) > 0
oMenuRdm:aItems[nPosItem] : Enable()
ENDIF
ENDIF
RETURN oMenuRdm