0 Replies Latest reply: Dec 27, 2012 3:41 AM by Anna RSS

    Running Equity PickUp module consume memory

    Anna
      Hello experts,

      I'm facing an issue with Equity Pickup Subroutine. I wrote a code as below:

      Sub EquityPickUp()
      Owner = Hs.Entity.Owner
      Owned = Hs.Entity.Owned
      lPown = Hs.GetCell("E#" & Owned & ".I#" & Owner & ".V#[None].A#[Shares%Owned].C1#[None].C2#[None].C3#[None].C4#[None].C5#[None].C6#[None]")

      OwnerDefCurr = HS.Entity.DefCurrency("")

      Factor = lPown /100

      EntityMem = Hs.Entity.Member

      EquityPickUpDest = HS.GetCell("A#401.I#[ICP Top].V#" & OwnerDefCurr & ".C1#TotalRCA.C2#TotalLOB.C3#TotalMisc.C4#MVEQ.C5#TotalCategory.C6#TotalData.E#" & Owned)
      Result = EquityPickUpDest * Factor
      HS.Exp "A#1031.E#" & Owner & ".I#" & Owned & ".C6#EPUEquity = " & Result
      HS.Exp "A#803.E#" & Owner & ".I#[ICP None].C6#EPUEquity = " & Result

      End Sub

      What I want from the code is when user click on button Run Equity Pickup, the code starts to read figure from account 401 from Owned entity and multiply by specific factor (which get from Shares%Owned) and put the result in 2 destination accounts (account 1031 and account 803). I specifically create a storage for this Equity Pickup result, that is in C6#EPUEquity.

      However, when I run this, the consummation of memory is quite large. Is there anyone ever use this subroutine before ? I'm using v11.1.2.2.300 by the way.

      Please let me know your suggestion.

      Thanks,
      Anna