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