Материалы сайта
Это интересно
Автоматизированное рабочее место
**************************************************************************** ********* Пункт Меню – РАСЧЕТ – Расчет квартплаты ** ********************************************************************* 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 ----------------------- [pic]