вызов интерфейса KatPodr

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

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

Ответить
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

вызов интерфейса KatPodr

Сообщение Espada »

Доброго дня, столкнулся с такой проблемкой: пишу интерфейс, и одно из полей - выбор подразделения.

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

cmPick:
{
  case CurField of
  #PodrName:
  {
    if (RunInterface('Z_KATPODR::GetKATPODR', PodrName) = cmDefault)
    {
      set PodrNrec := PodrNrec;
      set PodrName := KatPodr.Name;
    }
  }
  end; // case
}                          
но проблема в том, что при нажатии на ... просто открывается каталог подразделений, без выбора. можете подсказать, что я не правильно написал? спасибо
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Irina_
Местный житель
Сообщения: 555
Зарегистрирован: 17 июл 2012, 11:56
Откуда: Республика Беларусь, г.Могилев

Re: вызов интерфейса KatPodr

Сообщение Irina_ »

Здравствуйте. Поищите GetAnyPodr.
oiko
Местный житель
Сообщения: 419
Зарегистрирован: 29 мар 2005, 17:49

Re: вызов интерфейса KatPodr

Сообщение oiko »

Именно как написала Ирина

#PodrName:{
RunInterface('Z_KATPODR::GetAPodr',PodrNrec,0);
PodrName:=if(getfirst katpodr where ((PodrNrec==katpodr.nrec))=tsok,katpodr.name,'Не выбрано подразделение');
}
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

Re: вызов интерфейса KatPodr

Сообщение Espada »

Irina_ писал(а):Здравствуйте. Поищите GetAnyPodr.
Спасибо огромное, всё получилось!)
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: вызов интерфейса KatPodr

Сообщение edward_K »

Если это аналитика, то советую обратить на объект GetKau - не нужно думать какие там параметры или маркер для множественной пометки - все унифицировано.
Ответить