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

2016-07-312016-07-31TaskMenСтудИзба

Описание файла

Документ из архива "Автоматизированное рабочее место", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "OTCHET"

Текст из документа "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

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

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

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

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

Поделитесь ссылкой:

Ставлю 10/10
Все нравится, очень удобный сайт, помогает в учебе. Кроме этого, можно заработать самому, выставляя готовые учебные материалы на продажу здесь. Рейтинги и отзывы на преподавателей очень помогают сориентироваться в начале нового семестра. Спасибо за такую функцию. Ставлю максимальную оценку.

Лучшая платформа для успешной сдачи сессии
Познакомился со СтудИзбой благодаря своему другу, очень нравится интерфейс, количество доступных файлов, цена, в общем, все прекрасно. Даже сам продаю какие-то свои работы.

Студизба ван лав ❤
Очень офигенный сайт для студентов. Много полезных учебных материалов. Пользуюсь студизбой с октября 2021 года. Серьёзных нареканий нет. Хотелось бы, что бы ввели подписочную модель и сделали материалы дешевле 300 рублей в рамках подписки бесплатными.

Отличный сайт
Лично меня всё устраивает - и покупка, и продажа; и цены, и возможность предпросмотра куска файла, и обилие бесплатных файлов (в подборках по авторам, читай, ВУЗам и факультетам). Есть определённые баги, но всё решаемо, да и администраторы реагируют в течение суток.

Маленький отзыв о большом помощнике!
Студизба спасает в те моменты, когда сроки горят, а работ накопилось достаточно. Довольно удобный сайт с простой навигацией и огромным количеством материалов.

Студ. Изба как крупнейший сборник работ для студентов
Тут дофига бывает всего полезного. Печально, что бывают предметы по которым даже одного бесплатного решения нет, но это скорее вопрос к студентам. В остальном всё здорово.

Спасательный островок
Если уже не успеваешь разобраться или застрял на каком-то задание поможет тебе быстро и недорого решить твою проблему.

Всё и так отлично
Всё очень удобно. Особенно круто, что есть система бонусов и можно выводить остатки денег. Очень много качественных бесплатных файлов.

Отзыв о системе "Студизба"
Отличная платформа для распространения работ, востребованных студентами. Хорошо налаженная и качественная работа сайта, огромная база заданий и аудитория.

Отличный помощник
Отличный сайт с кучей полезных файлов, позволяющий найти много методичек / учебников / отзывов о вузах и преподователях.

Отлично помогает студентам в любой момент для решения трудных и незамедлительных задач
Хотелось бы больше конкретной информации о преподавателях. А так в принципе хороший сайт, всегда им пользуюсь и ни разу не было желания прекратить. Хороший сайт для помощи студентам, удобный и приятный интерфейс. Из недостатков можно выделить только отсутствия небольшого количества файлов.

Спасибо за шикарный сайт
Великолепный сайт на котором студент за не большие деньги может найти помощь с дз, проектами курсовыми, лабораторными, а также узнать отзывы на преподавателей и бесплатно скачать пособия.