Создание новой формы по СТП предприятия

Создание новой формы по СТП предприятия

1. Добавить в структуру GMD следующие папки Собственные ALG файлы - … \ALG User\<Наименование предприятия>. Собственные AlgPrint файлы - … \ AlgPrint User\<Наименование предприятия>. Собственные BASE файлы - … \ BASE User\<Наименование предприятия>. Собственные MAKET файлы - … \ MAKET User\<Наименование предприятия>. Собственные INI файлы - … \INI User\<Наименование предприятия>. Для назначения свойств INI файлов предприятия используются собственные алгоритмы, вызываемые из основных алгоритмов стандартной поставки с помощью команды PropFromFile <имя файла полное>. Все изменения в печати и т. д. выполняются путем создания вызовов пользовательских алгоритмов из основных алгоритмов системы. Например:

CallAlg PATHALP+'AlgPrint User\Energiya\SaveElementTableContents. alp' 'Ведомость оснастки' 1;

Нарисовать формы в ADEM CAD. Для заполнения общей информации создать параграфы с соответствующими именами (см. Описание параграфов форматок стандартной поставки. doc). Для информации, не предусмотренной в данном документе можно создавать параграфы с произвольными именами. Заполнение новых параграфов необходимо произвести в алгоритмах …\ AlgPrint User\<Наименование предприятия> и сделать их вызов из .ALP. Сохранить файлы необходимо в каталоге … \ MAKET User\<Наименование предприятия>текущей настройки. Если параметров, которые находятся в диалогах ТП не хватает для заполнения данных выходных форм, то необходимо создать новые INI файлы на основе существующих и разместить их … \INI User\<Наименование предприятия> и отредактировать SetNewNameFileForPropFromFile. alg. Добавить в группу условий условие

Else If IsFile(PATHINI+'INI User\< Наименование предприятия >\'+NameINIFile)=1 Do;

StrNewFileName=PATHINI+'INI User\<Наименование предприятия >\'+NameINIFile;

EndDo;

Установить настройку системы на формирование бланков по СТП. Создать алгоритм

… \ AlgPrint User\<Наименование предприятия>\SetNameFormatkaUser. alp

Содержимое алгоритма примерно следующее:

If IsFile(MAINPATH+'MAKET\MAKET User\<Наименование предприятия >\<имя макета>')!=0 Do;

PATHMAKET_USER=MAINPATH+'MAKET\MAKET User\<Наименование предприятия >\';

NameMKFirst=<имя макета>; // имя макета для первого листа маршрутной карты

NameVOFirst=<имя макета>; // имя макета для первого листа ведомости оснастки

NameTL=<имя макета>; // имя макета для титульного листа

EndDo;

If IsFile(MAINPATH+'MAKET\MAKET User\<Наименование предприятия >\<имя макета>')!=0 Do;

PATHMAKET_USER=MAINPATH+'MAKET\MAKET User\<Наименование предприятия >\';

NameMKNext=<имя макета>; // имя макета для следующих листов маршрутной карты

NameVONext=<имя макета>; // имя макета для следующих листов ведомости остастки

EndDo;

Необходимо отредактировать алгоритмы загрузки бланков (каталог AlgPrint). Рассмотрим на примере МК. Алгоритм .alp – загрузка первого листа, .ALP – загрузка последующих бланков (команда SetAlg в алгоритме .alp). В группу условий: 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;

Необходимо создать алгоритмы для заполнения данными форматов по СТП предприятия. Сохранить их в … \ AlgPrint User\<Наименование предприятия>. Сделать их вызов из основных алгоритмов формирования документов. На примере МК:

Заполнение МК данными производится в алгоритме .ALP.

.ALP печать параметров операции

.ALP печать входящих документов

.ALP – печать параметров оборудования

writeperun. alp – печать технологического перехода

.ALP – печать параметров технологической оснастки

Call PATHALP+'AlgPrint User\<Наименование предприятия >\<имя алгоритма>';