Автоматизированное рабочее место Файл Дополнения\Изменения – ADD_DEL.PRG ************************************************************************************* Дополнение\Изменение данных ** ********************************************************************* 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 П риложение № 1.5 - 6 - Просмотр с помощью команды 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 П риложение № 1.4 - 6 - Часть I ВВЕДЕНИЕ 1 Краткая характеристика предприятия 2 Основные производственные фонды 3 Себестоимость, прибыль и рентабельность продукции 4 Планирование производственно-хозяйственной деятельности предприятия 5 Предпосылки для написания приложения 5 Краткая характеристика системы 6 Часть II ОСНОВНАЯ ЧАСТЬ ГЛАВА 1 8 Описание предметной области 9 Проектирование базы данных 12 Этап 1. Определение сущностей 12 Этап 2. Определение взаимосвязей мужду сущностями 12