Запуск алгоритма

[n0where]

Не могу найти функцию запуска какого либо алгоритма с параметрами.
Можете помочь.

[edward_K]

какого именно? Производственных что ли?

[n0where]

Да производственного.

[oiko]

У них вроде как параметры логикой не предусмотрены - есть же настройка у каждого алгоритма.

[Semi-bit]

Полагаю, автору требуется запустить его один раз, без создания пользовательского алгоритма.

[n0where]

Лучше бы пользовательский запустить, т.к. он настроен уже.

[Seybukan]

Помнится видел пример запуска алгоритма в ТХО API MnfZak.

[Semi-bit]

Лучше бы пользовательский запустить, т.к. он настроен уже.

Ну тогда вообще не должно быть проблем - есть объектный интерфейс, надо ссылку на него инициализировать, и запускать. Вот пример:

Код: Выделить всё

     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);
     }