Внешний классификатор

[Olga_M]

Подскажите: к каких таблицах "зарыта" связь между: ДО - и внешним классификатором, Накладной - и внешним классификатором.

Надо в печатной накладной вывести ссылку на нижний уровень внешней классификации ???.

[Seybukan]

функции для доступа к значениям внешней классификации по имени таблицы и коду внешнего
классификатора:
••
function TxoGetExClassCode1(TableName:string;ClassCode :word;cRec :comp):String;
function TxoGetExClassName1(TableName:string;ClassCode :word;cRec :comp):String; функции для доступа к значениям внешней классификации по имени таблицы и наименованию
внешнего классификатора:
function TxoGetExClassCode2(TableName,ClassName :string;cRec :comp):String;
function TxoGetExClassName2(TableName,ClassName :string;cRec :comp):String;

Если в форму передается Nrec таблицы по которой создан внешний классификатор и релиз у Вас >= 5.85 то можно забабахать эти функции. Они хоть и предназначены для ТХО, но в формах тоже отрабатывают.

[Olga_M]

Если не жалко, подскажите как "в форму передать Nrec таблицы по которой создан внешний классификатор" и как эти функции прописать ??? Я с этим сталкиваюсь первый раз - так что заранее извините за беспокойство и спасибо за содействие.

[Seybukan]

1. Nrec передается из прототипа.
2. Открой хозоперации. Настройка хозопераций. Документ любой. Создай ТХО (или открой существующую). В поле алгоритм - F3. Выбери самую правую вкладку "Общеиспользуемые функции". Вот тут мона настроить данные функции мастером.
Вместо Nrec поставишь поле из прототипа или своей формы.
х

[Olga_M]

А что мне это даст - зачем ТХО если надо вывести в печатную форму накладной ссылку на внешний классификатор. Есть классификатор "Кладовщики", в котором есть Иванов, Петров и т.п., так вот подвязав накладную к внеш.клас. "Иванов" хочется видеть в накладной запись типа Кладовщик Иванов ???

[ecasoft]

Нужен номер таблицы, к которой привязан классификатор (видимо к накладной). К примеру это NumTable (тип word) и Nrec Записи, к которой привязан NrecInNumTable.


Когда запрос такой:

Create View
...
where ((
....
! найдем по имени классификацию, привязанную ! к таблице

NumTable == ExClassName.wTable and
('Кладовщик' = ExClassName.Name) and

!-связка сегмента, где храниться имя с записью таблицы

NumTable == ExClassVal.wTable and
NRecInNumTable == ExClassVal.cREc
ExClassName.cClassSeg == ЕxClassVal.ClassCode and

! находим значение в классификаторах
ExClassVal.cClassSeg == ExClassSeg.Nrec

))

получаем значение

if GetFirst ExClassVal = tsOk
{
фамилия_кладовщика := ExClassSeg.Name
}


Удачи.

[ecasoft]

Насчет передачи Nrec накладной или ДО в форму - найдите прототип формы (исходники поставляются с галактикой) и там посмотрите как называется поле Nrec накладной или ДО для данной формы.

С уважением, Игорь

[Seybukan]

Вы читаете что я писал????
>>Они хоть и предназначены для ТХО, но в формах тоже отрабатывают.

Когда запрос такой:

Create View
...
From
KatSopr
where ((
....
получаем значение
ФИО_Кладовщика := TxoGetExClassName2(KatSopr,'Кладовщики',KatSopr.Nrec)

[ecasoft]

Вы же так пишите, что опять работать не будет...очень приблизительно все

Она просила вообще-то таблицы, вот и написал таблицы.

На функциях я не пробывал, но тогда уж видимо так, к примеру для Накладной на закупку:

1. никаких select_ов вообще не надо.

2. в теле формы получить фамилию кладовщика.

ФИО_кладовщика :=
TxoGetExClassName2('KatSopr','Кладовщики',накладная_нрек);

Поле накладная_нрек передается в потоке (можно посмотреть в прототипе prihnkl).

Так же?

[Seybukan]

ага
я просто пример привел с вьюхой
естественно эти функции мона применять тока при присутсвии в форме нрека записи таблицы по которой создан классификатор

[Olga_M]

Всем спасибо. В субботу буду "ловить" удачу. Если что - напишу.
Всем счастливых выходных.

[Deinis]

http://www.tyumbit.ru/galaktika/read.ph ... 194&t=2173