Связь таблиц в МТО

[Yurii]

Здравствуйте!
Подскажите пожалуйста, как связаны между собой документы: Планы снабжения (таблица MNPLAN) в модуле Управление материально – технического обеспечения и Договор (таблица Dogovor) в модуле Управление договорами. Существует ли возможность связать данные таблицы (т.е использовать подцепку) и как это реализовать ?
Спасибо заранее всем!

[edward_K]

все в шаблоне настраивается, но не более 3(любые)+3(програмируемые) аналитик + внешние атрибуты. А там потом по журналу посмотрите.

[Yurii]

edward_K, Вы какой имеете ввиду шаблон ? Мне необходимо подцепку организовать двух этих таблиц на vip.. Если вы с этим сталкивались, не могли бы Вы выслать или накидать кусок кода подцепки ? Заранее огромное спасибо.

[oiko]

Насколько мне кажется все связи в производственных модулях идут через objacct. Вот например связка которая у меня была для накладных - кто кому входящий правда не помню.
502==objacct.vidsopr
and 1==objacct.kindrec
and 4==objacct.typeobj
and MnPlan.nrec==objacct.cobject
and objacct.cowner==katsopr.nrec

[galover]

вот тоже нашел, может пригодится

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

// Заполнить таблицу договоров, привязанных к позиции плана (обработано)
   procedure FillSpDogovorTable;
   {
      delete all from tblSpDogovor;

      insert into tblSpDogovor (NRec, SpMnPlNRec, CMc, CDogovor, NoDoc, NoDocExt, DDoc, ShipAddTerms, OrgName)
        select
          SpDocs.NRec,
          tblSpPlan.NRec,
          tblSpPlan.CMc,
          Dogovor.NRec,
          Dogovor.NoDoc,          // Номер спецификации доп соглашения
          Dogovor.NoDoc_Ext,
          Dogovor.DDoc,
          Dogovor.ShipAddTerms,   // Дополнительные условия отгрузки
          KatOrg.Name
        from
          tblSpPlan,
          SpObjAcc,
          SpDocs,
          Dogovor,
          KatOrg
        where
        ((
          tblSpPlan.NRec       /== SpObjAcc.CPos
          and 31                == SpObjAcc.TypePos                             // Тип позиции
          and 1                 == SpObjAcc.KindRec
          and (73                = SpObjAcc.TypeObj or 75  = SpObjAcc.TypeObj)  // Спецификация договора или доп. соглашения
          and 1                 == SpObjAcc.TypeHier(noindex)                   // Тип иерархии
          and SpObjAcc.CObject  == SpDocs.NRec
          and SpDocs.CDoc       == Dogovor.NRec
          and Dogovor.COrg      == KatOrg.NRec
        ));
   }

[Yurii]

Всем огромное спасибо!

[Yurii]

Вот как я связал...
MnPlan.TypePlan = 29 - план снабжения:
Select
MnPlan.nRec,
MnPlan.Name,
Dogovor.nRec,
Dogovor.Ddoc,
Dogovor.Summa
from
MnPlan,
ObjAcct,
Dogovor
where
((
word(29) == ObjAcct.TypeObj And
word(1) == ObjAcct.KindRec (NoIndex) And
MnPlan.nRec /== ObjAcct.cObject And
ObjAcct.cOwner /== Dogovor.nRec
)) ;