Автоматизированное рабочее место (OTCHET)

Посмотреть архив целиком

Формирование отчетовOTCHET.PRG

************************************************************************************* Формирование списков по начислению **

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

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_YSL).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)))


Случайные файлы

Файл
124609.rtf
65995.rtf
158844.rtf
64190.rtf
162847.rtf