«Сервис»-«Дополнение льгот»

при выборе данного пункта запускается процедура INS_LG, которая расположена в файлеADD_DEL.PRG (см. прилож. 1.5 стр. 5) и показана на рис. 17 прилож. 2.

В первых строках выбирается БД, где содержится информация по льготам, затем определяется окно для работы процедуры и обращение к помощи. Открывается окно для редактирования льгот, в окне также используются не сами поля, а их переменные, созданные командой SCATTER MEMEVAR.

После ввода в поле «Код» номера, при его выходе выполняется процедура UNIC_LG (см. прилож. 1.2 стр. 36),в которой в БД льгот ищется код с веденным кодом и если найден то переменные обновляются информацией по этому коду, и доступны для изменения или удаления, если нет то остаются пустыми и готовы к заполнению.

Так как работа происходит с переменными, то для сохранения сделанных изменений или дополнения, нужно подтвердить, нажав на кнопку «Сохранить».

Работа кнопок осуществляется в процедуре LG_INS, где в структуреDO CASE выполняются действия в зависимости от числового значения переменнойLG_INS:

• LG_INS=1. Из переменнойM.INFO (Категория) удаляются возможные начальные пробелы, затем ищется код-переменная в БД льгот, если найден, то это изменение и поля переносятся в БД. Если не найден то дополнение и здесь сначала добавляется запись в БД, а затем в нее переносятся поля. Так как работа на этом не заканчивается, то создаются новые поля переменные и поля обновляются.

• LG_INS=2. Команда CLEAR READ завершает работу с этим окном.

• LG_INS=3. Запись помечается на удаление (DELETE) и физически удаляется (PACK),после этого создаются новые поля, поля обновляются и работа продолжается.

«Сервис»-«Тарифы»

при выборе этого пункта выполняется процедура TARIFS_ZAR, расположенная в файлеFUNC.PRG(см. прилож. 1.2 стрю 55) и показано окно на рис. 18 прилож. 2.

В первых строках командой HIDE POPUP убирается с экрана меню «СЕРВИС», затем закрепляется за клавишейEsc процедура выхода по клавишеEsc, в переменной _REC запоминается номер записи в БД жильцов. Выбирается активной БД тарифов и определяется окно для работы данной процедуры и горизонтальное меню, которое будет расположено в этом окне и с его помощью будут выполняться действия по обработке данных.

Данное меню имеет три PAD-пункта.:

• PAD-пункт «Просмотр» – активируетсяPOPUP-меню, которое состоит из полей БД тарифов, и выбор любогоBAR-пункта выполняется в процедуреINS_REC, в которую передаются два параметра это названия тарифа (PROMPT()-mprompt),и номер записи в БД тарифов (RECNO()-mrecno) (см. прилож. 1.2 стр. 56), в которой в зависимости от параметра выполняются следующие действия:

• если описание пустое (empty(mprompt)), то эта запись помечается на удаление.

• Иначе создаются поля-переменные для изменения данной записи (рис. 22 прилож. 2) так как редактируются переменные, то в окне присутствуют кнопки для сохранения сделанных изменений кнопка-«Сохранить» (процедура del_rec1, ras_on1=1), где сначала, в зависимости от значения переменнойM.K_CH (.T.,.F.) заполняется переменнаяM.INFO и затем переменные переносятся в БД; выхода без изменения кнопка «Отказ»(процедура del_rec1, ras_on1=2), где командойCLEAR READзавершается работа с переменными-полями без перенесения их в БД; и удаления текущей записи(процедура del_rec), текущая запись командойDELETE помечается на удаление.

• PAD-пункт «Дополнить» иPAD-пункт «Выйти» - обрабатываются в процедуреINS_ST, в которую передаются параметры, содержащие текст-приглашение данных пунктов.

• Если выбран пункт «Дополнить», то в процедуре INS_ST создаются поля-переменные с пустыми значениями и с помощью кнопок дополняются записи.

• Если выбран пункт «Выйти», то в процедуре INS_ST закрывается окно и деактивируется меню.