************************************************************************************* Дополнение\Изменение данных **

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

PROCEDURE ins && Процедура Дополнения\Изменения

PARAMETERS d_ins

ord_a=order()

CLEAR

RELEASE KW,GW,XW,KS,ELC,TL,RD,OT,OR1,LG_TA

HIDE POPUP serv

ON KEY LABEL F1 DO HELP WITH 8

ON KEY LABEL F7 DO N_YDOS_AND_KOD

sele a

STORE .F. TO _PAD_OTCH

DEFINE POPUP YL FROM 4,10

n=recno()

m=1

br=1

DIMENSION yl_za(100,1)

go top

i=1

yl_za(i,1)=yl

DO WHILE !EOF()

DEFINE BAR (br) OF YL PROMPT yl_za(i,1)

IF yl=yl_za(i,1)

skip

loop

ENDIF

m=m+1

i=i+1

yl_za(i,1)=yl

br=br+1

ENDDO

DIMENSION yl_za(m,1)

ON SELECTION POPUP YL DO YLIZ WITH PROMPT()

define window hp from 12,28 to 20,60 shadow color scheme 16

DO CASE

CASE d_ins=1

SCATTER MEMVAR BLANK

STORE 1 TO red

set skip to

CLOSE DATA

SELE i

USE HELP

SELE a

USE RABOT

SELE d

USE LGOT

CASE d_ins=2

IF RECCOUNT()=0

RETURN

ELSE

GO _REC

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

lg_ta=lgot

or1=or_r

yl_ins=yl

dom_ins=dom

k_ins=kw_ra

SCATTER MEMVAR

STORE 2 TO red

ENDIF

ENDCASE

ACTIVATE WINDOW INS

=POS_CH2()

@ 1,10 GET m.fam

@ 2,10 GET m.tab picture '9999' VALID unic() ERROR 'Повтор Табеля'

@ 2,28 GET m.tel picture '99999999'

@ 3,10 GET m.yl WHEN yliz_s()

@ 3,30 GET m.dom PICTURE 'NNNN'

@ 3,40 GET m.kw_ra picture 'nnnn'

@ 4,10 GET m.kv_m picture '###.##' default ''

*@ 5,39 GET m.kol_vo DISABLE

*@ 3,2 GET yl_z FUNCTION '*I ' VALID YLIZ1() WHEN INS2() DEFA 1 SIZE 1,7

@ 5,35 GET m.elec picture '999999'

@ 6,35 GET m.elec1 picture '999999'

@ 5,43 GET or1 FUNCTION '*C Ордер' VALID O_R() DEFA 0 COLOR SCHEME 16

@ 6,43 GET lg_ta FUNC '*C Льгота' VALID vib_lg() DEFA .f.COLOR SCHEME 16

@ 8,1 to 8,70 double

@ 12,2 GET kw FUNCTION '*C Квартплата' DEFAULT .F. VALID KW_INS() COLOR SCHEME 16

@ 13,2 GET gw FUNCTION '*C Горячая вода' VALID GW_INS() defa .f. COLOR SCHEME 16

@ 14,2 GET xw FUNCTION '*C Холодная вода' VALID XW_INS() DEFA .F. COLOR SCHEME 16

@ 15,2 GET ks FUNC '*C Комунальные услуги' VALI KS_INS() DEFA .F. COLO SCHEME 16

@ 16,2 GET ot FUNCTION '*C Отопление' VALID OT_INS() DEFA .F. COLOR SCHEME 16

@ 17,2 GET elc FUNC '*C Электроэнергия' VALID ELC_INS() DEFA .F. COLOR SCHEME 16

@ 18,2 GET tl FUNCTION '*C Телефон' VALID TL() WHEN TL1() DEFA .F. COLOR SCHEME 16

@ 19,2 GET rd FUNCTION '*C Радио' VALID rd() WHEN rd1() DEFA .F. COLOR SCHEME 16

*@ 10,30 SAY 'Категория'

*@ 10,47 get d.info

@ 11,30 say 'Действительна с' COLOR SCHEME 17

@ 11,47 get m.dat_c COLOR SCHEME 17

@ 11,58 say 'по' COLOR SCHEME 17

@ 11,61 get m.dat_po VALID IIF(m.dat_c=

@ 12,35 say '%начислений кв.платы' COLOR SCHEME 17

@ 12,60 get d.kwp_l PICTURE '#.##' COLOR SCHEME 17

@ 12,65 SAY '%' COLOR SCHEME 17

@ 13,35 SAY '%начислений телефона' COLOR SCHEME 17

@ 13,60 get d.tl_l PICTURE '#.##' COLOR SCHEME 17

@ 13,65 SAY '%' COLOR SCHEME 17

@ 14,35 say '%начислений радио' COLOR SCHEME 17

@ 14,60 get d.rd_l PICTURE '#.##' COLOR SCHEME 17

@ 14,65 SAY '%' COLOR SCHEME 17

@ 15,35 say '%начислений ком. услуг' COLOR SCHEME 17

@ 15,60 get d.k_l_l PICTURE '#.##' COLOR SCHEME 17

@ 15,65 SAY '%' COLOR SCHEME 17

@ 16,35 say '%начислений Гор.воды' COLOR SCHEME 17

@ 16,60 get d.gw_l PICTURE '#.##' COLOR SCHEME 17

@ 16,65 SAY '%' COLOR SCHEME 17

@ 17,35 say '%начислений Хол.воды'COLOR SCHEME 17

@ 17,60 get d.xw_l PICTURE '#.##' COLOR SCHEME 17

@ 17,65 SAY '%' COLOR SCHEME 17

@ 18,35 say '%начислений отопления' COLOR SCHEME 17

@ 18,60 get d.ot_l PICTURE '#.##' COLOR SCHEME 17

@ 18,65 SAY '%' COLOR SCHEME 17

@ 20,35 SAY 'КАТЕГОРИЯ' GET d.info COLOR SCHEME 17

@ 1,57 GET pod FUNCTION '*N Сохранить;Выход;Удалить' valid ad_in() default 1;

size 1,15,1 COLOR ,,,,gr+/b,w+/n,r+/b,,W+/GR,w/b

READ CYCLE SHOW red() color scheme 9

DEACTIVATE WINDOW INS

release windows hp

IF d_ins=1

DO P_INDEX

ENDIF

GO _REC

DO POS_CH

ON KEY

ON KEY LABEL F1 DO HELP WITH 6

RETURN

FUNCTION red

DO CASE

CASE red=1

SHOW GET pod,1 PROMPT 'Cохранить'

SHOW GET pod,3 DISABLE

CASE red=2

SHOW GET pod,1 PROMPT 'Подтверждаю'

ENDCASE

DO CASE

CASE m.or_r=1

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 DISABLE COLOR ,,,,,,,,,BG+/BG

SHOW GET rd DISABLE COLOR ,,,,,,,,,BG+/BG

@ 10,2 FILL TO 20,29 COLOR SCHEME 16

DO CASE

CASE m.lgot=.F.

SHOW GET m.dat_c DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET m.dat_po DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.kwp_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.gw_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.xw_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.k_l_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.ot_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.tl_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.rd_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.info DISABLE COLOR ,,,,,,,,,W+/W

@ 8,29 clear to 9,60

@ 10,30 FILL TO 20,70 COLOR W+/BG

CASE m.lgot=.T.

SHOW GET m.dat_c ENABLE

SHOW GET m.dat_po ENABLE

SHOW GET d.kwp_l ENABLE

SHOW GET d.gw_l ENABLE

SHOW GET d.xw_l ENABLE

SHOW GET d.k_l_l ENABLE

SHOW GET d.ot_l ENABLE

SHOW GET d.tl_l ENABLE

SHOW GET d.rd_l ENABLE

SHOW GET d.info ENABLE

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

@ 10,30 FILL TO 20,70 COLOR SCHEME 17

ENDCASE

CASE m.or_r=0

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

DO CASE

CASE m.lgot=.F.

SHOW GET m.dat_c DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET m.dat_po DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.kwp_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.gw_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.xw_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.k_l_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.ot_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.tl_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.rd_l DISABLE COLOR ,,,,,,,,,W+/W

SHOW GET d.info DISABLE COLOR ,,,,,,,,,W+/W

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

@ 8,29 clear to 9,60

@ 10,30 FILL TO 20,70 COLOR W+/BG

CASE m.lgot=.T.

SHOW GET m.dat_c ENABLE

SHOW GET m.dat_po ENABLE

SHOW GET d.kwp_l ENABLE

SHOW GET d.gw_l ENABLE

SHOW GET d.xw_l ENABLE

SHOW GET d.k_l_l ENABLE

SHOW GET d.ot_l ENABLE

SHOW GET d.tl_l ENABLE

SHOW GET d.rd_l ENABLE

SHOW GET d.info ENABLE

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

@ 10,30 FILL TO 20,70 COLOR SCHEME 17

ENDCASE

@ 10,2 FILL TO 20,29 COLOR W+/W

ENDCASE

RETURN

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

** Дополнение (Редактирование) ставок по льготам **

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

FUNCTION INS_LG

SELE d

ON KEY LABEL F1 DO HELP WITH 5

DEFINE WINDOW m_zar FROM 5,14 TO 23,58 SHADOW;

TITLE 'Сегодня - '+dtoc(date()) COLOR SCHEME 17

ACTIVATE WINDOW M_ZAR

@ 1,0 to 1,33 double

SCATTER MEMVAR BLANK

@ 3,1 to 3,31

@ 3,7 say 'Ввод ставок по льготам'

@ 2,1 SAY 'КОД - ' GET m.n_lg PICTURE '99';

VALID UNIC_LG() ERROR 'Код уже существует'

@ 2,10 SAY 'КАТЕГОРИЯ' GET m.info

@ 4,3 say '%начислений кв.платы'

@ 4,29 get m.kwp_l PICTURE '#.##'

@ 4,35 SAY '%'

@ 5,3 SAY '%начислений телефона'

@ 5,29 get m.tl_l PICTURE '#.##'

@ 5,35 SAY '%'

@ 6,3 say '%начислений радио'

@ 6,29 get m.rd_l PICTURE '#.##'

@ 6,35 SAY '%'

@ 7,3 say '%начислений ком. услуг'

@ 7,29 get m.k_l_l PICTURE '#.##'

@ 7,35 SAY '%'

@ 8,3 say '%начислений Гор.воды'

@ 8,29 get m.gw_l PICTURE '#.##'

@ 8,35 SAY '%'

@ 9,3 say '%начислений Хол.воды'

@ 9,29 get m.xw_l PICTURE '#.##'

@ 9,35 SAY '%'

@ 10,3 say '%начислений отопления'

@ 10,29 get m.ot_l PICTURE '#.##'

@ 10,35 SAY '%'

@ 12,2 GET LG_INS FUNCTION '*HN Сохранить;Отмена;Удалить' VALID LG_INS() DEFA 1 SIZE 1,10,2

read CYCLE COLOR SCHEME 5

SELE a

ON KEY

ON KEY LABEL F1 DO HELP WITH 6

RELEASE WINDOWS M_ZAR

RETURN

************************************************************************************* Пункт меню - КАДРЫ **

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

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