ParentBlock: IStandardDimBlock;
Свойство ParentBlock возвращает блок-владелец.
Sub UserProc;
Var
MB: IMetabase;
Dimens: IStandardDimension;
DimBlocks: IStandardDimBlocks;
DimBlock, DimBlock1: IStandardDimBlock;
s: String;
Begin
MB:=MetabaseClass.Active;
Dimens:=MB.ItemById("TAB_DIM").Bind As IStandardDimension;
DimBlocks:=Dimens.Blocks;
DimBlock:=DimBlocks.Item(1);
DimBlock1:=DimBlock.ParentBlock;
If DimBlock1<>Null Then
s:=DimBlock1.Name;
Else
s:="No";
End If;
End Sub UserProc;
После выполнения примера в переменной «s» будет содержаться наименование блока-родителя, если второй блок справочника является дочерним по отношению к какому либо блоку. Идентификатор табличного справочника - «TAB_DIM».
См. также: