CALCULATE; 
CREATE DYNAMIC SET CURRENTCUBE.[DataSet]
 AS [Календарь].[Месяц].[Месяц].Members ; 

SCOPE([Measures].[Действующие],[Календарь].[Месяц].[ALL]);
This = (
            Tail(NonEmpty(Existing [DataSet],[Measures].[Действующие])).Item(0).Item(0),[Measures].[Действующие]
        );
END SCOPE;