FUNC (Автоматизированное рабочее место)
Описание файла
Документ из архива "Автоматизированное рабочее место", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "FUNC"
Текст из документа "FUNC"
Процедурный файл FUNC.PRG
***********************************************************************************
** Функция - Постоянная часть (Работа с картотекой) **
***********************************************************************************
PROCEDURE pos_ch
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
ELSE
GO _REC
RELEASE KW,GW,XW,KS,ELC,TL,RD,OT
ACTIVATE WINDOW ins
STORE .F. TO e,b
T=TAB
ON KEY LABEL F1 DO HELP WITH 5
ON KEY LABEL F5 ACTIVATE POPUP POISK
@ 1,10 get fam disable COLOR SCHEME 15
@ 2,10 get tab disable COLOR SCHEME 15
@ 2,28 get tel disable COLOR SCHEME 15
@ 3,10 get yl disable COLOR SCHEME 15
@ 3,30 get dom picture 'xxxx' disable COLOR SCHEME 15
@ 3,40 get kw_ra picture 'xxxx' disable COLOR SCHEME 15
@ 4,10 get kv_m picture '###.##' disable COLOR SCHEME 15
@ 5,39 get kol_vo picture '99' COLOR SCHEME 12
@ 6,27 GET family FUNCTION '*I ' VALID FAMILY() DEFA 1 SIZE 1,12
=POS_CH1()
kw=kw_l
gw=g_w_l
xw=x_w_l
ks=k_ys_l
ot=otop_l
elc=el_c_l
tl=tel_l
rd=rad_l
@ 10,2 GET kw FUNCTION '*C Квартплата' DEFAULT .F. VALID KW() COLOR SCHEME 16
@ 10,36 get c.kw_pl PICTURE '####.##' disable color scheme 16
@ 11,2 GET gw FUNCTION '*C Горячая вода' VALID GW() defa .f. COLOR SCHEME 16
@ 11,36 get c.g_w disable color scheme 16
@ 12,2 GET xw FUNCTION '*C Холодная вода' VALID XW() DEFA .F. COLOR SCHEME 16
@ 12,36 get c.x_w disable color scheme 16
@ 13,2 GET ks FUNCTION '*C Комунальные услуги' VALID KS() DEFA .F. COLOR SCHEME 16
@ 13,36 get c.k_ysl disable color scheme 16
@ 14,2 GET ot FUNCTION '*C Отопление' VALID OT() DEFA .F. COLOR SCHEME 16
@ 14,36 get c.otopl disable color scheme 16
@ 15,2 GET elc FUNCTION '*C Электроэнергия' VALID ELC() DEFA .F.COLOR SCHEME 16
@ 15,36 get c.el_c disable color scheme 16
@ 16,2 GET tl FUNCTION '*C Телефон' VALID TL() DEFA .F. COLOR SCHEME 16
@ 16,36 get c.tel_r disable color scheme 16
@ 17,2 GET rd FUNCTION '*C Радио' VALID rd() DEFA .F. COLOR SCHEME 16
@ 17,36 get c.rad_r disable color scheme 16
@ 10,28 GET tar_s FUNCTION '*I ;;;;;;;' VALID TARIFS() DEFA 1;
COLOR ,,,,GR/BG,GR/BG,,,GR+/BG SIZE 1,7
@ 8,52 GET pros_lg FUNCTION '*N []' VALID PROS_LG() DEFA 1;
COLOR ,,,,gr+/b,w+/n,r+/b,,W+/GR,w/w+
@ 21,1 GET d.n_lg
@ 21,3 GET d.info COLOR ,R/G
@ 21,26 GET dat_c COLOR ,B/G
@ 21,40 GET dat_po COLOR ,B/G
@ 22,10 GET tabl_ras FUNCTION '*N По льготам' valid tab_rslg() DEFAULT 2;
COLOR ,,,,gr+/b,w+/n,r+/b,,W+/GR,w/w+
@ 22,25 GET tabl_ras1 FUNCTION '*N По оплате' valid tabl_rasop() DEFAULT 2;
COLOR ,,,,gr+/b,w+/n,r+/b,,W+/GR,w/w+
@ 16,59 GET PEREM FUNCTION '*N Вверх;Вниз' VALID PER() DEFA 1;
SIZE 1,8,1 COLOR ,,,,gr+/b,w+/n,r+/b,,W+/GR,w/w+
@ 10,65 GET FILTR FUNCTION '*N Плательщики;Льготники;Все жильцы ' valid filtr(); defa 3
@ 16,69 GET PEREM1 FUNCTION '*N Начало;Конец' VALID PER1() DEFA 1;
SIZE 1,8,1 COLOR ,,,,gr+/b,w+/n,r+/b,,W+/GR,w/w+
@ 0,63 GET attrib FUNCTION '*T Изменить;Добавить' valid attr() defa 2;
COLOR ,,,,gr+/b,w+/n,r+/b,,W+/GR,w/w+ SIZE 2,14,1
@ 4,63 GET attrib1 FUNCTION '*N Удалить;Печать;Ввод оплаты' valid attr1() defa 2;
COLOR ,,,,gr+/b,w+/n,r+/b,,W+/GR,w/w+ SIZE 2,14,1
@ 20,63 GET ALL_L FUNCTION '*T Выйти;Расчет'valid vib1_7() default 1;
size 2,10,1 COLOR ,,,,gr+/b,w+/n,r+/b,,W+/GR,w/gr+
READ CYCLE SHOW tb_l() OBJECT 42 with M_ZAR,VEDOM COLOR SCHEME 7
DEACTIVATE WINDOW INS
ENDIF
SET ORDER TO adrr
ON KEY LABEL F1 DO HELP WITH 6
RETURN
FUNCTION POS_CH1 && SAY - Объекты
kw=kw_l
gw=g_w_l
xw=x_w_l
ks=k_ys_l
ot=otop_l
elc=el_c_l
tl=tel_l
rd=rad_l
@ 0,1 to 7,55 double
@ 1,2 say 'Фамилия' COLOR SCHEME 12
@ 2,2 say 'Табель' COLOR SCHEME 12
@ 2,20 say 'Телефон' COLOR SCHEME 12
@ 3,2 say 'Адрес: 'COLOR SCHEME 12
@ 3,26 say 'Дом' COLOR SCHEME 12
@ 3,35 say 'Кв-ра'COLOR SCHEME 12
@ 4,2 say 'Площадь'COLOR SCHEME 12
@ 5,2 say 'Количество жильцов - ' +ltrim(str(kol(0))) COLOR SCHEME 12
@ 5,27 say 'Начисляется' COLOR SCHEME 12
@ 5,43 say 'чел.' COLOR SCHEME 12
@ 6,2 say 'Из них льготников - ' +ltrim(str(kl_l(0))) COLOR SCHEME 12
@ 6,27 SAY 'СОСТАВ СЕМЬИ'
@ 8,3 SAY 'Услуга'
@ 8,28 say 'Тариф'
@ 8,36 say 'Расчет'
@ 8,45 say 'Льготы'
@ 9,2 to 9,55
@ 11,56 SAY 'ФИЛЬТР:'
@ 10,28 say LTRIM(STR(kw1(0),5,2))
@ 11,28 SAY LTRIM(STR(GW1(0),5,2))
@ 12,28 SAY LTRIM(STR(XW1(0),5,2))
@ 13,28 SAY LTRIM(STR(KS1(0),5,2))
@ 14,28 SAY LTRIM(STR(OT1(0),5,2))
@ 15,28 SAY LTRIM(STR(ELC1(0),5,2))
@ 16,28 SAY LTRIM(STR(TL3(0),5,2))
@ 17,28 say LTRIM(STR(RD3(0),5,2))
@ 18,2 to 18,55
@ 19,20 SAY 'ИТОГО'
@ 19,36 SAY LTRIM(STR(C.ITOG_N,7,2))
@ 20,2 TO 20,55 DOUBLE
@ 20,20 SAY 'К ОПЛАТЕ - '+LTRIM(STR(C.ITOG,8,2)) color w+/n
@ 21,23 SAY 'C'
@ 21,37 say 'по'
@ 0,4 say 'F5 - Поиск' color w+/r
@ 0,40 say 'F1 - Помощь' color w+/r
@ 0,56 FILL TO 23,80 COLOR SCHEME 15
@ 9,2 FILL TO 18,55 COLOR SCHEME 16
FUNCTION OB_NACH && SAY – Объекты начислений по льготам
@ 10,45 say LTRIM(STR(c.sum_kw,6,2)) COLOR R/W,,,,,,,,,
@ 11,45 say ltrim(str(c.sum_gw,6,2)) color r/W,,,,,,,,,
@ 12,45 say ltrim(str(c.sum_xw,6,2)) color r/W,,,,,,,,,
@ 13,45 say ltrim(str(c.sum_kysl,6,2)) color r/W,,,,,,,,,
@ 14,45 say ltrim(str(c.sum_ot,6,2)) color r/W,,,,,,,,,
@ 16,45 say ltrim(str(c.sum_tl,6,2)) color r/W,,,,,,,,,
@ 17,45 say ltrim(str(c.sum_rd,6,2)) color r/W,,,,,,,,,
@ 19,45 SAY LTRIM(STR(C.SUM_IT,7,2))
@ 9,45 FILL TO 18,55 COLOR SCHEME 16
FUNCTION LG_NACH && SAY – Объекты начислений по льготам
@ 10,45 say LTRIM(STR(c.kw_pll,6,2)) COLOR R/W,,,,,,,,,
@ 11,45 say ltrim(str(c.g_wl,6,2)) color r/W,,,,,,,,,
@ 12,45 say ltrim(str(c.x_wl,6,2)) color r/W,,,,,,,,,
@ 13,45 say ltrim(str(c.k_ysll,6,2)) color r/W,,,,,,,,,
@ 14,45 say ltrim(str(c.otopll,6,2)) color r/W,,,,,,,,,
@ 16,45 say ltrim(str(c.tel_rl,6,2)) color r/W,,,,,,,,,
@ 17,45 say ltrim(str(c.rad_rl,6,2)) color r/W,,,,,,,,,
@ 19,45 SAY LTRIM(STR(C.ITOG_L,7,2))
@ 9,45 FILL TO 18,55 COLOR SCHEME 16
FUNCTION PROS_LG && Просмотр начислений по льготам
DEFINE WINDOW PROSMOTR FROM 10,55 TO 20,75
DO CASE
CASE pros_lg=1
ACTIVATE WINDOW PROSMOTR
@ 0,1 SAY 'Кв-та '
@ 0,11 SAY LTRIM(STR(C.KW_PLL,6,2)) COLOR N/W
@ 1,1 SAY 'Гор.вода '
@ 1,11 SAY LTRIM(STR(C.G_WL,6,2)) COLOR N/W
@ 2,1 SAY 'Хол.вода '
@ 2,11 SAY LTRIM(STR(C.X_WL,6,2)) COLOR N/W
@ 3,1 SAY 'Ком.усл. '
@ 3,11 SAY LTRIM(STR(C.K_YSLL,6,2)) COLOR N/W
@ 4,1 SAY 'Отопление '
@ 4,11 SAY LTRIM(STR(C.OTOPLL,6,2)) COLOR N/W
@ 5,1 SAY 'Телефон '
@ 5,11 SAY LTRIM(STR(C.TEL_RL,6,2)) COLOR N/W
@ 6,1 SAY 'Радио '
@ 6,11 SAY LTRIM(STR(C.RAD_RL,6,2)) COLOR N/W
@ 8,2 SAY 'ИТОГ '+LTRIM(STR(C.ITOG_L,8,2)) COLOR R/W
READ
RELEASE WINDOW PROSMOTR
RETURN
FUNCTION tb_l && Функция обновления кнопок(GET) в Процедуре Постоянная часть
DO CASE
CASE _FILTR=1
SET ORDER TO ord
@ 14,57 CLEAR TO 14,76
@ 14,57 SAY 'ФИЛЬТР - ' COLOR W+/B
@ 14,66 SAY 'Плательщики' COLOR W+/N
CASE _FILTR=2
SET ORDER TO lgt
@ 14,57 CLEAR TO 14,76
@ 14,57 SAY 'ФИЛЬТР - ' COLOR W+/B
@ 14,66 SAY 'Льготники ' COLOR W+/R
CASE _FILTR=3
SET ORDER TO adrr
@ 14,57 CLEAR TO 14,76
@ 14,57 SAY 'ФИЛЬТР - ' COLOR W+/B
@ 14,66 SAY 'Все жильцы ' COLOR W+/B
ENDCASE
DO CASE
CASE or_r=1.OR.lgot=.T.
SHOW GET kw ENABLE COLOR SCHEME 16
SHOW GET gw ENABLE COLOR SCHEME 16
SHOW GET xw ENABLE COLOR SCHEME 16
SHOW GET ks ENABLE COLOR SCHEME 16
SHOW GET ot ENABLE COLOR SCHEME 16
SHOW GET elc ENABLE COLOR SCHEME 16
SHOW GET tl ENABLE COLOR SCHEME 16
SHOW GET rd ENABLE COLOR SCHEME 16
@ 10,2 FILL TO 18,29 COLOR SCHEME 16
CASE or_r=0.OR.lgot=.F.
SHOW GET kw DISABLE COLOR ,,,,,,,,,W+/W
SHOW GET gw DISABLE COLOR ,,,,,,,,,W+/W
SHOW GET xw DISABLE COLOR ,,,,,,,,,W+/W
SHOW GET ks DISABLE COLOR ,,,,,,,,,W+/W
SHOW GET ot DISABLE COLOR ,,,,,,,,,W+/W
SHOW GET elc DISABLE COLOR ,,,,,,,,,W+/W
SHOW GET tl DISABLE COLOR ,,,,,,,,,W+/W
SHOW GET rd DISABLE COLOR ,,,,,,,,,W+/W
@ 10,2 FILL TO 17,26 COLOR SCHEME 12
ENDCASE
DO CASE
CASE lgot=.f.
SHOW GET tabl_ras DISABLE
@ 21,1 clear to 21,55
CASE lgot=.t.
SHOW GET tabl_ras ENABLE
@ 21,1 FILL TO 21,54 COLOR SCHEME 17
ENDCASE
DO CASE
CASE or_r=0
SHOW GET tabl_ras1 DISABLE
SHOW GET pros_lg DISABLE
=LG_NACH()
CASE or_r=1
SHOW GET tabl_ras1 ENABLE
SHOW GET pros_lg ENABLE
=OB_NACH()
ENDCASE
DO CASE
CASE e=.F.
SHOW GET perem,1 ENABLE
SHOW GET perem1,1 ENABLE
CASE b=.F.
SHOW GET perem,2 ENABLE
SHOW GET perem1,2 ENABLE
ENDCASE
RETURN
FUNCTION PER && Перемещения в Базе жильцов ()
SELE A
DO CASE
CASE perem=1
cyr=_CUROBJ
SKIP -1
IF BOF()
show get perem,1 DISABLE
GO TOP
b=.t.
WAIT 'НАЧАЛО БАЗЫ' WIND NOWAIT
ELSE
STORE .F. TO e,b
ENDIF
_REC=RECNO()
_CUROBJ=cyr
CASE perem=2
cyr=_CUROBJ
SKIP
IF EOF()
SHOW GET perem,2 DISABLE
GO BOTTOM
e=.t.
WAIT 'КОНЕЦ БАЗЫ' WIND NOWAIT
ELSE
store .f. to e,b
ENDIF
_REC=RECNO()
_CUROBJ=cyr
ENDCASE
SET ORDER TO 0
@ 10,27 CLEAR TO 20,51
=POS_CH1()
SHOW GETS
RETURN
FUNCTION PER1 && Перемещения в Базе жильцов ()
DO CASE
CASE perem1=2
SHOW GET perem,2 DISABLE
SHOW GET perem1,2 DISABLE
GO BOTTOM
e=.t.
WAIT 'КОНЕЦ БАЗЫ' WIND NOWAIT
CASE perem1=1
show get perem,1 DISABLE
SHOW GET perem1,1 DISABLE
GO TOP
b=.t.
WAIT 'НАЧАЛО БАЗЫ' WIND NOWAIT
ENDCASE
SET ORDER TO 0
@ 10,27 CLEAR TO 20,51
=POS_CH1()
SHOW GETS
RETURN
FUNCTION FILTR && Выбор фильтра (Льготники,Плат-щики,Все жильцы)
DO CASE
CASE FILTR=1
_FILTR=1
CASE FILTR=2
_FILTR=2
CASE FILTR=3
_FILTR=3
ENDCASE
SHOW GETS
RETURN
FUNCTION FAMILY && Меню жильцов (СОСТАВ СЕМЬИ)
SELE A
F=ORDER()
SET ORDER TO 0
Y=YL
D=DOM
K=KW_RA
SET FILTER TO Y=YL.AND.D=DOM.AND.K=KW_RA
ACTIVATE POPUP FAMIL
IF LASTKEY()=13
_REC=RECNO()
GO _REC
_FILTR=IIF(or_r=1,1,IIF(lgot=.T.,2,3))
SET FILTER TO
@ 10,27 CLEAR TO 20,51
=POS_CH1()
SHOW GETS
ENDIF
RETURN
FUNCTION ATTR && Выбор кнопок (Добавить,Изменить)
DO CASE
CASE attrib=1
DO INS WITH 2 IN ADD_DEL
CASE attrib=2
DO INS WITH 1 IN ADD_DEL
ENDCASE
RETURN
FUNCTION ATTR1 && Выбор кнопок (Печать,Удалить,Ввод оплаты)
DO CASE
CASE attrib1=1
DO DEL
CASE attrib1=2
DO PRINT1
CASE attrib1=3
DO VVV IN bazes
ENDCASE
RETURN
FUNCTION TAB_RSLG && Таблица ставок по льготам
SELE d
ON KEY LABEL F1 DO HELP WITH 5
DEFINE WINDOW m_zar FROM 5,15 TO 23,55 SHADOW;
TITLE 'Сегодня - '+dtoc(date())
ACTIVATE WINDOW M_ZAR
LOCATE FOR n_lg=a.n_lg
IF FOUND()=.F.
APPEND BLANK
REPLACE N_LG WITH a.n_lg
@ 14,2 SAY 'Заполните льготные ставки для кода №'+ALLTRIM(STR(A.N_LG))
@ 15,3 SAY 'Введите описание льготы в поле'
@ 16,3 SAY 'КАТЕГОРИЯ (н-р: ВЕТЕРАН ТРУДА)'
ENDIF
@ 1,0 to 1,33 double
@ 1,5 SAY a.fam+'Таб.' +ALLTRIM(STR(a.tab)) COLOR SCHEME 13
@ 2,1 to 2,31
@ 2,7 say 'Ввод ставок по льготам'
@ 3,5 SAY 'КОД - ' GET n_lg disable
@ 4,3 say '%начислений кв.платы'
@ 4,29 get kwp_l PICTURE '#.##'
@ 4,35 SAY '%'
@ 5,3 SAY '%начислений телефона'
@ 5,29 get tl_l PICTURE '#.##'
@ 5,35 SAY '%'
@ 6,3 say '%начислений радио'
@ 6,29 get rd_l PICTURE '#.##'
@ 6,35 SAY '%'
@ 7,3 say '%начислений ком. услуг'