GETRESERVESPOS

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

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

Ответить
Ruslan_V
Посетитель
Сообщения: 45
Зарегистрирован: 01 июн 2009, 17:11

GETRESERVESPOS

Сообщение Ruslan_V »

Добрый день, столкнулся с необходимостью запуска в отчете интерфейса выбора зарезервированных позиций из ДО. Можно ли вызывать интерфейс GETRESERVESPOS и какие его параметры вызова, может, кто подскажет. Название интерфейса определил через конфигуратор. Галактика 7.12. Заранее спасибо.
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: GETRESERVESPOS

Сообщение edward_K »

cPodr - подразделение
cMol - мол.
Ruslan_V
Посетитель
Сообщения: 45
Зарегистрирован: 01 июн 2009, 17:11

Re: GETRESERVESPOS

Сообщение Ruslan_V »

А где должна храниться ссылка на ДО, для которого вызывается данный интерефейс?
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: GETRESERVESPOS

Сообщение edward_K »

В фейсе юзается табла TmpNaklOst(из словаря);

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

  Delete All TmpSklMol;
  Delete All TmpNaklOst;

  SaveMyDsk(word(0),'ShowRaspr');
  SaveMyDsk(false, 'MakeSoprByBuff_GetCurse');

  _loop SpStep where (( StepDoc.NRec == SpStep.cStepDoc ))  
    if ( (SpStep.PrMC = 1) and (SpStep.Reserv > 0) )
      RunInterface('iMakeNeogrPos',0,0,SpStep.NRec);

  // Выбор разреза резервирования.
  if ( GetFirst tmpSklMol = tsOk ) 
    if ( GetNext tmpSklMol <> tsOk ) 
      {
        KatSopr.cPodrFrom := tmpSklMol.cPodr;
        KatSopr.cMolFrom  := tmpSklMol.cMol;
      }  
    else
      if ( RunInterface(GetReservRasres,KatSopr.cPodrFrom,KatSopr.cMolFrom) = cmCancel )
        {
          ReReadRecord(#KatSopr);
          Exit;
        }

Ruslan_V
Посетитель
Сообщения: 45
Зарегистрирован: 01 июн 2009, 17:11

Re: GETRESERVESPOS

Сообщение Ruslan_V »

Я извиняюсь, может не так четко описал, что мне нужно. Задача у меня такая - нужно в отчете вызвать интерфейс для пометки пользователем позиций из числа зарезервированных по ДО на продажу, вернуть их в отчет и дальше уже их обрабатывать. То есть если можно, то вызвать интерфейс GETRESERVESPOS для выбранного ДО, склада и МОЛ и каким-то образом (может через таблицу pick) вернуть помеченные позиции. В коде фейса, что Вы указали, я так понял, что в цикле _loop SpStep where (( StepDoc.NRec == SpStep.cStepDoc )) по спецификации какого-то ДО (вот вопрос где он берет вот этот stepdoc.nrec ?) идет заполнение таблицы TmpNaklOst по зарезервированным и неотгруженным позициям для stepdoc.nrec. Или мне не подойдет этот интерфейс для такой задачи? Описаний нигде не нашел.
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: GETRESERVESPOS

Сообщение edward_K »

basedoc.nrec == stepdoc.cbasedoc
- basedoc - 'это ваш счет. Как вы уж спозиционируетесь на него, это другой разговор.
Ruslan_V
Посетитель
Сообщения: 45
Зарегистрирован: 01 июн 2009, 17:11

Re: GETRESERVESPOS

Сообщение Ruslan_V »

Это я понял, не пойму как в отчете передать в вызываемый интерфейс GETRESERVESPOS ссылку Stepdoc.nrec, если в параметрах фейса указывается только склад и МОЛ. Когда запускаю отчет с заданными складом и МОЛ то интерфейс не запускается.

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

If (t1.getfirst stepdoc)=0{};
!Message(t1.stepdoc.nrec);
Runinterface(GETRESERVESPOS,comp(281474976711944),comp(281474976711131));
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: GETRESERVESPOS

Сообщение edward_K »

Перед вызовом вам нужно сначала заполнить TmpSklMol,TmpNaklOst как написано в примере.
В общем полностью все скопировать, ну за исключением Katsopr - вместо полей в нем нужно завести переменные.
Ruslan_V
Посетитель
Сообщения: 45
Зарегистрирован: 01 июн 2009, 17:11

Re: GETRESERVESPOS

Сообщение Ruslan_V »

Спасибо, получилось) А где-то можно увидеть описание интерфейсов Галактики и их параметры, кроме тех, что в файле Docpick.txt?
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: GETRESERVESPOS

Сообщение edward_K »

Поставить 810 хотя бы с тестовой лицензией, обновить(вам по желанию, может даже лучше не обновлять) и в папке exe\galdoc смотреть описания компонет, базовый - !GSDK.chm. На фтп где то валялся готовый exe.
Ответить