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

Текст из файла

Файл расчетов – RAS.PRG

************************************************************************************* Пункт Меню – РАСЧЕТ – Расчет квартплаты **

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

PROCEDURE ras && выбор расчета по квартплате

HIDE POPUP ras

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

ON KEY

ACTIVATE WINDOW vib

@ 0,0 to 6,38

@ 0,1 SAY 'Сегодня - '+dtoc(date())

@ 2,2 SAY 'Расчет квартплаты за - '+mes(mess)+' месяц'

@ 5,8 GET rs_n FUNCTION '*TH Ok;Отмена' VALID ras_1() DEFAULT 1 SIZE 1,6,4

READ OBJECT 1

DEACTIVATE WINDOW vib

ON KEY LABEL F1 DO HELP WITH 6

RETURN

************************************************************************************* Пункт Меню – РАСЧЕТ – Расчет по льготам **

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

PROCEDURE RAS_L && выбор расчета льгот

HIDE POPUP ras

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

ON KEY

ACTIVATE WINDOW vib

@ 0,0 to 6,38

@ 0,1 SAY 'Сегодня - '+dtoc(date())

@ 2,2 SAY 'Расчет по льготам за - '+mes(mess)+' месяц'

@ 5,8 get rs_lg function '*TH Ok;Отмена' VALID ras_lg() DEFAULT 1 SIZE 1,6,4

READ OBJECT 1

DEACTIVATE WINDOW vib

ON KEY LABEL F1 DO HELP WITH 6

RETURN

************************************************************************************* Пункт Меню – РАСЧЕТ – Слияние расчетов **

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

PROCEDURE ras_i && Выбор расчета к оплате

HIDE POPUP ras

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

ON KEY

ACTIVATE WINDOW vib

@ 0,0 to 6,38

@ 0,2 SAY 'Сегодня - '+DTOC(DATE())

@ 2,2 SAY 'Слияние расчетов за - '+mes(mess)+' месяц'

@ 5,8 GET rs_i function '*TH Ok;Отмена' VALID ras_3() DEFAULT 1 SIZE 1,6,4

READ OBJECT 1

DEACTIVATE WINDOW vib

clear

ON KEY LABEL F1 DO HELP WITH 6

RETURN

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

- 2 -

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

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

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

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

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