Inserts a cell’s data into an HsvMDDataBuffer object.
<HsvMDDataBuffer>.SetData lScenario, lYear, lPeriod, lView, lEntity, lParent, lValue, lAccount, lICP, lCustom1, lCustom2, lCustom3, lCustom4, dData, vbIsNoData, vbAddToExistingData, plNumElementsInDataUnitThe following function inserts data into cells that differ by account but otherwise share the same dimension members.
Function setDataforAccts(lScen As Long, lYear As Long, lPer As _
Long, lView As Long, lEnt As Long, lVal As Long, _
laAccts() As Long, lIcp As Long, lCust1 As Long, lCust2 As Long, _
lCust3 As Long, lCust4 As Long, daData() As Double, saDescs() As _
String) As Long
Dim cMDBuffer As HsvMDDataBuffer, lNumElems As Long, cData As HsvData
Set cMDBuffer = New HSVMDARRAYSLib.HsvMDDataBuffer
'g_cSession is an HsvSession object reference
Set cData = g_cSession.Data
For i = LBound(laAccts) To UBound(laAccts)
cMDBuffer.SetData lScen, lYear, lPer, lView, lEnt, MEMBERNOTUSED, lVal, _
laAccts(i), lIcp, lCust1, lCust2, lCust3, lCust4, daData(i), _
False, False, lNumElems
Next i
cData.UpdateDataUsingMDDataBuffer cMDBuffer, HSV_DATA_UPDATE_ACCUMULATE, _
False
setDataforAccts = lNumElems
End Function