ValergradХорошо, есть класс Encyclopedia.DirItem - в нем элементы кладра
Вот его объявление:


Class Encyclopedia.DirItem Extends (%Persistent, %Populate) [ ClassType = persistent, ProcedureBlock ]
{
Property DirValue As %String; // значение элемента
Relationship Directory As Encyclopedia.Directory [ Cardinality = parent, Inverse = Items ]; // ссылка на номер справочника
Property Number As %String; // номер элемента
}


И есть класс Encyclopedia.Directory - в нем имена справочников ( типа "Улица", "Город" и т.д. )

Class Encyclopedia.Directory Extends (%Persistent, %Populate) [ ClassType = persistent, ProcedureBlock ]
{
Relationship Items As Encyclopedia.DirItem [ Cardinality = children, Inverse = Directory ];
Property DirName As %String [ Required ];
Property NeedRedact As %Integer; // этот параметр неважен
Index NameIndex On DirName [ Unique ];
}

И есть в Encyclopedia.Directory метод:

// написано криво, но переписать руки не доходят

ClassMethod AddItem(DirName As %String, Number As %String, DirValue As %String) [ SqlProc ]
{
&sql(select count(*) into :count
from DirItem
where Directory->DirName=:DirName
and Number=:Number)
// если такого элемента нет, добавляем его
if count=0{
&sql(
insert into DirItem(Directory,Number,DirValue)
values (Directory_FindDir(:DirName),:Number,:DirValue)
)
} else{
&sql(
update DirItem
set DirValue=:DirValue
where Directory->DirName=:DirName
and Number=:Number
)
}
}

Вот... Если кто-то уже делал КЛАДР может поделится как?

В том же иксе видел КЛАДР. Для адресов проживания и прописки сотрудников (чтобы в ПФ выгружать), контактных лиц партнеров, сотрудников конкурентов и т.п. Видимо ничего сложного в этом нет?