SELECT * ;
			FROM MenuCur ;
			WHERE PARENT =  0  ;
			ORDER BY NppinLevel ;
			INTO CURSOR curlevel1 NOFILTER

		IF _TALLY =  0 
			RETURN .F.
		ENDIF

		LOCAL llEnd,lnLevel,lcCmd,lcPop
		llEnd = .F.
		lnLevel =  0 

		DO WHILE !llEnd

			lnLevel = lnLevel +  1 
			SELECT * FROM curlevel1 ORDER BY NppinLevel;
				INTO CURSOR curlevel2 NOFILTER

			SCAN
&&****	First Level Of Menu
				IF lnLevel =  1 

					lcPop = "_"+SYS( 2015 )
					lcCmd = "DEFINE PAD "+lcPop+ ;
						" of _MSYSMENU prompt ["+ALLTRIM(NameItem)+"] before _mwindow color scheme 4"
					&lcCmd.

					IF isGroup

						lcCmd ="ON PAD "+lcPop+" OF _MSYSMENU ACTIVATE POPUP p"+;
							ALLTRIM(STR(ID))
						&lcCmd.
						lcCmd ="DEFINE POPUP p"+ALLTRIM(STR(ID))+" MARGIN RELATIVE SHADOW COLOR SCHEME 4"
						&lcCmd.

					ELSE

						lcCmd ="ON SELECTION PAD "+lcPop+" OF _MSYSMENU "+ALLTRIM(CommandItem)
						&lcCmd.

					ENDIF

				ELSE
&&************ Other menu levels
					lcCmd = "DEFINE BAR "+ALLTRIM(STR(NppinLevel))+ ;
						" of p"+ALLTRIM(STR(PARENT))+;
						" prompt ["+ALLTRIM(NameItem)+"]"+;
						IIF(EMPTY(HOTKEY) OR ISNULL(HOTKEY),""," KEY "+ALLTRIM(HOTKEY))+;
						IIF(EMPTY(HotKeyText) OR ISNULL(HotKeyText),"",+",["+ALLTRIM(HotKeyText)+"]")+;
						IIF(EMPTY(PICTURE) OR ISNULL(PICTURE),""," Picture ["+ALLTRIM(PICTURE)+"]")+;						
						IIF(EMPTY(SKIPFOR) OR ISNULL(SKIPFOR),""," SKIP FOR "+ALLTRIM(SKIPFOR))
					&lcCmd.

					IF isGroup

						lcCmd ="ON BAR "+ALLTRIM(STR(NppinLevel))+;
							" OF p"+ALLTRIM(STR(PARENT))+" ACTIVATE POPUP p"+;
							ALLTRIM(STR(ID))
						&lcCmd.

						lcCmd ="DEFINE POPUP p"+ALLTRIM(STR(ID))+" MARGIN RELATIVE SHADOW COLOR SCHEME 4"
						&lcCmd.

					ELSE

						lcCmd ="ON SELECTION BAR "+ALLTRIM(STR(NppinLevel))+;
							" OF p"+ALLTRIM(STR(PARENT))+" "+ALLTRIM(CmdItem)
						&lcCmd.

					ENDIF

				ENDIF
			ENDSCAN

			SELECT * FROM MenuCur WHERE PARENT IN ;
				(SELECT ID FROM curlevel2) ;
				INTO CURSOR curlevel1
			IF _TALLY =  0 
				llEnd = .T.
			ENDIF


		ENDDO
		
			
		USE IN SELECT('curlevel1')
		USE IN SELECT('curlevel2')
		USE IN SELECT('menucur')
	ENDPROC