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

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

Просмотр с помощью команды BROWSEBAZES.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


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


- 6 -



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

Файл
142632.rtf
145025.rtf
145084.doc
93776.rtf
90088.rtf