Материалы сайта
Это интересно
Автоматизированное рабочее место
**************************************************************************** ********* Пункт меню - КАДРЫ ** **************************************************************************** ******* 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 ----------------------- [pic]