Single Selection Prompt for all queries

Question

Hi All,
I have 5 queries in my workbook.
Each query uses some variable which is not used in the other queries.
So, i get 5 prompts when i run the query.
This looks very awkward and also my system almost hangs while showing for each prompt.
Is there any way of showing all the variables in a single prompt?
Thanks,
Arun KK

Answer 1

Hi,
I found this answer on a message board:
http://sap.ittoolbox.com/groups/technical-functional/sap-bw/assigning-same-variable-values-for-queries-in-workbook-711943
There are two answers to your question, depending on whether or not all of the dates are the same info object (i.e., have the same technical name).
Case 1:  All info objects have the same technical name.
Use the "refresh all" option:
Run "SAPBEX.XLA!SAPBEXrefresh", True 'true = refresh all
BW will use the input from the first set of refresh screen variables for all others.  IF each query have exactly the same refresh screen, you will not see another refresh variable screen.  If not, then BW will stop between queries to ask for more input, only if required. 
So, the trick would be to define the first query that refreshes in such a way that its variable screen covers everything needed.
Case 2:  Not all info objects have the same technical name.
Use the "Save and reuse variable values" option.  You will find this in the query Properties dialog box on the second tab ("Interaction").  Put a check there for all queries except the first one. 
Set up the workbook so that the first query refreshes by itself
Run "SAPBEX.XLA!SAPBEXrefresh", False 'False = refresh one only
Then, after the first query has refreshed, locate the date(s) the user selected and copy those to the ranges for all other date values.  If your installation is BW 3.x, the code below should do the trick.
It is slightly ineffecient because it will refresh the first query twice.  But, the second refresh will be fast because the results will still be in cache. And, the code to keep it from refreshing the first query twice is not something you really want to mess with.
Alternatively, instead of using the SAPBEXrefresh, True at the end, you could put in 13 different SAPBEXrefresh, False statements, identifying the other 13 query worksheets individually.
   Run "SAPBEX.xla!SAPBEXrefresh", False, _
       Sheets("firstQueryToRefresh").Range("a cell in the query")
   'locate dates user selected for "0CALMONTH"
   For i = numFilter + 3 To 4 Step -1
       If Range("GS" & i) = "0CALMONTH" Then
           myType = Range("GC" & i)
           myInterval = Range("GD" & i)
           intfirstMonth ("GE" & i)
           extfirstMonth = Range("GF" & i)
           intlastMonth = Range("GG" & i)
           extlastMonth = Range("GH" & i)
           Exit For
       End If
   Next i
   For i = 4 To numFilters + 3
       If Range("GS" & i) = "YCODOCMNT" Or _
           Range("GS" & i) = "YCOSHPMNT" Or _
           Range("GS" & i) = "0CALMONTH" Or _
           Range("GS" & i) = "YCOACCMT" Then
           Range("GC" & i) = myType
           Range("GD" & i) = myInterval
           Range("GE" & i) = intfirstMonth
           Range("GF" & i) = extfirstMonth
           Range("GG" & i) = intlastMonth
           Range("GH" & i) = extlastMonth
       End If
   Next i
   Sheets("SAPBEXqueries").Visible = xlSheetVeryHidden
   Sheets("firstQueryToRefresh").Select
   Application.ScreenUpdating = True
   Run "SAPBEX.xla!SAPBEXrefresh", False
End Sub
maybe this will help a bit.
regards,
Raymond Baggen
Uphantis bv