5 Replies Latest reply on Aug 27, 2014 2:54 PM by user4219872

    Consolidation Error in rules in ver 11.1.2.3

    user4219872

      Hi Folks,

       

      I wrote the simple consolidation rules, however I am getting this error below when the rules move to elimination section. Any help would be appreciated ..!

       

      Error :

      "Invalid Custom1 Dimension specified for function CON V#Elimination.A#XYZ

       

      Where XYZ is the plug account for the first ICP account in the list.

       

      Consolidate Section Rule :

       

      dPOwn = HS.Node.POwn("")

      Parent = HS.Parent.Member

      pov_entity = HS.Entity.Member

      dPCon = HS.Node.PCon("")

      dMethod = HS.Node.Method("")

      dPMin = dPCon - dPOwn

      pov_scenario = HS.Scenario.Member

      pov_defcur = HS.Entity.DefCurrency("")      'default currency of the pov entity

      pov_period = HS.Period.Number               'This is the number not the name

       

       

      Set MyDataUnit = HS.OpenDataUnit("")

       

          dPCon = HS.Node.PCon("")

        

          lNumItems = MyDataUnit.GetNumItems

        

         for i = 0 to lNumItems-1

        

            ' Get the next item from the dataunit

       

                  Set DURecord = MyDataUnit.Item(i)

         

                          StrAccount=DURecord.Account

                  StrICP=DURecord.ICP

                  StrCustom1=DURecord.Custom("OpUnit")

                  StrCustom2=DURecord.Custom("Department")

                  StrCustom3=DURecord.Custom("Project")

                  StrCustom4=DURecord.Custom("Broker")

                  StrCustom5=DURecord.Custom("Custom5")

                  StrCustom6=DURecord.Custom("Custom6")

       

       

      'Call MyDataUnit.GetextItem(Item, Account, ICP, sCustom Data)

       

         If HS.Account.IsConsolidated(Account) And Data <> 0 Then

           If dMethod = "FCC" Then

             Call HS.Con("V#[Proportion]",dPOwn,"")

       

         End If

       

             Plug = HS.Account.PlugAcct(Account)

       

       

      CanEliminate = TRUE

       

              If (HS.Account.IsICP(Account) = FALSE) Then

                      CanEliminate = FALSE

                  ElseIf (StrComp(ICP, "[ICP None]", vbTextCompare) = 0) Then

                      CanEliminate = FALSE

                  ElseIf (HS.Entity.IsDescendant(Parent,ICP) = FALSE) Then

                      CanEliminate = FALSE

                  Else

                      Plug = HS.Account.PlugAcct(Account)

                      If (Plug = "") Then

                      CanEliminate = FALSE

                      End If

               End If

       

              If CanEliminate Then

                      Call HS.Con("V#[Elimination]", -1*dPCon, "")

          Error at this Line---          Call HS.Con("V#[Elimination].A#" & Plug ,dPCon,"")

       

              End If 'CanEliminate Then

       

      End If

       

      Next 'For Item = 0 To NumItems - 1

        • 1. Re: Consolidation Error in rules in ver 11.1.2.3
          Thanos A.

          Hi there,

           

          If your target "Plug" account has a different Custom1 member, it is required to define the target custom1 in the consolidation. It will look like:

          Call HS.Con("V#[Elimination].A#" & Plug.C1#GFDGS ,dPCon,"") where GFDGS is the Custom1

           

          The easiest way is to have plug accounts with the same analysis as the source accounts.

           

          Regards,

           

          Thanos

          • 2. Re: Consolidation Error in rules in ver 11.1.2.3
            user4219872

            Hi Thanos,

             

            Thanks for your reply..1

             

            I actually have the same custom 1 defined for both source and plug accounts in metadata ( i.e. top level custom1) and hence I am not able to understand why system is behaving like that.

             

            Thanks,

            • 3. Re: Consolidation Error in rules in ver 11.1.2.3
              Thanos A.

              Hi there,

               

              How many dimension do you have in HFM? Have you had patched the 500 patch?

               

              Regards,

               

              Thanos

              • 4. Re: Consolidation Error in rules in ver 11.1.2.3
                user4219872

                Hi Thanos,

                 

                I have 6 dimensions and we are on version 11.1.2.3.500

                 

                Thanks,

                • 5. Re: Consolidation Error in rules in ver 11.1.2.3
                  user4219872

                  Hi All,

                   

                  I am having this issue only when I am using it in new version with more then 4 customs, If i use only 4 customs and use traditional way of using the data unit and getitemdim it works fine. However with 6 customs I need to use either getitemextdim or the way I used above. And that's where I land up into issues. Right now I am able to take care of the error but consoliation rules is not putting any values in proportion. But if I do default consolidation without rules it works. I am pasting the latest rule for reference.

                   

                  Any help would be appreciated..!

                   

                   

                  Set MyDataUnit = HS.OpenDataUnit("")

                   

                      dPCon = HS.Node.PCon("")

                    

                      lNumItems = MyDataUnit.GetNumItems

                    

                     for i = 0 to lNumItems-1

                    

                        ' Get the next item from the dataunit

                   

                              Set DURecord = MyDataUnit.Item(i)

                     

                                      StrAccount=DURecord.Account

                              StrICP=DURecord.ICP

                              StrCustom1=DURecord.Custom("OpUnit")

                              StrCustom2=DURecord.Custom("Department")

                              StrCustom3=DURecord.Custom("Project")

                              StrCustom4=DURecord.Custom("Broker")

                              StrCustom5=DURecord.Custom("Custom5")

                              StrCustom6=DURecord.Custom("Custom6")

                   

                   

                  'Call MyDataUnit.GetextItem(Item, Account, ICP, sCustom Data)

                   

                     If HS.Account.IsConsolidated(StrAccount) And Data <> 0 Then

                       If dMethod = "FCC" Then

                         Call HS.Con("V#[Proportion]",dPOwn,"")

                   

                     End If

                   

                         Plug = HS.Account.PlugAcct(StrAccount)

                   

                   

                  CanEliminate = TRUE

                   

                          If (HS.Account.IsICP(StrAccount) = FALSE) Then

                                  CanEliminate = FALSE

                              ElseIf (StrComp(ICP, "[ICP None]", vbTextCompare) = 0) Then

                                  CanEliminate = FALSE

                              ElseIf (HS.Entity.IsDescendant(Parent,ICP) = FALSE) Then

                                  CanEliminate = FALSE

                              Else

                                  Plug = HS.Account.PlugAcct(StrAccount)

                                  If (Plug = "") Then

                                  CanEliminate = FALSE

                                  End If

                           End If

                   

                          If CanEliminate Then

                                  Call HS.Con("V#[Elimination]", -1*dPCon, "")

                                  Call HS.Con("V#[Elimination].A#" & Plug ,dPCon,"")

                   

                          End If 'CanEliminate Then

                   

                  End If

                   

                  Next 'For Item = 0 To NumItems - 1