Dimensions > Dimensions Assembly Interfaces > IStandardDimBlock > IStandardDimBlock.ParentBlockIndex
ParentBlockIndex: IStandardDimIndex;
The ParentBlockIndex property determines a unique index of parent block to establish link with the current clock.
Sub UserProc;
Var
MB: IMetabase;
Dimens: IStandardDimension;
DimBlocks: IStandardDimBlocks;
DimBlock: IStandardDimBlock;
BlockIndex: IStandardDimIndex;
s: String;
Begin
MB:=MetabaseClass.Active;
Dimens:=MB.ItemById("TAB_DIM").Bind As IStandardDimension;
DimBlocks:=Dimens.Blocks;
DimBlock:=DimBlocks.Item(1);
BlockIndex:=DimBlock.ParentBlockIndex;
If BlockIndex<>Null Then
s:=DimBlock.ParentBlockIndex.Name;
Else
s:="No";
End If;
End Sub UserProc;
After executing the example the "s" variable contains the name of the unique owner's index, if the second dictionary block is a child of the first one. Table dictionary identifier: TAB_DIM.
See also:
