Share capital Elimination rule
Hi Experts, I have to eliminate Equity and write elimination portion to NCI account. as part of this firstly i am testing with one of the equity accounts i.e "Sharecapital". For this i have written ...
Forum Discussion
Hi JackLacava,
I have set all the common members now. But my C#Share of capital account is not getting eliminated but calculation/Consolidation was successful - Kindly help me in this regard.
Rule >>>>
Case Is = FinanceFunctionType.ConsolidateShare
Dim entity As String = api.pov.entity.Name
Dim entityID As String = api.pov.entity.MemberID
Dim Pown As Decimal = api.entity.percentOwnership(entityID)
Dim Pcon As Decimal = api.entity.PercentConsolidation(entityID)
Dim pmin As Decimal = Pcon-Pown
Dim vMethod As OwnershipType = api.Entity.OwnershipType(entityID)
If Pown > 50.0 And Pown < 100.0 AndAlso vMethod.ToString = "FullConsolidation" Then
api.ExecuteDefaultShare() ' Default share calculation.
End If
Case Is = FinanceFunctionType.ConsolidateElimination
Dim entity As String = api.pov.entity.Name
Dim entityID As String = api.pov.entity.MemberID
Dim Pown As Decimal = api.entity.percentOwnership(entityID)
Dim Pcon As Decimal = api.entity.PercentConsolidation(entityID)
Dim pmin As Decimal = Pcon-Pown
Dim vMethod As OwnershipType = api.Entity.OwnershipType(entityID)
If Pown > 50.0 And Pown < 100.0 AndAlso vMethod.ToString = "FullConsolidation" Then
Call NCIElim(si,globals,api,args,pmin)
End If
api.ExecuteDefaultElimination()' Default Intercompany eliminations
End Select
'Sub Procedure
Private Sub NCIElim(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As FinanceRulesApi, ByVal args As FinanceRulesArgs,ByVal pmin As Decimal)
Dim ResulDataBuf As DataBuffer = New DataBuffer()
Dim DestinationInfo As ExpressionDestinationInfo = api.Data.GetExpressionDestinationInfo("C#Elimination:O#Elimination:A#ShareCapital")
Dim SourceBufferFilter As DataBuffer = Api.Data.GetDataBufferUsingFormula("FilterMembers(C#Share:O#Top:A#ShareCapital)")
SourceBufferFilter.LogDataBuffer(api,"records",100)
For Each sourceCell As DataBuffercell In SourceBufferFilter.DataBufferCells.Values
Dim ResultElse As New DataBuffercell(sourceCell) 'Copying the modified buffer cell to new result cell
ResultElse.CellAmount = ResultElse.CellAmount * - 1
If (Not sourceCell.CellStatus.IsNoData) Then
ResulDataBuf.setcell(si,ResultElse,True) ' Set result cell result buffer to save this later to destination
End If
Next
api.Data.setdatabuffer(ResulDataBuf,DestinationInfo)'Save the data into destination.
End Sub
Hi Exports,
Can I expect some replies on the rule which i have shared above
Please keep in mind that these forums are not a replacement for official OneStream Support or training. People (including admins) will respond if and when they have the time and inclination to do so - there is no obligation on anyone to participate or solve problems in any given timeframe.
If you have urgent issues, feel free to contact OneStream Support and they'll be happy to assist.
I know you might have fixed your issue by now. For my learning, I tested your code and it worked fine. Here's what I did:
-
I attached your rule to my cube and set the consolidation algorithm type to Custom.
-
I ran the consolidation but didn't see any results. Then I checked the calculation status, which said CN (Consolidation needed).
-
I entered some random data in one of my entities and ran the consolidation again. This time, it worked.
Feel free to correct me if I'm wrong. Thanks!
-
