Материалы сайта
Это интересно
Автоматизированное рабочее место
*********************************************************************** ** Основной загрузочный модуль ** *********************************************************************** SET ESCAPE OFF CLEAR MACROS SET DELETE ON SET SAFETY OFF SET DATE GERMAN SET HEADING OFF SET TALK OFF SET STATUS OFF SET CENTURY ON SET COLOR OF SCHEME 12 TO N/W,GR/W, GR+/B,GR+/B,GR+/B,GR/N,GR/W,GR/W,GR/W,GR/W SET COLOR OF SCHEME 14 TO N/W,GR/W, N/W, N/W,GR/W,W/GR,GR/W,GR/W,GR/W,W+/W SET COLOR OF SCHEME 15 TO W/B,W/BG, N/W, N/W,GR/W,W/GR+,GR/W,GR/W,GR/W,B/W+ SET COLOR OF SCHEME 16 TO W+/BG,W+/BG, R/BG,N/BG,W+/BG,W+/GR,W+/BG,W+/BG,W+/BG,N/BG SET COLOR OF SCHEME 17 TO N/G,B/W+, N/W, N/W,GR/W,W/GR+,GR/W,GR/W,GR/W,W/BG SET COLOR OF SCHEME 18 TO W+/B,N/W, N/W, N/W,GR/W,B/W,B/W,GR/W,GR/W,B/W+ SET COLOR OF SCHEME 19 TO GR+/RB,W+/R, N/R, N/R,GR/W,B/R,GR/W,GR/W,N/R,W+/RB SET PROC TO FUNC ON ERROR DO EROR WITH ERROR() DO open PUBLIC _PAD_OTCH, _REC,_FILTR, DIMENSION mes(4,3) mes(1,1)='Январь' mes(1,2)='Февраль' mes(1,3)='Март' mes(2,1)='Апрель' mes(2,2)='Май' mes(2,3)='Июнь' mes(3,1)='Июль' mes(3,2)='Август' mes(3,3)='Сентябрь' mes(4,1)='Октябрь' mes(4,2)='Ноябрь' mes(4,3)='Декабрь' mess=month(date()) _tel=0 && телефон _pod=SPACE(15) && подпись _rad=0 && радио-точка _kom=0 && коммунальные услуги _gor_w=0 && горячая вода _xol_w=0 && холодная вода _otopl=0 && отопление _elek=0 && электро-энергия _kv_pl=0 && квартплата avs=.f. && автосохранение в функции ввода оплаты IF FILE('M_ZAR.MEM') RESTORE FROM m_zar ADDITIVE ENDIF _POS_CH=.T. && Переменная для формирования отчета ***(Принимает значение - .F. в процедуре ДОПОЛНЕНИЕ/ИЗМЕНЕНИЕ *** в процедуре РАСЧЕТА(СЛИЯНИЯ) принимает значение - .T.) _REC=RECNO() _FILTR=1 *********************************************************************** ** Определение окон ** *********************************************************************** DEFINE WINDOW poisk SHADOW FROM 15,20 TO 18,50; TITLE 'Укажите ключ' DEFINE WINDOW kdr FROM 1,0 TO 20,80 DOUBLE; FOOTER 'F3 - Меню F5 - Поиск' COLOR W+/B,N/BG,n/w,W+/W+,N+/GR,N/BG,N/BG,N/BG,N/BG,N/BG DEFINE WINDOW INS FROM 0,0 TO 24,80 GROW MINIMIZE FLOAT; FOOTER 'F1 - помощь' COLOR SCHEME 12 DEFINE WINDOW vib FROM 8,14 TO 16,57 SHADOW COLOR SCHEME 7 *********************************************************************** ** Определение меню ** *********************************************************************** DEFINE MENU ZAR KEY F3 DEFINE PAD kadr OF zar PROMPT '\<Кадры'; message 'Работа с картотекой' DEFINE PAD norm OF zar PROMPT '\<Нормативы'; message 'Ввод\просмотр нормативно-справочной информации' DEFINE PAD prin OF zar PROMPT '\<Просмотр'; message 'БУХГАЛТЕРСКАЯ информация' DEFINE PAD print OF zar PROMPT 'П\<ечать' DEFINE PAD serv OF zar PROMPT '\<Сервис' DEFINE PAD ras OF zar PROMPT '\<Расчет'; MESSAGE 'Расчет услуг' DEFINE PAD help OF zar PROMPT 'П\<омощь'; MESSAGE 'Нажмите - F1' DEFINE PAD konec OF zar PROMPT '\<Выход'; MESSAGE 'Выход из системы' ON SELECTION PAD kadr OF zar activate popup kadr ON SELECTION PAD prin OF zar ACTIVATE POPUP viev ON SELECTION PAD print OF zar ACTIVATE POPUP prin_t ON SELECTION PAD serv OF zar ACTIVATE POPUP serv ON SELECTION PAD ras OF zar ACTIVATE POPUP ras ON SELECTION PAD help OF zar ACTIVATE POPUP hlp ON SELECTION PAD konec OF zar do QUIT DEFINE POPUP KADR FROM 1,0 SHADOW DEFINE BAR 1 OF kadr PROMPT '\<Работа с картотекой' DEFINE BAR 2 OF kadr PROMPT 'К\<вартиросъемщики' DEFINE BAR 3 OF kadr PROMPT '\<Картотека льготников' DEFINE BAR 4 OF kadr PROMPT '\<База жильцов' DEFINE BAR 5 OF kadr PROMPT 'Вв\<од данных счетчика' DEFINE BAR 6 OF kadr PROMPT '\<Ввод оплаты' ON SELECTION BAR 1 OF kadr DO pos_ch ON SELECTION BAR 2 OF kadr DO kdr_r IN bazes ON SELECTION BAR 3 OF kadr DO kdr_l IN bazes ON SELECTION BAR 4 OF kadr DO baza IN bazes ON SELECTION BAR 5 OF kadr DO ent_sch IN bazes ON SELECTION BAR 6 OF kadr DO ent_opl IN bazes DEFINE POPUP VIEV FROM 1,8 color scheme 1 SHADOW DEFINE BAR 1 OF viev PROMPT 'Списки по начислению' DEFINE BAR 2 OF viev PROMPT 'Списки по льготам' DEFINE BAR 3 OF viev PROMPT 'Списки с показаниями счетчика' DEFINE BAR 4 OF viev PROMPT 'Оплата э\энергии по квартиросъёмщикам' DEFINE BAR 5 OF viev PROMPT 'Сальдо по квартиросъемщикам' DEFINE BAR 6 OF viev PROMPT 'Свод по квартплате за месяц' ON SELECTION BAR 1 OF viev DO SP_NACH IN OTCHET ON SELECTION BAR 2 OF viev DO SP_lg_kw IN OTCHET ON SELECTION BAR 3 OF viev DO SP_SCHET IN OTCHET ON SELECTION BAR 4 OF viev DO SP_SCHET_PL IN OTCHET ON SELECTION BAR 5 OF viev DO SP_OST IN OTCHET ON SELECTION BAR 6 OF viev DO SVOD IN OTCHET DEFINE POPUP prin_t FROM 1,16 PROMPT FILES LIKE *-1.TXT SHADOW; MESSAGE 'Enter - Просмотр,Space - Печать' ON SELECTION POPUP prin_t DO print3 WITH PROMPT(),LASTKEY() DEFINE POPUP serv FROM 1,26 SHADOW DEFINE BAR 1 OF SERV PROMPT '\<Дополнение' DEFINE BAR 2 OF SERV PROMPT 'Дополнение \<льгот' DEFINE BAR 3 OF SERV PROMPT '\<Тарифы' DEFINE BAR 4 OF serv PROMPT '\<Нормы оплаты услуг' DEFINE BAR 5 OF SERV PROMPT '\-' DEFINE BAR 6 OF serv PROMPT 'Упаковка данных'; MESSAGE 'Сжатие и переиндексация данных' color ,r/w DEFINE BAR 7 OF SERV PROMPT 'Переиндексация' color ,r/w ON SELECTION BAR 1 OF serv DO ins WITH 1 IN add_del ON SELECTION BAR 2 OF serv DO ins_lg IN add_del ON SELECTION BAR 3 OF serv DO TARIFS_zar ON SELECTION BAR 4 OF serv DO norms IN bazes ON SELECTION BAR 6 OF serv DO SERV ON SELECTION BAR 7 OF serv DO P_INDEX DEFINE POPUP ras FROM 1,35 SHADOW DEFINE BAR 1 OF ras PROMPT '\<Расчет квартплаты' DEFINE BAR 2 OF ras PROMPT 'Р\<аcчет по льготам' DEFINE BAR 3 OF ras PROMPT '\-' DEFINE BAR 4 OF ras PROMPT '\<Слияние квартплаты с льготами' ON SELECTION BAR 1 OF ras DO ras in ras ON SELECTION BAR 2 OF ras DO ras_l in ras ON SELECTION BAR 4 OF ras DO ras_i in ras DEFINE POPUP hlp FROM 1,44 SHADOW DEFINE BAR 1 OF hlp PROMPT '\<Помощь' DEFINE BAR 2 OF hlp PROMPT '\<Справка' ON SELECTION BAR 1 OF HLP DO HELP WITH 6 ON SELECTION BAR 2 OF HLP DO HELP WITH 3 DEFINE POPUP poisk FROM 3,14 TITLE; 'Выберите критерий поска' shadow DEFINE BAR 1 OF poisk PROMPT 'По фамилии' DEFINE BAR 2 OF poisk PROMPT 'По табелю' DEFINE BAR 3 OF poisk PROMPT 'По адресу' DEFINE BAR 4 OF poisk PROMPT 'Отмена сортировки'; COLOR ,R/W ON SELECTION POPUP poisk DO poisk DEFINE POPUP FAMIL FROM 7,0 TITLE; '-------Ф-А-М-И-Л-И-Я----------------|-Льгота-|-Пл-к'; PROMPT FIELD LEFT(FAM,38)+'|'+IIF(LGOT=.T.,' ДА ',' ---- ')+; '|'+IIF(OR_R=1,' v ',' ') COLOR SCHEME 16 ON SELECTION POPUP FAMIL DEACTIVATE POPUP FAMIL ACTIVATE MENU ZAR