begin
IF :HOPE_FORECAST_CONTROL.sales_channel IS NOT NULL THEN 
        finalstr := finalstr || 'AND SALES_CHANNEL =' || ( ':HOPE_FORECAST_CONTROL.SALES_CHANNEL' ); 

      Go_block('HOPE_FORECAST_DATA'); 

      dfinalstr := Get_block_property('HOPE_FORECAST_DATA', default_where); 

      Set_block_property('HOPE_FORECAST_DATA', default_where, finalstr); 

      Execute_query(); 
    ELSE 
      [color=red]fnd_message.Set_string('Please Select  Any One Of The Item'); 

      fnd_message.show; [/color]
    END IF; 
    end;

DECLARE 
    finalstr  VARCHAR2(5000); 
    dfinalstr VARCHAR2(5000); 
BEGIN 
    IF :HOPE_FORECAST_CONTROL.sales_channel IS NULL THEN 
      fnd_message.Set_string('Please Select Any One Item'); 

      fnd_message.show; 
    ELSE 
      finalstr := 'WHERE 1=1'; 

      IF :HOPE_FORECAST_CONTROL.sales_channel IS NOT NULL THEN 
        finalstr := finalstr 
                    || 'AND SALES_CHANNEL =' 
                    || ( ':HOPE_FORECAST_CONTROL.SALES_CHANNEL' ); 
      END IF; 

      Go_block('HOPE_FORECAST_DATA'); 

      dfinalstr := Get_block_property('HOPE_FORECAST_DATA', default_where); 

      Set_block_property('HOPE_FORECAST_DATA', default_where, finalstr); 

      Execute_query(); 
    END IF; 
END;