Автоматизированное рабочее место (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




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


- 2 -


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

Файл
99727.rtf
ref-20988.doc
ref_koncep.doc
15105-1.rtf
85376.rtf