АРМ бухгалтера-расчетчика
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
ильцов и поле итоговой суммы начислений (ITOG_N), итога начислений по льготам (SUM_IT) и суммы к оплате (ITOG) из БД начислений. (см. прилож. 1.4 стр. 3-4, прилож. 2 рис. 12). Доступные к редактированию является поле суммы оплаты которое имеет выходной контроль - :V=SV3() (см. прилож. 1.2 стр.40) , в которой полю остатка присваивается рассчитанное значение (введенная сумма сумма к оплате), полю даты значение переменной dat, то есть текущая дата и здесь не используется ключ - :F, это значит, что если в поле, для которого предусмотрен контроль выхода (opl - :V=SV3), данные не изменялись то процедура игнорируется, а выполняется она только в том случае если данные изменялись. Также здесь используется другая информация в статус-строке :W=INFO3() (см. прилож. 1.2 стр. 42), где показывается адрес жильца, количество проживающих и количество льготников.
Пункт меню РАСЧЕТ
РАСЧЕТ-Расчет квартплаты
При выборе этого пункта появляется окно, где нужно подтвердить начало расчета выбором кнопки Ок (см. прилож. 1.6 стр.1). В окне выводится текущая дата и строка подсказка за какой месяц будет рассчитываться квартплата. Название месяца достигается с помощью массива и переменной mess, которые объявлены в файле MENI.PRG это массив mes(4,3), элементы которого содержат названия месяца и переменная mess содержит номер текущего месяца (=MONTH(DATE())) и выражение mes(mess) выведет элемент массива по номеру, который содержится в переменной mess.
При подтверждении расчета выполняется процедура RAS_1 (см. прилож. 1.2 стр. 43-44). В первых строках деактивируется окно, выбирается активной БД начислений и из нее удаляются все записи командой ZAP, затем командой APPEND FROM , создается новая БД-RACH.DBF содержащая поля, которые перечислены после опции FIELDS и количеством равным в БД жильцов, что выполняется с помощью условия. Другими словами новая БД расчета содержит только плательщиков, с полями необходимыми для проведения расчета и хранения рассчитанных данных.
Далее снова закрываются все базы данных и в области а уже открывается новая БД расчетов, для которой создается структурный индекс для связи с другими БД. Затем устанавливается связь с БД жильцов и БД ставок и производится расчет, который аналогичен описанному, при рассмотрении кнопки Расчет в окне Работа с картотекой (КАДРЫ-Работа с картотекой). После завершения расчета, с помощью команды CALCULATE SUM(поле в котором храняться данные расчета) ТО создаются переменные со значениями общих сумм начислений для каждой услуге, для формирования статус-строки при просмотре выполненного расчета. Далее с помощью команды @ …SAY они (переменные) выводятся в нижней части экрана и в окне KDR открывается BROWSE-окно с данными расчета и фамилией жильцов.
С помощью ключа входа в поле - :W=INFO1() внизу изменяет цвет сумма, которая относится к данной услуге (к примеру если курсор в поле горячая вода, то внизу окрашена область с общей сумме по горячей воде, как показано на рис. 14 прилож. 2), а с помощью контроля выхода - :V=INFO2() цвет принимает прежний цвет и с помощью ключа - :F выполняется всегда, независимо от изменения, это в основном нужно для ключа :V.
Работа этой процедуры показана на стр. 51 прилож. 1.2. здесь в структуре DO CASE анализируется в какое поле входит курсор (INFO1), и из какого выходит (INFO2) это достигается с помощью применения функции VARREAD()-которая возвращает прописными буквами имя поля(переменной), а с использованием с командой BROWSE/CHANGE возвращает имя поля строчными (кроме первой) буквами (см. также SYS(18)), и в зависимости от названия поля при входе, окрашивается определенная область внизу экрана, с помощью команды @…FILL TO … и цветовой схемы 12, а при выходе с помощью этих же команд этой области возвращается прежний цвет из цветовой схемы 1.
Перед открытием окна просмотра по начислениям, назначаются на клавиши выхода из BROWSE-окна, процедуры выхода (ON KEY LABEL ESC(CTRL+W,CTRL+Q) DO vib8), где активируется окно с кнопками Сохранить и Отмена (см. прилож. 1.2 стр. 45) и при выборе кнопки Сохранить открывается БД начислений, с помощью команды - UPDATE WITH <поле из указанной области (БД расчетов)&g