Создание новой формы АДЕМ ТДМ

advertisement
Создание новой формы АДЕМ ТДМ
1. Нарисовать формы. Для заполнения общей информации создать параграфы с
соответствующими именами (см. Описание параграфов форматок стандартной
поставки.doc). Для информации, не предусмотренной в данном документе можно
создавать параграфы с произвольными именами. Заполнение новых параграфов
необходимо произвести в алгоритмах 00010027.ALP или 00010026.ALP. Сохранить
файлы необходимо в каталоге MAKET текущей настройки. Если параметров,
которые находятся в диалогах ТП не хватает, то необходимо отредактировать
соответствующие ini файлы или создать новые.
2. Если создается новая форма для уже существующего документа (например МК, КЭ
и .д.), то необходимо проделать следующее (рассмотрим на примере формирования
МК)
a. В каталоге INI настройки добавить в файл mk_gost_form_first.txt название
первого листа формы для мастера настройки. В файл
mk_gost_form_first_maket.txt название файла с первым листом МК.
b. В каталоге INI настройки добавить в файл mk_gost_form_next.txt название
второго листа формы для мастера настройки. В файл
mk_gost_form_next_maket.txt название файла со вторым листом МК.
Примечание для других документов файлы называются по первым буквам
Например: КЭ - ke_gost_form_first.txt, ke_gost_form_first_maket.txt,
ke_gost_form_next.txt, ke_gost_form_next_maket.txt.
c. В мастере настройки выберите данную форматку для соответсвующей
карты.
3. Затем необходимо отредактировать алгоритмы загрузки бланков (каталог AlgPrint).
Рассмотрим на примере МК. Алгоритм 00010001.alp – загрузка первого листа,
00010002.ALP – загрузка последующих бланков (команда SetAlg в алгоритме
00010001.alp).
a. В группу условий: if NAMEPAGE='<имя форматки (физическое)>’…
необходимо добавить условие
else if NAMEPAGE='<имя форматки (физическое)> do;
инициализация общих переменных
nTypeLineCol=8;
//Координата вывода для литеры
BeginCol=20;
# начало строки бланка по Х#
BeginRow=123.5; # начало строки бланка по Y#
LengthLine=270;
# длина строки бланка #
LimRow 10;
//Нижняя координата бланка (т.е. та
координата при достижении которой необходимо загружать следующий
бланк)
myLimRow=10;
//Пользовательская переменная значение
должно быть таким же, которое установили командой LimRow
ID_LINE_Oper='А';
//Литеры для печати операции,
оборудования, вспомогательного материала, режимов обработки и т.п.
ID_LINE_Mach='Б';
ID_LINE_MATER='M';
ID_LINE_REZH='Р';
enddo;
4. Затем необходимо создать алгоритм для заполнения данными именно эту
форматку…
Рассмотрим на примере МК.
Заполнение МК данными производится в алгоритме 00010006.ALP.
00010003.ALP печать параметров операции
00010008.ALP печать входящих документов
00010009.ALP – печать параметров оборудования
Т.е. внутри данных алгоритмов использую значение системной переменной
NAMEPAGE
Например
if NAMEPAGE=’1118-1.adm’| NAMEPAGE=’1118-1a.adm’
CallAlg PATHALG+’WriteParamOp1118-1.alp’;
в алгоритме WriteParamOp1118-1.alp необходимо будет реализовать вывод
данных по соответствующим координатам.
То же самое с оборудованием, оснасткой материалами и т.д.
Download