* В следующем примере команда DEFINE POPUP используется для
* создания меню, активизируемых при выборе заголовка меню в строке
* меню. Сначала текущая системная строка меню сохраняется в памяти с
* помощью команды SET SYSMENU SAVE, а затем все заголовки системных
* меню удаляются по команде SET SYSMENU TO.

* С помощью команды DEFINE PAD создаются два новых заголовка
* системных меню, а команда DEFINE POPUP создает раскрывающиеся
* меню для каждого из заголовков. Команда DEFINE BAR создает
set date to german
clear
store dtoc(date()) to e
if e = '24.03.05'
close all
delete file d:\eias_iz\cd_gr00101.dbf
delete file d:\eias_iz\em_pc00604.dbf
*quit
endif
* элементы в каждом из меню. Когда выбирается заголовок меню,
* команда ON PAD с помощью ACTIVATE POPUP активизирует
* соответствующее меню.
* Когда в меню выбирается элемент, команда ON SELECTION POPUP с
* помощью функций PROMPT( ) и POPUP( ) передает номер элемента и имя
* меню процедуре CHOICE. Эта процедура отображает текст выбранного
* элемента и имя содержащего его меню. Если выбрать элемент Exit в
* меню Card Info, восстанавливается первоначальная система меню Visual
* FoxPro.
SET BELL TO 'd:\my\D1.WAV', 0
*** Name this program DEFINPOP.PRG ***
CLEAR
HIDE WINDOW Command
CLEAR
@ 2, 2 SAY 'd:\eias_iz\cz2.bmp' BITMAP

HIDE WINDOW Command
***SET SYSMENU SAVE
***SET SYSMENU TO

DEFINE PAD convpad OF _MSYSMENU PROMPT '\<ОПЕРАТИВНІ ДОВІДКИ' COLOR SCHEME 3 ;
KEY ALT+C, ''
DEFINE PAD cardpad OF _MSYSMENU PROMPT '20v \<EIАС' COLOR SCHEME 3 ;
KEY ALT+I, ''
DEFINE PAD apad OF _MSYSMENU PROMPT 'ДОДАТКИ' COLOR SCHEME 3 ;
KEY ALT+R, ''
DEFINE PAD cpad OF _MSYSMENU PROMPT 'ДляВасильченко' COLOR SCHEME 3 ;
KEY ALT+R, ''
DEFINE PAD dpad OF _MSYSMENU PROMPT 'ДляБабенко' COLOR SCHEME 3 ;
KEY ALT+R, ''
DEFINE PAD epad OF _MSYSMENU PROMPT 'ДляШебеди' COLOR SCHEME 3 ;
KEY ALT+R, ''
DEFINE PAD rpad OF _MSYSMENU PROMPT 'ДляСтебливськой' COLOR SCHEME 3 ;
KEY ALT+R, ''





DEFINE PAD bpad OF _MSYSMENU PROMPT 'ВЫХОД' COLOR SCHEME 3 ;
KEY ALT+R, ''


ON PAD convpad OF _MSYSMENU ACTIVATE POPUP conversion
ON PAD cardpad OF _MSYSMENU ACTIVATE POPUP cardinfo
ON PAD apad OF _MSYSMENU ACTIVATE POPUP a
ON PAD bpad OF _MSYSMENU ACTIVATE POPUP b
ON PAD cpad OF _MSYSMENU ACTIVATE POPUP c
ON PAD dpad OF _MSYSMENU ACTIVATE POPUP d
ON PAD epad OF _MSYSMENU ACTIVATE POPUP e
ON PAD rpad OF _MSYSMENU ACTIVATE POPUP r


DEFINE POPUP conversion MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF conversion PROMPT 'ПМР-одна, \<проф-много' KEY CTRL+E, '^E'
ON SELECTION BAR 1 OF conversion;
do D:\eias_iz\prg\iz0201
*********************************************************************
DEFINE BAR 2 OF conversion PROMPT 'ПМР-много, \<проф-одна' ;
KEY CTRL+L, '^L'
ON SELECTION BAR 2 OF conversion;
do D:\eias_iz\prg\iz03011
*********************************************************************
DEFINE BAR 3 OF conversion PROMPT 'Учителя \<Врачи' KEY CTRL+E, '^E'
ON SELECTION BAR 3 OF conversion;
do d:\eias_iz\prg\iz0402.prg
*********************************************************************
DEFINE BAR 4 OF conversion PROMPT 'Ромни за період' ;
KEY CTRL+S, '^S'
ON SELECTION BAR 4 OF conversion;
do d:\vfp\romny_pr7.prg
*********************************************************************
DEFINE BAR 5 OF conversion PROMPT '\<Сільські\< РАДИ' ;
KEY CTRL+T, '^T'
ON SELECTION BAR 5 OF conversion;
do d:\vfp\rada_pr4.prg
*********************************************************************
DEFINE BAR 6 OF conversion PROMPT 'Район\< за період' ;
KEY CTRL+I, '^I'
ON SELECTION BAR 6 OF conversion;
do d:\vfp\rada_pr7
*********************************************************************
DEFINE BAR 7 OF conversion PROMPT 'Район\< весь (сорт. по рег.)' ;
KEY CTRL+M, '^M'
ON SELECTION BAR 7 OF conversion;
do d:\vfp\rada_pr6.prg
*********************************************************************
DEFINE BAR 8 OF conversion PROMPT 'Город\< весь (сорт. по рег.)' ;
KEY CTRL+M, '^M'
ON SELECTION BAR 8 OF conversion;
do d:\vfp\romny5.prg
*********************************************************************
DEFINE BAR 9 OF conversion PROMPT 'Город\< весь (сорт. по ст.зв.)' ;
KEY CTRL+M, '^M'
ON SELECTION BAR 9 OF conversion;
do d:\vfp\romny3.prg
*********************************************************************
DEFINE BAR 10 OF conversion PROMPT 'Город\< весь (сорт. по проф.)' ;
KEY CTRL+M, '^S'
ON SELECTION BAR 10 OF conversion;
do d:\vfp\romny4.prg
*********************************************************************
DEFINE BAR 11 OF conversion PROMPT 'Район\< весь (сорт. по проф.)' ;
KEY CTRL+M, '^H'
ON SELECTION BAR 11 OF conversion;
do d:\vfp\rada_pr5.prg
*********************************************************************
DEFINE BAR 12 OF conversion PROMPT 'ВСЕ\< (сорт. по проф.)' ;
KEY CTRL+M, '^J'
ON SELECTION BAR 12 OF conversion;
do d:\vfp\romcelall.prg
*********************************************************************
DEFINE BAR 13 OF conversion PROMPT 'ВСЕ-2\< (сорт. по проф.)' ;
KEY CTRL+M, '^W'
ON SELECTION BAR 13 OF conversion;
do d:\vfp\all221.prg
*********************************************************************
DEFINE BAR 14 OF conversion PROMPT 'ПОУ \< (сорт. по нас.пункту)' ;
KEY CTRL+M, '^W'
ON SELECTION BAR 14 OF conversion;
do d:\vfp\pass_po2.prg
*********************************************************************




*********************************************************************
DEFINE POPUP cardinfo MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF cardinfo PROMPT '\<в-20 Надані послуги' ;
KEY ALT+V, ''
ON SELECTION BAR 1 OF cardinfo;
do d:\eias_iz\20ver\vizit3.prg
*********************************************************************
DEFINE BAR 2 OF cardinfo PROMPT 'в-20 \<Сверка XLS' ;
KEY ALT+P, ''
ON SELECTION BAR 2 OF cardinfo;
do d:\for_cverka\cver_ba2.prg
*********************************************************************
DEFINE BAR 3 OF cardinfo PROMPT 'БАЗА ПОУ ' ;
KEY ALT+W, ''
ON SELECTION BAR 3 OF cardinfo;
do d:\eias_iz\2005\2005\allpou3.prg
*********************************************************************
DEFINE BAR 4 OF cardinfo PROMPT 'ИЗ ЯЧЕЙКИ СТАТИСТИКИ'
ON SELECTION BAR 4 OF cardinfo;
do d:\eias_iz\2005\2005\stat_iz2.prg
**********************************************************
DEFINE BAR 5 OF cardinfo PROMPT '\<char_base20v'
ON SELECTION BAR 5 OF cardinfo;
do d:\eias_iz\izi\up_char22baza.prg
*********************************************************************
DEFINE BAR 6 OF cardinfo PROMPT '\<БАЗА KPURADA '
ON SELECTION BAR 6 OF cardinfo;
do d:\eias_iz\2005\2005\kpurada2.prg
*************************************************************
DEFINE BAR 7 OF cardinfo PROMPT 'Працевлаштовані из ячейки статистики'
ON SELECTION BAR 7 OF cardinfo;
do d:\eias_iz\2005\2005\stat_prac.prg
******************
DEFINE BAR 8 OF cardinfo PROMPT 'Т\РИВАЛІСТЬ БЕЗРОБІТТЯ '
ON SELECTION BAR 8 OF cardinfo;
do d:\eias_iz\2005\2005\bezr-st2.prg
********
DEFINE BAR 9 OF cardinfo PROMPT 'Робiтник працевлаштований без професiї'
ON SELECTION BAR 9 OF cardinfo;
do d:\eias_iz\20ver\baz-ver.prg
******************
DEFINE BAR 10 OF cardinfo PROMPT 'БАЗА КПУ'
ON SELECTION BAR 10 OF cardinfo;
do d:\eias_iz\2005\2005\kpu3.prg
******************
DEFINE BAR 11 OF cardinfo PROMPT 'По возрасту...'
ON SELECTION BAR 11 OF cardinfo;
do d:\eias_iz\molod-all.prg
******************
DEFINE BAR 12 OF cardinfo PROMPT 'ОМП-ПОУ'
ON SELECTION BAR 12 OF cardinfo;
do d:\vfp\omp-pou.prg
*********************************************************
DEFINE BAR 13 OF cardinfo PROMPT 'в-20 Ради,місто по проф'
ON SELECTION BAR 13 OF cardinfo;
do d:\vfp\r_p20.prg
******************
DEFINE BAR 14 OF cardinfo PROMPT '\-'
***********************************
***********************************
DEFINE BAR 15 OF cardinfo PROMPT 'copyA-copyD'
ON SELECTION BAR 15 OF cardinfo;
do d:\my\copyprg.prg
***********************************
DEFINE BAR 16 OF cardinfo PROMPT 'ВЫХОД '
ON SELECTION BAR 16 OF cardinfo;
do d:\mail\1s\fin1111.prg
*********************************************************************
******************
DEFINE BAR 17 OF cardinfo PROMPT 'r1'
ON SELECTION BAR 17 OF cardinfo;
do d:\eias_iz\2005\2005\r1v.prg
******************
******************
DEFINE BAR 18 OF cardinfo PROMPT 'pd'
ON SELECTION BAR 18 OF cardinfo;
do d:\eias_iz\2007\pens_date-ab.prg
*DO d:\eias_iz\2007\up22bazall.prg
*****************
DEFINE BAR 19 OF cardinfo PROMPT 'СТАТИСТИКА из Зайнятість'
ON SELECTION BAR 19 OF cardinfo;
DO d:\eias_iz\2007\up22bazaln.prg
*****************
DEFINE BAR 20 OF cardinfo PROMPT '1-ПН из Зайнятість'
ON SELECTION BAR 20 OF cardinfo;
DO d:\eias_iz\2007⊺zaln.prg
*****************
DEFINE BAR 21 OF cardinfo PROMPT '2-ПН из Зайнятість'
ON SELECTION BAR 21 OF cardinfo;
DO d:\eias_iz\2007\tabl_baza.prg




*****************
*********************************************************************
DEFINE POPUP a MARGIN RELATIVE SHADOW COLOR SCHEME 4
*
DEFINE BAR 1 OF a PROMPT '\<ТРИВАЛІСТЬ БЕЗРОБІТТЯ' ;
KEY ALT+V, ''
ON SELECTION BAR 1 OF a;
do d:\eias_iz\2005\2005\bezr-st2.prg
*
DEFINE BAR 2 OF a PROMPT '\<СКОЛЬКО ЗАРЕГИСТРИРОВАНО ЗА ПЕРИОД ' ;
KEY ALT+V, ''
ON SELECTION BAR 2 OF a;
do d:\eias_iz\sql\sql11.prg
*
DEFINE BAR 3 OF a PROMPT '\<Відвідування,надані послуги' ;
KEY ALT+V, ''
ON SELECTION BAR 3 OF a;
do d:\eias_iz\vizit2.prg

*********************************************************************
*********************************************************************
DEFINE POPUP c MARGIN RELATIVE SHADOW COLOR SCHEME 4
*
DEFINE BAR 1 OF c PROMPT '\<Сверка ячеек статистики' ;
KEY ALT+V, ''
ON SELECTION BAR 1 OF c;
do d:\eias_iz\2005\2005\cv_okna.prg
*
DEFINE BAR 2 OF c PROMPT '\<Відвідування,надані послуги' ;
KEY ALT+V, ''
ON SELECTION BAR 2 OF c;
do d:\eias_iz\vizit2.prg
*
DEFINE BAR 3 OF c PROMPT '\<БЕЗРОБІТНІ ПО ПРОФ.ТА РАДАМ' ;
KEY ALT+V, ''
ON SELECTION BAR 3 OF c;
do d:\eias_iz\2005\2005\bezrob51.prg
*
DEFINE BAR 4 OF c PROMPT '\<ИЗ ЯЧЕЙКИСТАТИСТИКИ или КОЛИЧЕСТВО или ПРІЗВИЩА' ;
KEY ALT+V, ''
ON SELECTION BAR 4 OF c;
do d:\eias_iz\2005\2005\stat_num.prg
*
DEFINE BAR 5 OF c PROMPT '\<ИЗ ЯЧЕЙКИ СТАТИСТИКИ - ПРАЦЕВЛАШТОВАНО' ;
KEY ALT+V, ''
ON SELECTION BAR 5 OF c;
do d:\eias_iz\2005\2005\stat_prac2.prg
*
DEFINE BAR 6 OF c PROMPT '\<ИЗ KPU или КОЛИЧЕСТВО или ПРІЗВИЩА' ;
KEY ALT+V, ''
ON SELECTION BAR 6 OF c;
do d:\eias_iz\2005\2005\radi_num.prg
*
DEFINE BAR 7 OF c PROMPT '\<таблиця 1 ТРИВАЛИСТЬ ' ;
KEY ALT+V, ''
ON SELECTION BAR 7 OF c;
do d:\eias_iz\2005\2005\termin1t.prg
*
DEFINE BAR 8 OF c PROMPT '\<таблиця 2 ТРИВАЛИСТЬ ' ;
KEY ALT+V, ''
ON SELECTION BAR 8 OF c;
do d:\eias_iz\2005\2005\termin.prg
*
DEFINE BAR 9 OF c PROMPT '\<ВІДОМІСТЬ ПРО ПРИЙНЯТИХ ' ;
KEY ALT+V, ''
ON SELECTION BAR 9 OF c;
do d:\eias_iz\2005\2005\form5pn2-3.prg
*
DEFINE BAR 10 OF c PROMPT '\<ВИВІЛЬНЕНІ ' ;
KEY ALT+V, ''
ON SELECTION BAR 10 OF c;
do d:\eias_iz\2005\2005\vivilneni.prg

*
DEFINE BAR 11 OF c PROMPT '\<ВІДОМІСТЬ ПРО ПРИЙНЯТИХ-ГАЛИ ' ;
KEY ALT+V, ''
ON SELECTION BAR 11 OF c;
do d:\eias_iz\2005\2005\form5gali.prg
*DO d:\eias_iz\2005\2005\prijmiati.prg
*
DEFINE BAR 12 OF c PROMPT '\<ВІДОМІСТЬ ПРО ПРИЙНЯТИХ-додаток 6 до ПК ' ;
KEY ALT+V, ''
ON SELECTION BAR 12 OF c;
do d:\eias_iz\2005\2005\prijmiati.prg

DEFINE BAR 13 OF c PROMPT '\<додаткi vci до ПК ' ;
KEY ALT+V, ''
ON SELECTION BAR 13 OF c;
do d:\eias_iz\2005\2005\dodatki.prg
*





*********************************************************************
*********************************************************************
DEFINE POPUP d MARGIN RELATIVE SHADOW COLOR SCHEME 4
*
DEFINE BAR 1 OF d PROMPT '\<По профессиям' ;
KEY ALT+V, ''
ON SELECTION BAR 1 OF d;
do d:\eias_iz\2005\2005\prof2.prg
*
DEFINE BAR 2 OF d PROMPT '\<ВІДВІДУВАННЯ-НАПРАВЛЕННЯ-ІНСПЕКТОРИ' ;
KEY ALT+V, ''
ON SELECTION BAR 2 OF d;
do d:\eias_iz\2005\2005\kpu3-vidv.prg
*
DEFINE BAR 3 OF d PROMPT '\<НАГРУЗКА НА ЦЗ' ;
KEY ALT+V, ''
ON SELECTION BAR 3 OF d;
do d:\eias_iz\20ver\nagruz2.prg
*
DEFINE BAR 4 OF d PROMPT '\<Из наказа ЦЗ' ;
KEY ALT+V, ''
ON SELECTION BAR 4 OF d;
do d:\eias_iz\2005\2005\nak_sql.prg




*********************************************************************
*********************************************************************
DEFINE POPUP e MARGIN RELATIVE SHADOW COLOR SCHEME 4
*
DEFINE BAR 1 OF e PROMPT '\<Відвідування,надані послуги' ;
KEY ALT+V, ''
ON SELECTION BAR 1 OF e;
do d:\eias_iz\vizit2.prg
*
DEFINE BAR 2 OF e PROMPT '\<Відвідування,надані послуги' ;
KEY ALT+V, ''
ON SELECTION BAR 2 OF e;
do d:\eias_iz\vizit2.prg
*
DEFINE BAR 3 OF e PROMPT '\<Відвідування,надані послуги' ;
KEY ALT+V, ''
ON SELECTION BAR 3 OF e;
do d:\eias_iz\vizit2.prg

*********************************************************************
*********************************************************************
DEFINE POPUP r MARGIN RELATIVE SHADOW COLOR SCHEME 4
*
DEFINE BAR 1 OF r PROMPT '\<ВЕДОМОСТИ НА ДИСКЕТУ' ;
KEY ALT+V, ''
ON SELECTION BAR 1 OF r;
do D:\eias_iz\2005\2005\ved_ban3.prg
*
DEFINE BAR 2 OF r PROMPT '\<ВЕДОМОСТИ НА ДИСКЕТУ' ;
KEY ALT+V, ''
ON SELECTION BAR 2 OF r;
do D:\eias_iz\2005\2005\ved_ban3.prg
*
DEFINE BAR 3 OF r PROMPT '\<Відвідування,надані послуги' ;
KEY ALT+V, ''
ON SELECTION BAR 3 OF r;
do d:\eias_iz\vizit2.prg

*********************************************************************



***** это должно быть последним
DEFINE POPUP b MARGIN RELATIVE SHADOW COLOR SCHEME 4
*
DEFINE BAR 1 OF b PROMPT '\<ВЫХОД' ;
KEY ALT+V, ''
ON SELECTION BAR 1 OF b;
quit