Лист 1.
Блок А1 – начало модуля Exp2f, реализующего выгрузку документов;
Блок B1 – вывод сообщения ‘Идёт подготовка данных’;
Блок С1 – проверка условия;
Блок D1 – присвоение значения переменной YearC;
Блок Е1 – присвоение значения переменной YearC;
Блок F1 – присвоение значения переменной FltDocC;
Блок G1 – фильтрация по маске FltDocC базы данных KP_SD;
Блок А2 – проверка условия достижения конца файла;
Блок В2 – проверка условия kp_sd.per=‘1’;
Блок С2 – проверка условия kp_sd.per=‘2’;
Блок D2 – проверка условия kp_sd.per=‘3’;
Блок Е2 – проверка условия kp_sd.per=‘4’;
Блок F2 – присвоение значения переменным;
Блок G2 – вызов процедуры getmper с передачей параметров;
Блок А3 – очистка формы (экрана)
Блок В3 – присвоение значения переменным;
Блок С3 – присвоение значения переменным;
Блок D3 – присвоение значения переменным;
Блок Е3 – присвоение значения переменным;
Блок F3 – проверка условия;
Блок G3 – вызов процедуры getmper с передачей параметров.
Лист 2.
Блок А1 – проверка условия period=‘2’;
Блок В1 – проверка условия period=‘3’;
Блок С1 – проверка условия period=‘4’;
Блок D1 – присвоение переменной PeriodTxtC значения;
Блок Е1 – присвоение переменной flycod значения;
Блок F1 – проверка условия;
Блок G1 – открытие БД с оконечным префиксом &&pok и фильтрация данных открываемой базы данных;
Блок А2 – присвоение переменным значений;
Блок В2 – присвоение переменным значений;
Блок С2 – присвоение переменным значений;
Блок D2 – проверка условия достижения конца файла;
Блок Е2 – присвоение переменной flycod значения;
Блок F2 – открытие БД с оконечным префиксом &&pok и фильтрация данных открываемой базы данных;
Блок G2 – переход на первую запись базы данных;
Блок А3 – открытие временной БД с переменным именем;
Блок В3 – обработка select-запроса к базе данных;
Блок С3 – проверка условия достижения конца файла;
Блок D3 – проверка условия существования UseKnd;
Блок Е3 – присвоение переменной значения;
Блок F3 – присвоение значений переменным;
Блок G3 – добавление записей в базу данных средствами APPEND BLANK и ее модификация посредством REPLACE (множественное изменение полей);
Лист 3
Блок А1 – переход на следующую запись базы данных и
завершение цикла обработки по активной базе;
Блок В1 – очистка формы (экрана);
Блок С1 – модификация БД с оконечным префиксом &&pok;
Блок D1 – фильтрация с возвратом на первую запись БД;
Блок Е1 – проверка условия достижения конца файла;
Блок F1 – фильтрация с возвратом на первую запись БД;
Блок G1 – проверка условия достижения конца файла;
Блок А2 – присвоение значений переменным;
Блок В2 – проверка условия;
Блок С2 – присвоение значений переменным;
Блок D2 – проверка условия zpN=0;
Блок Е2 – присвоение значения переменной;
Блок F2 – присвоение значений переменным;
Блок G2 – присвоение значений переменным
Блок А3 – добавление записей в базу данных средствами APPEND BLANK и ее модификация посредством REPLACE (множественное изменение полей);
Блок В3 – присвоение значения переменной;
Блок С3 – проверка условия;
Блок D3 – присвоение значения переменной;
Блок Е3 – присвоение значения переменной;
Блок F3 – проверка наличия диска в дисководе;
Блок G3 – выдача предупреждающего сообщения ‘Вставьте диск в дисковод’.
Лист 4
Блок А1 – проверка существования aDrv (устройства вывода);
Блок В1 – выдача сообщения ‘Неправильный путь к файлу’;
Блок С1 – выдача сообщения ‘Идет подготовка файла’;
Блок D1 – определение окна wtxt;
Блок Е1 – активация окна wtxt;
Блок F1 – SET-установки и переназначение устройства ввода вывода (экран –> файл);
Блок G1 – вывод информации в файл (печатью по ?);
Блок А2 – вызов процедуры AddDoc, реализующей добавление реквизитов документа в выгружаемый файл;
Блок В2 – уничтожение окна wtxt;
Блок С2 – переназначение устройства ввода вывода (файл –> экран);
Блок D2 – проверка состояния переменной-флага isOkAll (возвращаемой из процедуры AddDoc);
Блок Е2 – вывод сообщения ‘Нет передаваемых показателей’;
Блок F2 – вывод сообщения ‘Выполняется копирование’;
Блок G2 – вызов процедуры WinToDoc, осуществляющей конвертацию текстовых показателей;
Блок А3 – вывод сообщения ‘Выгрузка завершена’;
Блок В3 – выход из модуля Exp2f;
Блок С3 – начало процедуры AddDoc;
Блок D3 – проверка достижения конца файла;
Блок Е3 – вывод сообщения ‘Идет подготовка данных’;
Блок F3 – установка флажка isOkAll (по условию наличия записей);
Блок G3 – выход из процедуры AddDoc.
0 комментариев