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, plNumElementsInDataUnit
The 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