Finance Dynamic Calc: Annotations Consolidations
This DynamicCalc formula consolidates Annotations for entities in a hierarchy. 'Cube View definition 'Row Definition: E#[Total GolfStream].tree 'Col1 Definition: V#Annotation:Name("Comment") 'Col2 Definition: V#Annotation:UD8#DynamicTextCons:Name("Consolidated") 'UD8 Member setup 'Name: DynamicTextCons <-- If this is changed it must be updated in the CV Col2 definition above. 'Formula Type: DynamicCalc 'Allow Input: True 'Is Consolidated: False 'In Use: True 'Assign the formula below to the UD8 member to show the consolidated text Dim iEntityID As Integer = api.pov.Entity.MemberId Dim iETestID As Integer Dim strETestName As String = string.empty Dim eTest As Member Dim sSave As String = string.empty Dim sSource As String = string.empty If api.View.IsAnnotationType Then If api.Entity.HasChildren() Then For Each etest In api.Members.GetDescendents( _ api.Dimensions.GetBaseDim(dimtypeid.Entity).DimPk, iEntityID) iETestID = etest.MemberId sSource = api.Data.GetDataCellEx("U8#None:E#[" & etest.Name & "]:C#" & _ api.Entity.GetLocalCurrency(iETestID).Name).DataCellAnnotation If Not sSource.Equals(String.Empty) Then sSave = sSave.Trim & "; " & eTest.Name & ": " & sSource End If Next Else sSource = api.Data.GetDataCellEx($"U8#None:E#[{api.pov.entity.Name}]").DataCellAnnotation If Not sSource.Equals(String.Empty) Then sSave = ";" & sSource End If End If End If If Not sSave.Equals(String.Empty) Then Return right(sSave, len(sSave)-1).Trim Else Return Nothing End If Source: Snippet Editor: Finance - Common Account - DynamicCalc2KViews4likes0CommentsFinance: Annualized Revenue
This Dynamic Calc formula calculates Annualized Revenue, by taking 3 months of Total Revenue, dividing it down to a monthly amount, then multiplying it by 12. ' "Prior Scenario" must be stored as Text1 property in current Scenario Dim priorScenario As String = api.Scenario.Text(1) Dim objTimeMemberSubComponents As TimeMemberSubComponents = BRApi.Finance.Time.GetSubComponentsFromName( _ si, api.Pov.Time.Name) Dim periodNum As String = "M" & objTimeMemberSubComponents.Month.ToString Select Case periodNum Case "M1" Return api.Data.GetDataCell( _ "((A#TOTREV:U1#Top:V#Periodic:I#Top" & _ $" + A#TOTREV:U1#Top:V#Periodic:I#Top:S#{priorScenario}:T#PovPrior1" & _ $" + A#TOTREV:U1#Top:V#Periodic:I#Top:S#{priorScenario}:T#PovPrior2)" & _ " / 3) * 12") Case "M2" Return api.Data.GetDataCell( _ "((A#TOTREV:U1#Top:V#Periodic:I#Top" & _ " + A#TOTREV:U1#Top:V#Periodic:I#Top:T#PovPrior1" & _ $" + A#TOTREV:U1#Top:V#Periodic:I#Top:S#{priorScenario}:T#PovPrior2)" & _ " / 3) * 12") Case Else Return api.Data.GetDataCell( _ "((A#TOTREV:U1#Top:V#Trailing3MonthTotal:I#Top / 3) * 12)") End Select1KViews0likes0CommentsFinance: Return on Capital Employed
This formula calculates a financial ratio that measures a company's profitability and the efficiency with which its capital is employed. The main financial logic in the formula is EBIT / (Total Assets - Total Liabilities) Return api.Data.GetDataCell( _ "Divide(A#[YourEBITAccount], A#[YourTotalAssetsAccount] - A#[YourTotalLiabilitiesAccount])")727Views1like0Comments