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

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

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

Ответить
Zver
Местный житель
Сообщения: 204
Зарегистрирован: 13 ноя 2012, 12:47
Откуда: СПб
Контактная информация:

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

Сообщение 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 заявки, для которой создаётся дубликат.

Буду благодарен за описание параметров этих функции или совет, где можно найти их самому.
Программист-самоучка
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

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

Сообщение 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
Zver
Местный житель
Сообщения: 204
Зарегистрирован: 13 ноя 2012, 12:47
Откуда: СПб
Контактная информация:

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

Сообщение Zver »

Спасибо за ответ, помогло.
Программист-самоучка
Ответить