Параметры вызова интерфейса M_UP::GetAnyNakl

[Irina_]

Здравствуйте. Нужна помощь в описании параметров интерфейса M_UP::GetAnyNakl. Интересуют последние два.

[Den]

parameters
pwBDType, // тип документа
begdate,enddate,// для совместимости
pcBDRec, // nRec документа
pwSelType; // 0 - одиночный выбор (через pcBDRec)
// 1 - множественный выбор (через Pick)
// 2 - одиночный выбор по ПЗ (через pcBDRec)
// 3 - просмотр списка по ПЗ (через pcBDRec)

[Irina_]

Большое спасибо, Den. И еще вопрос по параметрам begdate и enddate. Для чего они предназначены? Я сначала решила, что с их помощью при открытии документов для выбора нам предоставятся только документы по заданному диапазону дат. Но оказалось не так.

[m0p3e]

Похоже ни на что они не влияют
В cmInit интерфейса идет переназначение:

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

  begdate := dGetTune('User.dFilter1');
  enddate := dGetTune('User.dFilter2');

[Irina_]

Спасибо, m0p3e.
Посмотрела у себя указанные настройки в реестре. У меня их значения соответственно 01.09.2014 и 30.09.2014. Но при вызове интерфейса фильтр по этому диапазону дат не устанавливается. Скорее всего, потому, что в реестре настройка User.UseFilter стоит в «нет». Я понимаю, что в интерфейсе выбора можно установить ряд фильтров по Alt+B, но хотела, чтобы при вызове интерфейса у меня уже стоял фильтр по нужному мне диапазону дат.

[m0p3e]

Ограничение по датам накладывается по условиям.
С какими параметрами вызывается интерфейс GetAnyNakl?

[Irina_]

Здравствуйте.
RunInterface('M_UP::GetAnyNakl', word(502), DatBeg, DatEnd, comp(0) , word(1));
DatBeg и DatEnd вводится в интерфейсе ввода параметров отчета. При инициализации интерфейса восстанавливаю их из DSK, при запуске сохраняю в DSK.
Заметила, что в интерфейсе выбора при нажатии ALT+B в появившемся окне установки фильтров стоят даты из реестра настроек, но не стоит птица в поле «интервал».

[m0p3e]

Похоже ограничение по умолчанию не ставится.

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

Bounds dNotViewAktUsl = TypeSopr == KatSopr.VidSopr
   And                  Comp(0)  == KatSopr.cKatSopr
   And                  begdate <<= KatSopr.dSopr(NoIndex)
   And                  enddate >>= KatSopr.dSopr(NoIndex)

Bounds dNotViewAktUsl_S = TypeSopr == KatSoprSelect.VidSopr
   And                    Comp(0)  == KatSoprSelect.cKatSopr
   And                    begdate <<= KatSoprSelect.dSopr(NoIndex)
   And                    enddate >>= KatSoprSelect.dSopr(NoIndex)

Можно принудительно поставить, если докомпиляция не пугает.

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

#component "M_UP"
alter interface GetAnyNakl
HandleEvent
 cmInit :
  {
   var d1, d2 : date;
   d1 := begdate; d2 := enddate;
   If inherited::handleevent(cmInit) <> heAbort
    {
      begdate := d1;
      enddate := d2;
      PushBounds(tbdNotViewAktUsl);
    };
  };
End;
end.

Код не проверял.

[Irina_]

Спасибо, m0p3e. Докомпиляция пока пугает, т.к. раньше с ней не сталкивалась. По возможности попытаюсь разобраться.

[Den]

Докомпиляция пока пугает

А Вы не пугайтесь ) Она много что позволяет решить

[zna]

Подскажите, если в Pick возвращает этот интерфейс, то как эти записи отобрать?

[edward_K]

Обычно в этом случае на помеченной записи можно вычислить Pick.wList. crec соотв. ссылка на выбранную запись.

[zna]

Отлично. Pick.wlist = 220.
Благодарю!