Blocks: IUserDimBlocks;
The Blocks property returns an object that contains a collection of dictionary blocks.
Sub Main;
Var
MB: IMetabase;
UsDim: IUserDimension;
UsDimBl: IUserDimBlocks;
i: Integer;
Begin
MB:=MetabaseClass.Active;
UsDim:=MB.ItemById("USER_DIM").Bind As IUserDimension;
UsDimBl:=UsDim.Blocks;
i:=UsDimBl.Count;
End Sub Main;
After executing the example the "i" variable contains the number of blocks of calculated dictionary. Dictionary identifier: USER_DIM.
See also: