Smartview VBA functions

Hi All,
Is there any link or documentation listing the VBA functions for Smartview equivalent to the functions in excel addin.
Thanks,
Raja

You too have noticed that there are quite a few functions missing. :)
Some of these items are because the functions aren't in SV at all, others because they are not exposed to the API.
You may be in luck with aliases as HypSetAliasTable will allow you to set the table, but not to turn aliases on and off.
If you are in 11.x, you might also want to take a look at HypSetConnAliasTable. I think that will actually change the alias table for the currently defined connection.
As for LROs, secondary buttons, and DTS, I think you are out of luck -- those items are not in SV so there are no corresponding functions.
I had a mildly painful experience with SV VBA early last year -- there were quite a few bugs. I think at one point I had identified eight defects (this was the old esupport web site). If you are on 9.3.x, make sure you are as up to date as possible.
Regards,
Cameron Lackpour

Similar Messages

Smartview VBA function for launch calc-scripts as strings. like EsbCalc ???

We have used an Excel VBA which launch an calculation script from a STRING using the VBA Add-In function "EsbCalc".
We would like to migrate to Smartview VBA functions.....
The calc-script string has "parameters" which are modified at run-time...
I have found the function HypExecuteCalcScript - but seems that use as parameters ONLY the calc-script name...
Is it any VBA function in SmartView which launch a calc-script string (not a calc-script name) ?
We are using EPM 11.2
Thanks...

A tip I just learned at Kaleidoscope 2010* is that one can create a calc script consisting entirely of a substitution variable. In other words, a calc script can look like this:
&Calc
Smart View VBA does have a function for changing or creating substitution variables (HypSetSubstitutionVariable). You could create a calc script and subvar in your database as above. Then, at run time, set that subvar to your calc string with HypSetSubstitutionVariable and execute the calc script with HypExecuteCalcScript.
Quick test (11.1.1.3) shows that this really works.
I can't remember privileges required to create or set subvars vs execute calc strings off the top of my head - might be an issue (I ran as an admin). Also this approach doesn't support concurrent users, unless they each have a calc script and subvar to themselves. Still, depending on your exact situation, this might be a feasible workaround.
*I won't credit the presenter solely because the tip came from a presentation which he specifically declined to make public domain.

SmartView VBA Commands - HypCreateConnection and HypConnect

I am in the process of converting some spreadsheets with Essbase Excel add-in VBA macros to use the SmartView VBA functions. I am having trouble just doing the connect to the V11 database. Prior to the conversion I used the following command to connect to the database to access an Essbase version 6.5 database:
sts = EssVConnect("MS Essbase Actual", EssUsername, EssPassword, "Ws-bco-ess1", "Crsfo09", "Crsfo09")
I have migrated the database to Essbase version 11.1.1 (on another server) and am attempting to connect to it with the following command (Oracle Hyperion SmartView for Office, Fusion Edition):
sts = HypCreateConnection("MS Essbase Actual", EssUsername, EssPassword, HYP_ESSBASE, "http://ws-tst-esswl:13080/aps/SmartView", "Ws-tst-ess3d", "Crsfo09", "Crsfo09", "CrsConnection", "Analytic Services Provider")
This is failing with a status of -47. The User Guide for Oracle Hyperion SmartView for Office, Fusion Edition lists status codes up to -40. It appears to connect to Provider Services and bring up my Essbase servers, but not actually connect to a specific application/database.
I am using Excel 2007.
I am also confused about the difference between HypCreateConnection and HypConnect. Do you need to use both, and if so, in which order? I found an article about Customizing Smart View Worksheets by using the VBA Toolkit, but it makes no mention of HypCreateConnection (and instructions seem to be for Excel 2003), so it wasn't very helpful.
Thanks!

OK... I'm still struggling with this. I keep getting a -47 error on the HypCreateConnection line, which according to the docs says that the connection already exists. So I added commands to try to remove the connection prior to creating it if one already exists. Here is my code:
X = HypIsConnectedToAPS()
If X = True Then
X = HypDisconnectFromAPS()
End If
X = HypConnectionExists("SampBasicConn")
If X = True Then
X = HypRemoveConnection("SampBasicConn")
End If
X = HypCreateConnection(Empty, "admin", "password", HYP_ESSBASE, "http://apsserver:13080/smartview/SmartView", "essserver", "Sample", "Basic", "SampBasicConn", "Analytic Provider Services")
X = HypConnectionExists("SampBasicConn")
If X = True Then
X = HypConnect(Empty, "admin", "password", "SampBasicConn")
End If
Return codes are all expected (sometimes I have to disconnect from APS and sometimes not) until I hit the HypCreateConnection line. The HypConnectionExists always returns false, but HypCreateConnection returns -47. After that, I test for the connection again, and it returns false. So why am I getting a -47? Also, there is no connection. It is truly acting as though the HypCreateConnection is failing. But the error code is not helpful. Is there any way to tell what is causing the failure? It seems I have tried all permutations of "/aps/SmartView", "/smartview/SmartView", fully qualified server names, etc. Is there a way to tell what is causing the failure (bad username/password, bad APS URL, bad Essbase server, bad application/database, etc.)?

SmartView VBA code to connect to Essbase

Hi,
I am trying to connect to Essbase v 11.1.13 via Smartview v 11 using Macro (VBA code). Thing is that I am able to make connection, but not able to autneticate after connecting to Appname and Dbname in that server. In right hand side after this macro is run, I need to manually click on the server and then go ahead to that appname and Dbname and then do adhoc analysis.
Any inputs how to proceed with this step using SmartView VBA code?
The code I am using is -
bIsConnection = HypIsConnectedToAPS()
If bIsConnection = True Then
bIsConnection = HypDisconnectFromAPS()
End If
bIsConnection = HypConnectionExists("Sampleconn")
If bIsConnection = True Then
bIsConnection = HypRemoveConnection("Sampleconn")
End If
X = HypCreateConnection(Sheet1, User, pwd, "HYP_ESSBASE", url, sServer, app, db, connectionname, "Analytic Provider Services")
X = HypConnect(Empty, User, pwd, connectionname)
Please let me know even after this code, why it is not selecting appname.dbname in Smart view Data source manager?

In the code below there is no existing connection called “My DMDemo Basic”. So using HypCreateConnection, this connection is created which connects automatically to the application database using username and password as per the sample code.
If the connection string already exists, then you can call HypConnect to connect.
The HypCreateConnection does not really need a valid username and password. But when we are using HypConnect, it validates the username and password and recognizes with the friendly name per the connection name - for example "My DMDemo Basic".
If you want the user to be prompted for login details instead o f hardcoding the values, then you can assign null values to them - username and password as null values which is - "" (note this is open and close double quotes without any space). This will bring up the window where you can give the username and password values.
Run the following code by opening a brand new Excel file and then copying the code below into the Visual Basic Editor Module. Make sure you modify all the parameters according to your setup including username, password, server name, application name, etc.
Private Declare Function HypConnect Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtFriendlyName As Variant) As Long
Private Declare Function HypCreateConnection Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtProvider As Variant, ByVal vtProviderURL As Variant, ByVal vtServerName As Variant, ByVal vtApplicationName As Variant, ByVal vtDatabase As Variant, ByVal vtFriendlyName As Variant, ByVal vtDescription As Variant) As Long
Sub Conn()
Dim username As Variant
Dim password As Variant
Dim x As Variant
Dim HYP_ESSBASE As Variant
HYP_ESSBASE = "ESSBASE"
username = "admin"
password = "password"
x = HypCreateConnection(Empty, username, password, HYP_ESSBASE, "http://localhost:13080/aps/SmartView", "localhost", "DMDemo", "Basic", "My DMDemo Basic", "Analytic Provider Services")
MsgBox x
x = HypConnect(Empty, username, password, "My DMDemo Basic")
MsgBox x
End Sub
HTH-
Jasmine

Need Assistance for VBA function in oracle how to implement

My very respected and Senior, regards,
Sir, hope you will in best of health and wealth by the grace of God,
Sir, i have a request problem as i m very junior against you and you have passed this time before many years ago as i m standing where. Sir i m a very junior developer of oracle and have a problem putting on your desk with the hope that you can help my as a boss.
Sir me have to calculate yield of Bond using oracle form
i have tried my best and tired
there is a formulae in excel which give the Yield() when we provide the parameters
and i need the excel formulae or the oracle calculation code of PLSQL for this.
How can i get yield when i have price, coupon rate, frequency, issue and maturity of the coupon , coupon period , next coming coupon , and others detail.
or tell me how to use EXCEL VBA for this problem ,
thnx n regards,
yours student, junior developer youngest brother
Faraz
How can I get the solution using Excel VBA function with oracle
so that move values to excel calculate them and copy the result from excel to oracle forms

Hi,
for the Hex-Number-conversion see:
[url http://psoug.org/snippet/Convert-Hex-to-Decimal-Decimal-to-Hex_78.htm] self-defined Conversion-Functions
What number format do you have? YYYMMDD
Or is there a Date corresponding to 1 and a number n represent the date n-1 days after day 1?
Please describe further.
Bye
stratmo

Fdm 11.1.2.1 mapping table scripts does not accept vba functions like 'lef

ok, in fdm 11.1.2.1, in the UD2 column of IMPORTS, i have something like "award::purpose::type" , and in the mapping table script , i'm trying to use the 'left' and 'mid' functions to break down the UD2 columns (delimited by "::"), and then mapping it to a result in VALIDATE.
why don't the simple VBA functions work in the mapping scripts (where you have "#Script" in the "Target Custom2 column")
to keep things simple, i would like the following to work (and it errors on the first line at the 'left' function)
One_Award = Left(varvalues(21), 5)
Result = One_Award
thanks.
Edited by: 866191 on Jun 26, 2012 8:15 AM

first, i changed my original message at the top; please take another look. thank you.
the error message is:
** Begin FDM Runtime Error Log Entry [2012-06-26 08:26:57] **
ERROR:
Code............................................. 5
Description...................................... Conditional Map Script Error: Invalid procedure call or argument: 'Left' at line(7)
Procedure........................................ clsCalcEngine.fFlagWildcard
Component........................................ upsWObjectsDM
Version.......................................... 1112
Thread........................................... 4492
IDENTIFICATION:
User............................................. bachoi
Computer Name.................................... OFEPMAPPUAT05
App Name......................................... fdmawds
Client App....................................... WebClient
CONNECTION:
Provider......................................... ORAOLEDB.ORACLE
Data Server......................................
Database Name.................................... HYPUAT
Trusted Connect.................................. False
Connect Status.. Connection Open
GLOBALS:
Location......................................... GLBS
Location ID...................................... 749
Location Seg..................................... 3
Category......................................... ACTUAL
Category ID...................................... 13
Period........................................... Jun - 2012
Period ID........................................ 6/30/2012
POV Local........................................ False
Language......................................... 1033
User Level....................................... 1
All Partitions................................... True
Is Auditor....................................... False

Custom VBA Functions BPC

Hello,
I would like to know how to use custom VBA function in BPC. I read the administration guide but I didn't understand this part.
For instance, if I want to use the "BEFORE_REFRESH" function, where do I have to implement it ?
Thanks in advance

Hello Mark,
I've also used BPC VBA functions quite extensively to extend BPC capabilities with success up until now, but I am now struggling with finding a way to make them work when registered as macros from an external add-in.
The scenario is the following: I currently leverage custom VBA macros (BEFORE_EXPAND, AFTER_EXPAND, etc) to extend BPC functionalities, and the code is distributed in the VBA modules attached with my input schedules/reports spreadsheets.
I then decided to consolidate the functionalities in an Excel automation add-in, which (among other tasks) registers the same macros once at Excel startup to be used by all the different input schedules / report: macros are registered and exposed correctly (they are showing up in the list of available functions) but for some reasons they are not fired by the Expand All or Refresh menu actions.
Any idea about why the macros are not executed? Do they necessarily need to be written in a VBA module attached to the spreadsheet?
Many thanks in advance.
Regards
Jacopo

Essbase Smartview VBA macros error

I have a Essbase Smartview VBA macros issue as below:
I want get a value that I choose in POV dynamic dropdown list.
And show the value in the excel.
For example:
There customer dimention -childs are IBM、ACR show in POV dynamic dropdown list.
I choose IBM in POV then in excel sheet A1 show IBM.
I try the below vba code:
Private Sub CommandButton2_Click()
Dim vtGrid As Variant
Dim vtDimNames As Variant
Dim vtPOVNames As Variant
X = HypRetrieve("Sheet1")
If X = 0 Then
MsgBox ("Retrieve successful.")
Else
MsgBox ("Retrieve failed.")
End If
Range("F1").Select
Sts = HypGetSourceGrid("Sheet1", vtGrid)
Y = HypGetPOVItems(vtDimNames, vtPOVNames)
Range("h1").Value = Y
End Sub
'==========================================
But Y result is -3.
How did I get the value in dynamic dropdown list.
Thanks~

Few comments:
1. Range("F1").Select: Is F1 inside the grid you are rerieving? If you do a fresh retrieve Range("B2").Select is a better location and you will not get -3.
2. Range("h1").Value = Y. You are setting the error message and not the POV member name. vtPOVNames is an array of POV members and you should use Range("h1").Value =vtPOVNames(1) to get the member name. (1) being the first dimension in the POV.
3. Word of caution. You will not be able to put a valid member name in the grid if it already exists in the POV. I recommend you preface the member name by any string that will make it unique. For instance, you could use
Range("h1").Value = vtDimNames(1) & ": " &vtPOVNames(1)
This way you will see the DimensionName: Member Name.
Here is the modified code:
Sub test()
Dim vtGrid As Variant
Dim vtDimNames As Variant
Dim vtPOVNames As Variant
X = HypRetrieve("Sheet1")
If X = 0 Then
MsgBox ("Retrieve successful.")
Else
MsgBox ("Retrieve failed.")
End If
Range("b2").Select
sts = HypGetSourceGrid("Sheet1", vtGrid)
Y = HypGetPOVItems(vtDimNames, vtPOVNames)
Range("h1").Value = vtDimNames(1) & ": " & vtPOVNames(1)
End Sub
Edited by: Toufic Wakim on May 3, 2010 11:54 AM

BPC Custom VBA Functions questions

Hello, Experts
I am developing some formatting scripts which are run inside functions AFTER_EXPAND, AFTER_REFRESH.
I have several sheets with EVDRE
I don't understand the following things:
1. How I can trigger which list was refreshed & expanded?
2. Why calling EVDRE : Expand & Refresh doesn't lead to execution AFTER_EXPAND and AFTER_REFRESH? AFTER_REFRESH work only in Refresh, AFTER_EXPAND in Expand all. How can I trigger calling "EVDRE : Expand & Refresh "
3. BPC Custom VBA Functions have String argument inside itselves. Usually this argument is empty. What's the goal of this argument?

Hello Mark,
I've also used BPC VBA functions quite extensively to extend BPC capabilities with success up until now, but I am now struggling with finding a way to make them work when registered as macros from an external add-in.
The scenario is the following: I currently leverage custom VBA macros (BEFORE_EXPAND, AFTER_EXPAND, etc) to extend BPC functionalities, and the code is distributed in the VBA modules attached with my input schedules/reports spreadsheets.
I then decided to consolidate the functionalities in an Excel automation add-in, which (among other tasks) registers the same macros once at Excel startup to be used by all the different input schedules / report: macros are registered and exposed correctly (they are showing up in the list of available functions) but for some reasons they are not fired by the Expand All or Refresh menu actions.
Any idea about why the macros are not executed? Do they necessarily need to be written in a VBA module attached to the spreadsheet?
Many thanks in advance.
Regards
Jacopo

SmartView VBA - Cannot set "Update Column Width" setting

Hi Folks,
I'm in the process of updating a series of v9 Essbase VBA API-driven workbooks to SmartView 11.1.2.1 and have hit a problem - I'm new to the SV VBA commands, and I'm hoping this is something obvious that I'm missing.
One of the functions that is key to ensuring data retrieval does not change the layout of the spreadsheets is the "Adjust Column Widths" setting, which in the Essbase VBA API could be managed using the EssVSetSheetOption function, but neither HypSetGlobalOption nor HypSetSheetOption appear to have any such capability. The only option I'm left with is to run retrieves followed by some reformatting of column widths, which seems rather ineligant to me.
Any ideas?
Many thanks,
Dave

looking in the .bas file (and what should be included in your project I find HSV_ADJUSTCOLUMNWIDTH in the definitions for Enumeration of options index to be used for HypGetOption/HypSetOption
Note, I'm looking at the 11.1.2.2 version, your mileage may vary depending on your version

How to get my VBA Function to Work in Access 2010

Hi there,
I am new to VBA programming. I need to run a huge query, which the simple query function cannot perform. I have coded this query in the VB editor inside a standard module and it accepts the code, but I do not know how to execute the function I have created.
I tried creating a command button in a new form and it just keeps coming up "Compile Error: Expected End Sub"
Please can you take a look at my code and tell me where I am going wrong please:
Function RunQuery()
Dim strSQl As String
strSQl = "SELECT M.[EB Status (Desc)], M.[HB Status (Desc)], M.[PB Status (Desc)], TBL_Status.Status" & _
"FROM M INNER JOIN TBL_Status ON M.[ISBN (eBook)] = TBL_Status.Status" & _
"WHERE(((M.[EB Status (Desc)])='Available')AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB
Status (Desc)])='In Production') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)])='Contracted') AND ((TBL_Status.Status)='Live')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)])='Available')
AND ((TBL_Status.Status)='Awaiting Distribution')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Planned') AND ((TBL_Status.Status)='Awaiting Distribution')) OR" &
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Out of Stock') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Withdrawn') AND ((TBL_Status.Status)='Awaiting Distribution')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)])='Planned') AND ((TBL_Status.Status)='Awaiting
Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status
(Desc)])='In Production') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)])='Planned') AND ((TBL_Status.Status)='Distribution On Hold')) OR" &
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)])='Planned')
AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)])='Planned') AND ((TBL_Status.Status)='Live')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Out of Print') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Print') AND ((M.[PB
Status (Desc)])='In Production') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Out For Conversion')) OR" &
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Print') AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Contracted') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Distribution On Hold')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Print') AND ((M.[PB Status (Desc)])='Out of Stock') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Withdrawn') AND ((TBL_Status.Status)='Out For Conversion')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Awaiting Distribution'))
OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='Out of Print') AND ((TBL_Status.Status)='Awaiting Distribution')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Planned')
AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Awaiting Distribution')) OR"
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB
Status (Desc)])='Planned') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Awaiting Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Withdrawn') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Planned') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='Out of Stock') AND ((TBL_Status.Status)='Live')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB
Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Awaiting Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Planned')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Print') AND ((M.[PB Status (Desc)])='Out of Stock') AND ((TBL_Status.Status)='Awaiting Distribution')) OR"
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Withdrawn') AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Awaiting Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Awaiting Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='Withdrawn') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Print') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Awaiting Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Contracted') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status
(Desc)])='Out of Stock') AND ((TBL_Status.Status)='Live')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='Out of Print') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='In Production')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Planned') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Withdrawn')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Withdrawn')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Withdrawn') AND
((M.[PB Status (Desc)])='Out of Stock') AND ((TBL_Status.Status)='Live')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status
(Desc)]) Is Null) AND ((TBL_Status.Status)='Withdrawn'))" & _
End Function
Any help is greatly appreciated!!
Thanks,
Luke

If it's too complex as a query it won't run in code either. And structurally speaking, you have a couple errors that I see. There is no space before FROM and WHERE.
Try breaking the query down into separate smaller queries with each set of criteria. Then put them all in a UNION query. Maybe that will run as you want.
Bill Mosca
www.thatlldoit.com
http://tech.groups.yahoo.com/group/MS_Access_Professionals

SmartView Hsgetvalue function and Refresh

Hi All,
I'm creating a SmartView Report using HsgetValue() function. When i Refresh the data is getting displayed correctly, but giving pop up warning that Essbase Error (1020047): A column item conflicts with a Row item
Why it is happening ? Can anyone help ?
Also how i can insert graphs in the same SmartView HsGetvlaue() Report. The Graphs should display / Change based on the data.
Thanks,
PVR

Which version of SmartView your are using , in SmartView 11.1.2.1 this is a known bug.
Thanks,
~KKT~

Hyperion Planning and Smartview : Build function HS Description

Dear all,
I am currently using Hyperion planning 11.1.2.2, I would like to display in excel adhoc reports the description of some dimension members via smartview.
To this end I used the "build function" functionality:
I selected an empty cell and call the functionality, a window appears with two parameters :
1-connection : this field is automatically filed (WSFN|HP|pc|Planning|Plan1)
2-Member List : I would like to fil it manually ex : "Account#100"
I click on validate : the following message appears : Selected connection does not support this function.select new connection.
I would like to know what is meant by connection? what is the syntax of the connection string? could you please provide an example?
Thank you
Best regards.
Toufik
Edited by: user11081975 on May 12, 2013 12:55 PM

Hsdescription is not supported by Planning connection.
You can use that with Essbase connection.
Read http://docs.oracle.com/cd/E17236_01/epm.1112/sv_user/ch17s01s08s15.html
It talks about what are shared and private connections.
Regards
Celvin
http://www.orahyplabs.com

Excel report - lauch VBA function automatically

Hi Experts,
I'm working on a Excel report (BI7.0) for stocks and goods movement.
I want to underline low stock and to do this, i create a macro in VBA to change the cell's background in red.
My code runs perfectly when i click on the button to launch the function.
But now, i want to lauch this function automatically.
1) open the workbook
2) enter the parameters
3) display the table
4) CHANGE THE COLOR for low stock cells
I'm unable to find how to launch the function "on step 4", and my cells stay again and again with white background.
Can you help me?
Thanks a lot,
Adrien

What if I were using Adobe 9.0, what would my vba code look like?
The reason that I'm changing to Print As vs File Save As is due to the file size.
Print As - makes the file about 100k
File Save As - make the file about 10M
My vba works fine when sending to "File Save As *.pdf", but when I change it to Print As PDF, the vba won't capture the filename automatically from my vba code.
What would my vba look like if I were using 9.0 to get Print As PDF to capture the filename automatically?
Or tell me how to decrease the file size when vba calls "File Save As *.pdf".
Thanks!!!

SmartView VBA with HypExecuteCalcScriptEx

Hi,
We've got a macro that runs a couple of business rules. When we run this macro, the first BR is executed without any troubles but when it gets to the execution of the second business rule we get the following error:
-41 SS_NOSUPPORT_PROVIDER
We only get this error in the developing environment and not in production environment however they both use the exact same versions and same configurations. We only get this error in production environment when we run the macro with certain pc's. What's really awkward is that this exact same macro used to work properly in both environments.
The macro runs both the first BR and the second (and a bunch of BR after that second one where we get the error) with the same function:
Function ejecutaFuncionEssbase(ByVal oSheet As Variant, ByVal vFunction As Variant, ByRef vNamePrompt() As Variant, ByRef vValuePrompt() As Variant) As Integer
    X = HypConnectionExists("Conexion Planning Sim")
    If X = True Then
        X = HypRemoveConnection("Conexion Planning Sim")
    End If
    X = HypCreateConnectionEx(HYP_PLANNING, vServer, "036CPCK", "036CPCK", "/Forms/Reportes/1.14 Seleccion atributos", CStr("http://" & vServer & ":19000/HyperionPlanning/SmartView"), "Conexion Planning Sim", vUser, vPass, "Conexion al modelo 036CPCK", "", "")
    Y = HypConnect(oSheet, vUser, vPass, "Conexion Planning Sim")
    Dim resultado As Integer
    Dim oRet As Long
    'Dim oSheet As Worksheet
    Dim vtCubeNames As Variant
    Dim vtBRNames As Variant
    Dim vtBRTypes As Variant
    Dim vtBRHasPrompts As Variant
    Dim vtBRNeedsPageInfo As Variant
    Dim vtBRHidePrompts As Variant
    Dim sAllCalcs As String
    Dim sCalcName As String
    Dim bNeedPageInfo As Variant
    Dim vtInRTPNames() As Variant
    Dim vtInRTPValues() As Variant
    Dim vtOutRTPNames As Variant
    Dim vtOutRTPValues As Variant
    Dim vtbBRRanSuccessfully As Variant
    Dim vtbBRRanSuccessfully2 As Variant
    Dim vtOutCubeName As Variant
    Dim vtOutBRName As Variant
    Dim vtOutBRType As Variant
    Dim bBRHasPrompts As Variant
    Dim bBRNeedPageInfo As Variant
    Dim bBRHidePrompts As Variant
    Dim bShowDlg As Variant
    Dim bRuleOnForm As Variant
       'Start Executing the Calc Script
        bShowDlg = False
        bRuleOnForm = False
        oRet = HypExecuteCalcScriptEx(oSheet, "036CPCK", vFunction, "graphical", True, False, vNamePrompt, vValuePrompt, bShowDlg, bRuleOnForm, vtbBRRanSuccessfully, vtOutCubeName, vtOutBRName, vtOutBRType, bBRHasPrompts, bBRNeedPageInfo, bBRHidePrompts, vtOutRTPNames, vtOutRTPValues)
We've tried with a different provider (that's also valid), a different function and some other minor changes but we're still facing the same issue. We know that all parameters are correctly passed like the BR name , and their corresponding prompts. We think it might have something to do with the connection to provider services but we have no clue how to fix it. If anybody could helo us we would be greatly appreciated.
Regards,
Santiago Ruiz

Hi,
We've got a macro that runs a couple of business rules. When we run this macro, the first BR is executed without any troubles but when it gets to the execution of the second business rule we get the following error:
-41 SS_NOSUPPORT_PROVIDER
We only get this error in the developing environment and not in production environment however they both use the exact same versions and same configurations. We only get this error in production environment when we run the macro with certain pc's. What's really awkward is that this exact same macro used to work properly in both environments.
The macro runs both the first BR and the second (and a bunch of BR after that second one where we get the error) with the same function:
Function ejecutaFuncionEssbase(ByVal oSheet As Variant, ByVal vFunction As Variant, ByRef vNamePrompt() As Variant, ByRef vValuePrompt() As Variant) As Integer
    X = HypConnectionExists("Conexion Planning Sim")
    If X = True Then
        X = HypRemoveConnection("Conexion Planning Sim")
    End If
    X = HypCreateConnectionEx(HYP_PLANNING, vServer, "036CPCK", "036CPCK", "/Forms/Reportes/1.14 Seleccion atributos", CStr("http://" & vServer & ":19000/HyperionPlanning/SmartView"), "Conexion Planning Sim", vUser, vPass, "Conexion al modelo 036CPCK", "", "")
    Y = HypConnect(oSheet, vUser, vPass, "Conexion Planning Sim")
    Dim resultado As Integer
    Dim oRet As Long
    'Dim oSheet As Worksheet
    Dim vtCubeNames As Variant
    Dim vtBRNames As Variant
    Dim vtBRTypes As Variant
    Dim vtBRHasPrompts As Variant
    Dim vtBRNeedsPageInfo As Variant
    Dim vtBRHidePrompts As Variant
    Dim sAllCalcs As String
    Dim sCalcName As String
    Dim bNeedPageInfo As Variant
    Dim vtInRTPNames() As Variant
    Dim vtInRTPValues() As Variant
    Dim vtOutRTPNames As Variant
    Dim vtOutRTPValues As Variant
    Dim vtbBRRanSuccessfully As Variant
    Dim vtbBRRanSuccessfully2 As Variant
    Dim vtOutCubeName As Variant
    Dim vtOutBRName As Variant
    Dim vtOutBRType As Variant
    Dim bBRHasPrompts As Variant
    Dim bBRNeedPageInfo As Variant
    Dim bBRHidePrompts As Variant
    Dim bShowDlg As Variant
    Dim bRuleOnForm As Variant
       'Start Executing the Calc Script
        bShowDlg = False
        bRuleOnForm = False
        oRet = HypExecuteCalcScriptEx(oSheet, "036CPCK", vFunction, "graphical", True, False, vNamePrompt, vValuePrompt, bShowDlg, bRuleOnForm, vtbBRRanSuccessfully, vtOutCubeName, vtOutBRName, vtOutBRType, bBRHasPrompts, bBRNeedPageInfo, bBRHidePrompts, vtOutRTPNames, vtOutRTPValues)
We've tried with a different provider (that's also valid), a different function and some other minor changes but we're still facing the same issue. We know that all parameters are correctly passed like the BR name , and their corresponding prompts. We think it might have something to do with the connection to provider services but we have no clue how to fix it. If anybody could helo us we would be greatly appreciated.
Regards,
Santiago Ruiz

Smartview VBA functions

Similar Messages

Maybe you are looking for