Logo 
Search:

MS Office Forum

Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds

HFM rule in VB

  Asked By: Lulie    Date: Sep 01    Category: MS Office    Views: 2727
  

Can anyone please help me in understanding this code in HFM rulesIf
Len(HS.Account.UD1(UD1_Account_list_1(A))) = 2 ThenstrCustID =
Trim(HS.Account.UD1(UD1_Account_list_1(A)) & "100")If
(Trim(HS.Account.UD1(UD1_Account_list_1(A))) <> "CF" or
_ Trim(HS.Account.UD1(UD1_Account_list_1(A))) <> "FF")
ThenIf (pov_year > "2008") and (pov_value = "<Entity Currency>")
thenIf HS.Period.Number = 1 Thenif (UD1_Account_list_1(A) = "12110190000")
ThenHS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _
".C2#[None].C3#[None].C4#[None].V#<Entity Currency> =A#12110191000.I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#[None].C4#TOTC4.Y#PRIOR.P#LAST" & source_valueHow
text marked in red is different from the one below in blueUD1_Account_list_1 =
HS.Account.List("", "ud1lst")what values of the list are extracted in above red
statement?

Share: 

 

2 Answers Found

 
Answer #1    Answered By: Tamara Nguyen     Answered On: Sep 01

Could you resend your message as plain text, please. You will need to
identify the code  without using colors as they do not show up. I would
suggest using a line saying "Code 1 starts" and Code 1 Ends", etc with blank
lines or rows of hyphens in between. Unfortunately even plain text can get
garbled in transmission.

 
Answer #2    Answered By: Ujala Hashmi     Answered On: Sep 01

UD1_Account_list_1 = HS.Account.List("", "ud1lst") = My understanding is
that this code  brings values of Account List "ud1lst"
UD1_Account_list_2 = HS.Account.List("", "ud1lst") = My understanding is
that this code brings values of Account List "ud1lst"

********How Line 1 is different from line 2?

For A = LBound(UD1_Account_list_1) To UBound(UD1_Account_list_1)


If Len(HS.Account.UD1(UD1_Account_list_1(A))) = 2

*********Then 'what is the purpose of
"HS.Account.UD1(UD1_Account_list_1(A))"

strCustID = Trim(HS.Account.UD1(UD1_Account_list_1(A)) &
"100")

If (Trim(HS.Account.UD1(UD1_Account_list_1(A))) <> "CF" or _

Trim(HS.Account.UD1(UD1_Account_list_1(A))) <> "FF")
Then



If (pov_year > "2008") and (pov_value = "<Entity
Currency>") then
'In the first period
If HS.Period.Number = 1 Then

if (UD1_Account_list_1(A) =
"12110190000") Then

'pulls TOTC1 from prior year
HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#[None].C4#[None].V#<Entity Currency> =A#12110191000.I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#[None].C4#TOTC4.Y#PRIOR.P#LAST" & source_value





'pulls TOTC1 from prior year LocalGAAPADJ

HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#LocalGAAPADJ.C4#[None].V#<Entity Currency>
=A#12110191000.I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#LocalGAAPADJ.C4#TOTC4.Y#PRIOR.P#LAST" &
source_value



HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#IFRSUSADJ.C4#[None].V#<Entity Currency> =A#12110191000.I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#IFRSUSADJ.C4#TOTC4.Y#PRIOR.P#LAST" & source_value





HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#IFRSUKADJ.C4#[None].V#<Entity Currency> =A#12110191000.I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#IFRSUKADJ.C4#TOTC4.Y#PRIOR.P#LAST" & source_value

Else
'pulls TOTC1 from prior year

HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#[None].C4#[None].V#<Entity Currency> =A#" &
UD1_Account_list_1(A) & ".I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#[None].C4#TOTC4.Y#PRIOR.P#LAST" & source_value





HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#LocalGAAPADJ.C4#[None].V#<Entity Currency> =A#" &
UD1_Account_list_1(A) & ".I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#LocalGAAPADJ.C4#TOTC4.Y#PRIOR.P#LAST" &
source_value



HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#IFRSUSADJ.C4#[None].V#<Entity Currency> =A#" &
UD1_Account_list_1(A) & ".I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#IFRSUSADJ.C4#TOTC4.Y#PRIOR.P#LAST" & source_value





HS.Exp "A#" & UD1_Account_list_1(A) & ".I#[ICP None].C1#" &
strCustID & _

".C2#[None].C3#IFRSUKADJ.C4#[None].V#<Entity Currency> =A#" &
UD1_Account_list_1(A) & ".I#[ICP
Top].C1#TOTC1.C2#TOTC2.C3#IFRSUKADJ.C4#TOTC4.Y#PRIOR.P#LAST" & source_value

End if

 
Didn't find what you were looking for? Find more on HFM rule in VB Or get search suggestion and latest updates.




Tagged: