Как запустить алгоритм расчета по команде контекстного меню?

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
edd
Постоянный обитатель
Сообщения: 170
Зарегистрирован: 29 мар 2005, 17:49

Как запустить алгоритм расчета по команде контекстного меню?

Сообщение edd »

Добрый день!
Есть пакетный алгоритм расчета, состоящий из системного алгоритма "Формирование ДО по заявкам" и алгоритма исполнения.

Можете объяснить по шагам или привести пример, как запустить пакетный алгоритм расчета по команде в контекстном меню?

Я пытаюсь это сделать в списке заявок (фейс M_MNPLAN::Bookings) через alter interface...

Или как запустить системный алгоритм по команде в контекстном меню?

На данный момент пытался на примере вызова алгоритмов в потребности в материалах (фейс M_MNPLAN::MNPLDISP) создать что то похожее на правду:

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


ALTER INTERFACE Bookings;
...
var pt: TRecAcc
  acc  : Account;
  gldt  : GlobData;
...
cmValue39: //это команда меню
{
  MarkerCount:= GetMarkerCount(Markers)
  if MarkerCount=0 then { message('Заявки не выбраны. Операция прервана'); exit } //else message(GetMarkerCount(Markers))
  pt.cFormPl       := 281474976711350; //нрек алгоритма расчета
  pt.FlagRun        :=word(1); //пакетное
  //   pt.cWayAcc - Шаблон плана, мне не нужен
  // cMnPlan     - Nrec плана, мне не нужен
  // cFormPlVid  - Ссылка на таблицу пользовательского алгоритма представления, мне не нужен

  if ( InitAccount() )
     acc.RunInter(281474976711350, word(64), pt)
}
но единственное чего я добился, это появление сообщения об отсутствии записей в таблице mnplan. :sad:

Не пойму, мне по видимому надо работать не с TRecAcc? Тогда с каким типом?
Как правильно и чем инициализировать/запустить нужный алгоритм, что использовать в инклюдниках... :???:
Den
Местный житель
Сообщения: 1842
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: Как запустить алгоритм расчета по команде контекстного м

Сообщение Den »

M\M_MnPlan\M_MnPlan.vil
VipInterface SimpleWayToRunAlgorithm
Licensed(Free)
Parameters
(
cAlg: comp;
TypeCp: word;
DocNRec: comp;
DocSpNRec: comp
);
TypeCp см в TRecAcc.rec в декларациях той же компоненты (6 заявки там)
edd
Постоянный обитатель
Сообщения: 170
Зарегистрирован: 29 мар 2005, 17:49

Re: Как запустить алгоритм расчета по команде контекстного м

Сообщение edd »

ух ты, работает!
Спасибо!!
Ответить