RAS (Автоматизированное рабочее место)
Описание файла
Документ из архива "Автоматизированное рабочее место", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "RAS"
Текст из документа "RAS"
Файл расчетов – 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
- 2 -