Материалы сайта
Это интересно
Автоматизированное рабочее место
**************************************************************************** ********* Формирование списков по начислению ** **************************************************************************** ******* PROCEDURE SP_NACH && Списки по начислению HIDE POPUP VIEV IF _PAD_OTCH=.F. WAIT 'СДЕЛАЙТЕ СЛИЯНИЕ РАСЧЕТОВ' WINDOW RETURN ENDIF DEFINE WINDOW vedom FROM 0,0 TO 24,79 system float grow close zoom shadow; TITLE 'ESC - Выход без сохранения Ctrl+W - с сохранением'; FOOTER 'F1 - Помощь' COLOR SCHEME 12 ON KEY LABEL F1 DO HELP WITH 7 i=MONTH(DATE()) T='nach-'+alltrim(str(i))+'.'+'txt' SET ALTERNATE TO ('nach-'+alltrim(str(i))) && ADDI DIMENSION NACH(12,1) DIMENSION LG(9) STORE 0 TO LG(1),LG(2),LG(3),LG(4),LG(5),LG(6),LG(7),LG(8),LG(9) SET ALTERNATE ON SET CONSOLE OFF set space off SELE A go top DO WHILE !EOF() y=yl do while y=yl d=dom do while y=yl AND d=dom k=kw_ra PL=0 L=0 scan while yl=y.and.dom=d.and.kw_ra=k.and.c.yl=y.and.c.dom=d.and.c.kw_ra=k IF OR_R=1 FM=FAM OS=OST_K TB=TAB KV_MET=KV_M dat_op=D_OPL NACH(1)=C.KW_PL NACH(2)=C.G_W NACH(3)=C.X_W NACH(4)=C.K_YSL NACH(5)=C.OTOPL NACH(6)=C.RAD_R NACH(7)=C.TEL_R NACH(8)=C.EL_C NACH(9)=C.ITOG_N NACH(10)=C.ITOG NACH(11)=OPL_TA endif IF lgot=.t. &&.and.!EMPTY(C.KW_PLL).OR.!EMPTY(C.G_WL).OR.!EMPTY(C.X_WL).OR.!EMPTY(C.K_YS L).OR.!EMPTY(C.OTOPL).OR.!EMPTY(C.RAD_R).OR.!EMPTY(C.TEL_R) LG(1)=LG(1)+C.KW_PLL LG(2)=LG(2)+C.G_WL LG(3)=LG(3)+C.X_WL LG(4)=LG(4)+C.K_YSLL LG(5)=LG(5)+C.OTOPLL LG(6)=LG(6)+C.RAD_RL LG(7)=LG(7)+C.TEL_RL LG(8)=LG(8)+C.EL_CL LG(9)=LG(9)+C.ITOG_L L=L+1 ENDIF PL=PL+1 ENDSCAN ? REPLICATE('_',70) ? FM AT(4) ? 'Табель - ' AT(4),TB PICTURE('9999'),' Дата оплаты ',dat_op FUNCTION('T') ? 'Кол-во жильцов ' at(4),pl picture('99'),' Площадь ',KV_MET PICTURE('###.##') ? 'Льготников ' at(4),l picture('99') ? ? REPLICATE('-',69) ? '|','Сальдо ','|','кв.плата ','|','гор.вода ','|','ком.услуги ','|','радио ','|','телефон ','|','Начислено ','|' ? '|',' Пени ','|','излишки ','|','хол.вода ','|','отопление ','|',' ','|','э\энергия','|',' ','|' ? REPLICATE('-',69) ? OS PICTURE ('####.##') AT(1) &&Остаток ?? NACH(1) PICTURE ('###.##') AT(10) && кв.плата ?? NACH(2) PICTURE ('###.##') AT(19) && гор.вода ?? NACH(4) PICTURE ('###.##') AT(30) && ком.услуги ?? NACH(6) PICTURE ('###.##') AT(40) && радио ?? NACH(7) PICTURE ('###.##') AT(50) && телефон ? NACH(3) PICTURE ('###.##') AT(19) && хол.вода ?? NACH(5) PICTURE ('###.##') AT(30) && отопление ?? NACH(8) PICTURE ('###.##') AT(50) && электричество ?? NACH(9) PICTURE ('####.##') AT(60) && итог IF L>0 ? 'Льгота' ? LG(1) PICTURE ('####.##') AT(10) && кв.плата ?? LG(2) PICTURE ('####.##') AT(19) && гор.вода ?? LG(4) PICTURE ('####.##') AT(30) && ком.услуги ?? LG(6) PICTURE ('###.##') AT(40) && радио ?? LG(7) PICTURE ('####.##') AT(50) && телефон ? LG(3) PICTURE ('####.##') AT(19) && хол.вода ?? LG(5) PICTURE ('####.##') AT(30) && отопление ?? LG(8) PICTURE ('####.##') AT(50) && электричество ?? LG(9) PICTURE ('#####.##') AT(60) && итого STORE 0 TO LG(1),LG(2),LG(3),LG(4),LG(5),LG(6),LG(7),LG(8),LG(9) ENDIF ? ? REPLICATE('-',30),'ИТОГО НАЧИСЛЕНО - ',NACH(10) picture('####.##') ? 'ОПЛАЧЕНО В КАССУ - ' AT(30),NACH(11) PICTURE('####.##') ? 'ОСТАТОК ' AT(30),OS PICTURE('####.##') ENDDO enddo enddo SET ALTERNATE OFF SET ALTERNATE TO MODIFY COMMAND EVALUATE('T') WINDOW vedom CLEAR ACTIVATE WINDOW vib @ 2,5 SAY 'Р а с п е ч а т а т ь ?' @ 0,0 FILL TO 8,43 COLOR W+/R @ 5,6 GET pr FUNCTION '*H Да;Нет' DEFA 2 SIZE 1,6,4; COLOR ,,,,w+/n,w+/n,w+/n,,W+/R, READ DEACTIVATE WINDOW vib DO CASE CASE pr=1 SET HEADING OFF IF PRINTSTATUS() TYPE (T) TO PRINT ELSE WAIT 'Подготовьте принтер' WINDOW ENDIF CASE pr=2 CLEAR READ ENDCASE CLEAR ON KEY LABEL F1 DO HELP WITH 6 RETURN **************************************************************************** ********* Формирование списков по льготам ** **************************************************************************** ******* PROCEDURE SP_lg_kw && Списки по льготам HIDE POPUP VIEV IF _PAD_OTCH=.F. WAIT 'СДЕЛАЙТЕ СЛИЯНИЕ РАСЧЕТОВ' WINDOW RETURN ENDIF DEFINE WINDOW vedom FROM 0,0 TO 24,79 system float grow close zoom shadow; TITLE 'ESC - Выход без сохранения Ctrl+W - с сохранением'; FOOTER 'F1 - Помощь' COLOR SCHEME 12 ON KEY LABEL F1 DO HELP WITH 7 i=MONTH(DATE()) SET ALTERNATE TO ('lg_kw-'+alltrim(str(i))) && ADDI T='lg_kw-'+alltrim(str(i))+'.'+'txt' DIMENSION LG(9) SET ALTERNATE ON SET CONSOLE OFF SELE A go top DO WHILE !EOF() y=yl do while y=yl d=dom do while y=yl AND d=dom k=kw_ra scan while yl=y.and.dom=d.and.kw_ra=k.and.c.yl=y.and.c.dom=d.and.c.kw_ra=k IF OR_R=1 FM=FAM TB=TAB endif IF lgot=.t. ? REPLICATE('_',48) ? 'АДРЕС: ',YL,'Дом ',dom picture('999'),' Кв-ра ',kw_ra picture('999') ? 'ДЕЙСТВИТЕЛЬНА С - ',DAT_C,' ПО - ',DAT_PO ? FAM ,'Табель - ',tab PICTURE('9999') ? 'Категория - ',d.info,'№ удостов.',n_yd,' КОД № - ',N_LG ? 'кв.плата - ',c.kw_pll PICTURE('####.##') ? 'гор.вода - ',c.g_wl PICTURE('####.##') ? 'хол.вода - ',c.x_wl PICTURE('####.##') ? 'отопление - ',c.otopll PICTURE('####.##') ? 'ком.услуги - ',c.k_ysll PICTURE('####.##') ? 'радио - ',c.rad_rl PICTURE('####.##') ? 'телефон - ',c.tel_rl PICTURE('####.##') ? 'Начислено - ',c.itog_l PICTURE('#####.##') ? REPLICATE ('-',48) ? 'Привязан к ',fm,' Таб № ',tb PICTURE('9999') ENDIF ENDSCAN ENDDO ENDDO ENDDO SET ALTERNATE OFF SET ALTERNATE TO SET CONSOLE ON MODIFY COMMAND EVALUATE('T') WINDOW vedom CLEAR ACTIVATE WINDOW vib @ 2,5 SAY 'Р а с п е ч а т а т ь ?' @ 0,0 FILL TO 8,43 COLOR W+/R @ 5,6 GET pr FUNCTION '*H Да;Нет' DEFA 2 SIZE 1,6,4; COLOR ,,,,w+/n,w+/n,w+/n,,W+/R, READ DEACTIVATE WINDOW vib DO CASE CASE pr=1 SET HEADING OFF IF PRINTSTATUS() TYPE (T) TO PRINT ELSE WAIT 'Подготовьте принтер' WINDOW ENDIF CASE pr=2 CLEAR READ ENDCASE CLEAR ON KEY LABEL F1 DO HELP WITH 6 RETURN **************************************************************************** ********* Формирование списков с показаниями счетчика ** **************************************************************************** ******* PROCEDURE SP_SCHET && Списки с показанием счетчика HIDE POPUP VIEV IF _PAD_OTCH=.F. WAIT 'СДЕЛАЙТЕ СЛИЯНИЕ РАСЧЕТОВ' WINDOW RETURN ENDIF DEFINE WINDOW vedom FROM 0,0 TO 24,79 system float grow close zoom shadow; TITLE 'ESC - Выход без сохранения Ctrl+W - с сохранением'; FOOTER 'F1 - Помощь' COLOR SCHEME 12 ON KEY LABEL F1 DO HELP WITH 7 i=MONTH(DATE()) SET ALTERNATE TO ('ELC_V-'+alltrim(str(i))) && ADDI t='ELC_V-'+alltrim(str(i))+'.'+'txt' SET ALTERNATE ON SET CONSOLE OFF SELE A go top DO WHILE !EOF() y=yl do while y=yl d=dom do while y=yl AND d=dom k=kw_ra scan while yl=y.and.dom=d.and.kw_ra=k.and.c.yl=y.and.c.dom=d.and.c.kw_ra=k IF OR_R=1 ? REPLICATE('-',60) ? 'АДРЕС: ',YL,'Дом ',dom picture('999'),' Кв-ра ',kw_ra picture('999') ? FAM AT(5) ? 'Табель - ' AT(5),tab PICTURE('9999') ? ? 'Старое значение - ',elec PICTURE('9999999') ? 'Новое значение - ',elec1 PICTURE('9999999') ENDIF ENDSCAN ENDDO ENDDO ENDDO SET ALTERNATE OFF SET ALTERNATE TO SET CONSOLE ON MODIFY COMMAND EVALUATE('T') WINDOW vedom CLEAR ACTIVATE WINDOW vib @ 2,5 SAY 'Р а с п е ч а т а т ь ?' @ 0,0 FILL TO 8,43 COLOR W+/R @ 5,6 GET pr FUNCTION '*H Да;Нет' DEFA 2 SIZE 1,6,4; COLOR ,,,,w+/n,w+/n,w+/n,,W+/R, READ DEACTIVATE WINDOW vib DO CASE CASE pr=1 SET HEADING OFF IF PRINTSTATUS() TYPE (T) TO PRINT ELSE WAIT 'Подготовьте принтер' WINDOW ENDIF CASE pr=2 CLEAR READ ENDCASE CLEAR ON KEY LABEL F1 DO HELP WITH 6 RETURN **************************************************************************** ********* Формирование списков по оплате электроэнергии ** **************************************************************************** ******* PROCEDURE SP_SCHET_PL && Оплата э/энергии HIDE POPUP VIEV IF _PAD_OTCH=.F. WAIT 'СДЕЛАЙТЕ СЛИЯНИЕ РАСЧЕТОВ' WINDOW RETURN ENDIF DEFINE WINDOW vedom FROM 0,0 TO 24,79 system float grow close zoom shadow; TITLE 'ESC - Выход без сохранения Ctrl+W - с сохранением'; FOOTER 'F1 - Помощь' COLOR SCHEME 12 ON KEY LABEL F1 DO HELP WITH 7 i=MONTH(DATE()) PG=0 T='EL_PL-'+alltrim(str(i))+'.'+'txt' SET ALTERNATE TO ('EL_PL-'+alltrim(str(i))) && ADDI SET ALTERNATE ON SET CONSOLE OFF ? REPLICATE('-',55) ? '|','Таб. ','|',' Фамилия ','|','Ст.знач ','|','Нов.знач','|','Начислено' ? REPLICATE('-',55) SELE A go top DO WHILE !EOF() y=yl do while y=yl d=dom do while y=yl AND d=dom k=kw_ra scan while yl=y.and.dom=d.and.kw_ra=k.and.c.yl=y.and.c.dom=d.and.c.kw_ra=k IF OR_R=1 ? tab PICTURE('9999') AT(1),'|' AT(6),FAM AT(8) PICTURE('xxxxxxxxxxxxxxxxxx') ?? '|' AT(27),elec PICTURE('9999999'),'|' AT(36),elec1 PICTURE('9999999'),'|' AT(44) ?? c.el_c PICTURE('####.##'),'|' AT(55) PG=PG+1 ENDIF ENDSCAN IF PG=45 ? REPLICATE('-',55) ? 'Таб. ','|',' Фамилия ','|','Ст.знач ','|','Нов.знач','|','Начислено' ? REPLICATE('-',55) ENDIF ENDDO ENDDO ENDDO SET ALTERNATE OFF SET ALTERNATE TO SET CONSOLE ON MODIFY COMMAND EVALUATE('T') WINDOW vedom CLEAR ACTIVATE WINDOW vib @ 2,5 SAY 'Р а с п е ч а т а т ь ?' @ 0,0 FILL TO 8,43 COLOR W+/R @ 5,6 GET pr FUNCTION '*H Да;Нет' DEFA 2 SIZE 1,6,4; COLOR ,,,,w+/n,w+/n,w+/n,,W+/R, READ DEACTIVATE WINDOW vib DO CASE CASE pr=1 SET HEADING OFF IF PRINTSTATUS() TYPE (T) TO PRINT ELSE WAIT 'Подготовьте принтер' WINDOW ENDIF CASE pr=2 CLEAR READ ENDCASE CLEAR ON KEY LABEL F1 DO HELP WITH 6 RETURN **************************************************************************** ********* Формирование остатков квартиросъёмщиков ** **************************************************************************** ******* PROCEDURE SP_OST && Сальдо по квартиросъемщикам HIDE POPUP VIEV IF _PAD_OTCH=.F. WAIT 'СДЕЛАЙТЕ СЛИЯНИЕ РАСЧЕТОВ' WINDOW RETURN ENDIF DEFINE WINDOW vedom FROM 0,0 TO 24,79 system float grow close zoom shadow; TITLE 'ESC - Выход без сохранения Ctrl+W - с сохранением'; FOOTER 'F1 - Помощь' COLOR SCHEME 12 ON KEY LABEL F1 DO HELP WITH 7 i=MONTH(DATE()) PG=0 T='saldo-'+alltrim(str(i))+'.'+'txt' SET ALTERNATE TO ('saldo-'+alltrim(str(i))) && ADDI SET ALTERNATE ON SET CONSOLE OFF ? REPLICATE('-',58) ? '|','Таб. ','|',' Фамилия ','|','Начисл. ','|','К оплате ','|','Остаток ' ? REPLICATE('-',58) SELE A go top DO WHILE !EOF() y=yl do while y=yl d=dom do while y=yl AND d=dom k=kw_ra scan while yl=y.and.dom=d.and.kw_ra=k.and.c.yl=y.and.c.dom=d.and.c.kw_ra=k IF OR_R=1 ? tab PICTURE('9999') AT(1),'|' AT(6),FAM AT(8) PICTURE('xxxxxxxxxxxxxxxxxx'),'|' AT(27) ?? c.itog_n PICTURE('#####.##'),'|' AT(39),c.itog PICTURE('#####.##'),'|' AT(49),ost_k PICTURE('####.##'),'|' AT(58) PG=PG+1 ENDIF ENDSCAN IF PG=45 ? REPLICATE('-',58) ? 'Таб. ','|',' Фамилия ','|','Начисл. ','|','К оплате ','|','Остаток ' ? REPLICATE('-',58) ENDIF ENDDO enddo enddo SET ALTERNATE OFF SET ALTERNATE TO SET CONSOLE ON MODIFY COMMAND EVALUATE('T') WINDOW vedom CLEAR ACTIVATE WINDOW vib @ 2,5 SAY 'Р а с п е ч а т а т ь ?' @ 0,0 FILL TO 8,43 COLOR W+/R @ 5,6 GET pr FUNCTION '*H Да;Нет' DEFA 2 SIZE 1,6,4; COLOR ,,,,w+/n,w+/n,w+/n,,W+/R, READ DEACTIVATE WINDOW vib DO CASE CASE pr=1 SET HEADING OFF IF PRINTSTATUS() TYPE (T) TO PRINT ELSE WAIT 'Подготовьте принтер' WINDOW ENDIF CASE pr=2 CLEAR READ ENDCASE CLEAR ON KEY LABEL F1 DO HELP WITH 6 RETURN **************************************************************************** ********* Формирование отчета по суммам всех начислений ** **************************************************************************** ******* PROCEDURE SVOD HIDE POPUP VIEV IF _PAD_OTCH=.F. WAIT 'СДЕЛАЙТЕ СЛИЯНИЕ РАСЧЕТОВ' WINDOW RETURN ENDIF DEFINE WINDOW vedom FROM 0,0 TO 24,79 system float grow close zoom shadow; TITLE 'ESC - Выход без сохранения Ctrl+W - с сохранением'; FOOTER 'F1 - Помощь' COLOR SCHEME 12 ON KEY LABEL F1 DO HELP WITH 7 sele c CALCULATE SUM(KW_PL),SUM(G_W),SUM(X_W),SUM(K_YSL),SUM(OTOPL),SUM(RAD_R),SUM(TEL_R),SUM (EL_C),SUM(ITOG_N); TO SKWN,SGN,SXN,SKN,SOTN,SRN,STN,SELN,SMN CALCULATE SUM(KW_PLL),SUM(G_WL),SUM(X_WL),SUM(K_YSLL),SUM(OTOPLL),SUM(RAD_RL),SUM(TEL_ RL),SUM(EL_CL),SUM(ITOG_L); TO SKWL,SGL,SXL,SKL,SOTL,SRL,STL,SELL,SML SKW=SKWN+SKWL SG=SGN+SGL SX=SXN+SXL SK=SKN+SKL SOT=SOTN+SOTL SR=SRN+SRL ST=STN+STL SEL=SELN+SELL SM=SMN+SML i=MONTH(DATE()) SET ALTERNATE TO ('SVOD-'+alltrim(str(i))) T='svod-'+alltrim(str(i))+'.'+'txt' SET ALTERNATE ON ? 'СВОД ПО КВАРТПЛАТЕ ЗА - ',mes(i),year(date()) ? REPLICATE('-',52) ? ' ', '|', ' Начисл. ', '|', ' По льготе ' ?? '|', ' Итог ','|' ? REPLICATE('-',52) ? ' квартплата ','|',SKWN PICTURE('########.##'),'|' ?? SKWL PICTURE('########.##'),'|',SKW PICTURE('########.##'),'|' ? ' горячая вода ','|',SGN PICTURE('########.##'),'|' ?? SGL PICTURE('########.##'),'|',SG PICTURE('########.##'),'|' ? ' холодная вода ','|',SXN PICTURE('########.##'),'|' ?? SXL PICTURE('########.##'),'|',SX PICTURE('########.##'),'|' ? ' ком. услуги ','|',SKN PICTURE('########.##'),'|' ?? SKL PICTURE('########.##'),'|',SK PICTURE('########.##'),'|' ? ' отопление ','|',SOTN PICTURE('########.##'),'|' ?? SOTL PICTURE('########.##'),'|',SOT PICTURE('########.##'),'|' ? ' э/энергия ','|',SELN PICTURE('########.##'),'|' ?? SELL PICTURE('########.##'),'|',SEL PICTURE('########.##'),'|' ? REPLICATE('-',52) ? ' ИТОГО ','|',SMN PICTURE('########.##'),'|' ?? SML PICTURE('########.##'),'|',SM PICTURE('########.##'),'|' SET ALTERNATE OFF SET ALTERNATE TO MODIFY COMMAND EVALUATE('T') WINDOW vedom CLEAR ACTIVATE WINDOW vib @ 2,5 SAY 'Р а с п е ч а т а т ь ?' @ 0,0 FILL TO 8,43 COLOR W+/R @ 5,6 GET pr FUNCTION '*H Да;Нет' DEFA 2 SIZE 1,6,4; COLOR ,,,,w+/n,w+/n,w+/n,,W+/R, READ DEACTIVATE WINDOW vib DO CASE CASE pr=1 SET HEADING OFF IF PRINTSTATUS() TYPE (T) TO PRINT ELSE WAIT 'Подготовьте принтер' WINDOW ENDIF CASE pr=2 CLEAR READ ENDCASE CLEAR ON KEY LABEL F1 DO HELP WITH 6 RETURN ----------------------- [pic]