Error in Grid XML: Active connection and valid HsGetValue PoV

Question

Hello everyone
I am struggling using the Smart View fucntions to access an HFM application and retrieving data using the HsGetValue function. I have the following to automatically create a connection:
Sub CreateConn()
'!***Adhoc Analysis - Financial Management***!
'requires smartview.bas located in the \SmartView\bin directory (included in module hyperion) and HsAddin.dll
'HFM application
Set ws = ThisWorkbook.Sheets("aSheet")
MyUsername = "aUsername"
MyPassword = "aPassword"
MyAppHFMQMR = "anApp"
'Activate adhoc sheet (required for Hyp-functions)
ws.Activate
'Check connection
Dim bIsConnection As Boolean
bIsConnection = HypConnectionExists(MyAppHFMQMR & "New")
If bIsConnection = True Then: X = HypRemoveConnection(MyAppHFMQMR & "New")
If X < 0 Then: ErrorMsg CInt(X) 'handle errors
'Create connection
X = HypCreateConnection(ws, MyUsername, MyPassword, HYP_FINANCIAL_MANAGEMENT, _
"http://epmhfm-dev/hfmofficeprovider/hfmofficeprovider.aspx", "DevCluster", _
MyAppHFMQMR, MyAppHFMQMR, MyAppHFMQMR & "New", "Analytic Provider Services")
If X < 0 Then: ErrorMsg CInt(X) 'handle errors
'Establish pre-defined connection
X = HypConnect(ws, MyUsername, MyPassword, MyAppHFMQMR & "New")
If X < 0 Then: ErrorMsg CInt(X) 'handle errors
'Disable suppress #Missing
X = HypSetSheetOption(ws, 6, False)
If X < 0 Then: ErrorMsg CInt(X) 'handle errors
'Preserve formulae
X = HypSetOption(HSV_PRESERVE_FORMULA_COMMENT, True, ws)
If X < 0 Then: ErrorMsg CInt(X) 'handle errors
'Missing data shows as numeric zero
X = HypSetSheetOption(Null, 13, "#NumericZero")
If X < 0 Then: ErrorMsg CInt(X) 'handle errors
End Sub
This code works fine by itself. I have a second code snippet that builds the HsGetValue function and copies it to the worksheet. Both are embedded in a larger project. Everything works fine if I only run the two modules (the one creating the connection and the second building the functions). If I run some code beforehand, however, I get the 'Error in Grid XML' error and all retrieved data is shown as 0. Incidentally, the connection is still established and the HsGetValue() functions are assembled as they were before including a valid (and identical) PoV.
I understand that it is difficult to establish from this what the rpoblem might be. I need some help to hone in on the error since Smart View is giving me nothing to work with. To say the least, errors are not handled gracefully in Smart View. I suspect something gets stuck in the cache that prevents the retrieve sheet from updating appropriately.
Any pointers are appreciated ff anyone else has come across a similar problem using Smart View functions.
Thanks
Florian

Answer 1

I guess when you say that Test 1 does not work you are sure that connection is getting established, though I can see that connection errors are being handled but you should be sure that connection creation and connect code is working and that can be done by debugging the code- in vba editor using 'F8'.
also check the below code is working or not by debugging again
bIsConnection = HypConnectionExists(MyAppHFMQMR & "New")
If bIsConnection = True Then: X = HypRemoveConnection(MyAppHFMQMR & "New")
Use X<>0 instead of X<0 and see if you get any exception/error. X should be 0 if your code is working.
Also once done with above test cases can you replace the connection name as something like anAppConn by hardcoding it into your create connection function and then try again..
If you go to Smart View and Click over sheet info then you can find if the sheet consists of saved connection or not...You can delete it as needed.
As you say that if you manually create a connection then the code works then there should be a problem with your connection code it seems...
Thanks