WITH
    MEMBER [C_ID] AS
        '[Contracter].[CONTRACT ID].CURRENTMEMBER.MEMBER_KEY'
    MEMBER [M_KEY] AS
        '[Time Dimension].[MONTHKEY].CURRENTMEMBER.MEMBER_KEY'
    MEMBER [R_ID] AS
        '[SUPPLIERS].[R ID].CURRENTMEMBER.MEMBER_KEY'
SELECT 
    NON EMPTY 
    { 
        [C_ID]
        ,[R_ID]
        ,[M_KEY]
        ,[Measures].[H DSUM]
        ,[Measures].[P QTY] 
    } ON COLUMNS, 
    Filter 
	(
		([Contracter].[CONTRACT ID].[CONTRACT ID].ALLMEMBERS 
		* [SUPPLIERS].[R ID].[R ID].ALLMEMBERS),
		[Measures].[H DSUM]> 0  
		and [Measures].[P QTY] > 0 
	)  
DIMENSION PROPERTIES MEMBER_CAPTION, MEMBER_UNIQUE_NAME ON ROWS 
FROM ( SELECT ( STRTOSET(@SUPPLIERSTID, CONSTRAINED) ) ON COLUMNS 
FROM ( SELECT ( STRTOSET(@TimeDimensionMONTHKEY, CONSTRAINED) ) ON COLUMNS 
FROM ( SELECT ( STRTOSET(@TimeDimensionYEARKEY, CONSTRAINED) ) ON COLUMNS 
FROM [BOC])))