Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

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

П
риложение № 1.7

- 9 -

Характеристики

Список файлов реферата