Literal parameters and multiple users

You can only see the values, if you embed them in an object or, in the design mode:

Hi, I am having the same issue with the pop up box for the parameters.  I have 6 combo boxes on a dashboard. 5 selecting parameters and one selecting a column set for cube views.  The parameters are used in two different cube views on the dashboard.  Every time I open the dashboard or make a selection on one of the cb's, the pop up appears showing all of the parameters.  I don't quite understand the "adding a supplied parameter on the main dashboard"  All combo boxes are triggering the same DE BR.

Below is the code.  Any help is appreciated.

Else If (args.FunctionName = "SetCorpVolAdjParams") Then
Dim UD1Report As String = "Top.Base"
Dim UD2Report As String = "Top"
Dim UD3Report As String = "Top"
Dim UD4Report As String = "Top"
Dim EntitySelect As String = args.TaskInfo.CustomSubstVars("prm_Entity_Select")
Dim MonthlyYearlySelect As String = args.TaskInfo.CustomSubstVars("prm_Monthly_Yearly_Select")
Dim CVname As String = Nothing
If MonthlyYearlySelect = "Monthly" Then
CVname = "IBP_PeriodicAdj_Col"
ElseIf MonthlyYearlySelect = "Yearly" Then
CVname = "IBP_AnnualAdj_Col"
End If
Dim UD1Select As String = args.TaskInfo.CustomSubstVars("prm_UD1_Select")
If Not UD1Select.Contains("Disagg") Then
UD1Report = UD1Select
End If
Dim UD2Select As String = args.TaskInfo.CustomSubstVars("prm_UD2_Select")
If Not UD2Select.Contains("Disagg") Then
UD2Report = UD2Select
End If
Dim UD3Select As String = args.TaskInfo.CustomSubstVars("prm_UD3_Select")
If Not UD3Select.Contains("Disagg") Then
UD3Report = UD3Select
End If
Dim UD4Select As String = args.TaskInfo.CustomSubstVars("prm_UD4_Select")
If Not UD4Select.Contains("Disagg") Then
UD4Report = UD4Select
End If

Dim selectionChangedTaskResult As New XFSelectionChangedTaskResult()
selectionChangedTaskResult.IsOK = True
selectionChangedTaskResult.Message = String.Empty
selectionChangedTaskResult.ShowMessageBox= False
selectionChangedTaskResult.ChangeCustomSubstVarsInDashboard = True
selectionChangedTaskResult.ModifiedCustomSubstVars.Add("prm_EntitySelectionValue_Form", EntitySelect)
selectionChangedTaskResult.ModifiedCustomSubstVars.Add("prm_EntitySelectionValue_Report", EntitySelect)
selectionChangedTaskResult.ModifiedCustomSubstVars.Add("prm_Monthly_Yearly_SelectionValue_Form", CVname)
selectionChangedTaskResult.ModifiedCustomSubstVars.Add("prm_UD1SelectionValue_Form", UD1Select)
selectionChangedTaskResult.ModifiedCustomSubstVars.Add("prm_UD1SelectionValue_Report", UD1Report)
selectionChangedTaskResult.ModifiedCustomSubstVars.Add("prm_UD2SelectionValue_Form", UD2Select)
selectionChangedTaskResult.ModifiedCustomSubstVars.Add("prm_UD2SelectionValue_Report", UD2Report)
selectionChangedTaskResult.ModifiedCustomSubstVars.Add("prm_UD3SelectionValue_Form", UD3Select)
selectionChangedTaskResult.ModifiedCustomSubstVars.Add("prm_UD3SelectionValue_Report", UD3Report)
selectionChangedTaskResult.ModifiedCustomSubstVars.Add("prm_UD4SelectionValue_Form", UD4Select)
selectionChangedTaskResult.ModifiedCustomSubstVars.Add("prm_UD4SelectionValue_Report", UD4Report)
Return selectionChangedTaskResult

Public Function Main(...arguments...) As Object
 Try

 Select Case args.FunctionType

    Case Is = DashboardExtenderFunctionType.LoadDashboard
          If args.FunctionName.XFEqualsIgnoreCase("LoadFunction") Then
               .....
          End If

    Case Is = DashboardExtenderFunctionType.ComponentSelectionChanged 
          Dim selectionResult As XFSelectionChangedTaskResult=Nothing

          If args.FunctionName.XFEqualsIgnoreCase("LaunchAdjustment") Then
               ...
               selectionResult=Me.AdjustmentProcessMain(...arguments...) 
               Return selectionResult
          End If 
      End Select
 Return Nothing

Catch ex As Exception
Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
End Try
End Function


 Private Function AdjustmentProcessMain(..arguments..) As XFSelectionChangedTaskResult
    Try 
              Dim selectionChangedTaskResult As New XFSelectionChangedTaskResult()
              selectionChangedTaskResult.ChangeCustomSubstVarsInDashboard = True 
              ... 
              Dim paramchange As New XFselectionchangedtaskresult()
              paramchange = Me.AssignOutputParams(si)     'This is the function within which the parameters are assigned a value
              .....

              Dim Checkresult As String = "... string that pops up when process completed..."
              Dim messageresult As New XFselectionchangedtaskresult()
              messageresult = Me.ShowMessage(si,Checkresult)
              selectionChangedTaskResult.IsOK = messageresult.IsOK
              selectionChangedTaskResult.ShowMessageBox = messageresult.ShowMessageBox 
              selectionchangedtaskresult.Message = messageresult.Message
              selectionChangedTaskResult.ModifiedCustomSubstVars = paramchange.ModifiedCustomSubstVars

           Return selectionChangedTaskResult

 Catch ex As Exception
 Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
 End Try 
 End Function 


 Private Function AssignOutputParams(ByVal si As SessionInfo) As XFSelectionChangedTaskResult
    Try
         Dim selectionChangedTaskResult As New XFSelectionChangedTaskResult() 
         Using
                ... define variables to be assigned to parameters ...
         selectionChangedTaskResult.ModifiedCustomSubstVars.Add("p_RowEntityList",Entity_Param_List)
         selectionChangedTaskResult.ModifiedCustomSubstVars.Add("p_RowAccList",Acc_Param_List)
         selectionChangedTaskResult.ModifiedCustomSubstVars.Add("p_RowDocList",Doc_Param_List)

         End Using 
     Return selectionChangedTaskResult

 Catch ex As Exception
 Throw ErrorHandler.LogWrite(si,New XFException(si,ex)) 
 End Try
 End Function 

 Private Function ShowMessage(...arguments...) As XFSelectionChangedTaskResult
    Try 
        Dim selectionChangedTaskResult As New XFSelectionChangedTaskResult() 
        selectionChangedTaskResult.Message= StringHelper.FormatMessage("...message string...")
        'Show Message box that the file was processed
        selectionChangedTaskResult.IsOK=True
        selectionChangedTaskResult.ShowMessageBox= True
     Return selectionChangedTaskResult 

 Catch ex As Exception
 Throw ErrorHandler.LogWrite(si,New XFException(si,ex))
 End Try
 End Function

 I copied here the relevant parts of the BR.
The function that is triggered when the user clicks on the button is AdjustmentProcessMain, within it the function AssignOutputParams is called, and that is where the parameters are assigned a value.

Thanks again for the help, much appreciated!!