Страница 1 из 1

Создание заявок с помощью стандартного функционала

Добавлено: 09 июн 2014, 15:28
Zver
Уважаемые форумчане,

Необходимо создать заявку (то есть запись в таблице Indent и её спецификацию в таблице Claim).
Точнее, на основании существующий надо сделать её дубликат, но по определённым правилам.

Сама по себе задача простая, но хочется сделать это на основании стандартных функции,
так как это всё-таки более правильно.
Нашел в документации подходящий объектный интерфейс M_MNPLAN::BookingsPubFuncObj,
по описанию в файле BookingsPubFunc.vih это "Объявление функций работы с заявкой".

В нём есть 2 интересующие процедуры:

Procedure DublicateClaim (sbtClaim : M_TPP::TClaim; DubKol : Word; DubTune : Word; aResInfo : Comp);
Procedure DublicateIndent (sbtIndent : M_TPP::TIndent; DubKol : Word; DubTune : Word);

Не могу найти описание параметров их вызова:
DubKol : Word; - могу предположить, что это количество дубликатов.
DubTune : Word; - нет никаких идей.
aResInfo : Comp; - могу предположить, что это Indent.nrec заявки, для которой создаётся дубликат.

Буду благодарен за описание параметров этих функции или совет, где можно найти их самому.

Re: Создание заявок с помощью стандартного функционала

Добавлено: 09 июн 2014, 17:39
m0p3e
Как-то так

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

window InputQuantity 'Дублирование' doaccept, Gray;
  show at(17,8,52,21);
screen SelectQ (,, sci1Esc);
fields
  KolIndent('Количество документов'):noprotect, spinbutton[1,1,1000];
  DubTune('Настройки дублирования'):noprotect;
Buttons
  cmOk,,,,,sci1Esc;
  cmCancel,,,,,sci1Esc;
<<

    Количество документов  .@@@@

    Настройки дублирования
   [.] Новый номер`
   [.] Текущая дата создания`
   [.] Внешняя классификация`
   [.] Внешние атрибуты`
   [.] Транспортная информация`
   [.] Статус из шаблона`

 <.Дублировать.>    <.  Отмена   .>
>>
end; //screen

aResInfo - ResInfo.NRec

Re: Создание заявок с помощью стандартного функционала

Добавлено: 11 июн 2014, 14:14
Zver
Спасибо за ответ, помогло.