Автоматизированное рабочее место (MENI)

Посмотреть архив целиком


Стартующий файлMENI.PRG

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

** Основной загрузочный модуль **

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

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



Приложение № 1.1


- 4 -


Случайные файлы

Файл
169543.rtf
146845.rtf
59816.rtf
28398.rtf
75576-1.rtf