поиск таблицы, на которую ссылается nrec

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

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

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

поиск таблицы, на которую ссылается nrec

Сообщение Espada »

Доброго дня. столкнулся с проблемкой. В модуле "Управление производственной логистикой", в документах, есть производственные заказы. в спецификации заказа есть столбец "Состояние строки (POSSTATENAME)". не могу понять из какой таблицы берутся данные для вывода. в сапорте нашел таблицу SPMNPLAN, которая ссылается на таблицу SPMNPLAN.CVAL1. но на какую таблицу, не понятно. на закладке "Ссылки" нету инфы.может кто-нибудь знает из какой таблицы берутся данные или как можно найти нужную? спасибо.
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: поиск таблицы, на которую ссылается nrec

Сообщение edward_K »

Самый простой способ - изменить значение и посмотреть по журналу.
Другой способ - использовать тот же объект, что и в оригинале.
Судя по названию поля там может быть katnotes.nrec или возможно formpl.nrec
Попозже если не забуду гляну
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: поиск таблицы, на которую ссылается nrec

Сообщение edward_K »

поле выводится так

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

 if ( EnableMNFRegPos, MNFRegPos.GetStateName(SpMnPlan.cVal1), '' )
   ( FieldName = PosStateName ),
объект задается так

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

var MNFRegPos  : oMNFRegPos;
В таком виде его нужно загружать

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

    if (Not LoadVipRef (MNFRegPos, 'iMNFRegPos'))
      Message('Системная ошибка !!!'+
              'Не загружен интерфейс <' + 'iMNFRegPos' +'>', Error+CancelButton);
в объекте

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

        cCurFormPl               == FormPl.NRec                      and
функция

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

//=======================================================================
// 'НАИМЕНОВАНИЕ СОСТОЯНИЯ'
//-----------------------------------------------------------------------
Function GetStateName( p_cFormPl:Comp ) : String;
{
 GetStateName := '';

 if (WasError())
  Exit;

 cCurFormPl := p_cFormPl;

 if (GetFirst FormPl = tsOk)
  GetStateName := FormPl.Name;
}
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

Re: поиск таблицы, на которую ссылается nrec

Сообщение Espada »

Спасибо, всё получилось.
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Ответить