Вобщем при запуске *ехе выскакивает ошибка "Синтактическая ошибка" Нажимаешь продолжить, она опять выскакивает, и так пять раз. А потом *ехе запускается и всё нормально работает. Попробывал отключить меню, в итоге *ехе запускается без всяких ошибок. Ну я вот и решил, что эта самая "синтактическая ошибка" находится в коде меню, причём пять раз) Помогите найти пожалуйста!

LPARAMETERS oFormRef, getMenuName, lUniquePopups, parm4, parm5, parm6, parm7, parm8, parm9
LOCAL cMenuName, nTotPops, a_menupops, cTypeParm2, cSaveFormName
IF TYPE("m.oFormRef") # "O" OR ;
LOWER(m.oFormRef.BaseClass) # 'form' OR ;
m.oFormRef.ShowWindow # 2
MESSAGEBOX([This menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.])
RETURN
ENDIF
m.cTypeParm2 = TYPE("m.getMenuName")
m.cMenuName = SYS(2015)
m.cSaveFormName = m.oFormRef.Name
IF m.cTypeParm2 = "C" OR (m.cTypeParm2 = "L" AND m.getMenuName)
m.oFormRef.Name = m.cMenuName
ENDIF
IF m.cTypeParm2 = "C" AND !EMPTY(m.getMenuName)
m.cMenuName = m.getMenuName
ENDIF
DIMENSION a_menupops[4]
IF TYPE("m.lUniquePopups")="L" AND m.lUniquePopups
FOR nTotPops = 1 TO ALEN(a_menupops)
a_menupops[m.nTotPops]= SYS(2015)
ENDFOR
ELSE
a_menupops[1]="файл"
a_menupops[2]="таблицы"
a_menupops[3]="добавить"
a_menupops[4]="прочее"
ENDIF


* *********************************************************
* *
* * Menu Definition
* *
* *********************************************************
*

DEFINE MENU (m.cMenuName) IN (m.oFormRef.Name) BAR

DEFINE PAD _2nz0ldaim OF (m.cMenuName) PROMPT "\<Файл" COLOR SCHEME 3 ;
KEY ALT+F, ""
DEFINE PAD _2nz0ldain OF (m.cMenuName) PROMPT "\<Таблицы" COLOR SCHEME 3 ;
KEY ALT+T, ""
DEFINE PAD _2nz0ldaio OF (m.cMenuName) PROMPT "\<Добавить" COLOR SCHEME 3 ;
KEY ALT+D, ""
DEFINE PAD _2nz0ldaip OF (m.cMenuName) PROMPT "\<Прочее" COLOR SCHEME 3 ;
KEY ALT+P, ""
ON PAD _2nz0ldaim OF (m.cMenuName) ACTIVATE POPUP (a_menupops[1])
ON PAD _2nz0ldain OF (m.cMenuName) ACTIVATE POPUP (a_menupops[2])
ON PAD _2nz0ldaio OF (m.cMenuName) ACTIVATE POPUP (a_menupops[3])
ON PAD _2nz0ldaip OF (m.cMenuName) ACTIVATE POPUP (a_menupops[4])

DEFINE POPUP (a_menupops[1]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[1]) PROMPT "\<Поиск"
DEFINE BAR 2 OF (a_menupops[1]) PROMPT "\-"
DEFINE BAR 3 OF (a_menupops[1]) PROMPT "\<Выход"
ON SELECTION BAR 1 OF (a_menupops[1]) DO FORM poisk.scx

DEFINE POPUP (a_menupops[2]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[2]) PROMPT "\<Скважины"
DEFINE BAR 2 OF (a_menupops[2]) PROMPT "\<Бригады"
DEFINE BAR 3 OF (a_menupops[2]) PROMPT "\<Работы"
ON SELECTION BAR 1 OF (a_menupops[2]) DO FORM skvagina.scx
ON SELECTION BAR 2 OF (a_menupops[2]) DO FORM brigadi.scx
ON SELECTION BAR 3 OF (a_menupops[2]) DO FORM raboti.scx

DEFINE POPUP (a_menupops[3]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[3]) PROMPT "\<Добавить скважину"
DEFINE BAR 2 OF (a_menupops[3]) PROMPT "\<Добавить бригаду"
DEFINE BAR 3 OF (a_menupops[3]) PROMPT "\<Добавить работу"
ON SELECTION BAR 1 OF (a_menupops[3]) DO FORM skvagin_dobav.scx
ON SELECTION BAR 2 OF (a_menupops[3]) DO FORM brig_dobav.scx
ON SELECTION BAR 3 OF (a_menupops[3]) DO FORM rab_dobav.scx

DEFINE POPUP (a_menupops[4]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[4]) PROMPT "\<Керн"
DEFINE BAR 2 OF (a_menupops[4]) PROMPT "\<Начальники"
DEFINE BAR 3 OF (a_menupops[4]) PROMPT "\<Виды работ"
ON SELECTION BAR 1 OF (a_menupops[4]) DO FORM kern.scx
ON SELECTION BAR 2 OF (a_menupops[4]) DO FORM nachalniki.scx
ON SELECTION BAR 3 OF (a_menupops[4]) DO FORM vid_rab.scx

ACTIVATE MENU (m.cMenuName) NOWAIT

IF m.cTypeParm2 = "C"
m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF

ВладимирМ, большое, человеческое Спасибо Вам за помощь по этой теме и по предыдущей. Теперь курсовой готов, все ошибки выловлены (вроде бы :-) ) Завтра пойду показывать