Import initial din SVN ROAAUTO/Trunk @HEAD

COMUN/utile/Menu/citeste.txt

@@ -0,0 +1,34 @@
+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