BAZES (Автоматизированное рабочее место)
Описание файла
Документ из архива "Автоматизированное рабочее место", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "BAZES"
Текст из документа "BAZES"
Просмотр с помощью команды BROWSE – BAZES.PRG
************************************************************************************* Пункт меню - КАДРЫ **
***********************************************************************************
PROCEDURE KDR_r && Пункт меню - Работа с картотекой
HIDE POPUP kadr
IF RECCOUNT()=0
ACTIVATE WINDOW vib
@ 1,10 SAY 'Б а з а п у с т а'
@ 2,9 SAY 'Начните с дополнения'
@ 0,0 FILL TO 8,43 COLOR W+/R
@ 5,3 GET ins1 FUNCTION '*TH Дополнить;Отмена' VALID ins2();
DEFA 1 SIZE 1,10,4 COLOR ,,,,w+/n,w+/n,w+/n,,W+/R,
READ CYCLE OBJECT 1
DEACTIVATE WINDOW vib
RETURN
ENDIF
DEFINE WINDOW kd FROM 3,0 TO 23,30 system float grow close zoom shadow
ON KEY LABEL F1 DO HELP WITH 1
SELECT A
BROWS FOR or_r=1 REST NOMENU NOEDIT;
TITLE 'F3 - Меню Сегодня -'+dtoc(date()) FIELDS;
kp=iif(or_r=1,'-','') :1 :H='' :W=nach() :F,;
tab :H='Таб' :W=EN() :V=NE() :F,;
fam :h='Фамилия' :W=EN() :V=NE() :F :15,;
lg=iif(lgot=.t.,'v','') :1 :H='':W=EN() :W=nach() :V=NE() :F ;
WIND kd COLOR SCHEME 12
CLEAR
release window kd
ON KEY LABEL F1 DO HELP WITH 6
RETURN
PROCEDURE kv_sch && Пункт меню(pop_vib) - жильцы
SELECT A
SET ORDER TO ADRR
DEFINE WINDOW kd FROM 3,0 TO 23,30 system float grow close zoom shadow
ON KEY LABEL F1 DO HELP WITH 1
tr=recno()
_y=yl
_d=dom
_kv=kw_ra
BROWS FOR yl=_y.and.dom=_d.and.kw_ra=_kv NOMENU NOEDIT;
TITLE 'F3 - Меню Сегодня -'+dtoc(date()) FIELDS;
kp=iif(or_r=1,'-','') :1 :H='' :W=nach() :F,;
tab :H='Таб' :W=EN() :V=NE() :F,;
fam :h='Фамилия' :W=EN() :V=NE() :F :15,;
lg=iif(lgot=.t.,'v','') :1 :H='':W=EN() :W=nach() :V=NE() :F ;
WIND kd COLOR SCHEME 12
CLEAR
release window kd
ON KEY LABEL F1 DO HELP WITH 6
RETURN
PROCEDURE kdr_l && пункт меню - Картотека льготников
HIDE POPUP kadr
IF RECCOUNT()=0
ACTIVATE WINDOW vib
@ 1,10 SAY 'Б а з а п у с т а'
@ 2,9 SAY 'Начните с дополнения'
@ 0,0 FILL TO 8,43 COLOR W+/R
@ 5,3 GET ins1 FUNCTION '*TH Дополнить;Отмена' VALID ins2();
DEFA 1 SIZE 1,10,4 COLOR ,,,,w+/n,w+/n,w+/n,,W+/R,
READ CYCLE OBJECT 1
DEACTIVATE WINDOW vib
RETURN
ENDIF
DEFINE WINDOW kd1 FROM 1,0 TO 20,79 system float grow close zoom
ON KEY LABEL F1 DO HELP WITH 2
ON KEY LABEL F5 ACTIVATE POPUP POISK
ON KEY LABEL CTRL+T DO DEL
ON KEY LABEL CTRL+N DO INS WITH 1 IN ADD_DEL
GO TOP
BROWS FOR lgot=.T. WIND kd1 color scheme 8 TITLE;
'F3 - Меню F5 - Поиск Сегодня -'+dtoc(date()) FIELDS;
tab :H='Таб' :W=INFO3() :R :F,;
fam :H='Фамилия' :W=INFO() :F :15,;
dat_c :H='С даты' :W=INFO() :F,;
dat_po :H='По дату' :w=INFO() :F,;
d.info :H='Категория' :R :W=INFO() :F,;
n_yd :H='N удост.' :W=INFO() :F,;
yl :H='Улица' :W=INFO() :R :F,;
dom :H='Д' :W=INFO() :R :F,;
kw_ra :H='Кв' :W=INFO() :r :F,;
tel :h='Телефон' :W=INFO() :F
CLEAR
ON KEY LABEL F1 DO HELP WITH 6
RETURN
PROCEDURE BAZA && пункт меню - База жильцов
HIDE POPUP kadr
IF RECCOUNT()=0
ACTIVATE WINDOW vib
@ 1,10 SAY 'Б а з а п у с т а'
@ 2,9 SAY 'Начните с дополнения'
@ 0,0 FILL TO 8,43 COLOR W+/R
@ 5,3 GET ins1 FUNCTION '*TH Дополнить;Отмена' VALID ins2();
DEFA 1 SIZE 1,10,4 COLOR ,,,,w+/n,w+/n,w+/n,,W+/R,
READ CYCLE OBJECT 1
DEACTIVATE WINDOW vib
RETURN
ENDIF
DEFINE WINDOW kd1 FROM 1,0 TO 20,79 system float grow close zoom
ON KEY LABEL F1 DO HELP WITH 2
ON KEY LABEL F5 ACTIVATE POPUP POISK
ON KEY LABEL CTRL+T DO DEL
ON KEY LABEL CTRL+N DO INS WITH 1 IN ADD_DEL
GO TOP
BROWS WIND kd1 color scheme 18 TITLE;
'F3 - Меню F5 - Поиск Сегодня -'+dtoc(date()) FIELDS;
tab :H='Таб' :R :W=INFO() :F,;
fam :H='Фамилия' :W=INFO() :F :15,;
yl :H='Улица' :R :W=INFO() :F :10,;
dom :H='Д' :R :W=INFO() :F,;
kw_ra :H='Кв' :R :W=INFO() :F,;
tel :h='Телефон' :W=INFO() :F :6,;
d.info :H='Категория' :R :W=INFO() :15 :F,;
n_yd :H='N удост.' :W=INFO() :F,;
kol_vo :H='Кол-во' :W=INFO() :3
CLEAR
ON KEY LABEL F1 DO HELP WITH 6
RETURN
PROCEDURE ent_sch && пункт меню - Ввод оплаты счетчика
HIDE POPUP kadr
IF RECCOUNT()=0
ACTIVATE WINDOW vib
@ 1,10 SAY 'Б а з а п у с т а'
@ 2,9 SAY 'Начните с дополнения'
@ 0,0 FILL TO 8,43 COLOR W+/R
@ 5,3 GET ins1 FUNCTION '*TH Дополнить;Отмена' VALID ins2();
DEFA 1 SIZE 1,10,4 COLOR ,,,,w+/n,w+/n,w+/n,,W+/R,
READ CYCLE OBJECT 1
DEACTIVATE WINDOW vib
RETURN
ENDIF
DEFINE WINDOW kd1 FROM 1,0 TO 20,79 system float grow close zoom
GO TOP
SELECT A
ON KEY LABEL F1 DO HELP WITH 2
ON KEY LABE F5 ACTIVATE POPUP POISK
BROWSE for or_r=1 TITLE;
'F3 - Меню F5 - Поиск Сегодня -'+dtoc(date()) FIELDS;
tab :H='Таб' :W=INFO() :F :R,;
fam :h='Фамилия' :W=INFO() :F :15 :r,;
yl :H='Улица' :W=INFO() :F :r :10,;
dom :H='Дом' :W=INFO() :F :r,;
kw_ra :H='Кв.' :W=INFO() :F :r,;
tel :H='Телефон':W=INFO() :F :r ,;
elec :H='Ст.знач':W=INFO() :F :v=r() :f ,;
elec1 :H='Нов.знач' :v=r() :W=INFO() :F,;
c.el_c :H='К оплате' :W=INFO() :F :8;
WIND kd1 color scheme 18
CLEAR
ON KEY LABEL F1 DO HELP WITH 6
RETURN
PROCEDURE ent_opl && пункт меню - Ввод оплаты
HIDE POPUP kadr
IF RECCOUNT()=0
ACTIVATE WINDOW vib
@ 1,10 SAY 'Б а з а п у с т а'
@ 2,9 SAY 'Начните с дополнения'
@ 0,0 FILL TO 8,43 COLOR W+/R
@ 5,3 GET ins1 FUNCTION '*TH Дополнить;Отмена' VALID ins2();
DEFA 1 SIZE 1,10,4 COLOR ,,,,w+/n,w+/n,w+/n,,W+/R,
READ CYCLE OBJECT 1
DEACTIVATE WINDOW vib
RETURN
ENDIF
DEFINE WINDOW kd1 FROM 1,0 TO 20,79 system float grow close zoom
dat=DATE()
opl=0
SELECT A
GO TOP
ON KEY LABEL F1 DO HELP WITH 2
ON KEY LABEL F5 ACTIVATE POPUP POISK
BROWS FOR or_r=1 REST TITLE;
'F3 - Меню F5 - Поиск Сегодня -'+dtoc(date()) FIELDS;
lg=iif(lgot=.t.,'v','') :1 :H='':W=INFO3(),;
tab :H='Таб' :R :W=INFO3(),;
fam :h='Фамилия' :15 :W=INFO3(),;
opl_ta :H='ВВОД ОПЛАТЫ' :8 :V=sv3() :W=INFO3(),;
ost_k :H='Остаток' :8 :W=INFO3() :r,;
d_opl :H='Дата' :8 :W=INFO3(),;
c.itog_n :h='Начислен':8 :R :W=INFO3(),;
c.sum_it :h='По льготе' :W=INFO3() :8 :R,;
c.itog :h='К оплате':10 :W=INFO3() :R;
WIND kd1 COLOR W+/RB,GR+/RB,N/g,GR+/g,GR+/N,GR+/RB,GR+/RB,,,
ON KEY LABEL F1 DO HELP WITH 6
CLEAR
RETURN
************************************************************************************* Пункт меню – СЕРВИС **
***********************************************************************************
PROCEDURE NORMS && пункт меню - Ввод нормативов оплаты (стоимости услуг)
HIDE POPUP serv
ON KEY LABEL F1 DO HELP WITH 4
DEFINE WINDOW m_zar FROM 5,15 TO 23,55 SHADOW;
TITLE 'Сегодня - '+dtoc(date()) color scheme 19
ACTIVATE WINDOW M_ZAR
@ 1,0 TO 1,33 DOUBLE
@ 2,1 TO 2,31
@ 2,7 SAY 'Ввод стоимости услуг'
@ 3,3 SAY 'Стоимость кв.платы'
@ 3,29 GET _kv_pl PICTURE '##.##'
@ 4,3 SAY 'Стоимость телефона'
@ 4,29 GET _tel PICTURE '##.##'
@ 5,3 SAY 'Стоимость радио'
@ 5,29 GET _rad PICTURE '##.##'
@ 6,3 SAY 'Стоимость ком. услуг'
@ 6,29 GET _kom PICTURE '##.##'
@ 7,3 SAY 'Cтоимость Гор.воды'
@ 7,29 GET _gor_w PICTURE '##.##'
@ 8,3 SAY 'Стоимость Хол.воды'
@ 8,29 GET _xol_w PICTURE '##.##'
@ 9,3 SAY 'Стоимость отопления'
@ 9,29 GET _otopl PICTURE '##.##'
@ 10,3 SAY 'Стоимость электроэнергии'
@ 10,29 GET _elek PICTURE '##.##'
@ 12,3 SAY 'Бухгалтер'
@ 12,14 GET _pod PICTURE 'xxxxxxxxxxxxxxx'
@ 14,5 GET c function '*HN ОК;Отмена' VALID cf();
DEFAULT 1 SIZE 1,6,7 COLOR SCHEME 12
READ CYCLE COLOR ,N/W
RELEASE WINDOWS M_ZAR
ON KEY LABEL F1 DO HELP WITH 6
RETURN
********************************************************************************
PROCEDURE VVV && пункт меню - Ввод оплаты для олного квартиросъемщика
ON KEY LABEL F1 DO HELP WITH 2
SELE a
R=RECNO()
y=yl
d=dom
kv=kw_ra
dat=DATE()
opl=0
DEFINE WINDOW m_zar FROM 5,15 TO 23,55 SHADOW;
TITLE 'Сегодня - '+dtoc(date()) color scheme 19
ACTIVATE WINDOW M_ZAR
IF or_r=0
LOCATE FOR y=yl.AND.d=dom.AND.kv=kw_ra.AND.or_r=1
IF FOUND()=.F.
RETURN
ENDIF
ENDIF
@ 1,2 SAY 'ВВОД ОПЛАТЫ ДЛЯ ' color gr+/b
@ 2,2 SAY ALLTRIM(FAM) COLOR W+/B
@ 3,2 SAY 'Табель - ' color gr+/b
@ 3,14 SAY ALLTRIM(STR(TAB)) COLOR W+/B
@ 5,1 TO 14,39 DOUBLE
@ 6,3 SAY 'Начислено'
@ 6,15 GET c.itog_n disable PICTURE '#######.##' color scheme 12
@ 7,3 SAY 'По льготе'
@ 7,15 SAY ltrim(str(c.sum_it,7,2)) color r/W
@ 8,3 SAY 'К оплате'
@ 8,15 GET c.itog disable PICTURE '#######.##' color scheme 12
@ 10,2 SAY 'Введите уплаченную сумму'
@ 10,26 GET opl picture '####.##' VALID SM()
@ 12,4 SAY 'Остаток '
@ 12,12 GET ost_k disable PICTURE '####.##' color scheme 12
@ 15,5 GET sav FUNCTION '*H Ok;Отмена' VALID SAV() DEFA 1 SIZE 1,8,5
READ CYCLE COLOR ,N/W
DEACTIVATE WINDOW M_ZAR
GO r
ON KEY LABEL F1 DO HELP WITH 1
IF WONTOP()='INS'
@ 10,27 CLEAR TO 20,50
set order to adrr
=POS_CH1()
SHOW GETS
ON KEY LABEL F1 DO HELP WITH 5
ENDIF
RETURN
- 5 -