Запуск алгоритма
Добавлено: 20 июн 2011, 14:36
Не могу найти функцию запуска какого либо алгоритма с параметрами.
Можете помочь.
Можете помочь.
Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://asu.tyumbit.ru/
Ну тогда вообще не должно быть проблем - есть объектный интерфейс, надо ссылку на него инициализировать, и запускать. Вот пример:n0where писал(а):Лучше бы пользовательский запустить, т.к. он настроен уже.
Код: Выделить всё
var iAlg210Sys : oAlgoritm_Sys;
if (Not LoadVipRef (iAlg210Sys,'algoritm_210') )
{
Message('Системная ошибка !!!'+
'Не загружен интерфейс <' + 'Algoritm_210' +'>',Information);
Exit;
};
if ( not NullVipRef(iAlg210Sys) )
{
pt.cFormPl := comp(0);
pt.cpnRec := KatSopr.nRec;
pt.FlagRun := word(128);
pt.TypeCpNrec := tpNak501;
iAlg210Sys.RunInter(word(0), pt);
FreeVipInterface(iAlg210Sys);
}