Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Меню (индетификация Submenu)  [new]
Grumax_user
Member

Откуда: Россия,г. Кинешма
Сообщений: 147
Собираюсь сделать меню. В Menu Bar например "Отчеты" в ней 2 подменю, допустим "Отчет № 1" и "Отчет № 2". Result у обоих Command -> do p_reportF.prg and do p_reportS.prg. Причем как предполагаю p_reportF.prg и p_reportS.prg будут идентичны с той лишь разницей, что будет различный вызов REPORT FORM r_printmain.FRX.
Могу сделать процедурный файл и запихать в него p_report.prg, а в p_reportF.prg и p_reportS.prg будут отличаться лишь последней строчкой
REPORT FORM r_printmain*.FRX TO PRINTER PROMPT PREVIEW
Подскажите есть ли способ распознать с какого Submenu был сделан запуск программы, чтобы в конце, когда сформируется курсор сделать условие вызова того или иного *.FRX. Вопрос скорее не для этого примера, просто может пригодится в дальнейшем Картинка с другого сайта.

Картинка с другого сайта.  Я во все дела суюсь -> всесторонне разовьюсь  Картинка с другого сайта.
3 фев 05, 10:23    [1296357]     Ответить | Цитировать Сообщить модератору
 Re: Меню (индетификация Submenu)  [new]
leaf
Member [заблокирован]

Откуда: Ростов-на-Дону --> Москва
Сообщений: 2661
bar()
3 фев 05, 10:32    [1296387]     Ответить | Цитировать Сообщить модератору
 Re: Меню (индетификация Submenu)  [new]
ВладимирМ
Member

Откуда: г. Москва
Сообщений: 7864
Не надо ориентироваться на номер пункта меню (что возвращает BAR()), гораздо разумнее передавать параметр в процедуру

DO MyProg with "r_printmainS.frx"

В этом случае ты никак не привязан к конкретной реализации меню. Мало ли как ты разместишь и обзовешь пункт меню. После каждой модификации меню менять еще и вызываемую программу?

В идеале, надо писать процедуры и методы, которые вообще не должны считывать что-то из вне. Список параметров на вход - все что нужно для корректной работы. Разумеется это не всегда возможно, но в конкретном примере именно так и следует поступить.
3 фев 05, 11:01    [1296506]     Ответить | Цитировать Сообщить модератору
 Re: Меню (индетификация Submenu)  [new]
Grumax_user
Member

Откуда: Россия,г. Кинешма
Сообщений: 147
Спасибо leaf за функцию.
Спасибо ВладимирМ за идею. Так и поступлю :-)

Картинка с другого сайта.  Я во все дела суюсь -> всесторонне разовьюсь  Картинка с другого сайта.
3 фев 05, 11:34    [1296641]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить