The OneStream Community is temporarily frozen until June 29th due to the ongoing maintenance. Please read the blog post here to learn more.

Forum Discussion

Marco's avatar
Marco
Contributor II
2 months ago

How to round the result of a calculation?

Hi everyone,

I would like to round the value for a calculation, I try wit this

api.Data.Calculate("A#P_EBPPrct:O#Import:U1#D0000:U2#P0000:U3#CORP_ADJ:U4#PJ00000 =  Round(Divide(A#433100, A#411000:E#" & strEntTx3 & ":C#Local:O#Top:U1#ALL_DEPARTMENTS:U2#PROMO:U3#CORP_RPT:U4#ALL_PROJECTS))")

or this

api.Data.Calculate("A#P_EBPPrct:O#Import:U1#D0000:U2#P0000:U3#CORP_ADJ:U4#PJ00000 =  Divide(A#433100, A#411000:E#" & strEntTx3 & ":C#Local:O#Top:U1#ALL_DEPARTMENTS:U2#PROMO:U3#CORP_RPT:U4#ALL_PROJECTS)",AddressOf OnEvalDataBuffer)

Private Sub OnEvalDataBuffer(ByVal api As FinanceRulesApi, ByVal evalName As String, ByVal eventArgs As EvalDataBufferEventArgs)
    Dim resultCells As New Dictionary(Of DataBufferCellPk, DataBufferCell)
    For Each sourceCell As DataBufferCell In eventArgs.DataBuffer1.DataBufferCells.Values
                sourceCell.CellAmount = math.round(sourceCell.CellAmount)
    Next

    eventArgs.DataBufferResult.DataBufferCells = eventArgs.DataBuffer1.DataBufferCells
End Sub

but didn't work, so, OS have a way to round values in a calculation?

Admin
Finance
System

2 Replies

  • SimonHesford's avatar
    SimonHesford
    Contributor II
    2 months ago

    Your first example won't work because there is no Round function in OneStream.

    Your second example won't work because it is missing the Eval function

  • jayaleck's avatar
    jayaleck
    New Contributor III
    2 months ago

    try this -

    Private Sub OnEvalDataBuffer(ByVal api As FinanceRulesApi, ByVal evalName As String, ByVal eventArgs As EvalDataBufferEventArgs)

    Dim resultCells As New Dictionary(Of DataBufferCellPk, DataBufferCell)

    For Each kvp As KeyValuePair(Of DataBufferCellPk, DataBufferCell) In eventArgs.DataBufferResult.DataBufferCells

    Dim resultCell As DataBufferCell = kvp.Value

    If resultCell IsNot Nothing Then

    resultCell.CellAmount = Math.Round(resultCell.CellAmount, 2)

    End If

    Next

    End Sub