loPop = Newobject("PopMenu", "menutool.vcx")
loPop.Clear

*** Categorii note
lcParentKey = ""
lcKey = Alltrim(Str(NVL(loCategorie.Id, 0)))
lcTitle = Alltrim(loCategorie.nume) + " (" + ALLTRIM(STR(loCategorie.nr_seturi)) + ")"
lcCommand = ""
lcPicture = ""
llEnabled = .T.
lnAddFlag = 0x00
loPop.Add(m.lcParentKey, m.lcKey, m.lcTitle, m.lcCommand, m.lcPicture, m.llEnabled, m.lnAddFlag)

lcKey = lcParentKey + "_" + Alltrim(Str(loSet.Id))
lcTitle = Alltrim(loSet.nume)
lcCommand = ""
lcPicture = ""
llEnabled = .T.
lnAddFlag = 0x00
loPop.Add(m.lcParentKey, m.lcKey, m.lcTitle, m.lcCommand, m.lcPicture, m.llEnabled, m.lnAddFlag)

loPop.nReturn = 1 && Key
loPop.lOwnerDraw = .T.
lcReturnKey = loPop.ShowBy(This)
lcReturnKey = NVL(lcReturnKey, '')

IF !EMPTY(m.lcReturnKey)
	lnPos = AT('_', m.lcReturnKey)
	IF m.lnPos > 0
		lcIdSet = SUBSTR(m.lcReturnKey, m.lnPos + 1)
		lnIdSet = VAL(m.lcIdSet)
		DO note_fara_predefinire WITH m.lnIdSet IN proceduri.prg
	ENDIF 	
ENDIF  
