API tools faq
paste
Kaltie

Colin Rules

Kaltie
Oct 28th, 2024
95
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 380.63 KB | Source Code | 0 0
raw download clone embed print report
  1. Public C1234None, C1234Top
  2.  
  3. C1234Top = ".C1#Total Custom 1.C2#Total Custom 2.C3#Total Custom 3.C4#Total Custom 4"
  4. C123Top = ".C1#Total Custom 1.C2#Total Custom 2.C3#Total Custom 3"
  5. C12Top = ".C1#Total Custom 1.C2#Total Custom 2"
  6. C234Top = ".C2#Total Custom 2.C3#Total Custom 3.C4#Total Custom 4"
  7. C34Top = ".C3#Total Custom 3.C4#Total Custom 4"
  8. C1234Top = ".C1#Total Custom 1.C2#Total Custom 2.C3#Total Custom 3.C4#Total Custom 4"
  9. C23Top = ".C2#Total Custom 2.C3#Total Custom 3"
  10. C14Top = ".C1#Total Custom 1.C4#Total Custom 4"
  11. C124Top = ".C1#Total Custom 1.C2#Total Custom 2.C4#Total Custom 4"
  12. C34Top = ".C3#Total Custom 3.C4#Total Custom 4"
  13. C134Top = ".C1#Total Custom 1.C3#Total Custom 3.C4#Total Custom 4"
  14.  
  15.  
  16.  
  17. C1234None = ".C1#[None].C2#[None].C3#[None].C4#[None]"  '   "&C1234None&"   "&C1234None
  18. C123None = ".C1#[None].C2#[None].C3#[None]"             '   "&C123None&"   "&C123None
  19. C12None = ".C1#[None].C2#[None]"                        '   "&C123None&"   "&C123None
  20.  
  21. C234None = ".C2#[None].C3#[None].C4#[None]"             '   "&C234None&"   "&C234None
  22. C134None = ".C1#[None].C3#[None].C4#[None]"             '   "&C134None&"   "&C134None
  23. C34None = ".C3#[None].C4#[None]"                        '   "&C34None&"   "&C34None
  24. C13None = ".C1#[None].C3#[None]"                        '   "&C13None&"   "&C13None
  25. C23None = ".C2#[None].C3#[None]"                        '   "&C23None&"   "&C23None
  26. C14None = ".C1#[None].C4#[None]"
  27. C24None = ".C2#[None].C4#[None]"
  28.  
  29. C34IS = ".C3#COST_CENTRE.C4#CONTRACT_PRODUCT"           '  "&C34IS&"   "&C34IS
  30.  
  31. C123LTBOR = "C1#LT_DEBT_TOT.C2#LT_SEC_TOT.C3#LT_SEC_UNSEC_TOT"   ' "&C133LTBOR&"
  32.  
  33. Sub Calculate
  34.  
  35. '   Call Writetofile("Sub Calculate Begin")
  36.  
  37. '   Call writetofile("Entity is "&HS.Entity.member&" on value "&HS.Value.Member)
  38.     Dim CPN
  39.     CPN = HS.Period.Number      'CURRENT PERIOD NUMBER
  40.  
  41. '   Call Writetofile("Running for "&HS.Entity.Member)
  42.  
  43.     ValueM = HS.Value.member
  44.     ScenarioM = HS.Scenario.member
  45.     PeriodM = HS.Period.member
  46.     YearM = HS.Year.member
  47.  
  48.     'Calculate Monthly factors
  49.     Call IndexHI
  50.  
  51.     If HS.Value.IsTransCur then
  52.         ValueM = "Translation"
  53.     End If
  54.         HS.Clear "A#Openingrate"
  55.         HS.Round(0.0001)
  56.                 if hs.scenario.member = "Actual" Then
  57.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last"
  58.                 End if
  59.                 if hs.scenario.member = "Forecast" then
  60.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Actual"
  61.                 End if
  62.                 if hs.scenario.member = "BudV1" then
  63.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Forecast"
  64.                 End if
  65.                 if hs.scenario.member = "BudV2" then
  66.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Forecast"
  67.                 End if
  68.                 if hs.scenario.member = "BudY1" then
  69.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BudV1"
  70.                 End if
  71.                 if hs.scenario.member = "BudY2" then
  72.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY1"
  73.                 End if
  74.                 if hs.scenario.member = "BudY3" then
  75.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY2"
  76.                 End if
  77.                 if hs.scenario.member = "BudY4" then
  78.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY3"
  79.                 End if
  80.                 if hs.scenario.member = "BudY5" then
  81.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY4"
  82.                 End if
  83.  
  84.         HS.Exp "A#AP_RATE = A#I_AP_RATE"
  85.         HS.Exp "A#AVERAGERATE = A#I_AVERAGERATE"
  86.         HS.Exp "A#ENDOFMONTHRATE = A#I_ENDOFMONTHRATE"
  87.         HS.Exp "A#EQL_RATE = A#I_EQL_RATE"
  88.         HS.Exp "A#HISTORICALRATE = A#I_HISTOCALRATE"
  89.         HS.Exp "A#OR_CONT_RATE = A#I_OR_CONT_RATE"
  90.         HS.Exp "A#OR_EQ_RATE = A#I_OR_EQL_RATE"
  91.         HS.Exp "A#OR_EQL_RATE = A#I_OR_EQ_RATE"
  92.         HS.Exp "A#OR_FCTR_RATE = A#I_OR_FCTR_RATE"
  93.         HS.Exp "A#OR_FV_RATE = A#I_OR_FV_RATE"
  94.         HS.Exp "A#OR_HA_RATE = A#I_OR_HA_RATE"
  95.         HS.Exp "A#OR_HI_RATE = A#I_OR_HI_RATE"
  96.         HS.Exp "A#OR_OT_RATE = A#I_OR_OT_RATE"
  97.         HS.Exp "A#OR_RR_RATE = A#I_OR_RR_RATE"
  98.         HS.Exp "A#OR_SB_RATE = A#I_OR_SB_RATE"
  99.         HS.Exp "A#SC_AORD_RATE = A#I_SC_AORD_RATE"
  100.         HS.Exp "A#SC_ORD_RATE = A#I_SC_ORD_RATE"
  101.         HS.Exp "A#SP_RATE = A#I_SP_RATE"
  102.         HS.NoRound
  103.  
  104.  
  105.     '***********************************************************************************************
  106.     'Actual & <ENTITY CURRENCY>
  107.     '***********************************************************************************************
  108.     Select Case ValueM
  109.  
  110.         Case "<Entity Currency>"
  111.             If HS.Scenario.Member = "Actual" then
  112. '   Call Writetofile("Running Actual Begin")
  113.  
  114.  
  115.                 If HS.Entity.IsBase("", "") then
  116.  
  117.                     HS.ImpactStatus "Y#Next.P#First"
  118.                     HS.CLEAR "A#IGPTransPlug"
  119.                     HS.CLEAR "A#IGPSTPlug"
  120.                     HS.CLEAR "A#IGPRevPlug"
  121.                     HS.CLEAR "A#IGPRentPlug"
  122.                     HS.CLEAR "A#IGPLTPlug"
  123.                     HS.CLEAR "A#IGPIntPlug"
  124.                     HS.CLEAR "A#IGPFeesPlug"
  125.                     HS.CLEAR "A#IGPEqPlug"
  126.                     HS.CLEAR "A#IGPDivPlug"
  127.                     HS.CLEAR "A#IGPCompPlug"
  128.                     HS.CLEAR "A#IGPCashPlug"
  129.                     Call IncomeStatement
  130.                     Call BalanceSheet
  131.  
  132. '   Call Writetofile("Running Actual BS")
  133.         '***************************************************
  134.         'FOR YEAR 2001-2019
  135.         '***************************************************
  136.                     If HS.Year.Member > "2000" then
  137.                 if hs.Scenario.Member = "Actual" then
  138.                     HS.Clear "A#Openingrate"
  139.                     hs.round(0.0001)
  140.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last"
  141.                     HS.NoRound
  142.                 end if
  143.                         HS.Clear "C1#Opening"
  144.                         HS.Clear "C1#OPENING_PROV"
  145.                         HS.Clear "C3#Opening_Cost"
  146.                         HS.Clear "C3#Opening_Depr"
  147.                         HS.Clear "C1#Closing"
  148.                         HS.Clear "C1#CLOSING_PROV"
  149.                         HS.Clear "C3#Closing_Cost"
  150.                         HS.Clear "C3#Closing_Depr"
  151.                         HS.Clear "A#DEB_TR_PR_BD_OPEN"
  152.                         HS.Clear "A#DEB_S_ST_PR_OPEN"
  153.                         HS.Clear "A#INV_ASS_OPEN"
  154.                         HS.Clear "A#INV_S_JV_OPEN"
  155.                         HS.Clear "A#GW_COST_OPEN"
  156.                         HS.Clear "A#GW_ACCDEP_OPEN"
  157.                         HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT"
  158.                         HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST"
  159.                         HS.Clear "A#TAX_OPEN"
  160.                         HS.Clear "A#SFD_OPEN"
  161.                         HS.Clear "A#MIN_OPEN"
  162.                         HS.Clear "A#DEF_TAX_A_OPEN"
  163.                         HS.Clear "A#DEB_TR_PR_BD_CL"
  164.                         HS.Clear "A#DEB_S_ST_PR_CL"
  165.                         HS.Clear "A#INV_ASS_CL"
  166.                         HS.Clear "A#INV_S_JV_CL"
  167.                         HS.Clear "A#GW_COST_CL"
  168.                         HS.Clear "A#GW_ACCDEP_CL"
  169.                         HS.Clear "A#NONCUR_RC_CLOSE"
  170.                         HS.Clear "A#TAX_CL"
  171.                         HS.Clear "A#SFD_CL"
  172.                         HS.Clear "A#MIN_CL"
  173.                         HS.Clear "A#Oth_res_fctr.C1#OTHR_1"
  174.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_10"
  175.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_2"
  176.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_3"
  177.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_4"
  178.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_5"
  179.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_6"
  180.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_7"
  181.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_8"
  182.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_9"
  183.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_HI_DEC"
  184.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_HI_INC"
  185.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_INV_FOR_ENT"
  186.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_REVAL_L_B"
  187.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_SBS"
  188.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TAX_CUR"
  189.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TAX_DEF"
  190.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TRF_IS"
  191.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TRF_NDR"
  192.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  193.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  194.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  195.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  196.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  197.                     End If
  198.  
  199. '   Call Writetofile("Running Actual Clear")
  200.  
  201.         '*******************************************************************
  202.         'Fund Reserves Transfer from the IS
  203.         '*******************************************************************
  204.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  205.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  206.  
  207.             'Accumulated Profit's opening Balance
  208.                     HS.Exp "A#AP_PREV_OPEN"&C1234None&" = A#AP_TOTAL"&C1234Top&".I#[ICP Top].P#LAST.Y#PRIOR.V#<Entity Curr Total>"
  209.                 '***************************************************
  210.                 'OPENING BALANCES
  211.                 'Opening Balances = Closing Balances Prior Year Last Period
  212.                 '***************************************************
  213.                     'C1 & C3
  214.                     HS.Exp "C1#Opening = C1#Closing.Y#Prior.P#Last.V#<Entity Curr Total>"
  215.                     HS.Exp "C1#OPENING_PROV = C1#CLOSING_PROV.Y#Prior.P#Last.V#<Entity Curr Total>"
  216.                     HS.Exp "C3#Opening_Cost = C3#Closing_Cost.Y#Prior.P#Last.V#<Entity Curr Total>"
  217.                     HS.Exp "C3#Opening_Depr = C3#Closing_Depr.Y#Prior.P#Last.V#<Entity Curr Total>"
  218.  
  219.                     'Assets
  220.                     HS.Exp "A#DEB_TR_PR_BD_OPEN = A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Entity Curr Total>"
  221.                     HS.Exp "A#DEB_S_ST_PR_OPEN = A#DEB_S_ST_PR_TOT.P#Last.Y#Prior.V#<Entity Curr Total>"
  222.                     HS.Exp "A#INV_ASS_OPEN = A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  223.                     HS.Exp "A#INV_S_JV_OPEN = A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  224.                     HS.Exp "A#GW_COST_OPEN = A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  225.                     HS.Exp "A#GW_ACCDEP_OPEN = A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  226.                     HS.Exp "A#NONCUR_RC_OPEN = A#NONCUR_RC_TOTAL.P#June.Y#Prior.V#<Entity Curr Total>"
  227.                     HS.Exp "A#ACQ_RES_OPEN = A#ACQ_RES.P#Last.Y#Prior.V#<Entity Curr Total>"
  228.                     HS.Exp "A#ACQ_OTH_RES_OPEN = A#ACQ_OTH_RES.P#Last.Y#Prior.V#<Entity Curr Total>"
  229.  
  230. '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_LT.P#Last.Y#Prior"
  231. '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_ST.P#Last.Y#Prior"
  232.  
  233.                     'Liabilities
  234.                     HS.Exp "A#TAX_OPEN = A#BS_TAX_PAYABLE.P#Last.Y#Prior.V#<Entity Curr Total>"
  235.                     HS.Exp "A#SFD_OPEN = A#BS_SHAREH_FOR_DIV.P#Last.Y#Prior.V#<Entity Curr Total>"
  236.                     HS.Exp "A#MIN_OPEN = A#SH_FUND_MINORITY.P#Last.Y#Prior.V#<Entity Curr Total>"
  237.                     HS.Exp "A#DEF_TAX_A_OPEN = A#DEF_TAX_A_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  238.  
  239.                     HS.Exp "A#OTH_RES_CALCMOV = A#OTH_RES_TOTAL" & C1234Top & " - A#OTH_RES_TOTAL.Y#Prior.P#Last" & C1234Top
  240.  
  241.                     '--------------------------------------------------------
  242.                     'WORKING CAPITAL OPENING
  243.                     '--------------------------------------------------------
  244.                     'Inventories
  245.                         HS.Exp "A#WCM_INV_MOV.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.W#YTD.V#<Entity Curr Total>.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  246.                     'Trade Receivables & Sundry Debtors
  247.                         HS.Exp "A#WCM_TR_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  248.                     'Sundry Debtors
  249.                         HS.Exp "A#WCM_S_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  250.                     'Trade Payables
  251.                         HS.Exp "A#WCM_TPAY.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  252.                     'Other Payables
  253.                         HS.Exp "A#WCM_PAY_OTH.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  254.                     '--------------------------------------------------------
  255.                     'INTERGROUP opening balances
  256.                     '--------------------------------------------------------
  257.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  258.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  259.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  260.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  261.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  262.                     'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  263.                         HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  264.                     'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  265.                         HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.W#YTD.Y#PRIOR.P#LAST.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  266.                     'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  267.                         HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  268.                     'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  269.                         HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.P#LAST.W#YTD.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  270.                     'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  271.                         HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.W#YTD.P#LAST.V#<Entity Curr Total>.W#YTD.Y#PRIOR.I#[ICP Top]"&C1234Top
  272.  
  273.  
  274.                 '***************************************************
  275.                 'CLOSING BALANCES FOR FCTR
  276.                 'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  277.                 '***************************************************
  278.                     'C1 & C3
  279.                     HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  280.                     HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  281.                     HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  282.                     HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  283.  
  284.                     'Assets
  285.                     HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  286.                     HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  287.                     HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  288.                     HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  289.                     HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  290.                     HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  291.                     HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  292.  
  293.                     'Liabilities
  294.                     HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  295.                     HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  296.                     HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  297.                     Call AdditionalInfo
  298.                     Call Taxation
  299.                     Call Cashflow
  300. '                   Call Hyperinflation
  301. '                   Call Eliminate (strAccount, strICP)
  302.  
  303. '   Call Writetofile("Running Actual Closing Balances")
  304.                 Else
  305. '               Call writetofile("Entity is "&HS.Entity.member&" on value "&HS.Value.Member)
  306.                     Call IncomeStatement
  307.                     Call BalanceSheet
  308.                     if hs.Scenario.Member = "Actual" then
  309.                         hs.round(0.0001)
  310.                         HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last"
  311.                         HS.NOROUND
  312.                     end if
  313.  
  314. ' Added by Zack on 29 JUNE 2007
  315.     If HS.Year.Member > "2005" then ' ADDED BY ZS
  316.         'Something in 2005 transition happens, that causes open balances to translate differently. 1731 becomes 18... 2005 looks like its the balancing year.
  317.                 '*******************************************************************
  318.                 '*******************************************************************
  319.                 'NEW Start
  320.                 '*******************************************************************
  321.                 '*******************************************************************
  322.                     'If HS.Year.Member > "2005" then
  323.  
  324.                         'HS.Clear "C1#Opening"
  325.                         'HS.Clear "C1#OPENING_PROV"
  326.                         'HS.Clear "C3#Opening_Cost"
  327.                         'HS.Clear "C3#Opening_Depr"
  328.                 'Additional clearing done for consol logic - ZS 27 JUNE 07 :
  329.                         'HS.Clear "A#DEB_TR_PR_BD_OPEN"
  330.                         'HS.Clear "A#INV_ASS_OPEN"
  331.                         'Hs.Clear "A#INV_S_JV_OPEN"
  332.                         'HS.Clear "A#GW_COST_OPEN"
  333.                         'HS.Clear "A#GW_ACCDEP_OPEN"
  334.                         'HS.Clear "A#NONCUR_RC_OPEN"
  335.                         'HS.Clear "A#ACQ_RES_OPEN"
  336.                         'HS.Clear "A#ACQ_OTH_RES_OPEN"
  337. '                       HS.Clear "A#AP_PREV_OPEN"
  338.                     'End if
  339.  
  340.                     'Liabilities
  341.                     'HS.Exp "A#TAX_OPEN = A#BS_TAX_PAYABLE.P#Last.Y#Prior.V#<Entity Curr Total>"
  342.                     'HS.Exp "A#SFD_OPEN = A#BS_SHAREH_FOR_DIV.P#Last.Y#Prior.V#<Entity Curr Total>"
  343.                     'HS.Exp "A#MIN_OPEN = A#SH_FUND_MINORITY.P#Last.Y#Prior.V#<Entity Curr Total>"
  344.                     'HS.Exp "A#DEF_TAX_A_OPEN = A#DEF_TAX_A_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  345.  
  346.                     'Accumulated profit ZS added 27 JUNE 2007 Try 2
  347. '                   HS.Exp "A#AP_PREV_OPEN"&C1234None&" = A#AP_TOTAL"&C1234Top&".I#[ICP Top].P#LAST.Y#PRIOR.V#<Entity Curr Total>"
  348.  
  349.                 '*******************************************************************
  350.                 'Fund Reserves Transfer from the IS
  351.                 '*******************************************************************
  352.                     'HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  353.                     'HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  354.  
  355.                 '***************************************************
  356.                 'OPENING BALANCES
  357.                 'Opening Balances = Closing Balances Prior Year Last Period
  358.                 '***************************************************
  359.                     'C1 & C3
  360.  
  361.                      'HS.Exp "C1#Opening = C1#Closing.Y#Prior.P#Last.V#<Entity Curr Total>"
  362.                     'HS.Exp "C1#OPENING_PROV = C1#CLOSING_PROV.Y#Prior.P#Last.V#<Entity Curr Total>"
  363.                     'HS.Exp "C3#Opening_Cost = C3#Closing_Cost.Y#Prior.P#Last.V#<Entity Curr Total>"
  364.                     'HS.Exp "C3#Opening_Depr = C3#Closing_Depr.Y#Prior.P#Last.V#<Entity Curr Total>"
  365.  
  366.                     'Assets - comment removed 27 JUNE 2007
  367.                     'HS.Exp "A#DEB_TR_PR_BD_OPEN = A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Entity Curr Total>"
  368.                     'HS.Exp "A#INV_ASS_OPEN = A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  369.                     'HS.Exp "A#INV_S_JV_OPEN = A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  370.                     'HS.Exp "A#GW_COST_OPEN = A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  371.                     'HS.Exp "A#GW_ACCDEP_OPEN = A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  372.                     'HS.Exp "A#NONCUR_RC_OPEN = A#NONCUR_RC_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  373.                     'HS.Exp "A#ACQ_RES_OPEN = A#ACQ_RES.P#Last.Y#Prior.V#<Entity Curr Total>"
  374.                     'HS.Exp "A#ACQ_OTH_RES_OPEN = A#ACQ_OTH_RES.P#Last.Y#Prior.V#<Entity Curr Total>"
  375.  
  376.                     'Liabilities - comment removed 27 JUNE 2007
  377.                     'HS.Exp "A#TAX_OPEN = A#BS_TAX_PAYABLE.P#Last.Y#Prior.V#<Entity Curr Total>"
  378.                     'HS.Exp "A#SFD_OPEN = A#BS_SHAREH_FOR_DIV.P#Last.Y#Prior.V#<Entity Curr Total>"
  379.                     'HS.Exp "A#MIN_OPEN = A#SH_FUND_MINORITY.P#Last.Y#Prior.V#<Entity Curr Total>"
  380.                     'HS.Exp "A#DEF_TAX_A_OPEN = A#DEF_TAX_A_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>"
  381.  
  382.                     '--------------------------------------------------------
  383.                     'WORKING CAPITAL OPENING
  384.                     '--------------------------------------------------------
  385.                     'Inventories
  386.                         HS.Exp "A#WCM_INV_MOV.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.W#YTD.V#<Entity Curr Total>.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  387.                     'Trade Receivables & Sundry Debtors
  388.                         HS.Exp "A#WCM_TR_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  389.                     'Sundry Debtors
  390.                         HS.Exp "A#WCM_S_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  391.                     'Trade Payables
  392.                         HS.Exp "A#WCM_TPAY.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  393.                     'Other Payables
  394.                         HS.Exp "A#WCM_PAY_OTH.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  395.  
  396.                 '*******************************************************************
  397.                 '*******************************************************************
  398.                 'NEW End
  399.                 '*******************************************************************
  400.                 '*******************************************************************
  401.     End if
  402.  
  403.                     '--------------------------------------------------------
  404.                     'INTERGROUP opening balances
  405.                     '--------------------------------------------------------
  406.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  407.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  408.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  409.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  410.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  411.                     'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  412.                         HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  413.                     'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  414.                         HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.W#YTD.Y#PRIOR.P#LAST.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  415.                     'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  416.                         HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  417.                     'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  418.                         HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.P#LAST.W#YTD.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  419.                     'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  420.                         HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.W#YTD.P#LAST.V#<Entity Curr Total>.W#YTD.Y#PRIOR.I#[ICP Top]"&C1234Top
  421.  
  422.  
  423.                 '***************************************************
  424.                 'CLOSING BALANCES FOR FCTR
  425.                 'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  426.                 '***************************************************
  427.                 'C1 & C3
  428.                     HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  429.                     HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  430.                     HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  431.                     HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  432.  
  433.                     'Assets
  434.                     HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  435.                     HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  436.                     HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  437.                     HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  438.                     HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  439.                     HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  440.                     HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  441.  
  442.                     'Liabilities
  443.                     HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  444.                     HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  445.                     HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  446. '   Call Writetofile("Running Actual Else")
  447.  
  448.                     Call AdditionalInfo
  449.                     Call Taxation
  450.                     Call Cashflow
  451. '                   Call Hyperinflation
  452. '               Call Eliminate (strAccount, strICP)
  453.  
  454.  
  455.             End If
  456.         End If
  457.  
  458.  
  459.     '***************************************************
  460.     'SCENARIO: Forecast
  461.     '***************************************************
  462.  
  463.     If HS.Scenario.Member = "Forecast" then
  464.                     Call IncomeStatement
  465.                     Call BalanceSheet
  466.                     Call AdditionalInfo
  467.                     Call Taxation
  468.                     Call Cashflow
  469.  
  470.                 If HS.Entity.IsBase("", "") then
  471.                     Call IncomeStatement
  472.                     Call BalanceSheet
  473.                     Call AdditionalInfo
  474.                     Call Taxation
  475.                     Call Cashflow
  476.  
  477.                 If ValueM = "<Entity Currency>" then
  478.  
  479.                     '*******************************************************************
  480.                     'Fund Reserves Transfer from the IS
  481.                     '*******************************************************************
  482.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  483.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  484.  
  485.                     HS.CLEAR "A#IGPTransPlug"
  486.                     HS.CLEAR "A#IGPSTPlug"
  487.                     HS.CLEAR "A#IGPRevPlug"
  488.                     HS.CLEAR "A#IGPRentPlug"
  489.                     HS.CLEAR "A#IGPLTPlug"
  490.                     HS.CLEAR "A#IGPIntPlug"
  491.                     HS.CLEAR "A#IGPFeesPlug"
  492.                     HS.CLEAR "A#IGPEqPlug"
  493.                     HS.CLEAR "A#IGPDivPlug"
  494.                     HS.CLEAR "A#IGPCompPlug"
  495.                     HS.CLEAR "A#IGPCashPlug"
  496.                     Call IncomeStatement
  497.                     Call BalanceSheet
  498.                     Call AdditionalInfo
  499.                     Call Taxation
  500.                     Call Cashflow
  501.  
  502.                 If HS.Year.Member > "2006" then
  503.                         HS.Clear "A#Openingrate"
  504.                         hs.round(0.0001)
  505.                         hs.eXP "A#Openingrate = A#ENDOFMONTHRATE.S#Actual.Y#PRIOR.P#LAST"
  506.  
  507.                         HS.Clear "C1#Opening"
  508.                         HS.Clear "C1#OPENING_PROV"
  509.                         HS.Clear "C3#Opening_Cost"
  510.                         HS.Clear "C3#Opening_Depr"
  511.                         HS.Clear "C1#Closing"
  512.                         HS.Clear "A#DEB_TR_PR_BD_OPEN"
  513.                         HS.Clear "A#DEB_S_ST_PR_OPEN"
  514.                         HS.Clear "A#INV_ASS_OPEN"
  515.                         HS.Clear "A#INV_S_JV_OPEN"
  516.                         HS.Clear "A#GW_COST_OPEN"
  517.                         HS.Clear "A#GW_ACCDEP_OPEN"
  518.                         HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT"
  519.                         HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST"
  520.                         HS.Clear "A#TAX_OPEN"
  521.                         HS.Clear "A#SFD_OPEN"
  522.                         HS.Clear "A#MIN_OPEN"
  523.                         HS.Clear "A#DEF_TAX_A_OPEN"
  524.                         HS.Clear "C1#CLOSING_PROV"
  525.                         HS.Clear "C3#Closing_Cost"
  526.                         HS.Clear "C3#Closing_Depr"
  527.                         HS.Clear "A#DEB_TR_PR_BD_CL"
  528.                         HS.Clear "A#DEB_S_ST_PR_CL"
  529.                         HS.Clear "A#INV_ASS_CL"
  530.                         HS.Clear "A#INV_S_JV_CL"
  531.                         HS.Clear "A#GW_COST_CL"
  532.                         HS.Clear "A#GW_ACCDEP_CL"
  533.                         HS.Clear "A#NONCUR_RC_CLOSE"
  534.                         HS.Clear "A#TAX_CL"
  535.                         HS.Clear "A#SFD_CL"
  536.                         HS.Clear "A#MIN_CL"
  537.                         HS.Clear "A#Oth_res_fctr.C1#OTHR_1"
  538.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_10"
  539.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_2"
  540.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_3"
  541.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_4"
  542.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_5"
  543.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_6"
  544.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_7"
  545.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_8"
  546.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_9"
  547.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_HI_DEC"
  548.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_HI_INC"
  549.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_INV_FOR_ENT"
  550.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_REVAL_L_B"
  551.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_SBS"
  552.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TAX_CUR"
  553.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TAX_DEF"
  554.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TRF_IS"
  555.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TRF_NDR"
  556.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  557.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  558.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  559.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  560.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  561.  
  562.                     'Accumulated Profit's opening Balance
  563.                         HS.Clear "A#AP_PREV_OPEN"&C1234None
  564.                         HS.Exp "A#AP_PREV_OPEN.S#Forecast"&C1234None&" = S#Actual.A#AP_TOTAL"&C1234Top&".I#[ICP Top].P#LAST.Y#PRIOR.V#<Entity Curr Total>"
  565.  
  566.                         HS.Exp "A#BEGIN_CASH_EQ"&C1234None&" = A#CUR_ASS_CASH"&C1234Top&".P#LAST.S#Actual.Y#PRIOR.I#[ICP Top] - A#BS_BANK_OVERDRAFT.I#[ICP Top].S#Actual.P#LAST.Y#PRIOR"&C1234Top
  567.  
  568.                     '***************************************************
  569.                     'OPENING BALANCES
  570.                     'Opening Balances = Closing Balances Prior Year Last Period
  571.                     '***************************************************
  572.                         'C1 & C3
  573.                         HS.Exp "C1#Opening.S#Forecast = S#Actual.C1#Closing.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  574.                         HS.Exp "C1#OPENING_PROV.S#Forecast = S#Actual.C1#CLOSING_PROV.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  575.                         HS.Exp "C3#Opening_Cost.S#Forecast = S#Actual.C3#Closing_Cost.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  576.                         HS.Exp "C3#Opening_Depr.S#Forecast = S#Actual.C3#Closing_Depr.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  577.  
  578.                         'Assets
  579.                         HS.Exp "A#DEB_TR_PR_BD_OPEN.S#Forecast = S#Actual.A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  580.                         HS.Exp "A#DEB_S_ST_PR_OPEN.S#Forecast = S#Actual.A#DEB_S_ST_PR_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  581.                         HS.Exp "A#INV_ASS_OPEN.S#Forecast = S#Actual.A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  582.                         HS.Exp "A#INV_S_JV_OPEN.S#Forecast = S#Actual.A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  583.                         HS.Exp "A#GW_COST_OPEN.S#Forecast = S#Actual.A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  584.                         HS.Exp "A#GW_ACCDEP_OPEN.S#Forecast = S#Actual.A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  585.                         HS.Exp "A#NONCUR_RC_OPEN.S#Forecast = S#Actual.A#NONCUR_RC_CLOSE.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  586.                         HS.Exp "A#ACQ_RES_OPEN.S#Forecast = S#Actual.A#ACQ_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  587.                         HS.Exp "A#ACQ_OTH_RES_OPEN.S#Forecast = S#Actual.A#ACQ_OTH_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  588.  
  589.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_LT.P#Last.Y#Prior"
  590.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_ST.P#Last.Y#Prior"
  591.  
  592.                         'Liabilities
  593.                         HS.Exp "A#TAX_OPEN.S#Forecast = S#Actual.A#BS_TAX_PAYABLE.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  594.                         HS.Exp "A#SFD_OPEN.S#Forecast = S#Actual.A#BS_SHAREH_FOR_DIV.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  595.                         HS.Exp "A#MIN_OPEN.S#Forecast = S#Actual.A#SH_FUND_MINORITY.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  596.                         HS.Exp "A#DEF_TAX_A_OPEN.S#Forecast = S#Actual.A#DEF_TAX_A_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  597.  
  598.                         '--------------------------------------------------------
  599.                         'WORKING CAPITAL OPENING
  600.                         '--------------------------------------------------------
  601.                         'Inventories
  602.                             HS.Exp "A#WCM_INV_MOV.S#Forecast.C1#OPENING.W#YTD"&C234None&" = S#Actual.A#CUR_ASS_INVEN_TOT.W#YTD.V#<Entity Curr Total>.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  603.                         'Trade Receivables & Sundry Debtors
  604.                             HS.Exp "A#WCM_TR_RC.S#Forecast.C1#OPENING.W#YTD"&C234None&" = S#Actual.A#DEB_TR_GR_TOT.W#YTD.Y#Prior.V#<Entity Curr Total>.P#LAST.I#[ICP Top]"&C1234Top
  605.                         'Sundry Debtors
  606.                             HS.Exp "A#WCM_S_RC.S#Forecast.C1#OPENING.W#YTD"&C234None&" = S#Actual.A#DEB_S_TOTAL.W#YTD.Y#Prior.V#<Entity Curr Total>.P#LAST.I#[ICP Top]"&C1234Top
  607.                         'Trade Payables
  608.                             HS.Exp "A#WCM_TPAY.S#Forecast.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.S#Actual.W#YTD.Y#Prior.V#<Entity Curr Total>.P#LAST.I#[ICP Top]"&C1234Top
  609.                         'Other Payables
  610.                             HS.Exp "A#WCM_PAY_OTH.S#Forecast.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.S#Actual.W#YTD.Y#Prior.V#<Entity Curr Total>.P#LAST.I#[ICP Top]"&C1234Top
  611.  
  612.                         '--------------------------------------------------------
  613.                         'INTERGROUP opening balances
  614.                         '--------------------------------------------------------
  615.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  616.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  617.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  618.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  619.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  620.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  621.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD.S#Forecast"&C1234None&" = S#Actual.W#YTD.A#INTGRP_ENT_LOANS.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  622.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  623.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD.S#Forecast"&C1234None&" = S#Actual.W#YTD.A#LOAN_TO_GROUP_CO.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  624.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  625.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD.S#Forecast"&C1234None&" = S#Actual.W#YTD.A#SH_FUND_ORD_LOAN_CAP.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  626.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  627.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD.S#Forecast"&C1234None&" = S#Actual.W#YTD.A#LOAN_FROM_GRP_INT.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  628.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  629.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.S#Forecast.I#[ICP None]"&C1234None&" = S#Actual.W#YTD.A#IGPLTPlug.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top&" + S#Actual.V#<Entity Curr Total>.W#YTD.A#IGPEqPlug.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  630.  
  631.                         '***************************************************
  632.                         'CLOSING BALANCES FOR FCTR
  633.                         'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  634.                         '***************************************************
  635.                         'C1 & C3
  636.                         HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  637.                         HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  638.                         HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  639.                         HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  640.  
  641.                         'Assets
  642.                         HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  643.                         HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  644.                         HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  645.                         HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  646.                         HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  647.                         HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  648.                         HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  649.  
  650.                         'Liabilities
  651.                         HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  652.                         HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  653.                         HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  654.     '                   Call Hyperinflation
  655.     '                   Call Eliminate (strAccount, strICP)
  656.  
  657.                     'FLASH IS Forecast
  658.                         HS.Exp "A#F_REVENUE.C1#Actual.S#Forecast"&C234None&" = A#REVENUE.S#Actual"&C1234Top&".I#[ICP None].V#<Entity Curr Total>"
  659.                         HS.Exp "A#F_REVENUE.C1#Budget_interim.S#Forecast"&C234None&" = A#REVENUE.S#BudV1"&C1234Top&".W#YTD.I#[ICP None].P#DECEMBER.V#<Entity Curr Total>"
  660.                         HS.Exp "A#F_REVENUE.C1#Budget_final.S#Forecast"&C234None&" = A#REVENUE.S#BudV1"&C1234Top&".W#YTD.I#[ICP None].P#JUNE.V#<Entity Curr Total>"
  661.  
  662.                         HS.Exp "A#F_EBITDA.C1#Actual.S#Forecast"&C234None&" = A#EBITDA.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  663.                         HS.Exp "A#F_EBITDA.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#EBITDA.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total>"
  664.                         HS.Exp "A#F_EBITDA.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#EBITDA.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total>"
  665.  
  666.                         HS.Exp "A#F_OPERATING_INCOME.C1#Actual.S#Forecast"&C234None&" = A#OPERATING_INCOME.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  667.                         HS.Exp "A#F_OPERATING_INCOME.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#OPERATING_INCOME.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total>"
  668.                         HS.Exp "A#F_OPERATING_INCOME.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#OPERATING_INCOME.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total>"
  669.  
  670.                         HS.Exp "A#F_PBT.C1#Actual.S#Forecast"&C234None&" = A#PBT.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  671.                         HS.Exp "A#F_PBT.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#PBT.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total>"
  672.                         HS.Exp "A#F_PBT.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#PBT.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total>"
  673.  
  674.                         HS.Exp "A#INVENTORIES.C1#Actual.S#Forecast"&C234None&" = A#CUR_ASS_INVEN_TOT.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  675.                         HS.Exp "A#INVENTORIES.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#CUR_ASS_INVEN_TOT.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total>"
  676.                         HS.Exp "A#INVENTORIES.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#CUR_ASS_INVEN_TOT.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total>"
  677.  
  678.                         HS.Exp "A#RECEIVABLES.C1#Actual.S#Forecast"&C234None&" = A#CUR_ASS_TRADE_OTH.S#Actual"&C1234Top&".I#[ICP None].V#<Entity Curr Total>"
  679.                         HS.Exp "A#RECEIVABLES.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A# CUR_ASS_TRADE_OTH.S#BudV1"&C1234Top&".I#[ICP None].W#YTD.P#DECEMBER.V#<Entity Curr Total>"
  680.                         HS.Exp "A#RECEIVABLES.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A# CUR_ASS_TRADE_OTH.S#BudV1"&C1234Top&".I#[ICP None].W#YTD.P#JUNE.V#<Entity Curr Total>"
  681.  
  682.                         HS.Exp "A#PAYABLES.C1#Actual.S#Forecast"&C234None&" = A#BS_PAYABLES.S#Actual"&C1234Top&".I#[ICP None].V#<Entity Curr Total>"
  683.                         HS.Exp "A#PAYABLES.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#BS_PAYABLES.S#BudV1"&C1234Top&".I#[ICP None].W#YTD.P#DECEMBER.V#<Entity Curr Total>"
  684.                         HS.Exp "A#PAYABLES.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#BS_PAYABLES.S#BudV1"&C1234Top&".I#[ICP None].W#YTD.P#JUNE.V#<Entity Curr Total>"
  685.  
  686.                         HS.Exp "A#CAPEX_Maint.C1#Actual.S#Forecast"&C234None&" = A#ASS_ADD_FML_MAIN.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total> + A#ASS_ADD_INT_MAIN.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total> + A#ASS_ADD_PPE_MAIN.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  687.                         HS.Exp "A#CAPEX_Maint.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#ASS_ADD_FML_MAIN.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total> + A#ASS_ADD_INT_MAIN.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total> + A#ASS_ADD_PPE_MAIN.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total>"
  688.                         HS.Exp "A#CAPEX_Maint.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#ASS_ADD_FML_MAIN.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total> + A#ASS_ADD_INT_MAIN.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total> + A#ASS_ADD_PPE_MAIN.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total>"
  689.  
  690.                         HS.Exp "A#CAPEX_EXPAND.C1#Actual.S#Forecast"&C234None&" = A#ASS_ADD_FML_EXP.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total> + A#ASS_ADD_INT_EXP.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total> + A#ASS_ADD_PPE_EXP.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total> - A#ASS_DIS_PRO_FML.S#Actual"&C1234Top&".I#[Icp Top].V#<ENTITY CURR TOTAL> - A#ASS_DIS_PRO_INT.S#Actual"&C1234TOP&".I#[ICP TOP].V#<ENTITY CURR TOTAL> - A#ASS_DIS_PRO_PPE.S#Actual"&C1234TOP&".I#[ICP TOP].V#<ENTITY CURR TOTAL>"
  691.                         HS.Exp "A#CAPEX_EXPAND.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#ASS_ADD_FML_EXP.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total> + A#ASS_ADD_INT_EXP.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total> + A#ASS_ADD_PPE_EXP.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total> - A#ASS_DIS_PRO_FML.S#BudV1"&C1234TOP&".I#[ICP TOP].V#<ENTITY CURR TOTAL>.W#YTD.P#DECEMBER - A#ASS_DIS_PRO_INT.S#BudV1"&C1234TOP&".I#[ICP TOP].V#<ENTITY CURR TOTAL>.W#YTD.P#DECEMBER - A#ASS_DIS_PRO_PPE.S#BudV1"&C1234TOP&".I#[ICP TOP].V#<ENTITY CURR TOTAL>.W#YTD.P#DECEMBER"
  692.                         HS.Exp "A#CAPEX_EXPAND.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#ASS_ADD_FML_EXP.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total> + A#ASS_ADD_INT_EXP.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total> + A#ASS_ADD_PPE_EXP.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total>- A#ASS_DIS_PRO_FML.S#BudV1"&C1234TOP&".I#[ICP TOP].V#<ENTITY CURR TOTAL>.W#YTD.P#JUNE - A#ASS_DIS_PRO_INT.S#BudV1"&C1234TOP&".I#[ICP TOP].V#<ENTITY CURR TOTAL>.W#YTD.P#JUNE - A#ASS_DIS_PRO_PPE.S#BudV1"&C1234TOP&".I#[ICP TOP].V#<ENTITY CURR TOTAL>.W#YTD.P#JUNE"
  693.  
  694.                         HS.Exp "A#F_FML_CB.C1#Actual.S#Forecast"&C234None&" = A#ST_FML_TOTAL.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total> + A#LT_FML_TOTAL.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  695.                         HS.Exp "A#F_FML_CB.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#ST_FML_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER + A#LT_FML_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER"
  696.                         HS.Exp "A#F_FML_CB.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#ST_FML_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE + A#LT_FML_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE"
  697.  
  698.                         HS.Exp "A#F_IBD_CB.C1#Actual.S#Forecast"&C234None&" = A#ST_INT_TOTAL.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total> + A#LT_INT_TOTAL.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  699.                         HS.Exp "A#F_IBD_CB.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#ST_INT_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER + A#LT_INT_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER"
  700.                         HS.Exp "A#F_IBD_CB.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#ST_INT_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE + A#LT_INT_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE"
  701.  
  702.                         HS.Exp "A#F_IF_CB.C1#Actual.S#Forecast"&C234None&" = A#ST_NON_INT_TOTAL.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total> + A#LT_NON_INT_TOTAL.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  703.                         HS.Exp "A#F_IF_CB.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#ST_NON_INT_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER + A#LT_NON_INT_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER"
  704.                         HS.Exp "A#F_IF_CB.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#ST_NON_INT_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE + A#LT_NON_INT_TOTAL.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE"
  705.  
  706.                         HS.Exp "A#CASH_GEN_OPS.C1#Actual.S#Forecast"&C234None&" = A#GENERATED_OPS.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  707.                         HS.Exp "A#CASH_GEN_OPS.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#GENERATED_OPS.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total>"
  708.                         HS.Exp "A#CASH_GEN_OPS.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#GENERATED_OPS.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total>"
  709.  
  710.                         HS.Exp "A#CASH_BAL.C1#Actual.S#Forecast"&C234None&" = A#CUR_ASS_CASH.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total> - A#BS_BANK_OVERDRAFT.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  711.                         HS.Exp "A#CASH_BAL.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#CUR_ASS_CASH.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total> - A#BS_BANK_OVERDRAFT.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#DECEMBER.V#<Entity Curr Total>"
  712.                         HS.Exp "A#CASH_BAL.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#CUR_ASS_CASH.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total> - A#BS_BANK_OVERDRAFT.S#BudV1"&C1234Top&".I#[ICP Top].W#YTD.P#JUNE.V#<Entity Curr Total>"
  713.  
  714.                         HS.Exp "A#CASH_IF_RAISED.C1#Actual.S#Forecast"&C234None&" = A#FA_LT_BOR_R_INTER.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  715.                         HS.Exp "A#CASH_IF_RAISED.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_R_INTER.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER"
  716.                         HS.Exp "A#CASH_IF_RAISED.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_R_INTER.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE"
  717.  
  718.                         HS.Exp "A#CASH_FML_RAISED.C1#Actual.S#Forecast"&C234None&" = A#FA_LT_BOR_R_FML.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  719.                         HS.Exp "A#CASH_FML_RAISED.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_R_FML.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER"
  720.                         HS.Exp "A#CASH_FML_RAISED.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_R_FML.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE"
  721.  
  722.                         HS.Exp "A#CASH_IBD_RAISED.C1#Actual.S#Forecast"&C234None&" = A#FA_LT_BOR_R_INTE.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  723.                         HS.Exp "A#CASH_IBD_RAISED.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_R_INTE.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER"
  724.                         HS.Exp "A#CASH_IBD_RAISED.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_R_INTE.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE"
  725.  
  726.                         HS.Exp "A#CASH_IF_REPAID.C1#Actual.S#Forecast"&C234None&" = A#FA_LT_BOR_RP_NINTE.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  727.                         HS.Exp "A#CASH_IF_REPAID.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_RP_NINTE.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER"
  728.                         HS.Exp "A#CASH_IF_REPAID.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_RP_NINTE.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE"
  729.  
  730.                         HS.Exp "A#CASH_FML_REPAID.C1#Actual.S#Forecast"&C234None&" = A#FA_LT_BOR_RP_FML.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  731.                         HS.Exp "A#CASH_FML_REPAID.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_RP_FML.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER"
  732.                         HS.Exp "A#CASH_FML_REPAID.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_RP_FML.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE"
  733.  
  734.                         HS.Exp "A#CASH_IBD_REPAID.C1#Actual.S#Forecast"&C234None&" = A#FA_LT_BOR_RP_INTE.S#Actual"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>"
  735.                         HS.Exp "A#CASH_IBD_REPAID.C1#Budget_interim.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_RP_INTE.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#DECEMBER"
  736.                         HS.Exp "A#CASH_IBD_REPAID.C1#Budget_final.W#YTD.S#Forecast"&C234None&" = A#FA_LT_BOR_RP_INTE.S#Budv1"&C1234Top&".I#[ICP Top].V#<Entity Curr Total>.P#JUNE"
  737.  
  738.                     End If
  739.                     End If
  740.                         Else
  741.  
  742.                         '--------------------------------------------------------
  743.                         'INTERGROUP opening balances
  744.                         '--------------------------------------------------------
  745.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  746.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  747.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  748.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  749.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  750.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  751.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD.S#Forecast"&C1234None&" = S#Actual.W#YTD.A#INTGRP_ENT_LOANS.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  752.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  753.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD.S#Forecast"&C1234None&" = S#Actual.W#YTD.A#LOAN_TO_GROUP_CO.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  754.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  755.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD.S#Forecast"&C1234None&" = S#Actual.W#YTD.A#SH_FUND_ORD_LOAN_CAP.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  756.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  757.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD.S#Forecast"&C1234None&" = S#Actual.W#YTD.A#LOAN_FROM_GRP_INT.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  758.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  759.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.S#Forecast.I#[ICP None]"&C1234None&" = S#Actual.W#YTD.A#IGPLTPlug.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top&" + S#Actual.V#<Entity Curr Total>.W#YTD.A#IGPEqPlug.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  760.  
  761.  
  762.         '               Call writetofile("Entity is "&HS.Entity.member&" on value "&HS.Value.Member)
  763.  
  764.                         '*******************************************************************
  765.                         'Fund Reserves Transfer from the IS
  766.                         '*******************************************************************
  767.                             HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  768.                             HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  769.  
  770.                         '***************************************************
  771.                         'CLOSING BALANCES FOR FCTR
  772.                         'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  773.                         '***************************************************
  774.                         'C1 & C3
  775.                             HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  776.                             HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  777.                             HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  778.                             HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  779.  
  780.                             'Assets
  781.                             HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  782.                             HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  783.                             HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  784.                             HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  785.                             HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  786.                             HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  787.                             HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  788.  
  789.                             'Liabilities
  790.                             HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  791.                             HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  792.                             HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  793.  
  794.  
  795.  
  796.         End if
  797.         End If
  798.  
  799.  
  800.  
  801.  
  802.     '*******************************************************
  803.     'Adjustment Layers
  804.     '*******************************************************
  805.         Case "<Entity Curr Adjs>"
  806.                     Call IncomeStatement
  807.                     Call BalanceSheet
  808.                     Call AdditionalInfo
  809.                     Call Taxation
  810.                     Call Cashflow
  811.         HS.Round(0.0001)
  812.         HS.Exp "A#AP_RATE = A#I_AP_RATE"
  813.         HS.Exp "A#AVERAGERATE = A#I_AVERAGERATE"
  814.         HS.Exp "A#ENDOFMONTHRATE = A#I_ENDOFMONTHRATE"
  815.         HS.Exp "A#EQL_RATE = A#I_EQL_RATE"
  816.         HS.Exp "A#HISTORICALRATE = A#I_HISTOCALRATE"
  817.         HS.Exp "A#OR_CONT_RATE = A#I_OR_CONT_RATE"
  818.         HS.Exp "A#OR_EQ_RATE = A#I_OR_EQL_RATE"
  819.         HS.Exp "A#OR_EQL_RATE = A#I_OR_EQ_RATE"
  820.         HS.Exp "A#OR_FCTR_RATE = A#I_OR_FCTR_RATE"
  821.         HS.Exp "A#OR_FV_RATE = A#I_OR_FV_RATE"
  822.         HS.Exp "A#OR_HA_RATE = A#I_OR_HA_RATE"
  823.         HS.Exp "A#OR_HI_RATE = A#I_OR_HI_RATE"
  824.         HS.Exp "A#OR_OT_RATE = A#I_OR_OT_RATE"
  825.         HS.Exp "A#OR_RR_RATE = A#I_OR_RR_RATE"
  826.         HS.Exp "A#OR_SB_RATE = A#I_OR_SB_RATE"
  827.         HS.Exp "A#SC_AORD_RATE = A#I_SC_AORD_RATE"
  828.         HS.Exp "A#SC_ORD_RATE = A#I_SC_ORD_RATE"
  829.         HS.Exp "A#SP_RATE = A#I_SP_RATE"
  830.         HS.NoRound
  831.  
  832.  
  833.                 Hs.Clear "A#AP_NET_PROFIT_YR"&C1234None
  834.                 HS.Exp "A#AP_NET_PROFIT_YR.W#YTD"&C1234None&" = A#PAT"&C1234Top&".W#YTD.I#[ICP Top]"
  835.                 HS.Clear "A#AP_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  836.                 HS.Clear"A#SC_ORD_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  837.                 HS.Clear "A#SC_AORD_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  838.                 HS.Clear "A#SP_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  839.                 HS.Clear "A#OR_CONT_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  840.                 HS.Clear "A#OR_EQ_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  841.                 HS.Clear "A#OR_FCTR_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  842.                 HS.Clear "A#OR_FV_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  843.                 HS.Clear "A#OR_HA_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  844.                 HS.Clear "A#OR_HI_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  845.                 HS.Clear "A#OR_RR_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  846.                 HS.Clear "A#OR_SB_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  847.                 HS.Clear "A#OR_OT_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None
  848.  
  849.                 HS.Exp "A#AP_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#AP_Total.W#YTD.I#[ICP Top].V#<Entity Curr Adjs>"&C1234Top
  850.                 HS.Exp "A#SC_ORD_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#SC_ORD_TOTAL.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  851.                 HS.Exp "A#SC_AORD_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#SC_AORD_TOTAL.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  852.                 HS.Exp "A#SP_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#SP_TOTAL.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  853.                 HS.Exp "A#OR_CONT_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#OTH_RES_CONT.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  854.                 HS.Exp "A#OR_EQ_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#OTH_RES_EQ_SH_PAY.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  855.                 HS.Exp "A#OR_FCTR_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#OTH_RES_FCTR.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  856.                 HS.Exp "A#OR_FV_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#OTH_RES_FV.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  857.                 HS.Exp "A#OR_HA_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#OTH_RES_HED_AC.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  858.                 HS.Exp "A#OR_HI_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#OTH_RES_HI.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  859.                 HS.Exp "A#OR_RR_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#OTH_RES_REVAL.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  860.                 HS.Exp "A#OR_SB_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#OTH_RES_SB.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  861.                 HS.Exp "A#OR_OT_FCTR.V#<Entity Curr Adjs>.W#YTD"&C1234None&" = A#OTH_RES_OTHER.W#YTD.V#<Entity Curr Adjs>.I#[ICP Top]"&C1234Top
  862.  
  863.                 If HS.Entity.IsBase("", "") then
  864.                     HS.CLEAR "A#IGPTransPlug"
  865.                     HS.CLEAR "A#IGPSTPlug"
  866.                     HS.CLEAR "A#IGPRevPlug"
  867.                     HS.CLEAR "A#IGPRentPlug"
  868.                     HS.CLEAR "A#IGPLTPlug"
  869.                     HS.CLEAR "A#IGPIntPlug"
  870.                     HS.CLEAR "A#IGPFeesPlug"
  871.                     HS.CLEAR "A#IGPEqPlug"
  872.                     HS.CLEAR "A#IGPDivPlug"
  873.                     HS.CLEAR "A#IGPCompPlug"
  874.                     HS.CLEAR "A#IGPCashPlug"
  875. '   Call Writetofile("Running Actual BS")
  876.     '***************************************************
  877.     'FOR YEAR 2001-2019
  878.     '***************************************************
  879.                     If HS.Year.Member > "2000" then
  880.                         HS.Clear "A#ACQ_RES_OPEN"
  881.                         HS.Clear "A#ACQ_OTH_RES_OPEN"
  882.                         HS.Clear "C1#Opening"
  883.                         HS.Clear "C1#OPENING_PROV"
  884.                         HS.Clear "C3#Opening_Cost"
  885.                         HS.Clear "C3#Opening_Depr"
  886.                         HS.Clear "C1#Closing"
  887.                         HS.Clear "C1#CLOSING_PROV"
  888.                         HS.Clear "C3#Closing_Cost"
  889.                         HS.Clear "C3#Closing_Depr"
  890.                         HS.Clear "A#DEB_TR_PR_BD_OPEN"
  891.                         HS.Clear "A#DEB_S_ST_PR_OPEN"
  892.                         HS.Clear "A#INV_ASS_OPEN"
  893.                         HS.Clear "A#INV_S_JV_OPEN"
  894.                         HS.Clear "A#GW_COST_OPEN"
  895.                         HS.Clear "A#GW_ACCDEP_OPEN"
  896.                         HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT"
  897.                         HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST"
  898.                         HS.Clear "A#TAX_OPEN"
  899.                         HS.Clear "A#SFD_OPEN"
  900.                         HS.Clear "A#MIN_OPEN"
  901.                         HS.Clear "A#DEF_TAX_A_OPEN"
  902.                         HS.Clear "A#DEB_TR_PR_BD_CL"
  903.                         HS.Clear "A#DEB_S_ST_PR_CL"
  904.                         HS.Clear "A#INV_ASS_CL"
  905.                         HS.Clear "A#INV_S_JV_CL"
  906.                         HS.Clear "A#GW_COST_CL"
  907.                         HS.Clear "A#GW_ACCDEP_CL"
  908.                         HS.Clear "A#NONCUR_RC_CLOSE"
  909.                         HS.Clear "A#TAX_CL"
  910.                         HS.Clear "A#SFD_CL"
  911.                         HS.Clear "A#MIN_CL"
  912.                         HS.Clear "A#Oth_res_fctr.C1#OTHR_1"
  913.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_10"
  914.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_2"
  915.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_3"
  916.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_4"
  917.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_5"
  918.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_6"
  919.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_7"
  920.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_8"
  921.                         Hs.Clear "A#Oth_res_fctr.C1#OTHR_9"
  922.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_HI_DEC"
  923.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_HI_INC"
  924.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_INV_FOR_ENT"
  925.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_REVAL_L_B"
  926.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_SBS"
  927.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TAX_CUR"
  928.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TAX_DEF"
  929.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TRF_IS"
  930.                         Hs.Clear "A#Oth_res_fctr.C1#OTH_RES_TRF_NDR"
  931.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  932.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  933.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  934.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  935.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  936.  
  937.  
  938.                     End If
  939.             End If
  940.                         HS.Clear "A#INV_S_JV_IMPAIR"&C1234None
  941.                         HS.Exp "A#INV_S_JV_IMPAIR"&C1234None&" = A#INV_S_JV_IMPAIRMENT"&C1234Top&".I#[ICP Top].W#YTD"
  942.                         '***************************************************
  943.                         'CLOSING BALANCES FOR FCTR
  944.                         'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  945.                         '***************************************************
  946.                         'C1 & C3
  947.                         HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  948.                         HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  949.                         HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  950.                         HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  951.  
  952.                         'Assets
  953.                         HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  954.                         HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  955.                         HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  956.                         HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  957.                         HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  958.                         HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  959.                         HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  960.  
  961.                         'Liabilities
  962.                         HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  963.                         HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  964.                         HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  965.  
  966.  
  967.     '*******************************************************
  968.     'TRANSLATION
  969.     '*******************************************************
  970.         Case "Translation"
  971.  
  972.             'Beginning of year exch rate = Prior Year ending exch rate
  973.  
  974.                 HS.Clear "A#Openingrate"
  975.                 HS.Round(0.0001)
  976.                 if hs.scenario.member = "Actual" then
  977.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last"
  978.                 End if
  979.                 if hs.scenario.member = "Forecast" then
  980.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Actual"
  981.                 End if
  982.                 if hs.scenario.member = "BudV1" then
  983.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Forecast"
  984.                 End if
  985.                 if hs.scenario.member = "BudV2" then
  986.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Forecast"
  987.                 End if
  988.                 if hs.scenario.member = "BudY1" then
  989.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BudV1"
  990.                 End if
  991.                 if hs.scenario.member = "BudY2" then
  992.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY1"
  993.                 End if
  994.                 if hs.scenario.member = "BudY3" then
  995.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY2"
  996.                 End if
  997.                 if hs.scenario.member = "BudY4" then
  998.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY3"
  999.                 End if
  1000.                 if hs.scenario.member = "BudY5" then
  1001.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY4"
  1002.                 End if
  1003.  
  1004.                 HS.noRound
  1005.  
  1006.             'Accumulated Profit's opening Balance
  1007.                 HS.Exp "A#AP_PREV_OPEN"&C1234None&" = A#AP_TOTAL"&C1234Top&".I#[ICP Top].P#LAST.Y#PRIOR.V#<Parent Curr Total>"
  1008.  
  1009.             'Opening Balances = Closing Balances Prior Year Last Period
  1010.                 'C1 & C3
  1011.                 HS.Exp "C1#Opening = C1#Closing.Y#Prior.P#Last.V#<Parent Curr Total>"
  1012.                 HS.Exp "C1#OPENING_PROV = C1#CLOSING_PROV.Y#Prior.P#Last.V#<Parent Curr Total>"
  1013.                 HS.Exp "C3#Opening_Cost = C3#BV_COST_TOTAL.Y#Prior.P#Last.V#<Parent Curr Total>"
  1014.                 HS.Exp "C3#Opening_Depr = C3#BV_ACCDEP_TOTAL.Y#Prior.P#Last.V#<Parent Curr Total>"
  1015.  
  1016.                 'Assets
  1017.                 HS.Exp "A#DEB_TR_PR_BD_OPEN = A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Parent Curr Total>"
  1018.                 HS.Exp "A#DEB_S_ST_PR_OPEN = A#DEB_S_ST_PR_TOT.P#Last.Y#Prior.V#<Parent Curr Total>"
  1019.                 HS.Exp "A#INV_ASS_OPEN = A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Parent Curr Total>"
  1020.                 HS.Exp "A#INV_S_JV_OPEN = A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Parent Curr Total>"
  1021.                 HS.Exp "A#GW_COST_OPEN = A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Parent Curr Total>"
  1022.                 HS.Exp "A#GW_ACCDEP_OPEN = A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Parent Curr Total>"
  1023.                 HS.Exp "A#NONCUR_RC_OPEN = A#NONCUR_RC_CLOSE.P#Last.Y#Prior.V#<Parent Curr Total>"
  1024.                 HS.Exp "A#ACQ_RES_OPEN = A#ACQ_RES_OPEN.P#Last.Y#Prior.V#<Parent Curr Total>"
  1025.                 HS.Exp "A#ACQ_OTH_RES_OPEN = A#ACQ_OTH_RES_OPEN.P#Last.Y#Prior.V#<Parent Curr Total>"
  1026.  
  1027. '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_LT.P#Last.Y#Prior"
  1028. '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_ST.P#Last.Y#Prior"
  1029.  
  1030.                 'Liabilities
  1031.                 HS.Exp "A#TAX_OPEN = A#BS_TAX_PAYABLE.P#Last.Y#Prior.V#<Parent Curr Total>"
  1032.                 HS.Exp "A#SFD_OPEN = A#BS_SHAREH_FOR_DIV.P#Last.Y#Prior.V#<Parent Curr Total>"
  1033.                 HS.Exp "A#MIN_OPEN = A#SH_FUND_MINORITY.P#Last.Y#Prior.V#<Parent Curr Total>"
  1034.                 HS.Exp "A#DEF_TAX_A_OPEN = A#DEF_TAX_A_TOTAL.P#Last.Y#Prior.V#<Parent Curr Total>"
  1035.  
  1036.                 '--------------------------------------------------------
  1037.                 'WORKING CAPITAL OPENING - are translated under SUB TRANSLATE ZS
  1038.                 '--------------------------------------------------------
  1039.                 'Inventories
  1040.                     'HS.Exp "A#WCM_INV_MOV.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.W#YTD.V#<Entity Curr Total>.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  1041.                 'Trade Receivables & Sundry Debtors
  1042.                     'HS.Exp "A#WCM_TR_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1043.                 'Sundry Debtors
  1044.                     'HS.Exp "A#WCM_S_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1045.                 'Trade Payables
  1046.                     'HS.Exp "A#WCM_TPAY.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1047.                 'Other Payables
  1048.                     'HS.Exp "A#WCM_PAY_OTH.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.W#YTD.V#<Entity Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1049.                 '--------------------------------------------------------
  1050.                 'INTERGROUP opening balances - are translated under SUB TRANSLATE ZS
  1051.                 '--------------------------------------------------------
  1052.                     'HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1053.                     'HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1054.                     'HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1055.                     'HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1056.                     'HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1057.  
  1058.                 'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  1059.                     'HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  1060.                 'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  1061.                     'HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  1062.                 'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  1063.                     'HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  1064.                 'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  1065.                     'HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  1066.                 'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  1067.                     'HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.V#<Entity Curr Total>.W#YTD.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1068.  
  1069.  
  1070.             If HS.Scenario.Member = "Forecast" and HS.Year.Member > "2006" then
  1071. '                       hs.eXP "A#Openingrate.P#JUNE.S#Forecast.Y#2005 = A#ENDOFMONTHRATE.S#Actual.Y#2004.P#JUNE"
  1072.                         HS.Clear "A#Openingrate"
  1073.                         hs.round(0.0001)
  1074.                         hs.eXP "A#Openingrate = A#ENDOFMONTHRATE.S#Actual.Y#PRIOR.P#LAST"
  1075.                         HS.NoRound
  1076.                     '***************************************************
  1077.                     'OPENING BALANCES
  1078.                     'Opening Balances = Closing Balances Prior Year Last Period
  1079.                     '***************************************************
  1080.                         'C1 & C3
  1081.                         HS.Exp "C1#Opening.S#Forecast = S#Actual.C1#Closing.Y#Prior.P#Last.V#<Parent Curr Total>"
  1082.                         HS.Exp "C1#OPENING_PROV.S#Forecast = S#Actual.C1#CLOSING_PROV.Y#Prior.P#Last.V#<Parent Curr Total>"
  1083.                         HS.Exp "C3#Opening_Cost.S#Forecast = S#Actual.C3#Closing_Cost.Y#Prior.P#Last.V#<Parent Curr Total>"
  1084.                         HS.Exp "C3#Opening_Depr.S#Forecast = S#Actual.C3#Closing_Depr.Y#Prior.P#Last.V#<Parent Curr Total>"
  1085.  
  1086.                         'Assets
  1087.                         HS.Exp "A#DEB_TR_PR_BD_OPEN.S#Forecast = S#Actual.A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Parent Curr Total>"
  1088.                         HS.Exp "A#DEB_S_ST_PR_OPEN.S#Forecast = S#Actual.A#DEB_S_ST_PR_TOT.P#Last.Y#Prior.V#<Parent Curr Total>"
  1089.                         HS.Exp "A#INV_ASS_OPEN.S#Forecast = S#Actual.A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Parent Curr Total>"
  1090.                         HS.Exp "A#INV_S_JV_OPEN.S#Forecast = S#Actual.A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Parent Curr Total>"
  1091.                         HS.Exp "A#GW_COST_OPEN.S#Forecast = S#Actual.A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Parent Curr Total>"
  1092.                         HS.Exp "A#GW_ACCDEP_OPEN.S#Forecast = S#Actual.A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Parent Curr Total>"
  1093.                         HS.Exp "A#NONCUR_RC_OPEN.S#Forecast = S#Actual.A#NONCUR_RC_CLOSE.P#Last.Y#Prior.V#<Parent Curr Total>"
  1094.                         HS.Exp "A#ACQ_RES_OPEN.S#Forecast = S#Actual.A#ACQ_RES.P#Last.Y#Prior.V#<Parent Curr Total>"
  1095.                         HS.Exp "A#ACQ_OTH_RES_OPEN.S#Forecast = S#Actual.A#ACQ_OTH_RES.P#Last.Y#Prior.V#<Parent Curr Total>"
  1096.  
  1097.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_LT.P#Last.Y#Prior"
  1098.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_ST.P#Last.Y#Prior"
  1099.  
  1100.                         'Liabilities
  1101.                         HS.Exp "A#TAX_OPEN.S#Forecast = S#Actual.A#BS_TAX_PAYABLE.P#Last.Y#Prior.V#<Parent Curr Total>"
  1102.                         HS.Exp "A#SFD_OPEN.S#Forecast = S#Actual.A#BS_SHAREH_FOR_DIV.P#Last.Y#Prior.V#<Parent Curr Total>"
  1103.                         HS.Exp "A#MIN_OPEN.S#Forecast = S#Actual.A#SH_FUND_MINORITY.P#Last.Y#Prior.V#<Parent Curr Total>"
  1104.                         HS.Exp "A#DEF_TAX_A_OPEN.S#Forecast = S#Actual.A#DEF_TAX_A_TOTAL.P#Last.Y#Prior.V#<Parent Curr Total>"
  1105.  
  1106.  
  1107.                     '--------------------------------------------------------
  1108.                     'WORKING CAPITAL OPENING
  1109.                     '--------------------------------------------------------
  1110.                     'Inventories
  1111.                         HS.Exp "A#WCM_INV_MOV.S#Forecast.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.S#Actual.W#YTD.V#<Parent Curr Total>.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  1112.                     'Trade Receivables & Sundry Debtors
  1113.                         HS.Exp "A#WCM_TR_RC.S#Forecast.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.W#YTD.S#Actual.V#<Parent Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1114.                     'Sundry Debtors
  1115.                         HS.Exp "A#WCM_S_RC.S#Forecast.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.W#YTD.S#Actual.V#<Parent Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1116.                     'Trade Payables
  1117.                         HS.Exp "A#WCM_TPAY.S#Forecast.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.W#YTD.S#Actual.V#<Parent Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1118.                     'Other Payables
  1119.                         HS.Exp "A#WCM_PAY_OTH.S#Forecast.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.W#YTD.S#Actual.V#<Parent Curr Total>.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1120.                     '--------------------------------------------------------
  1121.                     'INTERGROUP opening balances
  1122.                     '--------------------------------------------------------
  1123.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1124.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1125.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1126.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1127.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1128.  
  1129.                     'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  1130.                         HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD.S#Forecast"&C1234None&" = A#INTGRP_ENT_LOANS.P#LAST.W#YTD.S#Actual.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  1131.                     'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  1132.                         HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD.S#Forecast"&C1234None&" = A#LOAN_TO_GROUP_CO.S#Actual.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  1133.                     'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  1134.                         HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD.S#Forecast"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.S#Actual.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  1135.                     'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  1136.                         HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD.S#Forecast"&C1234None&" = A#LOAN_FROM_GRP_INT.S#Actual.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top
  1137.                     'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  1138.                         HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.S#Forecast.I#[ICP None]"&C1234None&" = A#IGPLTPlug.S#Actual.W#YTD.P#LAST.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.W#YTD.S#Actual.V#<Entity Curr Total>.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1139.  
  1140.                 End if
  1141.  
  1142.             '---------------------------------------
  1143.             'FCTR CALC
  1144.             'The Calculation of FCTR = Closing Balance - Opening Balance - Movements - Change in Accounting Policies
  1145.             '---------------------------------------
  1146.                 WCM_TR_RC = HS.getCell("A#WCM_TR_RC.C1#FCTR")
  1147.                 WCM_S_RC = HS.getCell("A#WCM_S_RC.C1#FCTR")
  1148.                 WCM_INV_MOV = HS.getCell("A#WCM_INV_MOV.C1#FCTR")
  1149.                 WCM_TPAY = HS.getCell("A#WCM_TPAY.C1#FCTR")
  1150.                 WCM_PAY_OTH = HS.getCell("A#WCM_PAY_OTH.C1#FCTR")
  1151.  
  1152.                 'C1 & C3
  1153.                 HS.Exp "C1#FCTR = C1#Closing - C1#Opening - C1#Movements - C1#ACPOL"
  1154.                 HS.Exp "C1#FCTR_PROV = C1#CLOSING_PROV - C1#OPENING_PROV - C1#INVEN_PROV_MOV_TOT"
  1155.                 HS.Exp "C3#FCTR_Cost = C3#Closing_Cost - C3#Opening_Cost - C3#Movements_Cost - C3#BV_COST_ACPOL"
  1156.                 HS.Exp "C3#FCTR_Depr = C3#Closing_Depr - C3#Opening_Depr - C3#Movements_Depr - C3#BV_ACCDEP_ACPOL"
  1157.  
  1158.                 HS.Exp "A#WCM_TR_RC.C1#FCTR = "&WCM_TR_RC
  1159.                 HS.Exp "A#WCM_S_RC.C1#FCTR = "&WCM_S_RC
  1160.                 HS.Exp "A#WCM_INV_MOV.C1#FCTR = "&WCM_INV_MOV
  1161.                 HS.Exp "A#WCM_TPAY.C1#FCTR = "&WCM_TPAY
  1162.                 HS.Exp "A#WCM_PAY_OTH.C1#FCTR = "&WCM_PAY_OTH
  1163.  
  1164.                 'Assets
  1165.                 HS.Clear "A#DEB_TR_PR_BD_FCTR"
  1166.                 HS.Clear "A#DEB_S_ST_PR_FCTR"
  1167.                 HS.Clear "A#INV_ASS_FCTADJ"
  1168.                 HS.Clear "A#INV_S_JV_FCTADJ"
  1169.                 HS.Clear "A#GW_COST_FCTADJ"
  1170.                 HS.Clear "A#GW_ACCDEP_FCTADJ"
  1171.                 HS.Clear "A#NONCUR_RC_FCTADJ"
  1172.                 HS.Exp "A#DEB_TR_PR_BD_FCTR = A#DEB_TR_PR_BD_CL - A#DEB_TR_PR_BD_OPEN - A#DEB_TR_PR_BD_MOV"
  1173.                 HS.Exp "A#DEB_S_ST_PR_FCTR = A#DEB_S_ST_PR_CL - A#DEB_S_ST_PR_OPEN - A#DEB_S_ST_PR_MOV"
  1174.                 HS.Exp "A#INV_ASS_FCTADJ = A#INV_ASS_CL - A#INV_ASS_OPEN - A#INV_ASS_ACPOL - A#INV_ASS_MOV"
  1175.                 HS.Exp "A#INV_S_JV_FCTADJ = A#INV_S_JV_CL - A#INV_S_JV_OPEN - A#INV_S_JV_ACPOL - A#INV_S_JV_MOV"
  1176.                 HS.Exp "A#GW_COST_FCTADJ = A#GW_COST_CL - A#GW_COST_OPEN - A#GW_COST_ACPOL - A#GW_COST_MOV"
  1177.                 HS.Exp "A#GW_ACCDEP_FCTADJ = A#GW_ACCDEP_CL - A#GW_ACCDEP_OPEN - A#GW_ACCDEP_ACPOL - A#GW_ACCDEP_MOV"
  1178.                 HS.Exp "A#NONCUR_RC_FCTADJ = A#NONCUR_RC_CLOSE - A#NONCUR_RC_OPEN - A#NONCUR_RC_MOV"
  1179.  
  1180.                 'Liabilities
  1181.                 HS.Clear "A#TAX_FCTR_ADJ"&C1234None
  1182.                 HS.Exp "A#TAX_FCTR_ADJ"&C1234None&" = A#TAX_CL"&C1234Top&".I#[ICP Top] - A#TAX_OPEN"&C1234Top&".I#[ICP Top] - A#BS_TAX_PAY_MOV"&C1234Top&".I#[ICP Top]"
  1183.  
  1184.                 HS.Clear "A#SFD_FCTR_ADJ"&C1234None
  1185.                 HS.Exp "A#SFD_FCTR_ADJ"&C1234None&" = A#SFD_CL"&C1234Top&".I#[ICP Top] - A#SFD_OPEN"&C1234Top&".I#[ICP Top] - A#SFD_MOV"&C1234Top&".I#[ICP Top]"
  1186.  
  1187.                 HS.Clear "A#MIN_FCTR"&C1234None
  1188.                 HS.Exp "A#MIN_FCTR"&C1234None&" = A#MIN_CL"&C1234Top&".I#[ICP Top] - A#MIN_OPEN"&C1234Top&".I#[ICP Top] - A#MIN_MOV"&C1234Top&".I#[ICP Top] - A#MIN_ACPOL"&C1234Top&".I#[ICP Top]"
  1189. '               HS.Exp "A#AP_PREV_OPEN"&C1234None&" = A#AP_TOTAL"&C1234Top&".I#[ICP Top].P#LAST.Y#PRIOR"
  1190.                 HS.Exp "A#FCTR.I#[ICP None]"&C1234None&" = A#Cash_End_Period.I#[ICP Top]"&C1234Top&" - A#Cash_Movement.I#[ICP Top]"&C1234Top&" - A#Begin_Cash_EQ.I#[ICP Top]"&C1234Top
  1191.  
  1192. '               Call writetofile("Calc - Translation 2")
  1193.                 Call FCTR
  1194.                 'Call PullOpening
  1195.  
  1196.     End Select
  1197.  
  1198.     '***********************************************************************************************
  1199.     '"BudV1","BudY1","BudY2","BudY3","BudY4","BudY5"
  1200.     '***********************************************************************************************
  1201.         Open_SCEN = HS.Scenario.Member()
  1202.         Select Case Open_SCEN
  1203.             Case "BudV1"
  1204.  
  1205. '       Call Writetofile("Running Other Scenario's begin")
  1206.                 ValueM = HS.Value.member
  1207.                 If HS.Entity.IsBase("", "") then
  1208.                 If ValueM = "<Entity Currency>" then
  1209.                     HS.Clear "A#AP_PREV_OPEN"
  1210.                     HS.Clear "C1#Opening"
  1211.                     HS.Clear "C1#OPENING_PROV"
  1212.                     HS.Clear "C3#Opening_Cost"
  1213.                     HS.Clear "C3#Opening_Depr"
  1214.                     HS.Clear "A#DEB_TR_PR_BD_OPEN"
  1215.                     HS.Clear "A#DEB_S_ST_PR_OPEN"
  1216.                     HS.Clear "A#INV_ASS_OPEN"
  1217.                     HS.Clear "A#INV_S_JV_OPEN"
  1218.                     HS.Clear "A#GW_COST_OPEN"
  1219.                     HS.Clear "A#GW_ACCDEP_OPEN"
  1220.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT"
  1221.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST"
  1222.                     HS.Clear "A#TAX_OPEN"
  1223.                     HS.Clear "A#SFD_OPEN"
  1224.                     HS.Clear "A#MIN_OPEN"
  1225.                     HS.Clear "A#DEF_TAX_A_OPEN"
  1226.                     HS.Clear "C1#Closing"
  1227.                     HS.Clear "C1#CLOSING_PROV"
  1228.                     HS.Clear "C3#Closing_Cost"
  1229.                     HS.Clear "C3#Closing_Depr"
  1230.                     HS.Clear "A#DEB_TR_PR_BD_CL"
  1231.                     HS.Clear "A#DEB_S_ST_PR_CL"
  1232.                     HS.Clear "A#INV_ASS_CL"
  1233.                     HS.Clear "A#INV_S_JV_CL"
  1234.                     HS.Clear "A#GW_COST_CL"
  1235.                     HS.Clear "A#GW_ACCDEP_CL"
  1236.                     HS.Clear "A#NONCUR_RC_CLOSE"
  1237.                     HS.Clear "A#TAX_CL"
  1238.                     HS.Clear "A#SFD_CL"
  1239.                     HS.Clear "A#MIN_CL"
  1240.                     HS.Clear "A#WCM_INV_MOV.C1#OPENING"
  1241.                     HS.Clear "A#WCM_TR_RC.C1#OPENING"
  1242.                     HS.Clear "A#WCM_S_RC.C1#OPENING"
  1243.                     HS.Clear "A#WCM_TPAY.C1#OPENING"
  1244.                     HS.Clear "A#WCM_PAY_OTH.C1#OPENING"
  1245.                     HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1246.                     HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1247.                     HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1248.                     HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1249.                     HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1250. '                   HS.CLEAR "A#IGPTransPlug"
  1251. '                   HS.CLEAR "A#IGPSTPlug"
  1252. '                   HS.CLEAR "A#IGPRevPlug"
  1253. '                   HS.CLEAR "A#IGPRentPlug"
  1254. '                   HS.CLEAR "A#IGPLTPlug"
  1255. '                   HS.CLEAR "A#IGPIntPlug"
  1256. '                   HS.CLEAR "A#IGPFeesPlug"
  1257. '                   HS.CLEAR "A#IGPEqPlug"
  1258. '                   HS.CLEAR "A#IGPDivPlug"
  1259. '                   HS.CLEAR "A#IGPCompPlug"
  1260. '                   HS.CLEAR "A#IGPCashPlug"
  1261.  
  1262.                     Call IncomeStatement
  1263.                     Call BalanceSheet
  1264.                     '*******************************************************************
  1265.                     'Fund Reserves Transfer from the IS
  1266.                     '*******************************************************************
  1267.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  1268.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  1269.                     hs.round(0.0001)
  1270.                         HS.Exp "A#OPENINGRATE = S#Forecast.A#ENDOFMONTHRATE.Y#Prior.P#Last"
  1271.                     HS.NoRound
  1272.  
  1273.                         HS.Exp "A#AP_PREV_OPEN.W#YTD"&C1234None&" = A#AP_TOTAL"&C1234Top&".S#Forecast.W#YTD.I#[ICP Top].P#LAST.Y#PRIOR.V#<Entity Curr Total>"
  1274.                     '***************************************************
  1275.                     'OPENING BALANCES
  1276.                     'Opening Balances = Closing Balances Prior Year Last Period
  1277.                     '***************************************************
  1278.                         'C1 & C3
  1279.                         HS.Exp "C1#Opening.W#YTD = S#Forecast.W#YTD.C1#Closing.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1280.                         HS.Exp "C1#OPENING_PROV.W#YTD = S#Forecast.W#YTD.C1#CLOSING_PROV.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1281.                         HS.Exp "C3#Opening_Cost.W#YTD = S#Forecast.W#YTD.C3#Closing_Cost.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1282.                         HS.Exp "C3#Opening_Depr.W#YTD = S#Forecast.W#YTD.C3#Closing_Depr.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1283.  
  1284.                         'Assets
  1285.                         HS.Exp "A#DEB_TR_PR_BD_OPEN.W#YTD = S#Forecast.W#YTD.A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1286.                         HS.Exp "A#DEB_S_ST_PR_OPEN.W#YTD = S#Forecast.W#YTD.A#DEB_S_ST_PR_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1287.                         HS.Exp "A#INV_ASS_OPEN.W#YTD = S#Forecast.W#YTD.A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1288.                         HS.Exp "A#INV_S_JV_OPEN.W#YTD = S#Forecast.W#YTD.A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1289.                         HS.Exp "A#GW_COST_OPEN.W#YTD = S#Forecast.W#YTD.A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1290.                         HS.Exp "A#GW_ACCDEP_OPEN.W#YTD = S#Forecast.W#YTD.A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1291.                         HS.Exp "A#NONCUR_RC_OPEN.W#YTD = S#Forecast.W#YTD.A#NONCUR_RC_CLOSE.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1292.                         HS.Exp "A#ACQ_RES_OPEN.W#YTD = S#Forecast.W#YTD.A#ACQ_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1293.                         HS.Exp "A#ACQ_OTH_RES_OPEN.W#YTD = S#Forecast.W#YTD.A#ACQ_OTH_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1294.  
  1295.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_LT.P#Last.Y#Prior"
  1296.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_ST.P#Last.Y#Prior"
  1297.  
  1298.                         'Liabilities
  1299.                         HS.Exp "A#TAX_OPEN.W#YTD = S#Forecast.A#BS_TAX_PAYABLE.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1300.                         HS.Exp "A#SFD_OPEN.W#YTD = S#Forecast.A#BS_SHAREH_FOR_DIV.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1301.                         HS.Exp "A#MIN_OPEN.W#YTD = S#Forecast.A#SH_FUND_MINORITY.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1302.                         HS.Exp "A#DEF_TAX_A_OPEN.W#YTD = S#Forecast.A#DEF_TAX_A_TOTAL.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1303.  
  1304.                         HS.Exp"A#BEGIN_CASH_EQ"&C1234None&" = A#CUR_ASS_CASH"&C1234Top&".P#LAST.S#Forecast.Y#PRIOR.V#<Entity Curr Total>.I#[ICP Top] - A#BS_BANK_OVERDRAFT.V#<Entity Curr Total>.I#[ICP Top].S#Forecast.P#LAST.Y#PRIOR"&C1234Top
  1305.                         '--------------------------------------------------------
  1306.                         'WORKING CAPITAL OPENING
  1307.                         '--------------------------------------------------------
  1308.                         'Inventories
  1309.                             HS.Exp "A#WCM_INV_MOV.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.V#<Entity Curr Total>.S#Forecast.W#YTD.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  1310.                         'Trade Receivables & Sundry Debtors
  1311.                             HS.Exp "A#WCM_TR_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.V#<Entity Curr Total>.S#Forecast.W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1312.                         'Sundry Debtors
  1313.                             HS.Exp "A#WCM_S_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.V#<Entity Curr Total>.S#Forecast.W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1314.                         'Trade Payables
  1315.                             HS.Exp "A#WCM_TPAY.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.V#<Entity Curr Total>.S#Forecast.W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1316.                         'Other Payables
  1317.                             HS.Exp "A#WCM_PAY_OTH.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.V#<Entity Curr Total>.S#Forecast.W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1318.                         '--------------------------------------------------------
  1319.                         'INTERGROUP Loans
  1320.                         '--------------------------------------------------------
  1321.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1322.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1323.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1324.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1325.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1326.  
  1327.  
  1328.                         select case ValueM
  1329.                         Case "<Entity Currency>"
  1330.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  1331.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1332.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  1333.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1334.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  1335.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1336.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  1337.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1338.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  1339.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.V#<Entity Curr Total>.S#Forecast.P#LAST.W#YTD.Y#PRIOR.I#[ICP Top]"&C1234Top
  1340.                         end select
  1341.  
  1342.  
  1343.                         '***************************************************
  1344.                         'CLOSING BALANCES FOR FCTR
  1345.                         'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  1346.                         '***************************************************
  1347.                         'C1 & C3
  1348.                         HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  1349.                         HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  1350.                         HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  1351.                         HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  1352.  
  1353.                         'Assets
  1354.                         HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  1355.                         HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  1356.                         HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  1357.                         HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  1358.                         HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  1359.                         HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  1360.                         HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  1361.  
  1362.                         'Liabilities
  1363.                         HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  1364.                         HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  1365.                         HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  1366.     '                   Call Hyperinflation
  1367.     '                   Call Eliminate (strAccount, strICP)
  1368.                     Call AdditionalInfo
  1369.                     Call Taxation
  1370.                     Call Cashflow
  1371. '                   Call Hyperinflation
  1372. '               Call Eliminate (strAccount, strICP)
  1373.  
  1374. '           Call Writetofile("Running Other Scenario's END")
  1375.                 End If
  1376.  
  1377.                 Else
  1378. '               Call writetofile("Entity is "&HS.Entity.member&" on value "&HS.Value.Member)
  1379.  
  1380.                     Call IncomeStatement
  1381.                     Call BalanceSheet
  1382.                 '--------------------------------------------------------
  1383.                 'INTERGROUP Loans
  1384.                 '--------------------------------------------------------
  1385.                 HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1386.                 HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1387.                 HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1388.                 HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1389.                 HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1390.  
  1391.                 select case ValueM
  1392.  
  1393.                 Case "<Entity Currency>"
  1394.                 'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  1395.                     HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1396.                 'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  1397.                     HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1398.                 'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  1399.                     HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1400.                 'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  1401.                     HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1402.                 'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  1403.                     HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.V#<Entity Curr Total>.S#Forecast.P#LAST.W#YTD.Y#PRIOR.I#[ICP Top]"&C1234Top
  1404.                 end select
  1405.  
  1406.                 '*******************************************************************
  1407.                 'Fund Reserves Transfer from the IS
  1408.                 '*******************************************************************
  1409.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  1410.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  1411.  
  1412.                 '***************************************************
  1413.                 'CLOSING BALANCES FOR FCTR
  1414.                 'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  1415.                 '***************************************************
  1416.                 'C1 & C3
  1417.                     HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  1418.                     HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  1419.                     HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  1420.                     HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  1421.  
  1422.                     'Assets
  1423.                     HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  1424.                     HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  1425.                     HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  1426.                     HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  1427.                     HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  1428.                     HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  1429.                     HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  1430.  
  1431.                     'Liabilities
  1432.                     HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  1433.                     HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  1434.                     HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  1435. '   Call Writetofile("Running Actual Else")
  1436.  
  1437.                     Call AdditionalInfo
  1438.                     Call Taxation
  1439.                     Call Cashflow
  1440. '                   Call Hyperinflation
  1441.  
  1442.  
  1443.             End IF
  1444.         Case "BudV2"
  1445.  
  1446. '       Call Writetofile("Running Other Scenario's begin")
  1447.                 ValueM = HS.Value.member
  1448.                 If HS.Entity.IsBase("", "") then
  1449.                 If ValueM = "<Entity Currency>" then
  1450.                     HS.Clear "A#AP_PREV_OPEN"
  1451.                     HS.Clear "C1#Opening"
  1452.                     HS.Clear "C1#OPENING_PROV"
  1453.                     HS.Clear "C3#Opening_Cost"
  1454.                     HS.Clear "C3#Opening_Depr"
  1455.                     HS.Clear "A#DEB_TR_PR_BD_OPEN"
  1456.                     HS.Clear "A#DEB_S_ST_PR_OPEN"
  1457.                     HS.Clear "A#INV_ASS_OPEN"
  1458.                     HS.Clear "A#INV_S_JV_OPEN"
  1459.                     HS.Clear "A#GW_COST_OPEN"
  1460.                     HS.Clear "A#GW_ACCDEP_OPEN"
  1461.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT"
  1462.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST"
  1463.                     HS.Clear "A#TAX_OPEN"
  1464.                     HS.Clear "A#SFD_OPEN"
  1465.                     HS.Clear "A#MIN_OPEN"
  1466.                     HS.Clear "A#DEF_TAX_A_OPEN"
  1467.                     HS.Clear "C1#Closing"
  1468.                     HS.Clear "C1#CLOSING_PROV"
  1469.                     HS.Clear "C3#Closing_Cost"
  1470.                     HS.Clear "C3#Closing_Depr"
  1471.                     HS.Clear "A#DEB_TR_PR_BD_CL"
  1472.                     HS.Clear "A#DEB_S_ST_PR_CL"
  1473.                     HS.Clear "A#INV_ASS_CL"
  1474.                     HS.Clear "A#INV_S_JV_CL"
  1475.                     HS.Clear "A#GW_COST_CL"
  1476.                     HS.Clear "A#GW_ACCDEP_CL"
  1477.                     HS.Clear "A#NONCUR_RC_CLOSE"
  1478.                     HS.Clear "A#TAX_CL"
  1479.                     HS.Clear "A#SFD_CL"
  1480.                     HS.Clear "A#MIN_CL"
  1481.                     HS.Clear "A#WCM_INV_MOV.C1#OPENING"
  1482.                     HS.Clear "A#WCM_TR_RC.C1#OPENING"
  1483.                     HS.Clear "A#WCM_S_RC.C1#OPENING"
  1484.                     HS.Clear "A#WCM_TPAY.C1#OPENING"
  1485.                     HS.Clear "A#WCM_PAY_OTH.C1#OPENING"
  1486.                     HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1487.                     HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1488.                     HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1489.                     HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1490.                     HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1491. '                   HS.CLEAR "A#IGPTransPlug"
  1492. '                   HS.CLEAR "A#IGPSTPlug"
  1493. '                   HS.CLEAR "A#IGPRevPlug"
  1494. '                   HS.CLEAR "A#IGPRentPlug"
  1495. '                   HS.CLEAR "A#IGPLTPlug"
  1496. '                   HS.CLEAR "A#IGPIntPlug"
  1497. '                   HS.CLEAR "A#IGPFeesPlug"
  1498. '                   HS.CLEAR "A#IGPEqPlug"
  1499. '                   HS.CLEAR "A#IGPDivPlug"
  1500. '                   HS.CLEAR "A#IGPCompPlug"
  1501. '                   HS.CLEAR "A#IGPCashPlug"
  1502.  
  1503.                     Call IncomeStatement
  1504.                     Call BalanceSheet
  1505.                     '*******************************************************************
  1506.                     'Fund Reserves Transfer from the IS
  1507.                     '*******************************************************************
  1508.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  1509.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  1510.                     hs.round(0.0001)
  1511.                         HS.Exp "A#OPENINGRATE = S#Forecast.A#ENDOFMONTHRATE.Y#Prior.P#Last"
  1512.                     HS.NoRound
  1513.  
  1514.                         HS.Exp "A#AP_PREV_OPEN.W#YTD"&C1234None&" = A#AP_TOTAL"&C1234Top&".S#Forecast.W#YTD.I#[ICP Top].P#LAST.Y#PRIOR.V#<Entity Curr Total>"
  1515.                     '***************************************************
  1516.                     'OPENING BALANCES
  1517.                     'Opening Balances = Closing Balances Prior Year Last Period
  1518.                     '***************************************************
  1519.                         'C1 & C3
  1520.                         HS.Exp "C1#Opening.W#YTD = S#Forecast.W#YTD.C1#Closing.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1521.                         HS.Exp "C1#OPENING_PROV.W#YTD = S#Forecast.W#YTD.C1#CLOSING_PROV.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1522.                         HS.Exp "C3#Opening_Cost.W#YTD = S#Forecast.W#YTD.C3#Closing_Cost.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1523.                         HS.Exp "C3#Opening_Depr.W#YTD = S#Forecast.W#YTD.C3#Closing_Depr.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1524.  
  1525.                         'Assets
  1526.                         HS.Exp "A#DEB_TR_PR_BD_OPEN.W#YTD = S#Forecast.W#YTD.A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1527.                         HS.Exp "A#DEB_S_ST_PR_OPEN.W#YTD = S#Forecast.W#YTD.A#DEB_S_ST_PR_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1528.                         HS.Exp "A#INV_ASS_OPEN.W#YTD = S#Forecast.W#YTD.A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1529.                         HS.Exp "A#INV_S_JV_OPEN.W#YTD = S#Forecast.W#YTD.A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1530.                         HS.Exp "A#GW_COST_OPEN.W#YTD = S#Forecast.W#YTD.A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1531.                         HS.Exp "A#GW_ACCDEP_OPEN.W#YTD = S#Forecast.W#YTD.A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1532.                         HS.Exp "A#NONCUR_RC_OPEN.W#YTD = S#Forecast.W#YTD.A#NONCUR_RC_CLOSE.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1533.                         HS.Exp "A#ACQ_RES_OPEN.W#YTD = S#Forecast.W#YTD.A#ACQ_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1534.                         HS.Exp "A#ACQ_OTH_RES_OPEN.W#YTD = S#Forecast.W#YTD.A#ACQ_OTH_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1535.  
  1536.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_LT.P#Last.Y#Prior"
  1537.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_ST.P#Last.Y#Prior"
  1538.  
  1539.                         'Liabilities
  1540.                         HS.Exp "A#TAX_OPEN.W#YTD = S#Forecast.A#BS_TAX_PAYABLE.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1541.                         HS.Exp "A#SFD_OPEN.W#YTD = S#Forecast.A#BS_SHAREH_FOR_DIV.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1542.                         HS.Exp "A#MIN_OPEN.W#YTD = S#Forecast.A#SH_FUND_MINORITY.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1543.                         HS.Exp "A#DEF_TAX_A_OPEN.W#YTD = S#Forecast.A#DEF_TAX_A_TOTAL.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1544.  
  1545.                         HS.Exp"A#BEGIN_CASH_EQ"&C1234None&" = A#CUR_ASS_CASH"&C1234Top&".P#LAST.S#Forecast.Y#PRIOR.I#[ICP Top] - A#BS_BANK_OVERDRAFT.I#[ICP Top].S#Forecast.P#LAST.Y#PRIOR"&C1234Top
  1546.                         '--------------------------------------------------------
  1547.                         'WORKING CAPITAL OPENING
  1548.                         '--------------------------------------------------------
  1549.                         'Inventories
  1550.                             HS.Exp "A#WCM_INV_MOV.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.V#<Entity Curr Total>.S#Forecast.W#YTD.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  1551.                         'Trade Receivables & Sundry Debtors
  1552.                             HS.Exp "A#WCM_TR_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.V#<Entity Curr Total>.S#Forecast.W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1553.                         'Sundry Debtors
  1554.                             HS.Exp "A#WCM_S_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.V#<Entity Curr Total>.S#Forecast.W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1555.                         'Trade Payables
  1556.                             HS.Exp "A#WCM_TPAY.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.V#<Entity Curr Total>.S#Forecast.W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1557.                         'Other Payables
  1558.                             HS.Exp "A#WCM_PAY_OTH.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.V#<Entity Curr Total>.S#Forecast.W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C1234Top
  1559.                         '--------------------------------------------------------
  1560.                         'INTERGROUP Loans
  1561.                         '--------------------------------------------------------
  1562.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1563.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1564.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1565.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1566.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1567.  
  1568.  
  1569.                         select case ValueM
  1570.                         Case "<Entity Currency>"
  1571.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  1572.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1573.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  1574.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1575.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  1576.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1577.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  1578.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1579.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  1580.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.V#<Entity Curr Total>.S#Forecast.P#LAST.W#YTD.Y#PRIOR.I#[ICP Top]"&C1234Top
  1581.                         end select
  1582.  
  1583.  
  1584.                         '***************************************************
  1585.                         'CLOSING BALANCES FOR FCTR
  1586.                         'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  1587.                         '***************************************************
  1588.                         'C1 & C3
  1589.                         HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  1590.                         HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  1591.                         HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  1592.                         HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  1593.  
  1594.                         'Assets
  1595.                         HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  1596.                         HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  1597.                         HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  1598.                         HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  1599.                         HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  1600.                         HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  1601.                         HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  1602.  
  1603.                         'Liabilities
  1604.                         HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  1605.                         HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  1606.                         HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  1607.     '                   Call Hyperinflation
  1608.     '                   Call Eliminate (strAccount, strICP)
  1609.                     Call AdditionalInfo
  1610.                     Call Taxation
  1611.                     Call Cashflow
  1612. '                   Call Hyperinflation
  1613. '               Call Eliminate (strAccount, strICP)
  1614.  
  1615. '           Call Writetofile("Running Other Scenario's END")
  1616.                 End If
  1617.  
  1618.                 Else
  1619. '               Call writetofile("Entity is "&HS.Entity.member&" on value "&HS.Value.Member)
  1620.  
  1621.                     Call IncomeStatement
  1622.                     Call BalanceSheet
  1623.                 '--------------------------------------------------------
  1624.                 'INTERGROUP Loans
  1625.                 '--------------------------------------------------------
  1626.                 HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1627.                 HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1628.                 HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1629.                 HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1630.                 HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1631.  
  1632.                 select case ValueM
  1633.  
  1634.                 Case "<Entity Currency>"
  1635.                 'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  1636.                     HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1637.                 'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  1638.                     HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1639.                 'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  1640.                     HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1641.                 'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  1642.                     HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1643.                 'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  1644.                     HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#Forecast.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.V#<Entity Curr Total>.S#Forecast.P#LAST.W#YTD.Y#PRIOR.I#[ICP Top]"&C1234Top
  1645.                 end select
  1646.  
  1647.                 '*******************************************************************
  1648.                 'Fund Reserves Transfer from the IS
  1649.                 '*******************************************************************
  1650.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  1651.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  1652.  
  1653.                 '***************************************************
  1654.                 'CLOSING BALANCES FOR FCTR
  1655.                 'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  1656.                 '***************************************************
  1657.                 'C1 & C3
  1658.                     HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  1659.                     HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  1660.                     HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  1661.                     HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  1662.  
  1663.                     'Assets
  1664.                     HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  1665.                     HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  1666.                     HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  1667.                     HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  1668.                     HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  1669.                     HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  1670.                     HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  1671.  
  1672.                     'Liabilities
  1673.                     HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  1674.                     HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  1675.                     HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  1676. '   Call Writetofile("Running Actual Else")
  1677.  
  1678.                     Call AdditionalInfo
  1679.                     Call Taxation
  1680.                     Call Cashflow
  1681. '                   Call Hyperinflation
  1682.  
  1683.  
  1684.             End IF
  1685.             Case "BudY1"
  1686.  
  1687.         '       Call Writetofile("Running Other Scenario's begin")
  1688.                 ValueM = HS.Value.member
  1689.                 If HS.Entity.IsBase("", "") then
  1690.                 If ValueM = "<Entity Currency>" then
  1691.                     HS.Clear "A#AP_PREV_OPEN"
  1692.                     HS.Clear "C1#Opening"
  1693.                     HS.Clear "C1#OPENING_PROV"
  1694.                     HS.Clear "C3#Opening_Cost"
  1695.                     HS.Clear "C3#Opening_Depr"
  1696.                     HS.Clear "A#DEB_TR_PR_BD_OPEN"
  1697.                     HS.Clear "A#DEB_S_ST_PR_OPEN"
  1698.                     HS.Clear "A#INV_ASS_OPEN"
  1699.                     HS.Clear "A#INV_S_JV_OPEN"
  1700.                     HS.Clear "A#GW_COST_OPEN"
  1701.                     HS.Clear "A#GW_ACCDEP_OPEN"
  1702.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT"
  1703.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST"
  1704.                     HS.Clear "A#TAX_OPEN"
  1705.                     HS.Clear "A#SFD_OPEN"
  1706.                     HS.Clear "A#MIN_OPEN"
  1707.                     HS.Clear "A#DEF_TAX_A_OPEN"
  1708.                     HS.Clear "C1#Closing"
  1709.                     HS.Clear "C1#CLOSING_PROV"
  1710.                     HS.Clear "C3#Closing_Cost"
  1711.                     HS.Clear "C3#Closing_Depr"
  1712.                     HS.Clear "A#DEB_TR_PR_BD_CL"
  1713.                     HS.Clear "A#DEB_S_ST_PR_CL"
  1714.                     HS.Clear "A#INV_ASS_CL"
  1715.                     HS.Clear "A#INV_S_JV_CL"
  1716.                     HS.Clear "A#GW_COST_CL"
  1717.                     HS.Clear "A#GW_ACCDEP_CL"
  1718.                     HS.Clear "A#NONCUR_RC_CLOSE"
  1719.                     HS.Clear "A#TAX_CL"
  1720.                     HS.Clear "A#SFD_CL"
  1721.                     HS.Clear "A#MIN_CL"
  1722.                     HS.Clear "A#WCM_INV_MOV.C1#OPENING"
  1723.                     HS.Clear "A#WCM_TR_RC.C1#OPENING"
  1724.                     HS.Clear "A#WCM_S_RC.C1#OPENING"
  1725.                     HS.Clear "A#WCM_TPAY.C1#OPENING"
  1726.                     HS.Clear "A#WCM_PAY_OTH.C1#OPENING"
  1727.                     HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1728.                     HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1729.                     HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1730.                     HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1731.                     HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1732. '                   HS.CLEAR "A#IGPTransPlug"
  1733. '                   HS.CLEAR "A#IGPSTPlug"
  1734. '                   HS.CLEAR "A#IGPRevPlug"
  1735. '                   HS.CLEAR "A#IGPRentPlug"
  1736. '                   HS.CLEAR "A#IGPLTPlug"
  1737. '                   HS.CLEAR "A#IGPIntPlug"
  1738. '                   HS.CLEAR "A#IGPFeesPlug"
  1739. '                   HS.CLEAR "A#IGPEqPlug"
  1740. '                   HS.CLEAR "A#IGPDivPlug"
  1741. '                   HS.CLEAR "A#IGPCompPlug"
  1742. '                   HS.CLEAR "A#IGPCashPlug"
  1743.  
  1744.                     Call IncomeStatement
  1745.                     Call BalanceSheet
  1746.                     '*******************************************************************
  1747.                     'Fund Reserves Transfer from the IS
  1748.                     '*******************************************************************
  1749.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  1750.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  1751.                     hs.round(0.0001)
  1752.                         HS.Exp "A#OPENINGRATE = S#BudV1.A#ENDOFMONTHRATE.Y#Prior.P#Last"
  1753.                     HS.NoRound
  1754.  
  1755.                         HS.Exp "A#AP_PREV_OPEN.W#YTD"&C1234None&" = A#AP_TOTAL"&C1234Top&".S#BudV1.W#YTD.I#[ICP Top].P#LAST.Y#PRIOR.V#<Entity Curr Total>"
  1756.                     '***************************************************
  1757.                     'OPENING BALANCES
  1758.                     'Opening Balances = Closing Balances Prior Year Last Period
  1759.                     '***************************************************
  1760.                         'C1 & C3
  1761.                         HS.Exp "C1#Opening.W#YTD = S#BudV1.W#YTD.C1#Closing.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1762.                         HS.Exp "C1#OPENING_PROV.W#YTD = S#BudV1.W#YTD.C1#CLOSING_PROV.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1763.                         HS.Exp "C3#Opening_Cost.W#YTD = S#BudV1.W#YTD.C3#Closing_Cost.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1764.                         HS.Exp "C3#Opening_Depr.W#YTD = S#BudV1.W#YTD.C3#Closing_Depr.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1765.  
  1766.                         'Assets
  1767.                         HS.Exp "A#DEB_TR_PR_BD_OPEN.W#YTD = S#BudV1.W#YTD.A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1768.                         HS.Exp "A#DEB_S_ST_PR_OPEN.W#YTD = S#BudV1.W#YTD.A#DEB_S_ST_PR_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1769.                         HS.Exp "A#INV_ASS_OPEN.W#YTD = S#BudV1.W#YTD.A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1770.                         HS.Exp "A#INV_S_JV_OPEN.W#YTD = S#BudV1.W#YTD.A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1771.                         HS.Exp "A#GW_COST_OPEN.W#YTD = S#BudV1.W#YTD.A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1772.                         HS.Exp "A#GW_ACCDEP_OPEN.W#YTD = S#BudV1.W#YTD.A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1773.                         HS.Exp "A#NONCUR_RC_OPEN.W#YTD = S#BudV1.W#YTD.A#NONCUR_RC_CLOSE.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1774.                         HS.Exp "A#ACQ_RES_OPEN.W#YTD = S#BudV1.W#YTD.A#ACQ_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1775.                         HS.Exp "A#ACQ_OTH_RES_OPEN.W#YTD = S#BudV1.W#YTD.A#ACQ_OTH_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1776.  
  1777.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_LT.P#Last.Y#Prior"
  1778.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_ST.P#Last.Y#Prior"
  1779.  
  1780.                         'Liabilities
  1781.                         HS.Exp "A#TAX_OPEN.W#YTD = S#BudV1.A#BS_TAX_PAYABLE.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1782.                         HS.Exp "A#SFD_OPEN.W#YTD = S#BudV1.A#BS_SHAREH_FOR_DIV.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1783.                         HS.Exp "A#MIN_OPEN.W#YTD = S#BudV1.A#SH_FUND_MINORITY.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1784.                         HS.Exp "A#DEF_TAX_A_OPEN.W#YTD = S#BudV1.A#DEF_TAX_A_TOTAL.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1785.  
  1786.                         HS.Exp"A#BEGIN_CASH_EQ"&C1234None&" = A#CUR_ASS_CASH"&C1234Top&".P#LAST.S#BudV1.Y#PRIOR.I#[ICP Top] - A#BS_BANK_OVERDRAFT.I#[ICP Top].S#BudV1.P#LAST.Y#PRIOR"&C1234Top
  1787.                         '--------------------------------------------------------
  1788.                         'WORKING CAPITAL OPENING
  1789.                         '--------------------------------------------------------
  1790.                         'Inventories
  1791.                             HS.Exp "A#WCM_INV_MOV.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.S#BudV1.W#YTD.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  1792.                         'Trade Receivables & Sundry Debtors
  1793.                             HS.Exp "A#WCM_TR_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.V#<Entity Curr Total>.S#BudV1.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  1794.                         'Sundry Debtors
  1795.                             HS.Exp "A#WCM_S_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.V#<Entity Curr Total>.S#BudV1.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  1796.                         'Trade Payables
  1797.                             HS.Exp "A#WCM_TPAY.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.V#<Entity Curr Total>.S#BudV1.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  1798.                         'Other Payables
  1799.                             HS.Exp "A#WCM_PAY_OTH.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.V#<Entity Curr Total>.S#BudV1.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  1800.                         '--------------------------------------------------------
  1801.                         'INTERGROUP Loans
  1802.                         '--------------------------------------------------------
  1803.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1804.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1805.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1806.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1807.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1808.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  1809.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#BudV1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1810.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  1811.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#BudV1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1812.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  1813.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#BudV1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1814.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  1815.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#BudV1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1816.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  1817.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#BudV1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.S#BudV1.V#<Entity Curr Total>.W#YTD.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1818.  
  1819.                         '***************************************************
  1820.                         'CLOSING BALANCES FOR FCTR
  1821.                         'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  1822.                         '***************************************************
  1823.                         'C1 & C3
  1824.                         HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  1825.                         HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  1826.                         HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  1827.                         HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  1828.  
  1829.                         'Assets
  1830.                         HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  1831.                         HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  1832.                         HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  1833.                         HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  1834.                         HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  1835.                         HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  1836.                         HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  1837.  
  1838.                         'Liabilities
  1839.                         HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  1840.                         HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  1841.                         HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  1842.     '                   Call Hyperinflation
  1843.     '                   Call Eliminate (strAccount, strICP)
  1844.                     Call AdditionalInfo
  1845.                     Call Taxation
  1846.                     Call Cashflow
  1847. '                   Call Hyperinflation
  1848. '               Call Eliminate (strAccount, strICP)
  1849.  
  1850. '           Call Writetofile("Running Other Scenario's END")
  1851.                 End If
  1852.  
  1853.                 Else
  1854. '               Call writetofile("Entity is "&HS.Entity.member&" on value "&HS.Value.Member)
  1855.  
  1856.                     Call IncomeStatement
  1857.                     Call BalanceSheet
  1858.                         '--------------------------------------------------------
  1859.                         'INTERGROUP Loans
  1860.                         '--------------------------------------------------------
  1861.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1862.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1863.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1864.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1865.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1866.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  1867.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#BudV1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1868.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  1869.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#BudV1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1870.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  1871.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#BudV1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1872.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  1873.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#BudV1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1874.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  1875.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#BudV1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.S#BudV1.V#<Entity Curr Total>.W#YTD.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  1876.  
  1877.                 '*******************************************************************
  1878.                 'Fund Reserves Transfer from the IS
  1879.                 '*******************************************************************
  1880.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  1881.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  1882.  
  1883.                 '***************************************************
  1884.                 'CLOSING BALANCES FOR FCTR
  1885.                 'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  1886.                 '***************************************************
  1887.                 'C1 & C3
  1888.                     HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  1889.                     HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  1890.                     HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  1891.                     HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  1892.  
  1893.                     'Assets
  1894.                     HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  1895.                     HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  1896.                     HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  1897.                     HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  1898.                     HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  1899.                     HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  1900.                     HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  1901.  
  1902.                     'Liabilities
  1903.                     HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  1904.                     HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  1905.                     HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  1906. '   Call Writetofile("Running Actual Else")
  1907.  
  1908.                     Call AdditionalInfo
  1909.                     Call Taxation
  1910.                     Call Cashflow
  1911. '                   Call Hyperinflation
  1912.  
  1913.  
  1914.             End IF
  1915.  
  1916.             Case "BudY2"
  1917.  
  1918. '       Call Writetofile("Running Other Scenario's begin")
  1919.                 ValueM = HS.Value.member
  1920.                 If HS.Entity.IsBase("", "") then
  1921.                 If ValueM = "<Entity Currency>" then
  1922.                     HS.Clear "A#AP_PREV_OPEN"
  1923.                     HS.Clear "C1#Opening"
  1924.                     HS.Clear "C1#OPENING_PROV"
  1925.                     HS.Clear "C3#Opening_Cost"
  1926.                     HS.Clear "C3#Opening_Depr"
  1927.                     HS.Clear "A#DEB_TR_PR_BD_OPEN"
  1928.                     HS.Clear "A#DEB_S_ST_PR_OPEN"
  1929.                     HS.Clear "A#INV_ASS_OPEN"
  1930.                     HS.Clear "A#INV_S_JV_OPEN"
  1931.                     HS.Clear "A#GW_COST_OPEN"
  1932.                     HS.Clear "A#GW_ACCDEP_OPEN"
  1933.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT"
  1934.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST"
  1935.                     HS.Clear "A#TAX_OPEN"
  1936.                     HS.Clear "A#SFD_OPEN"
  1937.                     HS.Clear "A#MIN_OPEN"
  1938.                     HS.Clear "A#DEF_TAX_A_OPEN"
  1939.                     HS.Clear "C1#Closing"
  1940.                     HS.Clear "C1#CLOSING_PROV"
  1941.                     HS.Clear "C3#Closing_Cost"
  1942.                     HS.Clear "C3#Closing_Depr"
  1943.                     HS.Clear "A#DEB_TR_PR_BD_CL"
  1944.                     HS.Clear "A#DEB_S_ST_PR_CL"
  1945.                     HS.Clear "A#INV_ASS_CL"
  1946.                     HS.Clear "A#INV_S_JV_CL"
  1947.                     HS.Clear "A#GW_COST_CL"
  1948.                     HS.Clear "A#GW_ACCDEP_CL"
  1949.                     HS.Clear "A#NONCUR_RC_CLOSE"
  1950.                     HS.Clear "A#TAX_CL"
  1951.                     HS.Clear "A#SFD_CL"
  1952.                     HS.Clear "A#MIN_CL"
  1953.                     HS.Clear "A#WCM_INV_MOV.C1#OPENING"
  1954.                     HS.Clear "A#WCM_TR_RC.C1#OPENING"
  1955.                     HS.Clear "A#WCM_S_RC.C1#OPENING"
  1956.                     HS.Clear "A#WCM_TPAY.C1#OPENING"
  1957.                     HS.Clear "A#WCM_PAY_OTH.C1#OPENING"
  1958.                     HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  1959.                     HS.Clear "A#FA_INTRGRP_OPEN_TO"
  1960.                     HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  1961.                     HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  1962.                     HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  1963. '                   HS.CLEAR "A#IGPTransPlug"
  1964. '                   HS.CLEAR "A#IGPSTPlug"
  1965. '                   HS.CLEAR "A#IGPRevPlug"
  1966. '                   HS.CLEAR "A#IGPRentPlug"
  1967. '                   HS.CLEAR "A#IGPLTPlug"
  1968. '                   HS.CLEAR "A#IGPIntPlug"
  1969. '                   HS.CLEAR "A#IGPFeesPlug"
  1970. '                   HS.CLEAR "A#IGPEqPlug"
  1971. '                   HS.CLEAR "A#IGPDivPlug"
  1972. '                   HS.CLEAR "A#IGPCompPlug"
  1973. '                   HS.CLEAR "A#IGPCashPlug"
  1974.  
  1975.                     Call IncomeStatement
  1976.                     Call BalanceSheet
  1977.                     '*******************************************************************
  1978.                     'Fund Reserves Transfer from the IS
  1979.                     '*******************************************************************
  1980.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  1981.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  1982.                     hs.round(0.0001)
  1983.                         HS.Exp "A#OPENINGRATE = S#BudY1.A#ENDOFMONTHRATE.Y#Prior.P#Last"
  1984.                     HS.NoRound
  1985.  
  1986.                         HS.Exp "A#AP_PREV_OPEN.W#YTD"&C1234None&" = A#AP_TOTAL"&C1234Top&".S#BudY1.W#YTD.I#[ICP Top].P#LAST.Y#PRIOR.V#<Entity Curr Total>"
  1987.                     '***************************************************
  1988.                     'OPENING BALANCES
  1989.                     'Opening Balances = Closing Balances Prior Year Last Period
  1990.                     '***************************************************
  1991.                         'C1 & C3
  1992.                         HS.Exp "C1#Opening.W#YTD = S#BudY1.W#YTD.C1#Closing.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1993.                         HS.Exp "C1#OPENING_PROV.W#YTD = S#BudY1.W#YTD.C1#CLOSING_PROV.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1994.                         HS.Exp "C3#Opening_Cost.W#YTD = S#BudY1.W#YTD.C3#Closing_Cost.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1995.                         HS.Exp "C3#Opening_Depr.W#YTD = S#BudY1.W#YTD.C3#Closing_Depr.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  1996.  
  1997.                         'Assets
  1998.                         HS.Exp "A#DEB_TR_PR_BD_OPEN.W#YTD = S#BudY1.W#YTD.A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  1999.                         HS.Exp "A#DEB_S_ST_PR_OPEN.W#YTD = S#BudY1.W#YTD.A#DEB_S_ST_PR_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2000.                         HS.Exp "A#INV_ASS_OPEN.W#YTD = S#BudY1.W#YTD.A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2001.                         HS.Exp "A#INV_S_JV_OPEN.W#YTD = S#BudY1.W#YTD.A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2002.                         HS.Exp "A#GW_COST_OPEN.W#YTD = S#BudY1.W#YTD.A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2003.                         HS.Exp "A#GW_ACCDEP_OPEN.W#YTD = S#BudY1.W#YTD.A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2004.                         HS.Exp "A#NONCUR_RC_OPEN.W#YTD = S#BudY1.W#YTD.A#NONCUR_RC_CLOSE.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2005.                         HS.Exp "A#ACQ_RES_OPEN.W#YTD = S#BudY1.W#YTD.A#ACQ_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2006.                         HS.Exp "A#ACQ_OTH_RES_OPEN.W#YTD = S#BudY1.W#YTD.A#ACQ_OTH_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2007.  
  2008.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_LT.P#Last.Y#Prior"
  2009.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_ST.P#Last.Y#Prior"
  2010.  
  2011.                         'Liabilities
  2012.                         HS.Exp "A#TAX_OPEN.W#YTD = S#BudY1.A#BS_TAX_PAYABLE.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2013.                         HS.Exp "A#SFD_OPEN.W#YTD = S#BudY1.A#BS_SHAREH_FOR_DIV.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2014.                         HS.Exp "A#MIN_OPEN.W#YTD = S#BudY1.A#SH_FUND_MINORITY.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2015.                         HS.Exp "A#DEF_TAX_A_OPEN.W#YTD = S#BudY1.A#DEF_TAX_A_TOTAL.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2016.  
  2017.                         HS.Exp"A#BEGIN_CASH_EQ"&C1234None&" = A#CUR_ASS_CASH"&C1234Top&".P#LAST.S#BudY1.Y#PRIOR.I#[ICP Top] - A#BS_BANK_OVERDRAFT.I#[ICP Top].S#BudY1.P#LAST.Y#PRIOR"&C1234Top
  2018.                         '--------------------------------------------------------
  2019.                         'WORKING CAPITAL OPENING
  2020.                         '--------------------------------------------------------
  2021.                         'Inventories
  2022.                             HS.Exp "A#WCM_INV_MOV.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.V#<Entity Curr Total>.S#BudY1.W#YTD.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  2023.                         'Trade Receivables & Sundry Debtors
  2024.                             HS.Exp "A#WCM_TR_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.S#BudY1.V#<Entity Curr Total>.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2025.                         'Sundry Debtors
  2026.                             HS.Exp "A#WCM_S_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.S#BudY1.C1#[None].V#<Entity Curr Total>.W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2027.                         'Trade Payables
  2028.                             HS.Exp "A#WCM_TPAY.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.S#BudY1.C1#[None].V#<Entity Curr Total>.W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2029.                         'Other Payables
  2030.                             HS.Exp "A#WCM_PAY_OTH.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.S#BudY1.C1#[None].V#<Entity Curr Total>.W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2031.                         '--------------------------------------------------------
  2032.                         'INTERGROUP Loans
  2033.                         '--------------------------------------------------------
  2034.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  2035.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  2036.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  2037.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  2038.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  2039.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  2040.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.W#YTD.V#<Entity Curr Total>.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2041.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  2042.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.W#YTD.V#<Entity Curr Total>.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2043.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  2044.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2045.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  2046.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2047.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  2048.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.V#<Entity Curr Total>.W#YTD.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2049.  
  2050.                         '***************************************************
  2051.                         'CLOSING BALANCES FOR FCTR
  2052.                         'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  2053.                         '***************************************************
  2054.                         'C1 & C3
  2055.                         HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  2056.                         HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  2057.                         HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  2058.                         HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  2059.  
  2060.                         'Assets
  2061.                         HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  2062.                         HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  2063.                         HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  2064.                         HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  2065.                         HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  2066.                         HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  2067.                         HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  2068.  
  2069.                         'Liabilities
  2070.                         HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  2071.                         HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  2072.                         HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  2073.     '                   Call Hyperinflation
  2074.     '                   Call Eliminate (strAccount, strICP)
  2075.                     Call AdditionalInfo
  2076.                     Call Taxation
  2077.                     Call Cashflow
  2078. '                   Call Hyperinflation
  2079. '               Call Eliminate (strAccount, strICP)
  2080.  
  2081. '           Call Writetofile("Running Other Scenario's END")
  2082.                 End If
  2083.  
  2084.                 Else
  2085. '               Call writetofile("Entity is "&HS.Entity.member&" on value "&HS.Value.Member)
  2086.  
  2087.                     Call IncomeStatement
  2088.                     Call BalanceSheet
  2089.                         '--------------------------------------------------------
  2090.                         'INTERGROUP Loans
  2091.                         '--------------------------------------------------------
  2092.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  2093.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  2094.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  2095.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  2096.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  2097.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  2098.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.W#YTD.V#<Entity Curr Total>.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2099.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  2100.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.W#YTD.V#<Entity Curr Total>.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2101.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  2102.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2103.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  2104.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2105.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  2106.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.V#<Entity Curr Total>.W#YTD.S#BudY1.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2107.  
  2108.  
  2109.                 '*******************************************************************
  2110.                 'Fund Reserves Transfer from the IS
  2111.                 '*******************************************************************
  2112.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  2113.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  2114.  
  2115.                 '***************************************************
  2116.                 'CLOSING BALANCES FOR FCTR
  2117.                 'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  2118.                 '***************************************************
  2119.                 'C1 & C3
  2120.                     HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  2121.                     HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  2122.                     HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  2123.                     HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  2124.  
  2125.                     'Assets
  2126.                     HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  2127.                     HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  2128.                     HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  2129.                     HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  2130.                     HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  2131.                     HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  2132.                     HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  2133.  
  2134.                     'Liabilities
  2135.                     HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  2136.                     HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  2137.                     HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  2138. '   Call Writetofile("Running Actual Else")
  2139.  
  2140.                     Call AdditionalInfo
  2141.                     Call Taxation
  2142.                     Call Cashflow
  2143. '                   Call Hyperinflation
  2144.  
  2145.  
  2146.             End IF
  2147.  
  2148.             Case "BudY3"
  2149.  
  2150. '       Call Writetofile("Running Other Scenario's begin")
  2151.                 ValueM = HS.Value.member
  2152.                 If HS.Entity.IsBase("", "") then
  2153.                 If ValueM = "<Entity Currency>" then
  2154.                     HS.Clear "A#AP_PREV_OPEN"
  2155.                     HS.Clear "C1#Opening"
  2156.                     HS.Clear "C1#OPENING_PROV"
  2157.                     HS.Clear "C3#Opening_Cost"
  2158.                     HS.Clear "C3#Opening_Depr"
  2159.                     HS.Clear "A#DEB_TR_PR_BD_OPEN"
  2160.                     HS.Clear "A#DEB_S_ST_PR_OPEN"
  2161.                     HS.Clear "A#INV_ASS_OPEN"
  2162.                     HS.Clear "A#INV_S_JV_OPEN"
  2163.                     HS.Clear "A#GW_COST_OPEN"
  2164.                     HS.Clear "A#GW_ACCDEP_OPEN"
  2165.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT"
  2166.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST"
  2167.                     HS.Clear "A#TAX_OPEN"
  2168.                     HS.Clear "A#SFD_OPEN"
  2169.                     HS.Clear "A#MIN_OPEN"
  2170.                     HS.Clear "A#DEF_TAX_A_OPEN"
  2171.                     HS.Clear "C1#Closing"
  2172.                     HS.Clear "C1#CLOSING_PROV"
  2173.                     HS.Clear "C3#Closing_Cost"
  2174.                     HS.Clear "C3#Closing_Depr"
  2175.                     HS.Clear "A#DEB_TR_PR_BD_CL"
  2176.                     HS.Clear "A#DEB_S_ST_PR_CL"
  2177.                     HS.Clear "A#INV_ASS_CL"
  2178.                     HS.Clear "A#INV_S_JV_CL"
  2179.                     HS.Clear "A#GW_COST_CL"
  2180.                     HS.Clear "A#GW_ACCDEP_CL"
  2181.                     HS.Clear "A#NONCUR_RC_CLOSE"
  2182.                     HS.Clear "A#TAX_CL"
  2183.                     HS.Clear "A#SFD_CL"
  2184.                     HS.Clear "A#MIN_CL"
  2185.                     HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  2186.                     HS.Clear "A#FA_INTRGRP_OPEN_TO"
  2187.                     HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  2188.                     HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  2189.                     HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  2190. '                   HS.CLEAR "A#IGPTransPlug"
  2191. '                   HS.CLEAR "A#IGPSTPlug"
  2192. '                   HS.CLEAR "A#IGPRevPlug"
  2193. '                   HS.CLEAR "A#IGPRentPlug"
  2194. '                   HS.CLEAR "A#IGPLTPlug"
  2195. '                   HS.CLEAR "A#IGPIntPlug"
  2196. '                   HS.CLEAR "A#IGPFeesPlug"
  2197. '                   HS.CLEAR "A#IGPEqPlug"
  2198. '                   HS.CLEAR "A#IGPDivPlug"
  2199. '                   HS.CLEAR "A#IGPCompPlug"
  2200. '                   HS.CLEAR "A#IGPCashPlug"
  2201.  
  2202.                     Call IncomeStatement
  2203.                     Call BalanceSheet
  2204.                     '*******************************************************************
  2205.                     'Fund Reserves Transfer from the IS
  2206.                     '*******************************************************************
  2207.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  2208.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  2209.                     hs.round(0.0001)
  2210.  
  2211.                         HS.Exp "A#OPENINGRATE = S#BudY2.A#ENDOFMONTHRATE.Y#Prior.P#Last"
  2212.                     HS.NoRound
  2213.                         HS.Exp "A#AP_PREV_OPEN.W#YTD"&C1234None&" = A#AP_TOTAL"&C1234Top&".S#BudY2.W#YTD.I#[ICP Top].P#LAST.Y#PRIOR.V#<Entity Curr Total>"
  2214.                     '***************************************************
  2215.                     'OPENING BALANCES
  2216.                     'Opening Balances = Closing Balances Prior Year Last Period
  2217.                     '***************************************************
  2218.                         'C1 & C3
  2219.                         HS.Exp "C1#Opening.W#YTD = S#BudY2.W#YTD.C1#Closing.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2220.                         HS.Exp "C1#OPENING_PROV.W#YTD = S#BudY2.W#YTD.C1#CLOSING_PROV.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2221.                         HS.Exp "C3#Opening_Cost.W#YTD = S#BudY2.W#YTD.C3#Closing_Cost.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2222.                         HS.Exp "C3#Opening_Depr.W#YTD = S#BudY2.W#YTD.C3#Closing_Depr.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2223.  
  2224.                         'Assets
  2225.                         HS.Exp "A#DEB_TR_PR_BD_OPEN.W#YTD = S#BudY2.W#YTD.A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2226.                         HS.Exp "A#DEB_S_ST_PR_OPEN.W#YTD = S#BudY2.W#YTD.A#DEB_S_ST_PR_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2227.                         HS.Exp "A#INV_ASS_OPEN.W#YTD = S#BudY2.W#YTD.A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2228.                         HS.Exp "A#INV_S_JV_OPEN.W#YTD = S#BudY2.W#YTD.A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2229.                         HS.Exp "A#GW_COST_OPEN.W#YTD = S#BudY2.W#YTD.A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2230.                         HS.Exp "A#GW_ACCDEP_OPEN.W#YTD = S#BudY2.W#YTD.A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2231.                         HS.Exp "A#NONCUR_RC_OPEN.W#YTD = S#BudY2.W#YTD.A#NONCUR_RC_CLOSE.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2232.                         HS.Exp "A#ACQ_RES_OPEN.W#YTD = S#BudY2.W#YTD.A#ACQ_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2233.                         HS.Exp "A#ACQ_OTH_RES_OPEN.W#YTD = S#BudY2.W#YTD.A#ACQ_OTH_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2234.  
  2235.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_LT.P#Last.Y#Prior"
  2236.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_ST.P#Last.Y#Prior"
  2237.  
  2238.                         'Liabilities
  2239.                         HS.Exp "A#TAX_OPEN.W#YTD = S#BudY2.A#BS_TAX_PAYABLE.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2240.                         HS.Exp "A#SFD_OPEN.W#YTD = S#BudY2.A#BS_SHAREH_FOR_DIV.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2241.                         HS.Exp "A#MIN_OPEN.W#YTD = S#BudY2.A#SH_FUND_MINORITY.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2242.                         HS.Exp "A#DEF_TAX_A_OPEN.W#YTD = S#BudY2.A#DEF_TAX_A_TOTAL.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2243.  
  2244.                         HS.Exp"A#BEGIN_CASH_EQ"&C1234None&" = A#CUR_ASS_CASH"&C1234Top&".P#LAST.S#BudY2.Y#PRIOR.I#[ICP Top] - A#BS_BANK_OVERDRAFT.I#[ICP Top].S#BudY2.P#LAST.Y#PRIOR"&C1234Top
  2245.                         '--------------------------------------------------------
  2246.                         'WORKING CAPITAL OPENING
  2247.                         '--------------------------------------------------------
  2248.                         'Inventories
  2249.                             HS.Exp "A#WCM_INV_MOV.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.V#<Entity Curr Total>.S#BudY2.W#YTD.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  2250.                         'Trade Receivables & Sundry Debtors
  2251.                             HS.Exp "A#WCM_TR_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.S#BudY2.V#<Entity Curr Total>.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2252.                         'Sundry Debtors
  2253.                             HS.Exp "A#WCM_S_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.S#BudY2.V#<Entity Curr Total>.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2254.                         'Trade Payables
  2255.                             HS.Exp "A#WCM_TPAY.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.S#BudY2.V#<Entity Curr Total>.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2256.                         'Other Payables
  2257.                             HS.Exp "A#WCM_PAY_OTH.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.S#BudY2.V#<Entity Curr Total>.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2258.                         '--------------------------------------------------------
  2259.                         'INTERGROUP Loans
  2260.                         '--------------------------------------------------------
  2261.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  2262.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  2263.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  2264.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  2265.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  2266.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  2267.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2268.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  2269.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2270.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  2271.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2272.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  2273.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2274.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  2275.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.W#YTD.V#<Entity Curr Total>.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2276.  
  2277.                         '***************************************************
  2278.                         'CLOSING BALANCES FOR FCTR
  2279.                         'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  2280.                         '***************************************************
  2281.                         'C1 & C3
  2282.                         HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  2283.                         HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  2284.                         HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  2285.                         HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  2286.  
  2287.                         'Assets
  2288.                         HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  2289.                         HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  2290.                         HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  2291.                         HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  2292.                         HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  2293.                         HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  2294.                         HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  2295.  
  2296.                         'Liabilities
  2297.                         HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  2298.                         HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  2299.                         HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  2300.     '                   Call Hyperinflation
  2301.     '                   Call Eliminate (strAccount, strICP)
  2302.                     Call AdditionalInfo
  2303.                     Call Taxation
  2304.                     Call Cashflow
  2305. '                   Call Hyperinflation
  2306. '               Call Eliminate (strAccount, strICP)
  2307.  
  2308. '           Call Writetofile("Running Other Scenario's END")
  2309.                 End If
  2310.  
  2311.                 Else
  2312. '               Call writetofile("Entity is "&HS.Entity.member&" on value "&HS.Value.Member)
  2313.  
  2314.                     Call IncomeStatement
  2315.                     Call BalanceSheet
  2316.                         '--------------------------------------------------------
  2317.                         'INTERGROUP Loans
  2318.                         '--------------------------------------------------------
  2319.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  2320.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  2321.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  2322.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  2323.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  2324.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  2325.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2326.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  2327.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2328.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  2329.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2330.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  2331.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2332.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  2333.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.W#YTD.V#<Entity Curr Total>.S#BudY2.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2334.  
  2335.  
  2336.                 '*******************************************************************
  2337.                 'Fund Reserves Transfer from the IS
  2338.                 '*******************************************************************
  2339.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  2340.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  2341.  
  2342.                 '***************************************************
  2343.                 'CLOSING BALANCES FOR FCTR
  2344.                 'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  2345.                 '***************************************************
  2346.                 'C1 & C3
  2347.                     HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  2348.                     HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  2349.                     HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  2350.                     HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  2351.  
  2352.                     'Assets
  2353.                     HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  2354.                     HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  2355.                     HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  2356.                     HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  2357.                     HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  2358.                     HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  2359.                     HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  2360.  
  2361.                     'Liabilities
  2362.                     HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  2363.                     HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  2364.                     HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  2365. '   Call Writetofile("Running Actual Else")
  2366.  
  2367.                     Call AdditionalInfo
  2368.                     Call Taxation
  2369.                     Call Cashflow
  2370. '                   Call Hyperinflation
  2371.  
  2372.  
  2373.             End IF
  2374.  
  2375.             Case "BudY4"
  2376.  
  2377. '       Call Writetofile("Running Other Scenario's begin")
  2378.                 ValueM = HS.Value.member
  2379.                 If HS.Entity.IsBase("", "") then
  2380.                 If ValueM = "<Entity Currency>" then
  2381.                     HS.Clear "A#AP_PREV_OPEN"
  2382.                     HS.Clear "C1#Opening"
  2383.                     HS.Clear "C1#OPENING_PROV"
  2384.                     HS.Clear "C3#Opening_Cost"
  2385.                     HS.Clear "C3#Opening_Depr"
  2386.                     HS.Clear "A#DEB_TR_PR_BD_OPEN"
  2387.                     HS.Clear "A#DEB_S_ST_PR_OPEN"
  2388.                     HS.Clear "A#INV_ASS_OPEN"
  2389.                     HS.Clear "A#INV_S_JV_OPEN"
  2390.                     HS.Clear "A#GW_COST_OPEN"
  2391.                     HS.Clear "A#GW_ACCDEP_OPEN"
  2392.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT"
  2393.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST"
  2394.                     HS.Clear "A#TAX_OPEN"
  2395.                     HS.Clear "A#SFD_OPEN"
  2396.                     HS.Clear "A#MIN_OPEN"
  2397.                     HS.Clear "A#DEF_TAX_A_OPEN"
  2398.                     HS.Clear "C1#Closing"
  2399.                     HS.Clear "C1#CLOSING_PROV"
  2400.                     HS.Clear "C3#Closing_Cost"
  2401.                     HS.Clear "C3#Closing_Depr"
  2402.                     HS.Clear "A#DEB_TR_PR_BD_CL"
  2403.                     HS.Clear "A#DEB_S_ST_PR_CL"
  2404.                     HS.Clear "A#INV_ASS_CL"
  2405.                     HS.Clear "A#INV_S_JV_CL"
  2406.                     HS.Clear "A#GW_COST_CL"
  2407.                     HS.Clear "A#GW_ACCDEP_CL"
  2408.                     HS.Clear "A#NONCUR_RC_CLOSE"
  2409.                     HS.Clear "A#TAX_CL"
  2410.                     HS.Clear "A#SFD_CL"
  2411.                     HS.Clear "A#MIN_CL"
  2412.                     HS.Clear "A#WCM_INV_MOV.C1#OPENING"
  2413.                     HS.Clear "A#WCM_TR_RC.C1#OPENING"
  2414.                     HS.Clear "A#WCM_S_RC.C1#OPENING"
  2415.                     HS.Clear "A#WCM_TPAY.C1#OPENING"
  2416.                     HS.Clear "A#WCM_PAY_OTH.C1#OPENING"
  2417.                     HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  2418.                     HS.Clear "A#FA_INTRGRP_OPEN_TO"
  2419.                     HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  2420.                     HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  2421.                     HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  2422. '                   HS.CLEAR "A#IGPTransPlug"
  2423. '                   HS.CLEAR "A#IGPSTPlug"
  2424. '                   HS.CLEAR "A#IGPRevPlug"
  2425. '                   HS.CLEAR "A#IGPRentPlug"
  2426. '                   HS.CLEAR "A#IGPLTPlug"
  2427. '                   HS.CLEAR "A#IGPIntPlug"
  2428. '                   HS.CLEAR "A#IGPFeesPlug"
  2429. '                   HS.CLEAR "A#IGPEqPlug"
  2430. '                   HS.CLEAR "A#IGPDivPlug"
  2431. '                   HS.CLEAR "A#IGPCompPlug"
  2432. '                   HS.CLEAR "A#IGPCashPlug"
  2433.  
  2434.                     Call IncomeStatement
  2435.                     Call BalanceSheet
  2436.                     '*******************************************************************
  2437.                     'Fund Reserves Transfer from the IS
  2438.                     '*******************************************************************
  2439.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  2440.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  2441.                     hs.round(0.0001)
  2442.                         HS.Exp "A#OPENINGRATE = S#BudY3.A#ENDOFMONTHRATE.Y#Prior.P#Last"
  2443.                     HS.NoRound
  2444.  
  2445.                         HS.Exp "A#AP_PREV_OPEN.W#YTD"&C1234None&" = A#AP_TOTAL"&C1234Top&".S#BudY3.W#YTD.I#[ICP Top].P#LAST.Y#PRIOR.V#<Entity Curr Total>"
  2446.                     '***************************************************
  2447.                     'OPENING BALANCES
  2448.                     'Opening Balances = Closing Balances Prior Year Last Period
  2449.                     '***************************************************
  2450.                         'C1 & C3
  2451.                         HS.Exp "C1#Opening.W#YTD = S#BudY3.W#YTD.C1#Closing.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2452.                         HS.Exp "C1#OPENING_PROV.W#YTD = S#BudY3.W#YTD.C1#CLOSING_PROV.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2453.                         HS.Exp "C3#Opening_Cost.W#YTD = S#BudY3.W#YTD.C3#Closing_Cost.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2454.                         HS.Exp "C3#Opening_Depr.W#YTD = S#BudY3.W#YTD.C3#Closing_Depr.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2455.  
  2456.                         'Assets
  2457.                         HS.Exp "A#DEB_TR_PR_BD_OPEN.W#YTD = S#BudY3.W#YTD.A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2458.                         HS.Exp "A#DEB_S_ST_PR_OPEN.W#YTD = S#BudY3.W#YTD.A#DEB_S_ST_PR_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2459.                         HS.Exp "A#INV_ASS_OPEN.W#YTD = S#BudY3.W#YTD.A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2460.                         HS.Exp "A#INV_S_JV_OPEN.W#YTD = S#BudY3.W#YTD.A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2461.                         HS.Exp "A#GW_COST_OPEN.W#YTD = S#BudY3.W#YTD.A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2462.                         HS.Exp "A#GW_ACCDEP_OPEN.W#YTD = S#BudY3.W#YTD.A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2463.                         HS.Exp "A#NONCUR_RC_OPEN.W#YTD = S#BudY3.W#YTD.A#NONCUR_RC_CLOSE.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2464.                         HS.Exp "A#ACQ_RES_OPEN.W#YTD = S#BudY3.W#YTD.A#ACQ_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2465.                         HS.Exp "A#ACQ_OTH_RES_OPEN.W#YTD = S#BudY3.W#YTD.A#ACQ_OTH_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2466.  
  2467.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_LT.P#Last.Y#Prior"
  2468.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_ST.P#Last.Y#Prior"
  2469.  
  2470.                         'Liabilities
  2471.                         HS.Exp "A#TAX_OPEN.W#YTD = S#BudY3.A#BS_TAX_PAYABLE.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2472.                         HS.Exp "A#SFD_OPEN.W#YTD = S#BudY3.A#BS_SHAREH_FOR_DIV.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2473.                         HS.Exp "A#MIN_OPEN.W#YTD = S#BudY3.A#SH_FUND_MINORITY.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2474.                         HS.Exp "A#DEF_TAX_A_OPEN.W#YTD = S#BudY3.A#DEF_TAX_A_TOTAL.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2475.  
  2476.                         HS.Exp"A#BEGIN_CASH_EQ"&C1234None&" = A#CUR_ASS_CASH"&C1234Top&".P#LAST.S#BudY3.Y#PRIOR.I#[ICP Top] - A#BS_BANK_OVERDRAFT.I#[ICP Top].S#BudY3.P#LAST.Y#PRIOR"&C1234Top
  2477.                         '--------------------------------------------------------
  2478.                         'WORKING CAPITAL OPENING
  2479.                         '--------------------------------------------------------
  2480.                         'Inventories
  2481.                             HS.Exp "A#WCM_INV_MOV.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.V#<Entity Curr Total>.S#BudY3.W#YTD.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  2482.                         'Trade Receivables & Sundry Debtors
  2483.                             HS.Exp "A#WCM_TR_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.V#<Entity Curr Total>.S#BudY3.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2484.                         'Sundry Debtors
  2485.                             HS.Exp "A#WCM_S_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.V#<Entity Curr Total>.S#BudY3.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2486.                         'Trade Payables
  2487.                             HS.Exp "A#WCM_TPAY.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.V#<Entity Curr Total>.S#BudY3.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2488.                         'Other Payables
  2489.                             HS.Exp "A#WCM_PAY_OTH.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.V#<Entity Curr Total>.S#BudY3.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2490.                         '--------------------------------------------------------
  2491.                         'INTERGROUP Loans
  2492.                         '--------------------------------------------------------
  2493.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  2494.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  2495.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  2496.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  2497.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  2498.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  2499.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#BudY3.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2500.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  2501.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#BudY3.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2502.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  2503.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#BudY3.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2504.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  2505.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.W#YTD.V#<Entity Curr Total>.S#BudY3.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2506.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  2507.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.W#YTD.V#<Entity Curr Total>.S#BudY3.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.W#YTD.S#BudY3.P#LAST.V#<Entity Curr Total>.Y#PRIOR.I#[ICP Top]"&C1234Top
  2508.  
  2509.                         '***************************************************
  2510.                         'CLOSING BALANCES FOR FCTR
  2511.                         'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  2512.                         '***************************************************
  2513.                         'C1 & C3
  2514.                         HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  2515.                         HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  2516.                         HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  2517.                         HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  2518.  
  2519.                         'Assets
  2520.                         HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  2521.                         HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  2522.                         HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  2523.                         HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  2524.                         HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  2525.                         HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  2526.                         HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  2527.  
  2528.                         'Liabilities
  2529.                         HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  2530.                         HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  2531.                         HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  2532.     '                   Call Hyperinflation
  2533.     '                   Call Eliminate (strAccount, strICP)
  2534.                     Call AdditionalInfo
  2535.                     Call Taxation
  2536.                     Call Cashflow
  2537. '                   Call Hyperinflation
  2538. '               Call Eliminate (strAccount, strICP)
  2539.  
  2540. '           Call Writetofile("Running Other Scenario's END")
  2541.                 End If
  2542.  
  2543.                 Else
  2544. '               Call writetofile("Entity is "&HS.Entity.member&" on value "&HS.Value.Member)
  2545.  
  2546.                     Call IncomeStatement
  2547.                     Call BalanceSheet
  2548.                         '--------------------------------------------------------
  2549.                         'INTERGROUP Loans
  2550.                         '--------------------------------------------------------
  2551.                         HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  2552.                         HS.Clear "A#FA_INTRGRP_OPEN_TO"
  2553.                         HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  2554.                         HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  2555.                         HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  2556.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  2557.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#BudY3.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2558.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  2559.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#BudY3.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2560.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  2561.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#BudY3.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2562.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  2563.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.W#YTD.V#<Entity Curr Total>.S#BudY3.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2564.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  2565.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.W#YTD.V#<Entity Curr Total>.S#BudY3.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.W#YTD.S#BudY3.P#LAST.V#<Entity Curr Total>.Y#PRIOR.I#[ICP Top]"&C1234Top
  2566.  
  2567.  
  2568.                 '*******************************************************************
  2569.                 'Fund Reserves Transfer from the IS
  2570.                 '*******************************************************************
  2571.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  2572.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  2573.  
  2574.                 '***************************************************
  2575.                 'CLOSING BALANCES FOR FCTR
  2576.                 'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  2577.                 '***************************************************
  2578.                 'C1 & C3
  2579.                     HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  2580.                     HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  2581.                     HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  2582.                     HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  2583.  
  2584.                     'Assets
  2585.                     HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  2586.                     HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  2587.                     HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  2588.                     HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  2589.                     HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  2590.                     HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  2591.                     HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  2592.  
  2593.                     'Liabilities
  2594.                     HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  2595.                     HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  2596.                     HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  2597. '   Call Writetofile("Running Actual Else")
  2598.  
  2599.                     Call AdditionalInfo
  2600.                     Call Taxation
  2601.                     Call Cashflow
  2602. '                   Call Hyperinflation
  2603.  
  2604.             End IF
  2605.  
  2606.             Case "BudY5"
  2607.  
  2608. '       Call Writetofile("Running Other Scenario's begin")
  2609.                 ValueM = HS.Value.member
  2610.                 If HS.Entity.IsBase("", "") then
  2611.                 If ValueM = "<Entity Currency>" then
  2612.                     HS.Clear "A#AP_PREV_OPEN"
  2613.                     HS.Clear "C1#Opening"
  2614.                     HS.Clear "C1#OPENING_PROV"
  2615.                     HS.Clear "C3#Opening_Cost"
  2616.                     HS.Clear "C3#Opening_Depr"
  2617.                     HS.Clear "A#DEB_TR_PR_BD_OPEN"
  2618.                     HS.Clear "A#DEB_S_ST_PR_OPEN"
  2619.                     HS.Clear "A#INV_ASS_OPEN"
  2620.                     HS.Clear "A#INV_S_JV_OPEN"
  2621.                     HS.Clear "A#GW_COST_OPEN"
  2622.                     HS.Clear "A#GW_ACCDEP_OPEN"
  2623.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT"
  2624.                     HS.Clear "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST"
  2625.                     HS.Clear "A#TAX_OPEN"
  2626.                     HS.Clear "A#SFD_OPEN"
  2627.                     HS.Clear "A#MIN_OPEN"
  2628.                     HS.Clear "A#DEF_TAX_A_OPEN"
  2629.                     HS.Clear "C1#Closing"
  2630.                     HS.Clear "C1#CLOSING_PROV"
  2631.                     HS.Clear "C3#Closing_Cost"
  2632.                     HS.Clear "C3#Closing_Depr"
  2633.                     HS.Clear "A#DEB_TR_PR_BD_CL"
  2634.                     HS.Clear "A#DEB_S_ST_PR_CL"
  2635.                     HS.Clear "A#INV_ASS_CL"
  2636.                     HS.Clear "A#INV_S_JV_CL"
  2637.                     HS.Clear "A#GW_COST_CL"
  2638.                     HS.Clear "A#GW_ACCDEP_CL"
  2639.                     HS.Clear "A#NONCUR_RC_CLOSE"
  2640.                     HS.Clear "A#TAX_CL"
  2641.                     HS.Clear "A#SFD_CL"
  2642.                     HS.Clear "A#MIN_CL"
  2643.                     HS.Clear "A#WCM_INV_MOV.C1#OPENING"
  2644.                     HS.Clear "A#WCM_TR_RC.C1#OPENING"
  2645.                     HS.Clear "A#WCM_S_RC.C1#OPENING"
  2646.                     HS.Clear "A#WCM_TPAY.C1#OPENING"
  2647.                     HS.Clear "A#WCM_PAY_OTH.C1#OPENING"
  2648.                     HS.Clear "A#FA_INTRGRP_OPEN_EQ"
  2649.                     HS.Clear "A#FA_INTRGRP_OPEN_TO"
  2650.                     HS.Clear "A#FA_INTRGRP_OPEN_CAP"
  2651.                     HS.Clear "A#FA_INTRGRP_OPEN_FROM"
  2652.                     HS.Clear "A#FA_INTRGRP_OPEN_PLG"
  2653. '                   HS.CLEAR "A#IGPTransPlug"
  2654. '                   HS.CLEAR "A#IGPSTPlug"
  2655. '                   HS.CLEAR "A#IGPRevPlug"
  2656. '                   HS.CLEAR "A#IGPRentPlug"
  2657. '                   HS.CLEAR "A#IGPLTPlug"
  2658. '                   HS.CLEAR "A#IGPIntPlug"
  2659. '                   HS.CLEAR "A#IGPFeesPlug"
  2660. '                   HS.CLEAR "A#IGPEqPlug"
  2661. '                   HS.CLEAR "A#IGPDivPlug"
  2662. '                   HS.CLEAR "A#IGPCompPlug"
  2663. '                   HS.CLEAR "A#IGPCashPlug"
  2664.  
  2665.                     Call IncomeStatement
  2666.                     Call BalanceSheet
  2667.                     '*******************************************************************
  2668.                     'Fund Reserves Transfer from the IS
  2669.                     '*******************************************************************
  2670.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  2671.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  2672.                     hs.round(0.0001)
  2673.                         HS.Exp "A#OPENINGRATE = S#BudY4.A#ENDOFMONTHRATE.Y#Prior.P#Last"
  2674.                     HS.NoRound
  2675.  
  2676.                         HS.Exp "A#AP_PREV_OPEN.W#YTD"&C1234None&" = A#AP_TOTAL"&C1234Top&".S#BudY4.W#YTD.I#[ICP Top].P#LAST.Y#PRIOR.V#<Entity Curr Total>"
  2677.                     '***************************************************
  2678.                     'OPENING BALANCES
  2679.                     'Opening Balances = Closing Balances Prior Year Last Period
  2680.                     '***************************************************
  2681.                         'C1 & C3
  2682.                         HS.Exp "C1#Opening.W#YTD = S#BudY4.W#YTD.C1#Closing.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2683.                         HS.Exp "C1#OPENING_PROV.W#YTD = S#BudY4.W#YTD.C1#CLOSING_PROV.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2684.                         HS.Exp "C3#Opening_Cost.W#YTD = S#BudY4.W#YTD.C3#Closing_Cost.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2685.                         HS.Exp "C3#Opening_Depr.W#YTD = S#BudY4.W#YTD.C3#Closing_Depr.Y#Prior.P#Last.V#<Entity Curr Total>.I#[ICP Top]"
  2686.  
  2687.                         'Assets
  2688.                         HS.Exp "A#DEB_TR_PR_BD_OPEN.W#YTD = S#BudY4.W#YTD.A#DEB_TR_PR_BD_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2689.                         HS.Exp "A#DEB_S_ST_PR_OPEN.W#YTD = S#BudY4.W#YTD.A#DEB_S_ST_PR_TOT.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2690.                         HS.Exp "A#INV_ASS_OPEN.W#YTD = S#BudY4.W#YTD.A#INV_ASS_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2691.                         HS.Exp "A#INV_S_JV_OPEN.W#YTD = S#BudY4.W#YTD.A#INV_S_JV_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2692.                         HS.Exp "A#GW_COST_OPEN.W#YTD = S#BudY4.W#YTD.A#GW_COST_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2693.                         HS.Exp "A#GW_ACCDEP_OPEN.W#YTD = S#BudY4.W#YTD.A#GW_ACCDEP_TOTAL.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2694.                         HS.Exp "A#NONCUR_RC_OPEN.W#YTD = S#BudY4.W#YTD.A#NONCUR_RC_CLOSE.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2695.                         HS.Exp "A#ACQ_RES_OPEN.W#YTD = S#BudY4.W#YTD.A#ACQ_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2696.                         HS.Exp "A#ACQ_OTH_RES_OPEN.W#YTD = S#BudY4.W#YTD.A#ACQ_OTH_RES.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2697.  
  2698.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_LT = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_LT.P#Last.Y#Prior"
  2699.     '                   HS.Exp "A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST = A#NONCUR_RC_CLOSE.C1#NONCUR_RC_ST.P#Last.Y#Prior"
  2700.  
  2701.                         'Liabilities
  2702.                         HS.Exp "A#TAX_OPEN.W#YTD = S#BudY4.A#BS_TAX_PAYABLE.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2703.                         HS.Exp "A#SFD_OPEN.W#YTD = S#BudY4.A#BS_SHAREH_FOR_DIV.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2704.                         HS.Exp "A#MIN_OPEN.W#YTD = S#BudY4.A#SH_FUND_MINORITY.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2705.                         HS.Exp "A#DEF_TAX_A_OPEN.W#YTD = S#BudY4.A#DEF_TAX_A_TOTAL.W#YTD.P#Last.Y#Prior.V#<Entity Curr Total>.I#[ICP Top]"
  2706.  
  2707.                         HS.Exp"A#BEGIN_CASH_EQ"&C1234None&" = A#CUR_ASS_CASH"&C1234Top&".P#LAST.S#BudY4.Y#PRIOR.I#[ICP Top] - A#BS_BANK_OVERDRAFT.I#[ICP Top].S#BudY4.P#LAST.Y#PRIOR"&C1234Top
  2708.                         '--------------------------------------------------------
  2709.                         'WORKING CAPITAL OPENING
  2710.                         '--------------------------------------------------------
  2711.                         'Inventories
  2712.                             HS.Exp "A#WCM_INV_MOV.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.V#<Entity Curr Total>.S#BudY4.W#YTD.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  2713.                         'Trade Receivables & Sundry Debtors
  2714.                             HS.Exp "A#WCM_TR_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.V#<Entity Curr Total>.S#BudY4.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2715.                         'Sundry Debtors
  2716.                             HS.Exp "A#WCM_S_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.V#<Entity Curr Total>.S#BudY4.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2717.                         'Trade Payables
  2718.                             HS.Exp "A#WCM_TPAY.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.V#<Entity Curr Total>.S#BudY4.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2719.                         'Other Payables
  2720.                             HS.Exp "A#WCM_PAY_OTH.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.V#<Entity Curr Total>.S#BudY4.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  2721.                         '--------------------------------------------------------
  2722.                         'INTERGROUP Loans
  2723.                         '--------------------------------------------------------
  2724.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  2725.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2726.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  2727.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2728.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  2729.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2730.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  2731.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2732.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  2733.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2734.  
  2735.                         '***************************************************
  2736.                         'CLOSING BALANCES FOR FCTR
  2737.                         'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  2738.                         '***************************************************
  2739.                         'C1 & C3
  2740.                         HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  2741.                         HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  2742.                         HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  2743.                         HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  2744.  
  2745.                         'Assets
  2746.                         HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  2747.                         HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  2748.                         HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  2749.                         HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  2750.                         HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  2751.                         HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  2752.                         HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  2753.  
  2754.                         'Liabilities
  2755.                         HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  2756.                         HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  2757.                         HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  2758.     '                   Call Hyperinflation
  2759.     '                   Call Eliminate (strAccount, strICP)
  2760.                     Call AdditionalInfo
  2761.                     Call Taxation
  2762.                     Call Cashflow
  2763. '                   Call Hyperinflation
  2764. '               Call Eliminate (strAccount, strICP)
  2765.  
  2766. '           Call Writetofile("Running Other Scenario's END")
  2767.                 End If
  2768.  
  2769.                 Else
  2770. '               Call writetofile("Entity is "&HS.Entity.member&" on value "&HS.Value.Member)
  2771.  
  2772.                     Call IncomeStatement
  2773.                     Call BalanceSheet
  2774.                         '--------------------------------------------------------
  2775.                         'INTERGROUP Loans
  2776.                         '--------------------------------------------------------
  2777.                         'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  2778.                             HS.Exp "A#FA_INTRGRP_OPEN_EQ.W#YTD"&C1234None&" = A#INTGRP_ENT_LOANS.V#<Entity Curr Total>.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2779.                         'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  2780.                             HS.Exp "A#FA_INTRGRP_OPEN_TO.W#YTD"&C1234None&" = A#LOAN_TO_GROUP_CO.V#<Entity Curr Total>.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2781.                         'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  2782.                             HS.Exp "A#FA_INTRGRP_OPEN_CAP.W#YTD"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.V#<Entity Curr Total>.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2783.                         'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  2784.                             HS.Exp "A#FA_INTRGRP_OPEN_FROM.W#YTD"&C1234None&" = A#LOAN_FROM_GRP_INT.V#<Entity Curr Total>.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2785.                         'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  2786.                             HS.Exp "A#FA_INTRGRP_OPEN_PLG.W#YTD.I#[ICP None]"&C1234None&" = A#IGPLTPlug.V#<Entity Curr Total>.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.W#YTD.S#BudY4.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  2787.  
  2788.  
  2789.                 '*******************************************************************
  2790.                 'Fund Reserves Transfer from the IS
  2791.                 '*******************************************************************
  2792.                     HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34IS
  2793.                     HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34IS
  2794.  
  2795.                 '***************************************************
  2796.                 'CLOSING BALANCES FOR FCTR
  2797.                 'Closing Balances = Opening Balance + Movements + FCTR + Change in Accounting Policies
  2798.                 '***************************************************
  2799.                 'C1 & C3
  2800.                     HS.Exp "C1#Closing = C1#Opening + C1#Movements + C1#FCTR + C1#ACPOL"
  2801.                     HS.Exp "C1#CLOSING_PROV = C1#OPENING_PROV + C1#INVEN_PROV_MOV_TOT + C1#FCTR_PROV"
  2802.                     HS.Exp "C3#Closing_Cost = C3#Opening_Cost + C3#BV_COST_ACPOL + C3#Movements_Cost + C3#FCTR_Cost"
  2803.                     HS.Exp "C3#Closing_Depr = C3#Opening_Depr  + C3#BV_ACCDEP_ACPOL + C3#Movements_Depr + C3#FCTR_Depr"
  2804.  
  2805.                     'Assets
  2806.                     HS.Exp "A#DEB_TR_PR_BD_CL = A#DEB_TR_PR_BD_OPEN + A#DEB_TR_PR_BD_MOV + A#DEB_TR_PR_BD_FCTR"
  2807.                     HS.Exp "A#DEB_S_ST_PR_CL = A#DEB_S_ST_PR_OPEN + A#DEB_S_ST_PR_MOV + A#DEB_S_ST_PR_FCTR"
  2808.                     HS.Exp "A#INV_ASS_CL = A#INV_ASS_OPEN + A#INV_ASS_ACPOL + A#INV_ASS_MOV + A#INV_ASS_FCTADJ"
  2809.                     HS.Exp "A#INV_S_JV_CL = A#INV_S_JV_OPEN + A#INV_S_JV_ACPOL + A#INV_S_JV_MOV + A#INV_S_JV_FCTADJ"
  2810.                     HS.Exp "A#GW_COST_CL = A#GW_COST_OPEN + A#GW_COST_ACPOL + A#GW_COST_MOV + A#GW_COST_FCTADJ"
  2811.                     HS.Exp "A#GW_ACCDEP_CL = A#GW_ACCDEP_OPEN + A#GW_ACCDEP_ACPOL + A#GW_ACCDEP_MOV + A#GW_ACCDEP_FCTADJ"
  2812.                     HS.Exp "A#NONCUR_RC_CLOSE = A#NONCUR_RC_OPEN + A#NONCUR_RC_MOV + A#NONCUR_RC_FCTADJ"
  2813.  
  2814.                     'Liabilities
  2815.                     HS.Exp "A#TAX_CL = A#TAX_OPEN + A#BS_TAX_PAY_MOV + A#TAX_FCTR_ADJ"
  2816.                     HS.Exp "A#SFD_CL = A#SFD_OPEN + A#SFD_MOV + A#SFD_FCTR_ADJ"
  2817.                     HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  2818. '   Call Writetofile("Running Actual Else")
  2819.  
  2820.                     Call AdditionalInfo
  2821.                     Call Taxation
  2822.                     Call Cashflow
  2823. '                   Call Hyperinflation
  2824.  
  2825.  
  2826.             End IF
  2827.  
  2828.             End Select
  2829.  
  2830.     If ValueM = "<Entity Currency>" Then
  2831.         'The following always needs to be calculated
  2832.                     Call IncomeStatement
  2833.                     Call BalanceSheet
  2834.                     Call AdditionalInfo
  2835.                     Call Taxation
  2836.                     Call Cashflow
  2837.  
  2838.         HS.Clear "A#Openingrate"
  2839.         HS.Round(0.0001)
  2840.         if hs.scenario.member = "Actual" then
  2841.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last"
  2842.                 End if
  2843.                 if hs.scenario.member = "Forecast" then
  2844.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Actual"
  2845.                 End if
  2846.                 if hs.scenario.member = "BudV1" then
  2847.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Forecast"
  2848.                 End if
  2849.                 if hs.scenario.member = "BudV2" then
  2850.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Forecast"
  2851.                 End if
  2852.                 if hs.scenario.member = "BudY1" then
  2853.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BudV1"
  2854.                 End if
  2855.                 if hs.scenario.member = "BudY2" then
  2856.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY1"
  2857.                 End if
  2858.                 if hs.scenario.member = "BudY3" then
  2859.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY2"
  2860.                 End if
  2861.                 if hs.scenario.member = "BudY4" then
  2862.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY3"
  2863.                 End if
  2864.                 if hs.scenario.member = "BudY5" then
  2865.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY4"
  2866.                 End if
  2867.  
  2868.         HS.Exp "A#AP_RATE = A#I_AP_RATE"
  2869.         HS.Exp "A#AVERAGERATE = A#I_AVERAGERATE"
  2870.         HS.Exp "A#ENDOFMONTHRATE = A#I_ENDOFMONTHRATE"
  2871.         HS.Exp "A#EQL_RATE = A#I_EQL_RATE"
  2872.         HS.Exp "A#HISTORICALRATE = A#I_HISTOCALRATE"
  2873.         HS.Exp "A#OR_CONT_RATE = A#I_OR_CONT_RATE"
  2874.         HS.Exp "A#OR_EQ_RATE = A#I_OR_EQL_RATE"
  2875.         HS.Exp "A#OR_EQL_RATE = A#I_OR_EQ_RATE"
  2876.         HS.Exp "A#OR_FCTR_RATE = A#I_OR_FCTR_RATE"
  2877.         HS.Exp "A#OR_FV_RATE = A#I_OR_FV_RATE"
  2878.         HS.Exp "A#OR_HA_RATE = A#I_OR_HA_RATE"
  2879.         HS.Exp "A#OR_HI_RATE = A#I_OR_HI_RATE"
  2880.         HS.Exp "A#OR_OT_RATE = A#I_OR_OT_RATE"
  2881.         HS.Exp "A#OR_RR_RATE = A#I_OR_RR_RATE"
  2882.         HS.Exp "A#OR_SB_RATE = A#I_OR_SB_RATE"
  2883.         HS.Exp "A#SC_AORD_RATE = A#I_SC_AORD_RATE"
  2884.         HS.Exp "A#SC_ORD_RATE = A#I_SC_ORD_RATE"
  2885.         HS.Exp "A#SP_RATE = A#I_SP_RATE"
  2886.         HS.NoRound
  2887.  
  2888.         Hs.Clear "A#AP_NET_PROFIT_YR"&C1234None
  2889. '       Call writetofile("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&" with data = "&Data)
  2890.         HS.Exp "A#AP_NET_PROFIT_YR.W#YTD"&C1234None&" = A#PAT"&C1234Top&".W#YTD.I#[ICP Top]"
  2891.  
  2892.         HS.Clear "A#AP_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2893.         HS.Clear"A#SC_ORD_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2894.         HS.Clear "A#SC_AORD_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2895.         HS.Clear "A#SP_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2896.         HS.Clear "A#OR_CONT_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2897.         HS.Clear "A#OR_EQ_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2898.         HS.Clear "A#OR_FCTR_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2899.         HS.Clear "A#OR_FV_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2900.         HS.Clear "A#OR_HA_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2901.         HS.Clear "A#OR_HI_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2902.         HS.Clear "A#OR_RR_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2903.         HS.Clear "A#OR_SB_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2904.         HS.Clear "A#OR_OT_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  2905.  
  2906.  
  2907.  
  2908.         HS.Exp "A#AP_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#AP_Total.W#YTD.I#[ICP Top].V#<Entity Currency>"&C1234Top
  2909.         HS.Exp "A#SC_ORD_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#SC_ORD_TOTAL.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2910.         HS.Exp "A#SC_AORD_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#SC_AORD_TOTAL.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2911.         HS.Exp "A#SP_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#SP_TOTAL.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2912.         HS.Exp "A#OR_CONT_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_CONT.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2913.         HS.Exp "A#OR_EQ_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_EQ_SH_PAY.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2914.         HS.Exp "A#OR_FCTR_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_FCTR.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2915.         HS.Exp "A#OR_FV_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_FV.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2916.         HS.Exp "A#OR_HA_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_HED_AC.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2917.         HS.Exp "A#OR_HI_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_HI.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2918.         HS.Exp "A#OR_RR_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_REVAL.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2919.         HS.Exp "A#OR_SB_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_SB.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2920.         HS.Exp "A#OR_OT_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_OTHER.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  2921.  
  2922.         HS.Exp "A#Cash_End_Period.I#[ICP None]"&C1234None&" = A#End_Cash_EQ.I#[ICP Top]"&C1234Top
  2923.         HS.Exp "A#Cash_Movement.I#[ICP None]"&C1234None&" = A#Net_Inc_decr_Cash.W#YTD.I#[ICP Top]"&C1234Top
  2924.  
  2925.         HS.Clear "A#INV_S_JV_IMPAIR"&C1234None
  2926.         HS.Exp "A#INV_S_JV_IMPAIR"&C1234None&" = A#INV_S_JV_IMPAIRMENT"&C1234Top&".I#[ICP Top].W#YTD"
  2927.  
  2928.             '*******************************************************************
  2929.         '###'BANK OVERDRAFTS
  2930.             '*******************************************************************
  2931.         If HS.Entity.IsBase("", "") then
  2932.  
  2933.                 BankList = Hs.Custom1.List ("CASH_TOT","[Base]")
  2934.  
  2935.                 For i = Lbound(BankList) To Ubound(BankList)
  2936.                     CASH = HS.GetCell ("A#Cash_Total.C1#"&BankList(i))
  2937.                     If HS.GetCell ("A#CASH_TOTAL.C1#"&BankList(i)) < 0 Then
  2938.                             HS.Exp "A#OD_TOTAL.C1#"&BankList(i)&" = (A#CASH_TOTAL.C1#"&BankList(i)&") * -1"
  2939.                             hs.clear "A#CASH_TOTAL.C1#"&BankList(i)
  2940.                     End If
  2941.                     If HS.GetCell ("A#OD_TOTAL.C1#"&BankList(i)) < 0 Then
  2942.                             HS.Exp "A#CASH_TOTAL.C1#"&BankList(i)&" = (A#OD_TOTAL.C1#"&BankList(i)&") * -1"
  2943.                             hs.clear "A#OD_TOTAL.C1#"&BankList(i)
  2944.                     End If
  2945.  
  2946.                     HS.Clear "A#OD_A_TOTAL.C1#"&BankList(i)
  2947.                     HS.Clear "A#CASH_A_TOTAL.C1#"&BankList(i)
  2948.  
  2949.                     HS.Exp "A#OD_A_TOTAL.C1#"&BankList(i)&" = A#OD_TOTAL.C1#"&BankList(i)
  2950.                     HS.Exp "A#CASH_A_TOTAL.C1#"&BankList(i)&" = A#CASH_TOTAL.C1#"&BankList(i)
  2951.                 Next
  2952.  
  2953. '               'SUPERFINANCE BANK OVERDRAFT
  2954. '                   If HS.GetCell ("A#CASH_SUPER_FIN_BANK") < 0 Then
  2955. '                       HS.Exp "A#OD_SUPER_FIN_BANK = (A#CASH_SUPER_FIN_BANK * -1)"
  2956. '                       hs.clear "A#CASH_SUPER_FIN_BANK"
  2957. '                   End If
  2958. '
  2959. '                   If HS.GetCell ("A#OD_SUPER_FIN_BANK") < 0 Then
  2960. '                       HS.Exp "A#CASH_SUPER_FIN_BANK = (A#OD_SUPER_FIN_BANK * -1)"
  2961. '                       hs.clear "A#OD_SUPER_FIN_BANK"
  2962. '                   End If
  2963. '
  2964. '               HS.Clear "A#CASH_A_SUPER_FIN"
  2965. '               HS.Clear "A#OD_A_SUPER_FIN"
  2966. '               HS.Exp "A#CASH_A_SUPER_FIN = A#CASH_SUPER_FIN_BANK"
  2967. '               HS.Exp "A#OD_A_SUPER_FIN = A#OD_SUPER_FIN_BANK"
  2968.             End If
  2969.  
  2970.     Select Case HS.Year.Member
  2971.     Case "2015"
  2972.         Select Case HS.Scenario.Member
  2973.         Case"Actual","Forecast"
  2974.             Select Case HS.Period.Member
  2975.             Case "January","February","March","April","May","June"
  2976.  
  2977.                 If HS.Entity.IsBase("", "") = false then
  2978.  
  2979.                     BankList = Hs.Custom1.List ("CASH_TOT","[Base]")
  2980.  
  2981.                     For i = Lbound(BankList) To Ubound(BankList)
  2982.                         HS.Clear "A#OD_TOTAL.C1#"&BankList(i)
  2983.                         HS.Exp "A#OD_TOTAL.C1#"&BankList(i)&" = A#OD_A_TOTAL.C1#"&BankList(i)
  2984.                         HS.Clear "A#CASH_TOTAL.C1#"&BankList(i)
  2985.                         HS.Exp "A#CASH_TOTAL.C1#"&BankList(i)&" = A#CASH_A_TOTAL.C1#"&BankList(i)
  2986.                     Next
  2987.                 End If
  2988.             Case Else
  2989.                 If HS.Entity.IsBase("", "") = false then
  2990.                     BankList = Hs.Custom1.List ("CASH_TOT","[Base]")
  2991.                     For i = Lbound(BankList) To Ubound(BankList)
  2992.                         CASH = HS.GetCell ("A#Cash_Total.C1#"&BankList(i))
  2993.                         If HS.GetCell ("A#OD_A_TOTAL.C1#"&BankList(i)) > HS.GetCell ("A#CASH_A_TOTAL.C1#"&BankList(i)) Then
  2994.                                 HS.Clear "A#OD_TOTAL.C1#"&BankList(i)
  2995.                                 HS.Exp "A#OD_TOTAL.C1#"&BankList(i)&" = A#OD_A_TOTAL.C1#"&BankList(i)&" - A#CASH_A_TOTAL.C1#"&BankList(i)
  2996.                                 HS.Clear "A#CASH_TOTAL.C1#"&BankList(i)
  2997.                         End If
  2998.                         If HS.GetCell ("A#OD_A_TOTAL.C1#"&BankList(i)) < HS.GetCell ("A#CASH_A_TOTAL.C1#"&BankList(i)) Then
  2999.                                 HS.Clear "A#CASH_TOTAL.C1#"&BankList(i)
  3000.                                 HS.Exp "A#CASH_TOTAL.C1#"&BankList(i)&" = A#CASH_A_TOTAL.C1#"&BankList(i)&" - A#OD_A_TOTAL.C1#"&BankList(i)
  3001.                                 HS.Clear "A#OD_TOTAL.C1#"&BankList(i)
  3002.                         End If
  3003.                     Next
  3004.                 End If
  3005.  
  3006.             End Select
  3007.         Case Else
  3008.             If HS.Entity.IsBase("", "") = false then
  3009.                 BankList = Hs.Custom1.List ("CASH_TOT","[Base]")
  3010.                 For i = Lbound(BankList) To Ubound(BankList)
  3011.                     CASH = HS.GetCell ("A#Cash_Total.C1#"&BankList(i))
  3012.                     If HS.GetCell ("A#OD_A_TOTAL.C1#"&BankList(i)) > HS.GetCell ("A#CASH_A_TOTAL.C1#"&BankList(i)) Then
  3013.                             HS.Clear "A#OD_TOTAL.C1#"&BankList(i)
  3014.                             HS.Exp "A#OD_TOTAL.C1#"&BankList(i)&" = A#OD_A_TOTAL.C1#"&BankList(i)&" - A#CASH_A_TOTAL.C1#"&BankList(i)
  3015.                             HS.Clear "A#CASH_TOTAL.C1#"&BankList(i)
  3016.                     End If
  3017.                     If HS.GetCell ("A#OD_A_TOTAL.C1#"&BankList(i)) < HS.GetCell ("A#CASH_A_TOTAL.C1#"&BankList(i)) Then
  3018.                             HS.Clear "A#CASH_TOTAL.C1#"&BankList(i)
  3019.                             HS.Exp "A#CASH_TOTAL.C1#"&BankList(i)&" = A#CASH_A_TOTAL.C1#"&BankList(i)&" - A#OD_A_TOTAL.C1#"&BankList(i)
  3020.                             HS.Clear "A#OD_TOTAL.C1#"&BankList(i)
  3021.                     End If
  3022.                 Next
  3023.             End If
  3024.         End Select
  3025.     Case "2000","2001","2002","2003","2004","2005","2006","2007","2008","2009","2010","2011","2012","2013","2014"
  3026.         If HS.Entity.IsBase("", "") = false then
  3027.  
  3028.             BankList = Hs.Custom1.List ("CASH_TOT","[Base]")
  3029.  
  3030.             For i = Lbound(BankList) To Ubound(BankList)
  3031.                 CASH = HS.GetCell ("A#Cash_Total.C1#"&BankList(i))
  3032.                 If HS.GetCell ("A#OD_A_TOTAL.C1#"&BankList(i)) > HS.GetCell ("A#CASH_A_TOTAL.C1#"&BankList(i)) Then
  3033.                         HS.Clear "A#OD_TOTAL.C1#"&BankList(i)
  3034.                         HS.Exp "A#OD_TOTAL.C1#"&BankList(i)&" = A#OD_A_TOTAL.C1#"&BankList(i)&" - A#CASH_A_TOTAL.C1#"&BankList(i)
  3035.                         HS.Clear "A#CASH_TOTAL.C1#"&BankList(i)
  3036.                 End If
  3037.                 If HS.GetCell ("A#OD_A_TOTAL.C1#"&BankList(i)) < HS.GetCell ("A#CASH_A_TOTAL.C1#"&BankList(i)) Then
  3038.                         HS.Clear "A#CASH_TOTAL.C1#"&BankList(i)
  3039.                         HS.Exp "A#CASH_TOTAL.C1#"&BankList(i)&" = A#CASH_A_TOTAL.C1#"&BankList(i)&" - A#OD_A_TOTAL.C1#"&BankList(i)
  3040.                         HS.Clear "A#OD_TOTAL.C1#"&BankList(i)
  3041.                 End If
  3042.  
  3043.             Next
  3044.         End If
  3045.     Case Else
  3046.         If HS.Entity.IsBase("", "") = false then
  3047.  
  3048.             BankList = Hs.Custom1.List ("CASH_TOT","[Base]")
  3049.  
  3050.             For i = Lbound(BankList) To Ubound(BankList)
  3051.                 HS.Clear "A#OD_TOTAL.C1#"&BankList(i)
  3052.                 HS.Exp "A#OD_TOTAL.C1#"&BankList(i)&" = A#OD_A_TOTAL.C1#"&BankList(i)
  3053.                 HS.Clear "A#CASH_TOTAL.C1#"&BankList(i)
  3054.                 HS.Exp "A#CASH_TOTAL.C1#"&BankList(i)&" = A#CASH_A_TOTAL.C1#"&BankList(i)
  3055.             Next
  3056.         End If
  3057.     End Select
  3058.  
  3059.  
  3060.             '*******************************************************************
  3061.         '###'Deferred tax liabilities / assets
  3062.             '*******************************************************************
  3063.                 If HS.GetCell ("A#DFR_TAX_ASSET") < 0 Then
  3064.                     HS.Exp "A#DFR_TAX_ASSET_NEG = (A#DFR_TAX_ASSET * -1)"
  3065.                     hs.clear "A#DFR_TAX_ASSET"
  3066.                 End If
  3067.                 If HS.GetCell ("A#BS_DEF_TAX") < 0 Then
  3068.                     HS.Exp "A#BS_DEF_TAX_NEG = (A#BS_DEF_TAX * -1)"
  3069.                     hs.clear "A#BS_DEF_TAX"
  3070.                 End If
  3071.  
  3072.                 HS.Exp "A#DEF_TAX_A_T1 = A#BS_DEF_TAX"
  3073.  
  3074.  
  3075.     End If
  3076.  
  3077. '****************************
  3078. 'Apply cashflow logic to Adj entities as well
  3079. '****************************Added by ZS
  3080.  
  3081. If ValueM = "<Entity Curr Adjs>" Then
  3082.         'The following always needs to be calculated
  3083.                     Call IncomeStatement
  3084.                     Call BalanceSheet
  3085.                     Call AdditionalInfo
  3086.                     Call Taxation
  3087.                     Call Cashflow
  3088.  
  3089. '       HS.Round(0.0001)
  3090. '       HS.Exp "A#AP_RATE = A#I_AP_RATE"
  3091. '       HS.Round(0.0001)
  3092. '       HS.Exp "A#AVERAGERATE = A#I_AVERAGERATE"
  3093. '       HS.Round(0.0001)
  3094. '       HS.Exp "A#ENDOFMONTHRATE = A#I_ENDOFMONTHRATE"
  3095. '       HS.Round(0.0001)
  3096. '       HS.Exp "A#EQL_RATE = A#I_EQL_RATE"
  3097. '       HS.Round(0.0001)
  3098. '       HS.Exp "A#HISTORICALRATE = A#I_HISTOCALRATE"
  3099. '       HS.Round(0.0001)
  3100. '       HS.Exp "A#OR_CONT_RATE = A#I_OR_CONT_RATE"
  3101. '       HS.Round(0.0001)
  3102. '       HS.Exp "A#OR_EQ_RATE = A#I_OR_EQL_RATE"
  3103. '       HS.Round(0.0001)
  3104. '       HS.Exp "A#OR_EQL_RATE = A#I_OR_EQ_RATE"
  3105. '       HS.Round(0.0001)
  3106. '       HS.Exp "A#OR_FCTR_RATE = A#I_OR_FCTR_RATE"
  3107. '       HS.Round(0.0001)
  3108. '       HS.Exp "A#OR_FV_RATE = A#I_OR_FV_RATE"
  3109. '       HS.Round(0.0001)
  3110. '       HS.Exp "A#OR_HA_RATE = A#I_OR_HA_RATE"
  3111. '       HS.Round(0.0001)
  3112. '       HS.Exp "A#OR_HI_RATE = A#I_OR_HI_RATE"
  3113. '       HS.Round(0.0001)
  3114. '       HS.Exp "A#OR_OT_RATE = A#I_OR_OT_RATE"
  3115. '       HS.Round(0.0001)
  3116. '       HS.Exp "A#OR_RR_RATE = A#I_OR_RR_RATE"
  3117. '       HS.Round(0.0001)
  3118. '       HS.Exp "A#OR_SB_RATE = A#I_OR_SB_RATE"
  3119. '       HS.Round(0.0001)
  3120. '       HS.Exp "A#SC_AORD_RATE = A#I_SC_AORD_RATE"
  3121. '       HS.Round(0.0001)
  3122. '       HS.Exp "A#SC_ORD_RATE = A#I_SC_ORD_RATE"
  3123. '       HS.Round(0.0001)
  3124. '       HS.Exp "A#SP_RATE = A#I_SP_RATE"
  3125. '
  3126. '       Hs.Clear "A#AP_NET_PROFIT_YR"&C1234None
  3127. '       Call writetofile("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&" with data = "&Data)
  3128. '       HS.Exp "A#AP_NET_PROFIT_YR.W#YTD"&C1234None&" = A#PAT"&C1234Top&".W#YTD.I#[ICP Top]"
  3129. '
  3130. '       HS.Clear "A#AP_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3131. '       HS.Clear"A#SC_ORD_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3132. '       HS.Clear "A#SC_AORD_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3133. '       HS.Clear "A#SP_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3134. '       HS.Clear "A#OR_CONT_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3135. '       HS.Clear "A#OR_EQ_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3136. '       HS.Clear "A#OR_FCTR_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3137. '       HS.Clear "A#OR_FV_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3138. '       HS.Clear "A#OR_HA_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3139. '       HS.Clear "A#OR_HI_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3140. '       HS.Clear "A#OR_RR_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3141. '       HS.Clear "A#OR_SB_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3142. '       HS.Clear "A#OR_OT_FCTR.V#<Entity Currency>.W#YTD"&C1234None
  3143.  
  3144.  
  3145.  
  3146. '       HS.Exp "A#AP_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#AP_Total.W#YTD.I#[ICP Top].V#<Entity Currency>"&C1234Top
  3147. '       HS.Exp "A#SC_ORD_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#SC_ORD_TOTAL.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3148. '       HS.Exp "A#SC_AORD_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#SC_AORD_TOTAL.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3149. '       HS.Exp "A#SP_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#SP_TOTAL.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3150. '       HS.Exp "A#OR_CONT_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_CONT.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3151. '       HS.Exp "A#OR_EQ_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_EQ_SH_PAY.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3152. '       HS.Exp "A#OR_FCTR_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_FCTR.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3153. '       HS.Exp "A#OR_FV_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_FV.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3154. '       HS.Exp "A#OR_HA_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_HED_AC.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3155. '       HS.Exp "A#OR_HI_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_HI.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3156. '       HS.Exp "A#OR_RR_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_REVAL.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3157. '       HS.Exp "A#OR_SB_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_SB.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3158. '       HS.Exp "A#OR_OT_FCTR.V#<Entity Currency>.W#YTD"&C1234None&" = A#OTH_RES_OTHER.W#YTD.V#<Entity Currency>.I#[ICP Top]"&C1234Top
  3159.  
  3160. '       HS.Exp "A#Cash_End_Period.I#[ICP None]"&C1234None&" = A#End_Cash_EQ.I#[ICP Top]"&C1234Top
  3161. '       HS.Exp "A#Cash_Movement.I#[ICP None]"&C1234None&" = A#Net_Inc_decr_Cash.W#YTD.I#[ICP Top]"&C1234Top
  3162.  
  3163. '       HS.Clear "A#INV_S_JV_IMPAIR"&C1234None
  3164. '       HS.Exp "A#INV_S_JV_IMPAIR"&C1234None&" = A#INV_S_JV_IMPAIRMENT"&C1234Top&".I#[ICP Top].W#YTD"
  3165.  
  3166.             '*******************************************************************
  3167.         '###'BANK OVERDRAFTS
  3168.             '*******************************************************************
  3169.         If HS.Entity.IsBase("", "") then
  3170.  
  3171.                 BankList = Hs.Custom1.List ("CASH_TOT","[Base]")
  3172.  
  3173.                 For i = Lbound(BankList) To Ubound(BankList)
  3174.                     CASH = HS.GetCell ("A#Cash_Total.V#<Entity Curr Adjs>.C1#"&BankList(i))
  3175.                     If HS.GetCell ("A#CASH_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)) < 0 Then
  3176.                             HS.Exp "A#OD_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)&" = (A#CASH_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)&") * -1"
  3177.                             hs.clear "A#CASH_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3178.                     End If
  3179.                     If HS.GetCell ("A#OD_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)) < 0 Then
  3180.                             HS.Exp "A#CASH_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)&" = (A#OD_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)&") * -1"
  3181.                             hs.clear "A#OD_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3182.                     End If
  3183.  
  3184.                     HS.Clear "A#OD_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3185.                     HS.Clear "A#CASH_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3186.  
  3187.                     HS.Exp "A#OD_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)&" = A#OD_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3188.                     HS.Exp "A#CASH_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)&" = A#CASH_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3189.                 Next
  3190.  
  3191.  
  3192.             End If
  3193.  
  3194.         If HS.Entity.IsBase("", "") = false then
  3195.  
  3196.                 BankList = Hs.Custom1.List ("CASH_TOT","[Base]")
  3197.  
  3198.                 For i = Lbound(BankList) To Ubound(BankList)
  3199.                     CASH = HS.GetCell ("A#Cash_Total.V#<Entity Curr Adjs>.C1#"&BankList(i))
  3200.                     If HS.GetCell ("A#OD_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)) > HS.GetCell ("A#CASH_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)) Then
  3201.                             HS.Clear "A#OD_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3202.                             HS.Exp "A#OD_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)&" = A#OD_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)&" - A#CASH_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3203.                             HS.Clear "A#CASH_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3204.                     End If
  3205.                     If HS.GetCell ("A#OD_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)) < HS.GetCell ("A#CASH_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)) Then
  3206.                             HS.Clear "A#CASH_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3207.                             HS.Exp "A#CASH_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)&" = A#CASH_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)&" - A#OD_A_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3208.                             HS.Clear "A#OD_TOTAL.V#<Entity Curr Adjs>.C1#"&BankList(i)
  3209.                     End If
  3210.  
  3211.                 Next
  3212.  
  3213.             End If
  3214.  
  3215.             '*******************************************************************
  3216.         '###'Deferred tax liabilities / assets
  3217.             '*******************************************************************
  3218. '               If HS.GetCell ("A#DFR_TAX_ASSET") < 0 Then
  3219. '                   HS.Exp "A#DFR_TAX_ASSET_NEG = (A#DFR_TAX_ASSET * -1)"
  3220. '                   hs.clear "A#DFR_TAX_ASSET"
  3221. '               End If
  3222. '               If HS.GetCell ("A#BS_DEF_TAX") < 0 Then
  3223. '                   HS.Exp "A#BS_DEF_TAX_NEG = (A#BS_DEF_TAX * -1)"
  3224. '                   hs.clear "A#BS_DEF_TAX"
  3225. '               End If
  3226. '
  3227. '               HS.Exp "A#DEF_TAX_A_T1 = A#BS_DEF_TAX"
  3228.  
  3229.     End If
  3230.  
  3231.  
  3232.  
  3233.  
  3234.     Call HyperInflation
  3235. '   Call Writetofile("finished Sub Calc")
  3236. End Sub
  3237.  
  3238.  
  3239. Sub IncomeStatement
  3240.  
  3241.         HS.Clear "A#Openingrate"
  3242.         HS.Round(0.0001)
  3243.  
  3244.                 if hs.scenario.member = "Actual" then
  3245.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last"
  3246.                 End if
  3247.                 if hs.scenario.member = "Forecast" then
  3248.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Actual"
  3249.                 End if
  3250.                 if hs.scenario.member = "BudV1" then
  3251.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Forecast"
  3252.                 End if
  3253.                 if hs.scenario.member = "BudV1" then
  3254.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#Forecast"
  3255.                 End if
  3256.  
  3257.                 if hs.scenario.member = "BudY1" then
  3258.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BudV1"
  3259.                 End if
  3260.                 if hs.scenario.member = "BudY2" then
  3261.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY1"
  3262.                 End if
  3263.                 if hs.scenario.member = "BudY3" then
  3264.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY2"
  3265.                 End if
  3266.                 if hs.scenario.member = "BudY4" then
  3267.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY3"
  3268.                 End if
  3269.                 if hs.scenario.member = "BudY5" then
  3270.                     HS.Exp "A#OPENINGRATE = A#ENDOFMONTHRATE.Y#Prior.P#Last.S#BUDY4"
  3271.                 End if
  3272.  
  3273.  
  3274.  
  3275.         HS.Exp "A#AP_RATE = A#I_AP_RATE"
  3276.         HS.Exp "A#AVERAGERATE = A#I_AVERAGERATE"
  3277.         HS.Exp "A#ENDOFMONTHRATE = A#I_ENDOFMONTHRATE"
  3278.         HS.Exp "A#EQL_RATE = A#I_EQL_RATE"
  3279.         HS.Exp "A#HISTORICALRATE = A#I_HISTOCALRATE"
  3280.         HS.Exp "A#OR_CONT_RATE = A#I_OR_CONT_RATE"
  3281.         HS.Exp "A#OR_EQ_RATE = A#I_OR_EQL_RATE"
  3282.         HS.Exp "A#OR_EQL_RATE = A#I_OR_EQ_RATE"
  3283.         HS.Exp "A#OR_FCTR_RATE = A#I_OR_FCTR_RATE"
  3284.         HS.Exp "A#OR_FV_RATE = A#I_OR_FV_RATE"
  3285.         HS.Exp "A#OR_HA_RATE = A#I_OR_HA_RATE"
  3286.         HS.Exp "A#OR_HI_RATE = A#I_OR_HI_RATE"
  3287.         HS.Exp "A#OR_OT_RATE = A#I_OR_OT_RATE"
  3288.         HS.Exp "A#OR_RR_RATE = A#I_OR_RR_RATE"
  3289.         HS.Exp "A#OR_SB_RATE = A#I_OR_SB_RATE"
  3290.         HS.Exp "A#SC_AORD_RATE = A#I_SC_AORD_RATE"
  3291.         HS.Exp "A#SC_ORD_RATE = A#I_SC_ORD_RATE"
  3292.         HS.Exp "A#SP_RATE = A#I_SP_RATE"
  3293.         HS.NoRound
  3294.  
  3295.  
  3296. 'Call writetofile("IS")
  3297.                 'HS.CLEAR "A#IGPTransPlug"
  3298.                 'HS.CLEAR "A#IGPSTPlug"
  3299.                 'HS.CLEAR "A#IGPRevPlug"
  3300.                 'HS.CLEAR "A#IGPRentPlug"
  3301.                 'HS.CLEAR "A#IGPLTPlug"
  3302.                 'HS.CLEAR "A#IGPIntPlug"
  3303.                 'HS.CLEAR "A#IGPFeesPlug"
  3304.                 'HS.CLEAR "A#IGPEqPlug"
  3305.                 'HS.CLEAR "A#IGPDivPlug"
  3306.                 'HS.CLEAR "A#IGPCompPlug"
  3307.                 'HS.CLEAR "A#IGPCashPlug"
  3308.  
  3309.  
  3310. '   Call writetofile("IS BEGIN")
  3311.     '*******************************************************************
  3312.     'Operating Income
  3313.     '*******************************************************************
  3314.         HS.Exp "A#OPER_INC"&C1234None&" = A#OPERATING_INCOME.I#[ICP Top]"&C1234Top
  3315.  
  3316.  
  3317.     '*******************************************************************
  3318.     'Technical account "Turnover" validation
  3319.     '*******************************************************************
  3320.     HS.Exp "A#REV_VAL"&C1234None&" = A#REVENUE.I#[ICP Top]"&C1234Top&" - A#TURNOVER.I#[ICP Top]"&C1234Top&" + A#COST_CUSTOMER.I#[ICP Top]"&C1234Top&" + A#COST_AGENT.I#[ICP Top]"&C1234Top
  3321.  
  3322.     '*******************************************************************
  3323.     'Other Income Statement
  3324.     '*******************************************************************
  3325.     'Bad Debts written off against Provision - Amount Excluding VAT
  3326.         HS.Exp "A#OOE_BD_PR_A_AMT_EVAT = A#DEB_TR_PR_BD_MOV_UTI"
  3327.  
  3328. '   'Profit after Tax
  3329.         HS.Clear "A#Profit_After_Tax"&C1234None
  3330.         HS.Exp "A#Profit_After_Tax"&C1234None&".W#YTD = A#PAT"&C1234Top&".I#[ICP Top].W#YTD"
  3331.  
  3332.     'Dividends to Minority
  3333.         HS.Clear "A#MIN_DIVIDENDS"&C1234None
  3334.         HS.Exp "A#MIN_DIVIDENDS"&C1234None&".W#YTD = A#AP_ORD_DIV_TOTAL"&C1234Top&".I#[ICP Top].W#YTD"
  3335.  
  3336.     '*******************************************************************
  3337.     'Net Profit for the Year
  3338.     '*******************************************************************
  3339.         HS.Clear "A#NET_PROFIT_FOR_YR"&C1234None
  3340.         HS.Exp "A#NET_PROFIT_FOR_YR.W#YTD"&C1234None&" = A#NET_PROFIT_YR.V#<Entity Currency>.W#YTD.I#[ICP Top]"&C1234Top
  3341.  
  3342.  
  3343. '   '*******************************************************************
  3344. '   'Minority Share in Profit
  3345. '   '*******************************************************************
  3346.         HS.Exp "A#MIN_SHARE_PROFIT"&C1234None&" = A#MIN_INT_TOTAL"&C1234Top
  3347.  
  3348.     'Revenue
  3349.         HS.Exp "A#RTI_VAL_VAT_RET_REV"&C1234None&" = A#REVENUE.I#[ICP Top]"&C1234Top
  3350.  
  3351.  
  3352. '   Call writetofile("IS END")
  3353.  
  3354. '   Call writetofile("Profit BEGIN")
  3355.  
  3356.     '*******************************************************************
  3357.     'Profit to the BS
  3358.     '*******************************************************************
  3359.  
  3360.     'Net Profit transfer to BS
  3361.         Hs.Clear "A#AP_NET_PROFIT_YR"&C1234None
  3362.         Call writetofile("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&" with data = "&Data)
  3363.  
  3364.         HS.Exp "A#AP_NET_PROFIT_YR"&C1234None&" = A#PAT"&C1234Top&".I#[ICP Top]"
  3365.         'HS.Exp "A#AP_NET_PROFIT_YR"&C1234None&" = A#NET_PROFIT_YR.I#[ICP Top]"&C1234Top
  3366.  
  3367.  
  3368.  
  3369.  
  3370. 'Call writetofile("IS  End")
  3371. End Sub
  3372.  
  3373.  
  3374. Sub BalanceSheet
  3375.     'Call writetofile("BS BEGIN")
  3376.  
  3377.         HS.Exp "A#SC_CONVERSION"&C1234None&" = A#SC_SP.C1#SC_CONVERSION"&C234Top&".I#[ICP Top]"
  3378.         HS.Exp "A#SC_ISSUE_BUS_ACQ"&C1234None&" = A#SC_SP.C1#SC_ISSUE_BUS_ACQ"&C234Top&".I#[ICP Top]"
  3379.         HS.Exp "A#SC_ISSUE_EXP"&C1234None&" = A#SC_SP.C1#SC_ISSUE_EXP"&C234Top&".I#[ICP Top]"
  3380.         HS.Exp "A#SC_OPTIONS_GRANTED"&C1234None&" = A#SC_SP.C1#SC_OPTIONS_GRANTED"&C234Top&".I#[ICP Top]"
  3381.         HS.Exp "A#SC_ISS_CAP"&C1234None&" = A#SC_SP.C1#SC_ISS_CAP"&C234Top&".I#[ICP Top]"
  3382.         HS.Exp "A#SC_ISS_CASH"&C1234None&" = A#SC_SP.C1#SC_ISS_CASH"&C234Top&".I#[ICP Top]"
  3383.         HS.Exp "A#SC_ISS_Consid"&C1234None&" = A#SC_SP.C1#SC_ISS_Consid"&C234Top&".I#[ICP Top]"
  3384.         HS.Exp "A#SC_BUYBACK"&C1234None&" = A#SC_SP.C1#SC_BUYBACK"&C234Top&".I#[ICP Top]"
  3385.         HS.Exp "A#SC_CAP_RED"&C1234None&" = A#SC_SP.C1#SC_CAP_RED"&C234Top&".I#[ICP Top]"
  3386.         HS.Exp "A#SC_OPTIONS_FORFEITED"&C1234None&" = A#SC_SP.C1#SC_OPTIONS_FORFEITED"&C234Top&".I#[ICP Top]"
  3387.         HS.Exp "A#SC_BUS_DIS"&C1234None&" = A#SC_SP.C1#SC_BUS_DIS"&C234Top&".I#[ICP Top]"
  3388.  
  3389. '       HS.Exp "A#TMIN_SH_INCR_IS"&C1234None&" = A#SC_SP.C1#SC_CONVERSION"&C234Top&".I#[ICP Top].W#YTD + A#SC_SP.C1#SC_ISSUE_BUS_ACQ"&C234Top&".I#[ICP Top].W#YTD + A#SC_SP.C1#SC_ISSUE_EXP"&C234Top&".I#[ICP Top].W#YTD + A#SC_SP.C1#SC_OPTIONS_GRANTED"&C234Top&".I#[ICP Top].W#YTD + A#SC_SP.C1#SC_ISS_CAP"&C234Top&".I#[ICP Top].W#YTD + A#SC_SP.C1#SC_ISS_CONSID"&C234Top&".I#[ICP Top].W#YTD + A#SC_SP.C1#SC_ISS_CASH"&C234Top&".I#[ICP Top].W#YTD"
  3390. '       HS.Exp "A#TMIN_SH_DECR_IS"&C1234None&" = A#SC_SP."&C234Top&".I#[ICP Top].C1#SC_BUYBACK.W#YTD + A#SC_SP."&C234Top&".I#[ICP Top].C1#SC_CAP_RED.W#YTD + A#SC_SP."&C234Top&".I#[ICP Top].C1#SC_OPTIONS_FORFEITED.W#YTD + A#SC_SP."&C234Top&".I#[ICP Top].C1#SC_BUS_DIS.W#YTD"
  3391.         HS.Exp "A#MIN_CL = A#MIN_OPEN + A#MIN_MOV + A#MIN_ACPOL + A#MIN_FCTR"
  3392.  
  3393. '       HS.Exp "A#MIN_SH_INCR"&C1234None&" = A#TMIN_SH_INCR"&C1234Top&".I#[ICP Top]"
  3394. '       HS.Exp "A#MIN_SH_DECR"&C1234None&" = A#TMIN_SH_DECR"&C1234Top&".I#[ICP Top]"
  3395.  
  3396.     '*******************************************************************
  3397.     'Dividends received from associate
  3398.     '*******************************************************************
  3399.         HS.Exp "A#INV_ASS_INCOME_IS"&C1234None&" = A#INCOME_ASSOCIATES"&C1234Top&".I#[ICP Top]"
  3400.  
  3401.     '*******************************************************************
  3402.     'Fund Reserves Transfer from the IS
  3403.     '*******************************************************************
  3404.         HS.Exp "A#FRES_FML_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_FML_TOT_IS.C1#[None]"&C34Top
  3405.         HS.Exp "A#FRES_INS_TOTAL.C1#FRES_TRF_IS"&C34None&" = A#FRES_INS_TOT_IS.C1#[None]"&C34Top
  3406.  
  3407.     '*******************************************************************
  3408.     'Long Term Debt
  3409.     '*******************************************************************
  3410.         HS.Exp "A#FRES_LT_DEBT_TOTAL.C2#FX_TOT.C4#LT_TERM_LT_YR_2"&C13None&" = A#BS_T_LT_NI_BORROWING.C4#TERM_T_LT"
  3411.  
  3412.     '*******************************************************************
  3413.     'Short Term Debt
  3414.     '*******************************************************************
  3415.         HS.Exp "A#FRES_ST_DEBT_TOTAL.C2#FX_TOT.C4#LT_TERM_ST_YR_1"&C13None&" = A#BS_T_LT_NI_BORROWING.C4#TERM_T_ST"
  3416.  
  3417.     '*******************************************************************
  3418.     'Short Term Debt  = Move the ST Debt included in LT Debt to ST Debt Account
  3419.     '*******************************************************************
  3420.             A1 = HS.Account.List ("BS_T_LT_NI_BORROWING", "[Base]")
  3421.             B4 = HS.Custom4.List ("TERM_T_ST", "[Base]")
  3422.  
  3423.             for j = Lbound(A1) To Ubound(A1)
  3424.             for g = Lbound(B4) To Ubound(B4)
  3425.  
  3426.                 If HS.GetCell ("A#"&A1(j)&".C1#Total Custom 1.C2#Total Custom 2.C3#Total Custom 3.C4#"&B4(g)) > "0" Then
  3427.                 If HS.GetCell ("A#"&A1(j)&".C1#Total Custom 1.C2#Total Custom 2.C3#Total Custom 3.C4#"&B4(g)) < "0" Then
  3428.                         HS.Exp "A#ST_T_FML_CAP_LIAB.C4#"&B4(g)&" = A#LT_T_FML_CAP_LIAB.C4#"&B4(g)
  3429.                         HS.Exp "A#ST_T_FML_FLEET_SOL.C4#"&B4(g)&" = A#LT_T_FML_FLEET_SOL.C4#"&B4(g)
  3430.                         HS.Exp "A#ST_T_INT_AUS_LIAB.C4#"&B4(g)&" = A#LT_T_INT_AUS_LIAB.C4#"&B4(g)
  3431.                         HS.Exp "A#ST_T_INT_CAP_LEAS.C4#"&B4(g)&" = A#LT_T_INT_CAP_LEAS.C4#"&B4(g)
  3432.                         HS.Exp "A#ST_T_INT_CORP_BOND.C4#"&B4(g)&" = A#LT_T_INT_CORP_BOND.C4#"&B4(g)
  3433.                         HS.Exp "A#ST_T_INT_FIN_LIAB.C4#"&B4(g)&" = A#LT_T_INT_FIN_LIAB.C4#"&B4(g)
  3434.                         HS.Exp "A#ST_T_INT_PROP_LIAB.C4#"&B4(g)&" = A#LT_T_INT_PROP_LIAB.C4#"&B4(g)
  3435.                         HS.Exp "A#ST_T_INT_OTHER.C4#"&B4(g)&" = A#LT_T_INT_OTHER.C4#"&B4(g)
  3436.                         HS.Exp "A#ST_T_INT_SUSP_CRED.C4#"&B4(g)&" = A#LT_T_INT_SUSP_CRED.C4#"&B4(g)
  3437.                         HS.Exp "A#ST_T_NON_INT_TOTAL.C4#"&B4(g)&" = A#LT_T_NON_INT_TOTAL.C4#"&B4(g)
  3438.                 End If
  3439.                 End IF
  3440.                     hs.clear "A#"&A1(j)&".C4#"&B4(g)
  3441.             Next
  3442.             Next
  3443.  
  3444.     '*******************************************************************
  3445.     'Short Term Debt  = Move the ST Debt included in LT Debt to ST Debt Account
  3446.     '*******************************************************************
  3447.             A1 = HS.Account.List ("BS_T_ST_NI_BORROWING", "[Base]")
  3448.             B4 = HS.Custom4.List ("TERM_T_ST", "[Base]")
  3449.  
  3450.             for j = Lbound(A1) To Ubound(A1)
  3451.             for g = Lbound(B4) To Ubound(B4)
  3452.  
  3453.                 If HS.GetCell ("A#"&A1(j)&".C1#Total Custom 1.C2#Total Custom 2.C3#Total Custom 3.C4#"&B4(g)) > "0" Then
  3454.                 If HS.GetCell ("A#"&A1(j)&".C1#Total Custom 1.C2#Total Custom 2.C3#Total Custom 3.C4#"&B4(g)) < "0" Then
  3455.                         HS.Exp "A#ST_A_FML_CAP_LIAB.C4#"&B4(g)&" = A#LT_A_FML_CAP_LIAB.C4#"&B4(g)
  3456.                         HS.Exp "A#ST_A_FML_FLEET_SOL.C4#"&B4(g)&" = A#LT_A_FML_FLEET_SOL.C4#"&B4(g)
  3457.                         HS.Exp "A#ST_A_INT_AUS_LIAB.C4#"&B4(g)&" = A#LT_A_INT_AUS_LIAB.C4#"&B4(g)
  3458.                         HS.Exp "A#ST_A_INT_CAP_LEAS.C4#"&B4(g)&" = A#LT_A_INT_CAP_LEAS.C4#"&B4(g)
  3459.                         HS.Exp "A#ST_A_INT_CORP_BOND.C4#"&B4(g)&" = A#LT_A_INT_CORP_BOND.C4#"&B4(g)
  3460.                         HS.Exp "A#ST_A_INT_FIN_LIAB.C4#"&B4(g)&" = A#LT_A_INT_FIN_LIAB.C4#"&B4(g)
  3461.                         HS.Exp "A#ST_A_INT_PROP_LIAB.C4#"&B4(g)&" = A#LT_A_INT_PROP_LIAB.C4#"&B4(g)
  3462.                         HS.Exp "A#ST_A_INT_OTHER.C4#"&B4(g)&" = A#LT_A_INT_OTHER.C4#"&B4(g)
  3463.                         HS.Exp "A#ST_A_INT_SUSP_CRED.C4#"&B4(g)&" = A#LT_A_INT_SUSP_CRED.C4#"&B4(g)
  3464.                         HS.Exp "A#ST_A_NON_INT_TOTAL.C4#"&B4(g)&" = A#LT_A_NON_INT_TOTAL.C4#"&B4(g)
  3465.                 End If
  3466.                 End IF
  3467.                     hs.clear "A#"&A1(j)&".C4#"&B4(g)
  3468.             Next
  3469.             Next
  3470.  
  3471.  
  3472.  
  3473.  
  3474.  
  3475.     '*******************************************************************
  3476.     'Intangables additional information
  3477.     '*******************************************************************
  3478.         HS.Exp "A#INT_A_LIFE"&C13None&" = A#PPE_FML_INT_ASS.C1#INT_TOTAL.C3#BV_TOTAL"
  3479.         HS.Exp "A#INT_A_SOURCE"&C13None&" = A#PPE_FML_INT_ASS.C1#INT_TOTAL.C3#BV_TOTAL"
  3480.  
  3481.     '*******************************************************************
  3482.     'Investment in Subs and JV additional information
  3483.     '*******************************************************************
  3484.         HS.Exp "A#INV_S_JV_A_T = A#INV_S_JV_TOTAL"
  3485.  
  3486.     '*******************************************************************
  3487.     'Investments in associates additional information
  3488.     '*******************************************************************
  3489.         HS.Exp "A#INV_ASS_A_DET_T = A#INV_ASS_TOTAL"
  3490.  
  3491.     '*******************************************************************
  3492.     'Investments and loans additional information
  3493.     '*******************************************************************
  3494.         HS.Exp "A#INV_SEC_A_TOTAL.C1#INV_A_INV_TOT.C3#INV_A_LIST_TOTAL = A#INV_SEC_TOTAL.C1#INV_TOT.C3#[None]"
  3495.         HS.Exp "A#INV_SEC_A_TOTAL.C1#INV_A_INV_CAT_TOT.C3#INV_A_LIST_TOTAL = A#INV_SEC_TOTAL.C1#INV_TOT.C3#[None]"
  3496.  
  3497.     '*******************************************************************
  3498.     'Investments in Pref Shares additional information
  3499.     '*******************************************************************
  3500.         HS.Exp "A#INV_PREF_A_TOTAL.C1#INV_A_INV_TOT.C3#INV_A_LIST_TOTAL = A#INV_PREF_TOTAL.C1#INV_TOT.C3#[None]"
  3501.         HS.Exp "A#INV_PREF_A_TOTAL.C1#INV_A_INV_CAT_TOT.C3#INV_A_LIST_TOTAL = A#INV_PREF_TOTAL.C1#INV_TOT.C3#[None]"
  3502.  
  3503.     '*******************************************************************
  3504.     'Other non-current receivables additional information
  3505.     '*******************************************************************
  3506.         HS.Exp "A#NONCUR_A_TOTAL.C1#INV_A_INV_TOT.C3#INV_A_LIST_TOTAL = A#NONCUR_RC_TOTAL.C1#NONCUR_RC_TERM.C3#[None]"
  3507.         HS.Exp "A#NONCUR_A_TOTAL.C1#INV_A_INV_CAT_TOT.C3#INV_A_LIST_TOTAL = A#NONCUR_RC_TOTAL.C1#NONCUR_RC_TERM.C3#[None]"
  3508.  
  3509.     '*******************************************************************
  3510.     'Short Term portion of long term Receivables
  3511.     '*******************************************************************
  3512. '       HS.Clear "A#DEB_S_ST_OF_LT_RC.C1#[None]"
  3513.  
  3514. '       IF HS.Year.Member = "2007" and HS.Period.Member = "January" or HS.Year.Member = "2007" and HS.Period.Member = "February" or HS.Year.Member = "2007" and HS.Period.Member = "March" or HS.Year.Member = "2007" and HS.Period.Member = "April" or HS.Year.Member = "2007" and HS.Period.Member = "May" or HS.Year.Member = "2007" and HS.Period.Member = "JUNE" or HS.Year.Member > "2007" then
  3515. '           HS.Exp "A#DEB_S_ST_OF_LT_RC.C1#[None] = A#NONCUR_RC_TOTAL.C1#NONCUR_RC_ST.I#[ICP Top]"
  3516. '           HS.Clear "A#NONCUR_RC_ACQ.C1#NONCUR_RC_ST"
  3517. '           HS.Clear "A#NONCUR_RC_DIS.C1#NONCUR_RC_ST"
  3518. '           HS.Clear "A#NONCUR_RC_DIV.C1#NONCUR_RC_ST"
  3519. '           HS.Clear "A#NONCUR_RC_FCTADJ.C1#NONCUR_RC_ST"
  3520. '           HS.Clear "A#NONCUR_RC_FVADJ_EQ.C1#NONCUR_RC_ST"
  3521. '           HS.Clear "A#NONCUR_RC_FVADJ_IS.C1#NONCUR_RC_ST"
  3522. '           HS.Clear "A#NONCUR_RC_IMPAIRMENT.C1#NONCUR_RC_ST"
  3523. '           HS.Clear "A#NONCUR_RC_INC_INV.C1#NONCUR_RC_ST"
  3524. '           HS.Clear "A#NONCUR_RC_IOPEN.C1#NONCUR_RC_ST"
  3525. '           HS.Clear "A#NONCUR_RC_LOAN_GRANT.C1#NONCUR_RC_ST"
  3526. '           HS.Clear "A#NONCUR_RC_LOAN_REPD.C1#NONCUR_RC_ST"
  3527. '           HS.Clear "A#NONCUR_RC_SUB_BU_ACQ.C1#NONCUR_RC_ST"
  3528. '           HS.Clear "A#NONCUR_RC_SUB_BU_DIS.C1#NONCUR_RC_ST"
  3529. '       End if
  3530.  
  3531. '       IF HS.Year.Member = "2007" and HS.Period.Member = "January" then
  3532. '       'or HS.Year.Member = "2007" and HS.Period.Member = "February" or HS.Year.Member = "2007" and HS.Period.Member = "March" or HS.Year.Member = "2007" and HS.Period.Member = "April" or HS.Year.Member = "2007" and HS.Period.Member = "May" or HS.Year.Member = "2007" and HS.Period.Member = "JUNE" or HS.Year.Member > "2007" then
  3533. '           HS.Exp "A#DEB_S_ST_OF_LT_RC.C1#[None] = A#NONCUR_RC_ACQ.C1#NONCUR_RC_ST.I#[ICP Top] - A#NONCUR_RC_DIS.C1#NONCUR_RC_ST.I#[ICP Top] + A#NONCUR_RC_DIV.C1#NONCUR_RC_ST.I#[ICP Top] + A#NONCUR_RC_FCTADJ.C1#NONCUR_RC_ST.I#[ICP Top] + A#NONCUR_RC_FVADJ_EQ.C1#NONCUR_RC_ST.I#[ICP Top] + A#NONCUR_RC_FVADJ_IS.C1#NONCUR_RC_ST.I#[ICP Top] - A#NONCUR_RC_IMPAIRMENT.C1#NONCUR_RC_ST.I#[ICP Top] + A#NONCUR_RC_INC_INV.C1#NONCUR_RC_ST.I#[ICP Top] + A#NONCUR_RC_IOPEN.C1#NONCUR_RC_ST.I#[ICP Top] + A#NONCUR_RC_LOAN_GRANT.C1#NONCUR_RC_ST.I#[ICP Top] - A#NONCUR_RC_LOAN_REPD.C1#NONCUR_RC_ST.I#[ICP Top] + A#NONCUR_RC_OPEN.C1#NONCUR_RC_ST.I#[ICP Top] + A#NONCUR_RC_SUB_BU_ACQ.C1#NONCUR_RC_ST.I#[ICP Top] - A#NONCUR_RC_SUB_BU_DIS.C1#NONCUR_RC_ST.I#[ICP Top]"
  3534. '
  3535. '       End If
  3536. '
  3537. '       IF HS.Year.Member = "2007" and HS.Period.Member = "January" then
  3538. '           HS.Clear "A#NONCUR_RC_ACQ.C1#NONCUR_RC_ST"
  3539. '           HS.Clear "A#NONCUR_RC_DIS.C1#NONCUR_RC_ST"
  3540. '           HS.Clear "A#NONCUR_RC_DIV.C1#NONCUR_RC_ST"
  3541. '           HS.Clear "A#NONCUR_RC_FCTADJ.C1#NONCUR_RC_ST"
  3542. '           HS.Clear "A#NONCUR_RC_FVADJ_EQ.C1#NONCUR_RC_ST"
  3543. '           HS.Clear "A#NONCUR_RC_FVADJ_IS.C1#NONCUR_RC_ST"
  3544. '           HS.Clear "A#NONCUR_RC_IMPAIRMENT.C1#NONCUR_RC_ST"
  3545. '           HS.Clear "A#NONCUR_RC_INC_INV.C1#NONCUR_RC_ST"
  3546. '           HS.Clear "A#NONCUR_RC_IOPEN.C1#NONCUR_RC_ST"
  3547. '           HS.Clear "A#NONCUR_RC_LOAN_GRANT.C1#NONCUR_RC_ST"
  3548. '           HS.Clear "A#NONCUR_RC_LOAN_REPD.C1#NONCUR_RC_ST"
  3549. '           HS.Clear "A#NONCUR_RC_SUB_BU_ACQ.C1#NONCUR_RC_ST"
  3550. '           HS.Clear "A#NONCUR_RC_SUB_BU_DIS.C1#NONCUR_RC_ST"
  3551. '           C1 = HS.Account.List ("NONCUR_RC_TOTAL", "[Base]")
  3552. '           for j = Lbound(C1) To Ubound(C1)
  3553. '
  3554. '           HS.Clear "A#"&C1(j)&".C1#NONCUR_RC_ST"
  3555. '           Next
  3556. '       End If
  3557.  
  3558.     '*******************************************************************
  3559.     'Current Liabilities
  3560.     '*******************************************************************
  3561.         HS.Exp "A#CUR_LIAB = (A#BS_CURR_LIAB * -1)"
  3562.  
  3563.     '*******************************************************************
  3564.     'Dividends Accrued
  3565.     '*******************************************************************
  3566.         HS.Exp "A#SFD_DIV_ACCRUED = A#AP_ORD_DIV_TOTAL"
  3567.  
  3568.     '*******************************************************************
  3569.     'Provision for tax
  3570.     '*******************************************************************
  3571.  
  3572.         HS.Exp "A#TAX_PRO_CUR"&C1234None&" = A#TAX_GL_TOTAL.C1#TAX_GL_SA_CUR"&C234Top
  3573.  
  3574.         HS.Exp "A#TAX_PRO_FOREIGN"&C1234None&" = A#TAX_GL_TOTAL.C1#TAX_GL_FOR_CUR"&C234Top
  3575.  
  3576.         HS.Exp "A#TAX_PRO_WITHHOLD"&C1234None&" = A#TAX_GL_TOTAL.C1#TAX_GL_FOR_WITH"&C234Top
  3577.  
  3578.  
  3579.         HS.Exp "A#TAX_PRO_STC"&C1234None&"  = A#TAX_GL_TOTAL.C1#TAX_GL_STC"&C234Top
  3580.  
  3581.         HS.Exp "A#TAX_PRO_CGT"&C1234None&" = A#TAX_GL_TOTAL.C1#TAX_GL_CGT"&C234Top
  3582.  
  3583.         HS.Exp "A#TAX_PRIOR_YR"&C1234None&" = A#TAX_GL_TOTAL.C1#TAX_GL_FOR_PRIOR_CUR"&C234Top&" + A#TAX_GL_TOTAL.C1#TAX_GL_SA_PRIOR_CUR"&C234Top '(wrong formula according to Frikkie)
  3584. '       HS.Exp "A#TAX_PRIOR_YR"&C134None&" = A#TAX_GL_TOTAL.C1#TAX_GL_SA_PRIOR_CUR"&C34IS
  3585.  
  3586.  
  3587.     '*******************************************************************
  3588.     '*******************************************************************
  3589.     'VALUE ADDED STATEMENT
  3590.     '*******************************************************************
  3591.     '*******************************************************************
  3592.         HS.Exp "A#VA_WEALTH_ALLOC = A#VA_WEALTH_ALLOCATED"
  3593.         HS.Exp "A#VA_RETAINED_GROWTH = A#VA_RETAINED"
  3594.  
  3595.  
  3596.     '*******************************************************************
  3597.     'Disclosure by Currency
  3598.     '*******************************************************************
  3599.         HS.Exp "A#BANK_OD.C2#FX_TOT"&C134None&" = A#CUR_ASS_CASH"&C1234Top
  3600.         HS.Exp "A#TRADE_PAYABLES.C2#FX_TOT"&C134None&" = A#TPAY_OPAY_TOTAL"&C1234Top
  3601.         HS.Exp "A#TRADE_RECEIVABLES.C2#FX_TOT"&C134None&" = A#CUR_ASS_TRADE_OTH"&C1234Top
  3602.         HS.Exp "A#BANK_OD.C2#FX_TOT"&C134None&" = A#BS_BANK_OVERDRAFT"&C1234Top
  3603.  
  3604.     'Call writetofile("BS END")
  3605.  
  3606.             'Validation accounts calculations - Opening
  3607.         HS.Exp "A#V_DEB_TR_PR_BD_OPEN = A#DEB_TR_PR_BD_OPEN.I#[ICP Top]"&C1234Top&" - A#DEB_TR_PR_BD_IOPEN.I#[ICP Top]"&C1234Top
  3608.         HS.Exp "A#V_DEB_S_ST_PR_OPEN = A#DEB_S_ST_PR_OPEN.I#[ICP Top]"&C1234Top&" - A#DEB_S_ST_PR_IOPEN.I#[ICP Top]"&C1234Top
  3609.         HS.Exp "A#V_INV_ASS_OPEN = A#INV_ASS_OPEN.I#[ICP Top]"&C1234Top&" - A#INV_ASS_IOPEN.I#[ICP Top]"&C1234Top
  3610.         HS.Exp "A#V_INV_S_JV_OPEN = A#INV_S_JV_OPEN.I#[ICP Top]"&C1234Top&" - A#INV_S_JV_IOPEN.I#[ICP Top]"&C1234Top
  3611.         HS.Exp "A#V_GW_COST_OPEN = A#GW_COST_OPEN.I#[ICP Top]"&C1234Top&" - A#GW_COST_IOPEN.I#[ICP Top]"&C1234Top
  3612.         HS.Exp "A#V_GW_ACCDEP_OPEN = A#GW_ACCDEP_OPEN.I#[ICP Top]"&C1234Top&" - A#GW_ACCDEP_IOPEN.I#[ICP Top]"&C1234Top
  3613.         HS.Exp "A#V_SFD_OPEN = A#SFD_OPEN.I#[ICP Top]"&C1234Top&" - A#SFD_IOPEN.I#[ICP Top]"&C1234Top
  3614.         HS.Exp "A#V_TAX_OPEN = A#TAX_OPEN.I#[ICP Top]"&C1234Top&" - A#TAX_IOPEN.I#[ICP Top]"&C1234Top
  3615.         HS.Exp "A#V_MIN_OPEN = A#MIN_OPEN.I#[ICP Top]"&C1234Top&" - A#MIN_IOPEN.I#[ICP Top]"&C1234Top
  3616.         HS.Exp "A#V_DEF_TAX_A_OPEN = A#DEF_TAX_A_OPEN.I#[ICP Top]"&C1234Top&" - A#DEF_TAX_A_IOPEN.I#[ICP Top]"&C1234Top
  3617.         HS.Exp "A#V_END_CASH_EQ = A#END_CASH_EQ.I#[ICP Top]"&C1234Top&" - A#CUR_ASS_CASH.I#[ICP Top]"&C1234Top&" + A#BS_BANK_OVERDRAFT.I#[ICP Top]"&C1234Top
  3618.         HS.EXP "A#V_CUR_ASS_INVEN_TOT = A#CUR_ASS_INVEN_TOT.C1#VAL_OPEN_BAL_P.I#[ICP Top]"&C234Top
  3619.         HS.EXP "A#V_PPE_FML_INT_ASS = A#PPE_FML_INT_ASS.C3#VAL_OPEN_BAL_T.I#[ICP Top]"&C234Top
  3620.         HS.EXP "A#V_OTH_INV_LOANS = A#OTH_INV_LOANS.C1#VAL_OPEN_BAL.I#[ICP Top]"&C234Top
  3621.         HS.EXP "A#V_BS_ST_PROVISIONS = A#BS_ST_PROVISIONS.C1#VAL_OPEN_BAL.I#[ICP Top]"&C234Top
  3622.         HS.EXP "A#V_BS_FUND_RESERVES = A#BS_FUND_RESERVES.C1#VAL_OPEN_BAL.I#[ICP Top]"&C234Top
  3623.         HS.EXP "A#V_BS_LT_NI_BORROW = A#BS_LT_NI_BORROWINGS.C1#VAL_OPEN_BAL.I#[ICP Top]"&C234Top
  3624.         HS.EXP "A#V_BS_ST_BOR_NON_INT = A#BS_ST_BOR_NON_INT.C1#VAL_OPEN_BAL.I#[ICP Top]"&C234Top
  3625.         HS.EXP "A#V_SH_FUND_O_CAP_RES = A#SH_FUND_ORD_CAP_RES.C1#VAL_OPEN_BAL.I#[ICP Top]"&C234Top
  3626.         HS.Exp "A#V_NONCUR_RC_OPEN"&C234None&" = A#NONCUR_RC_OPEN.I#[ICP Top]"&C234Top&" - A#NONCUR_RC_IOPEN.I#[ICP Top]"&C234Top
  3627.  
  3628.  
  3629.     'Validation accounts calculations - Impairment
  3630.         HS.EXP "A#V_IMP_INTANGIBLES = A#IMP_INTANGIBLES.I#[ICP Top].C1#[None]"&C34Top&" - A#PPE_FML_INT_ASS.C1#INT_TOTAL.C3#BV_COST_IMP_FA.C4#[None].I#[ICP Top]"
  3631.         HS.EXP "A#V_IMP_PPE = A#IMP_PPE.I#[ICP Top].C1#[None]"&C34Top&" - A#PPE_FML_INT_ASS.C1#PPE_TOT.C3#BV_COST_IMP_FA.C4#[None].I#[ICP Top]"
  3632.         HS.EXP "A#V_IMP_INV_SEC = A#IMP_INV_SEC.I#[ICP Top].C1#[None]"&C34Top&" - A#INV_SEC_TOTAL.C1#INV_IMPAIRMENT.C4#[None].I#[ICP Top]"
  3633.         HS.EXP "A#V_IMP_PREF = A#IMP_PREF.I#[ICP Top].C1#[None]"&C34Top&" - A#INV_PREF_TOTAL.C1#INV_IMPAIRMENT.C4#[None].I#[ICP Top]"
  3634.         HS.EXP "A#V_INTGRP_LOANS = A#IMP_INTGRP_LOANS.I#[ICP Top].C1#[None]"&C34Top&" - A#INV_SUPERGRP_SHARES.C1#INV_IMPAIRMENT.C4#[None]"
  3635.         HS.EXP "A#V_FML = A#IMP_FML.I#[ICP Top].C1#[None]"&C34Top&" - A#PPE_FML_INT_ASS.C1#FML_ASSETS_TOTAL.C3#BV_COST_IMP_FA.C4#[None].I#[ICP Top]"
  3636.  
  3637.  
  3638.     'Validation accounts calculations - Depreciation
  3639.         Hs.Exp "A#V_DEPRECIATION = A#DEPRECIATION.C4#CONTRACT_PRODUCT.I#[ICP Top]"&C123Top&" - A#PPE_FML_INT_ASS.C3#BV_ACCDEP_CUR_DEP.I#[ICP Top]"&C124Top
  3640.  
  3641.         HS.EXP "A#V_OPAY_DEF_INC = A#OPAY_DEF_INC.I#[ICP Top]"&C1234Top&" - A#PAY_DEF_INC_TOT.I#[ICP Top]"&C1234Top
  3642.  
  3643.     'Validations - Taxation
  3644. '       HS.Exp "A#V_TAX_GL_TOTAL = A#TAX_GL_TOTAL.I#[ICP Top]"&C1234Top&" - A#TAX_CALC_TOTAL.I#[ICP Top]"&C1234Top
  3645. '       HS.EXP "A#V_OOE_DONATION_DED = A#OOE_DONATION_DEDUCT.I#[ICP Top]"&C1234Top&" - A#OOE_DON_DED.C1#DON_AMOUNT.I#[ICP Top]"&C1234Top
  3646. '       HS.Exp "A#V_RTI_VAL_VAT_RET = A#RTI_VAL_VAT_RET_TOT.I#[ICP Top]"&C1234Top
  3647. '       HS.Exp "A#V_DD_A_PROV_TOTAL = A#DD_A_PROV_TOTAL"&C1234Top&" - A#DEB_TR_PR_BD_TOT.I#[ICP Top]"&C1234Top
  3648. '       HS.EXP "A#V_TAX_DED_PY_ADV = A#TAX_DED_PY_ADV.I#[ICP Top]"&C1234Top&" - A#OPAY_DEF_INC.I#[ICP Top]"&C1234Top
  3649. End Sub
  3650.  
  3651.  
  3652. Sub Cashflow
  3653.  
  3654.     '*******************************************************************
  3655.     '*******************************************************************
  3656.     'Cashflow Logic
  3657.     '*******************************************************************
  3658.     '*******************************************************************
  3659.  
  3660.     'Call writetofile("CF BEGIN")
  3661.     '*******************************************************************
  3662.     'NET CASH FLOW - OPERATING ACTIVITIES
  3663.     '*******************************************************************
  3664.     'Dividends received
  3665.         HS.Exp "A#INV_SEC_DIV_RC = A#INV_SEC_TOTAL.C1#INV_DIV_REC.I#[ICP Top]"
  3666.         HS.Exp "A#INV_PREF_DIV_RC = A#INV_PREF_TOTAL.C1#INV_DIV_REC.I#[ICP Top]"
  3667.         HS.Exp "A#INV_SUPERGRP_DIV_RC = A#INV_SUPERGRP_SHARES.C1#INV_DIV_REC.I#[ICP Top]"
  3668.  
  3669.     'Finance Cost
  3670.         HS.Exp "A#FIN_COST"&C1234None&" = A#FINANCE_COST.I#[ICP Top]"&C1234Top&" - A#FC_FIN_COST_CAP.I#[ICP TOP]"&C1234TOP
  3671.  
  3672.     'Interest Accrued
  3673.         HS.Exp "A#LT_DEBT_INT_ACC"&C1234None&" = A#BS_LT_NI_BORROWINGS.C1#LT_DEBT_INT_ACC.I#[ICP Top]"&C234Top&" + A#BS_ST_BOR_NON_INT.C1#LT_DEBT_INT_ACC.I#[ICP Top]"&C234Top
  3674.  
  3675.  
  3676.  
  3677.     'PROVISIONS
  3678.         HS.Exp "A#PRO_INC.C1#[None] = A#BS_ST_PROVISIONS.C1#PRO_INC.I#[ICP Top]"
  3679.         HS.Exp "A#PRO_PMT.C1#[None] = A#BS_ST_PROVISIONS.C1#PRO_PMT.I#[ICP Top]"
  3680.         HS.Exp "A#PRO_REV.C1#[None] = A#BS_ST_PROVISIONS.C1#PRO_REV.I#[ICP Top]"
  3681.  
  3682.     'Income from investments - Non Current
  3683.         HS.Exp "A#INV_NONCUR_RC_INC"&C1234None&" = -1 * A#NONCUR_RC_INC_INV.I#[ICP Top]"&C1234Top
  3684.  
  3685.     'Fair value adjustments
  3686.         HS.Exp "A#INV_FVADJ_IS"&C1234None&" = A#INV_SEC_TOTAL.C1#INV_FVADJ_IS.I#[ICP Top]"&C234None&" + A#INV_PREF_TOTAL.C1#INV_FVADJ_IS.I#[ICP Top]"&C234None&" + A#NONCUR_RC_FVADJ_IS.I#[ICP Top]"&C1234Top&" + A#INV_SUPERGRP_SHARES.C1#INV_FVADJ_IS.I#[ICP Top]"&C234None
  3687.  
  3688.     'Tax Paid
  3689.         HS.Exp "A#TAX_PAID = A#TAX_PAYMENTS_TO_ROR.I#[ICP Top] - A#TAX_REFUNDS.I#[ICP Top]"
  3690.  
  3691.     'Operating Cash flow - Technical account calcs
  3692.         HS.Exp "A#ST_PROVISIONS"&C1234None&" = -1 * A#ST_PROVISIONS_T.I#[ICP Top]"&C1234Top
  3693.         HS.Exp "A#CF_DEPR"&C1234None&" = A#CF_DEPR_T.I#[ICP Top]"&C1234Top
  3694.         HS.Exp "A#IMPAIR"&C1234None&" = A#IMPAIR_T.I#[ICP Top]"&C1234Top
  3695.         HS.Exp "A#OPER_INC_P_ASSETS"&C1234None&" = -1 * A#OPER_INC_P_ASSETS_T.I#[ICP Top]"&C1234Top
  3696.         HS.Exp "A#OPS_INC_BAD_D"&C1234None&" = -1 * A#OPS_INC_BAD_D_T.I#[ICP Top]"&C1234Top
  3697.         HS.Exp "A#OPS_INC_FUND_RESERVE"&C1234None&" = A#OPS_INC_FUND_RES_T.I#[ICP Top]"&C1234Top
  3698.         HS.Exp "A#OPS_INC_FX"&C1234None&" = -1 * A#OPS_INC_FX_T.I#[ICP Top]"&C1234Top
  3699.         HS.Exp "A#OPS_INC_P_OPS1"&C1234None&" = -1 * A#OPS_INC_P_OPS_T"&C1234Top
  3700.  
  3701.  
  3702.     '******************************************************************
  3703.     'WORKING CAPITAL
  3704.     '******************************************************************
  3705. '   '--------------------------------------------------------
  3706. '   'WORKING CAPITAL OPENING
  3707. '   '--------------------------------------------------------
  3708. '   'Inventories
  3709. '       HS.Exp "A#WCM_INV_MOV.C1#OPENING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.W#YTD.C1#INVEN_GROSS.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  3710. '                                                   'A#CUR_ASS_INVEN_TOT.C1#INVEN_TOT.I#[ICP Top].Y#Prior.P#LAST"&C234Top
  3711. '
  3712. '   'Trade Receivables & Sundry Debtors
  3713. '       HS.Exp "A#WCM_TR_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  3714. '
  3715. '   'Sundry Debtors
  3716. '       HS.Exp "A#WCM_S_RC.C1#OPENING.W#YTD"&C234None&" = A#DEB_S_TOTAL.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  3717. '
  3718. '
  3719. '   'Trade Payables
  3720. '       HS.Exp "A#WCM_TPAY.C1#OPENING.W#YTD"&C234None&" = -A#TPAY_TOTAL.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  3721. '
  3722. '   'Other Payables
  3723. '       HS.Exp "A#WCM_PAY_OTH.C1#OPENING.W#YTD"&C234None&" = -A#OPAY_TOTAL.C1#[None].W#YTD.Y#Prior.P#LAST.I#[ICP Top]"&C234Top
  3724. '
  3725.     '--------------------------------------------------------
  3726.     'WORKING CAPITAL MOVEMENTS
  3727.     '--------------------------------------------------------
  3728.     'Bad Debts
  3729.         HS.Exp "A#WCM_TR_RC.C1#WCM_RC_BAD_D_WO.W#YTD"&C234None&" = A#OOE_BAD_DEBT_WO.W#YTD.I#[ICP Top]"&C1234Top
  3730.  
  3731.     'Trade Receivables & Sundry Debtors
  3732.         HS.Exp "A#WCM_TR_RC.C1#WCM_RC_FX_GAIN_LOSS.W#YTD"&C234None&" = A#OOI_FX_GAIN_UNR.W#YTD.I#[ICP Top]"&C1234Top&" - A#OOE_FX_LOSS_UNR.W#YTD.I#[ICP Top]"&C1234Top
  3733.  
  3734.     '---------------------------------------------------------
  3735.     'MOVED TO VALIDATIONS:  WORKING CAPITAL CLOSING
  3736.     '--------------------------------------------------------
  3737.     'Inventories
  3738.         HS.Exp "A#WCM_INV_MOV.C1#WCM_CLOSING.W#YTD"&C234None&" = A#CUR_ASS_INVEN_TOT.W#YTD.C1#INVEN_GROSS.I#[ICP Top]"&C234Top
  3739.         'A#CUR_ASS_INVEN_TOT.C1#INVEN_TOT.I#[ICP Top]"&C234Top
  3740.  
  3741.     'Trade Receivables & Sundry Debtors
  3742.         HS.Exp "A#WCM_TR_RC.C1#WCM_CLOSING.W#YTD"&C234None&" = A#DEB_TR_GR_TOT.W#YTD.I#[ICP Top]"&C1234Top
  3743.  
  3744.     'Sundry Debtors
  3745.         HS.Exp "A#WCM_S_RC.C1#WCM_CLOSING.W#YTD"&C234None&" = A#DEB_S_TOTAL.W#YTD.I#[ICP Top]"&C1234Top
  3746.  
  3747.     'Trade Payables
  3748.         HS.Exp "A#WCM_TPAY.C1#WCM_CLOSING.W#YTD"&C234None&" = -A#TPAY_TOTAL.W#YTD.I#[ICP Top]"&C1234Top
  3749.  
  3750.     'Other Payables
  3751.         HS.Exp "A#WCM_PAY_OTH.C1#WCM_CLOSING.W#YTD"&C234None&" = -A#OPAY_TOTAL.W#YTD.I#[ICP Top]"&C1234Top
  3752. '   '--------------------------------------------------------
  3753.  
  3754.     'INVENTORY PROVISION MOVEMENTS
  3755.         HS.Exp "A#INVEN_PROV_MOV_TOT.W#YTD.C1#[None]"&C234None&" = A#CUR_ASS_INVEN_TOT.C1#INVEN_PROV_MOV_INC.W#YTD.I#[ICP Top]"&C234Top&" - A#CUR_ASS_INVEN_TOT.C1#INVEN_PROV_MOV_REV.I#[ICP Top]"&C234Top&" - A#CUR_ASS_INVEN_TOT.C1#INVEN_PROV_MOV_UTIL.W#YTD.I#[ICP Top]"&C234Top
  3756.  
  3757.  
  3758.     'Fund Reserves calculation on ENTITY LEVEL
  3759.         If HS.Entity.IsBase("", "") then
  3760.         HS.Clear ("A#WCM_FML_E.C1#[None]"&C234None)
  3761.         HS.Clear ("A#WCM_INS_E.C1#[None]"&C234None)
  3762.             HS.Exp "A#WCM_FML_E.C1#[None].W#YTD"&C234None&" = A#FRES_FML_TOTAL.C1#FRES_CF_MOV_RC.W#YTD.I#[ICP Top]"&C234Top&" - A#FRES_FML_TOTAL.C1#FRES_CF_MOV_PD.W#YTD.I#[ICP Top]"&C234Top
  3763.             HS.Exp "A#WCM_INS_E.C1#[None].W#YTD"&C234None&" = A#FRES_INS_TOTAL.C1#FRES_CF_MOV_RC.W#YTD.I#[ICP Top]"&C234Top&" - A#FRES_INS_TOTAL.C1#FRES_CF_MOV_PD.W#YTD.I#[ICP Top]"&C234Top
  3764. '           HS.Clear "A#WCM_FML_C"
  3765. '           HS.Clear "A#WCM_INS_C"
  3766.         End If
  3767.  
  3768.     'Fund Reserves calculation on CONSOLIDATION LEVEL
  3769.         If HS.Entity.IsBase("", "") = false then
  3770.         HS.Clear ("A#WCM_FML_C.C1#[None]"&C234None)
  3771.         Hs.Clear ("A#WCM_INS_C.C1#[None]"&C234None)
  3772.             HS.Exp "A#WCM_FML_C.C1#[None].W#YTD"&C234None&" = A#FRES_FML_TOTAL.W#YTD.C1#FRES_CF_MOV_RC.I#[ICP Top]"&C234Top&" - A#FRES_FML_TOTAL.C1#FRES_CF_MOV_PD.W#YTD.I#[ICP Top]"&C234Top
  3773.             HS.Exp "A#WCM_INS_C.C1#[None].W#YTD"&C234None&" = A#FRES_INS_TOTAL.W#YTD.C1#FRES_CF_MOV_RC.I#[ICP Top]"&C234Top&" - A#FRES_INS_TOTAL.C1#FRES_CF_MOV_PD.W#YTD.I#[ICP Top]"&C234Top
  3774.             HS.Clear "A#WCM_FML_E"
  3775.             HS.Clear "A#WCM_INS_E"
  3776.  
  3777.  
  3778.         End If
  3779.  
  3780.     '*****************************************************************
  3781.     'NET CASH FLOW - INVESTING ACTIVITIES: Subsidiary acquired
  3782.     '*****************************************************************
  3783.     'Ordinary share capital
  3784.         HS.Exp "A#SUB_ACQ_SI_OSCAP.C1#[None] = A#SC_ORD_TOTAL.C1#SC_ISSUE_BUS_ACQ.I#[ICP Top]"
  3785.  
  3786.     'A-Ordinary share capital
  3787.         HS.Exp "A#SUB_ACQ_SI_AOSCAP.C1#[None] = A#SC_AORD_TOTAL.C1#SC_ISSUE_BUS_ACQ.I#[ICP Top]"
  3788.  
  3789.     'Share Premium
  3790.         HS.Exp "A#SUB_ACQ_SP.C1#[None] = A#SP_TOTAL.C1#SC_ISSUE_BUS_ACQ.I#[ICP Top]"
  3791.  
  3792.     'Property vehicles and Equipment
  3793.         HS.Exp "A#SUB_ACQ_PPE.C3#[None] = A#PPE_FML_INT_ASS.C1#PPE_TOT.C3#BV_COST_ACQ_BUINESS.I#[ICP Top]"
  3794.  
  3795.     'Full maintenance lease assets
  3796.         HS.Exp "A#SUB_ACQ_FML.C3#[None] = A#PPE_FML_INT_ASS.C1#FML_ASSETS_TOTAL.C3#BV_COST_ACQ_BUINESS.I#[ICP Top]"
  3797.  
  3798.     'Intangible Assets
  3799.         HS.Exp "A#SUB_ACQ_INT.C1#[None].C3#[None] = A#PPE_FML_INT_ASS.C1#INT_TOTAL.C3#BV_COST_ACQ_BUINESS.I#[ICP Top]"
  3800.  
  3801.     'Investments in Securities
  3802.         HS.Exp "A#SUB_ACQ_SEC_A.C1#[None] = A#INV_SEC_TOTAL.C1#INV_SUB_BU_ACQ.I#[ICP Top]"
  3803.  
  3804.     'Investments in Pref Shares
  3805.         HS.Exp "A#SUB_ACQ_PREF_A.C1#[None] = A#INV_PREF_TOTAL.C1#INV_SUB_BU_ACQ.I#[ICP Top]"
  3806.  
  3807.     'Investments in Super Group Shares
  3808.         HS.Exp "A#SUB_ACQ_SUPERGRP_A.C1#[None] = A#INV_SUPERGRP_SHARES.C1#INV_SUB_BU_ACQ.I#[ICP Top]"
  3809.  
  3810.     'Provisions for Stock Obsolescence
  3811.         HS.Exp "A#INVEN_PROV_SUB_ACQ.C1#[None] = A#CUR_ASS_INVEN_TOT.C1#INVEN_PROV_SUB_ACQ.I#[ICP Top]"
  3812.  
  3813.     'Long Term Debt
  3814.         HS.Exp "A#SUB_ACQ_FV_LT_FML"&C1234None&" = A#LT_FML_TOTAL.C1#LT_DEBT_SUB_ACQ.I#[ICP Top]"&C234Top
  3815.         HS.Exp "A#SUB_ACQ_FV_INT_L"&C1234None&" = A#LT_INT_TOTAL.C1#LT_DEBT_SUB_ACQ.I#[ICP Top]"&C234Top
  3816.         HS.Exp "A#SUB_ACQ_FV_NINT_L"&C1234None&" = A#LT_NON_INT_TOTAL.C1#LT_DEBT_SUB_ACQ.I#[ICP Top]"&C234Top
  3817.  
  3818.     'Short Term DebtBS_ST_BOR_NON_INT
  3819.         HS.Exp "A#SUB_ACQ_FV_ST_DEBT"&C1234None&" = A#BS_ST_BOR_NON_INT.C1#LT_DEBT_SUB_ACQ"&C234Top
  3820.  
  3821.     'Fund Reserves
  3822.         HS.Exp "A#SUB_ACQ_FV_FRS_FML.C1#[None] = A#FRES_FML_TOTAL.C1#FRES_SUB_ACQ.I#[ICP Top]"
  3823.         HS.Exp "A#SUB_ACQ_FV_FRS_INS.C1#[None] = A#FRES_INS_TOTAL.C1#FRES_SUB_ACQ.I#[ICP Top]"
  3824.  
  3825.     'Accumulated Profit
  3826.         HS.Exp "A#SUB_ACQ_ACC_PROFIT =  -1 * A#AP_SUB_ACQ.I#[ICP Top]"
  3827.  
  3828.  
  3829.  
  3830.     'PROVISIONS:
  3831.     'Provision for Insurance (self insurance)
  3832.         HS.Exp "A#SUB_ACQ_FV_PRO_INS.C1#[None] = A#PRO_SELF_INS_TOT.C1#PRO_SUB_ACQ.I#[ICP Top]"
  3833.  
  3834.     'Provision for Reserves
  3835.         HS.Exp "A#SUB_ACQ_FV_PRO_RES.C1#[None] = A#PRO_RES_TOT.C1#PRO_SUB_ACQ.I#[ICP Top]"
  3836.  
  3837.     'Provision for Leave Pay
  3838.         HS.Exp "A#SUB_ACQ_FV_PRO_LP.C1#[None] = A#PRO_LEAVE_PAY.C1#PRO_SUB_ACQ.I#[ICP Top]"
  3839.  
  3840.     'Provision for Bonusses
  3841.         HS.Exp "A#SUB_ACQ_FV_PRO_BON.C1#[None] = A#PRO_BONUSSES.C1#PRO_SUB_ACQ.I#[ICP Top]"
  3842.  
  3843.     'Provision for Audit Fees
  3844.         HS.Exp "A#SUB_ACQ_FV_PRO_AF.C1#[None] = A#PRO_AUDIT_FEES.C1#PRO_SUB_ACQ.I#[ICP Top]"
  3845.  
  3846.     'Provision for Restructuring
  3847.         HS.Exp "A#SUB_ACQ_FV_PRO_STRUC.C1#[None] = A#PRO_RESTRUCTURING.C1#PRO_SUB_ACQ.I#[ICP Top]"
  3848.  
  3849.     'Provision for Warranties given
  3850.         HS.Exp "A#SUB_ACQ_FV_PRO_WAR.C1#[None] = A#PRO_WARRANTY.C1#PRO_SUB_ACQ.I#[ICP Top]"
  3851.  
  3852.     'Provisions for Residual Values
  3853.         HS.Exp "A#SUB_ACQ_FV_PRO_RV.C1#[None] = A#PRO_RES_VAL.C1#PRO_SUB_ACQ.I#[ICP Top]"
  3854.  
  3855.     'Other Provisions
  3856.         HS.Exp "A#SUB_ACQ_FV_PRO_OTH.C1#[None] = A#PRO_OTHER.C1#PRO_SUB_ACQ.I#[ICP Top]"
  3857.  
  3858.     'Intergroup loans
  3859.         HS.Exp "A#SUB_ACQ_FV_INTGRP"&C1234None&" = A#SUB_ACQ_FV_INTRGRP.I#[ICP Top]"&C1234Top
  3860.  
  3861.  
  3862.  
  3863.     '*****************************************************************
  3864.     'NET CASH FLOW - INVESTING ACTIVITIES: Subsidiary disposed
  3865.     '*****************************************************************
  3866.  
  3867.     'Property vehicles and Equipment
  3868.         HS.Exp "A#SUB_DIS_PPE"&C13None&" = A#PPE_FML_INT_ASS.C1#PPE_TOT.C3#BV_COST_DIS_BUSINESS.I#[ICP Top]"
  3869.         HS.Exp "A#SUB_DIS_PPE_A"&C13None&" = A#PPE_FML_INT_ASS.C1#PPE_TOT.C3#BV_ACCDEP_DIS_BU.I#[ICP Top]"
  3870.  
  3871.     'Full maintenance lease assets
  3872.         HS.Exp "A#SUB_DIS_FML"&C13None&" = A#PPE_FML_INT_ASS.C1#FML_ASSETS_TOTAL.C3#BV_COST_DIS_BUSINESS.I#[ICP Top]"
  3873.         HS.Exp "A#SUB_DIS_FML_A"&C13None&" = A#PPE_FML_INT_ASS.C1#FML_ASSETS_TOTAL.C3#BV_ACCDEP_DIS_BU.I#[ICP Top]"
  3874.  
  3875.     'Intangible Assets
  3876.         HS.Exp "A#SUB_DIS_INT"&C13None&" = A#PPE_FML_INT_ASS.C1#INT_TOTAL.C3#BV_COST_DIS_BUSINESS.I#[ICP Top]"
  3877.         HS.Exp "A#SUB_DIS_INT_A"&C13None&" = A#PPE_FML_INT_ASS.C1#INT_TOTAL.C3#BV_ACCDEP_DIS_BU.I#[ICP Top]"
  3878.  
  3879.     'Investments in Securities
  3880.         HS.Exp "A#SUB_DIS_SEC_A.C1#[None] = A#INV_SEC_TOTAL.C1#INV_SUB_BU_DIS.I#[ICP Top]"
  3881.  
  3882.     'Investments in Pref Shares
  3883.         HS.Exp "A#SUB_DIS_PREF_A.C1#[None] = A#INV_PREF_TOTAL.C1#INV_SUB_BU_DIS.I#[ICP Top]"
  3884.  
  3885.     'Intergroup loans
  3886.         HS.Exp "A#SUB_DIS_FV_INTRGROUP = A#SUB_DIS_FV_INTRGRP.I#[ICP Top]  * -1"
  3887.  
  3888.  
  3889.     'Investments in Super Group Shares
  3890.         HS.Exp "A#SUB_DIS_SUPERGRP_A.C1#[None] = A#INV_SUPERGRP_SHARES.C1#INV_SUB_BU_DIS.I#[ICP Top]"
  3891.  
  3892.     'Provisions for Stock Obsolescence
  3893.         HS.Exp "A#INVEN_PROV_SUB_DIS.C1#[None] = A#CUR_ASS_INVEN_TOT.C1#INVEN_PROV_SUB_DIS.I#[ICP Top]"
  3894.  
  3895.     'Long Term Debt
  3896.         HS.Exp "A#SUB_DIS_FV_LT_FML"&C1234None&" = A#LT_FML_TOTAL.C1#LT_DEBT_SUB_DIS.I#[ICP Top]"&C234Top
  3897.         HS.Exp "A#SUB_DIS_FV_INT_L"&C1234None&" = A#LT_INT_TOTAL.C1#LT_DEBT_SUB_DIS.I#[ICP Top]"&C234Top
  3898.         HS.Exp "A#SUB_DIS_FV_NINT_L"&C1234None&" = A#LT_NON_INT_TOTAL.C1#LT_DEBT_SUB_DIS.I#[ICP Top]"&C234Top
  3899.  
  3900.     'Short Term debt
  3901.         HS.Exp "A#SUB_DIS_FV_ST_DEBT"&C1234None&" = A#BS_ST_BOR_NON_INT.C1#LT_DEBT_SUB_DIS"&C234Top
  3902.  
  3903.  
  3904.     'Fund Reserves
  3905.         HS.Exp "A#SUB_DIS_FV_FRS_FML.C1#[None] = A#FRES_FML_TOTAL.C1#FRES_SUB_DIS.I#[ICP Top]"
  3906.         HS.Exp "A#SUB_DIS_FV_FRS_INS.C1#[None] = A#FRES_INS_TOTAL.C1#FRES_SUB_DIS.I#[ICP Top]"
  3907.  
  3908.     'Share Capital
  3909.         HS.Exp "A#SUB_DIS_SP.C1#[None] = -1 * A#SP_TOTAL.C1#SC_BUS_DIS.I#[ICP Top]"
  3910.  
  3911.     'Share Premium
  3912.         HS.Exp "A#SUB_DIS_SC.C1#[None] = -1 * (A#SC_ORD_TOTAL.C1#SC_BUS_DIS.I#[ICP Top] + A#SC_AORD_TOTAL.C1#SC_BUS_DIS.I#[ICP Top])"
  3913.  
  3914.     'Cash
  3915.         HS.Exp "A#SUB_DIS_CASH = A#SUB_DIS_FV_CASH.I#[ICP Top]"
  3916.  
  3917.     'Accumulated Profit
  3918.         HS.Exp "A#SUB_DIS_ACC_PROFIT =  -1 * A#AP_SUB_DIS.I#[ICP Top]"
  3919.  
  3920.  
  3921.     'PROVISIONS:
  3922.     'Provision for Insurance (self insurance)
  3923.         HS.Exp "A#SUB_DIS_FV_PRO_INS.C1#[None] = A#PRO_SELF_INS_TOT.C1#PRO_SUB_DIS.I#[ICP Top]"
  3924.  
  3925.     'Provision for Reserves
  3926.         HS.Exp "A#SUB_DIS_FV_PRO_RES.C1#[None] = A#PRO_RES_TOT.C1#PRO_SUB_DIS.I#[ICP Top]"
  3927.  
  3928.     'Provision for Leave Pay
  3929.         HS.Exp "A#SUB_DIS_FV_PRO_LP.C1#[None] = A#PRO_LEAVE_PAY.C1#PRO_SUB_DIS.I#[ICP Top]"
  3930.  
  3931.     'Provision for Bonusses
  3932.         HS.Exp "A#SUB_DIS_FV_PRO_BON.C1#[None] = A#PRO_BONUSSES.C1#PRO_SUB_DIS.I#[ICP Top]"
  3933.  
  3934.     'Provision for Audit Fees
  3935.         HS.Exp "A#SUB_DIS_FV_PRO_AF.C1#[None] = A#PRO_AUDIT_FEES.C1#PRO_SUB_DIS.I#[ICP Top]"
  3936.  
  3937.     'Provision for Restructuring
  3938.         HS.Exp "A#SUB_DIS_FV_PRO_STRUC.C1#[None] = A#PRO_RESTRUCTURING.C1#PRO_SUB_DIS.I#[ICP Top]"
  3939.  
  3940.     'Provision for Warranties given
  3941.         HS.Exp "A#SUB_DIS_FV_PRO_WAR.C1#[None] = A#PRO_WARRANTY.C1#PRO_SUB_DIS.I#[ICP Top]"
  3942.  
  3943.     'Provisions for Residual Values
  3944.         HS.Exp "A#SUB_DIS_FV_PRO_RV.C1#[None] = A#PRO_RES_VAL.C1#PRO_SUB_DIS.I#[ICP Top]"
  3945.  
  3946.     'Other Provisions
  3947.         HS.Exp "A#SUB_DIS_FV_PRO_OTH.C1#[None] = A#PRO_OTHER.C1#PRO_SUB_DIS.I#[ICP Top]"
  3948.  
  3949.  
  3950.  
  3951.  
  3952.     '*****************************************************************
  3953.     'NET CASH FLOW - INVESTING ACTIVITIES: Other Investments acquired
  3954.     '*****************************************************************
  3955.  
  3956.     'Investments acquired - Securities
  3957.         HS.Exp "A#ASS_INV_ACQ_SEC.C1#[None] = A#INV_SEC_TOTAL.C1#INV_ACQ.I#[ICP Top]"
  3958.  
  3959.     'Investments acquired - Pref Shares
  3960.         HS.Exp "A#ASS_INV_ACQ_PREF.C1#[None] = A#INV_PREF_TOTAL.C1#INV_ACQ.I#[ICP Top]"
  3961.  
  3962.     'Investments acquired - Super Group
  3963.         HS.Exp "A#ASS_INV_ACQ_SUPERGRP.C1#[None] = A#INV_SUPERGRP_SHARES.C1#INV_ACQ.I#[ICP Top]"
  3964.  
  3965.     '*****************************************************************
  3966.     'NET CASH FLOW - INVESTING ACTIVITIES: Other investments disposed
  3967.     '*****************************************************************
  3968.  
  3969.     'Investments acquired - Securities
  3970.         HS.Exp "A#ASS_INV_DIS_SEC.C1#[None] = A#INV_SEC_TOTAL.C1#INV_DIS.I#[ICP Top]"
  3971.  
  3972.     'Investments acquired - Pref Shares
  3973.         HS.Exp "A#ASS_INV_DIS_PREF.C1#[None] = A#INV_PREF_TOTAL.C1#INV_DIS.I#[ICP Top]"
  3974.  
  3975.     'Investments acquired - Super Group
  3976.         HS.Exp "A#ASS_INV_DIS_SUPERGRP.C1#[None] = A#INV_SUPERGRP_SHARES.C1#INV_DIS.I#[ICP Top]"
  3977.  
  3978.  
  3979.     '*****************************************************************
  3980.     'NET CASH FLOW - INVESTING ACTIVITIES: Additions PPE, INT, FML
  3981.     '*****************************************************************
  3982.         HS.Clear ("A#ASS_ADD_PPE_MAIN")
  3983.         HS.Clear ("A#ASS_ADD_PPE_EXP")
  3984.         HS.Clear ("A#ASS_ADD_FML_MAIN")
  3985.         HS.Clear ("A#ASS_ADD_FML_EXP")
  3986.         HS.Clear ("A#ASS_ADD_INT_MAIN")
  3987.         HS.Clear ("A#ASS_ADD_INT_EXP")
  3988.         HS.Clear ("A#ASS_ADD_INV_MAIN")
  3989.         HS.Clear ("A#ASS_ADD_INVP_EXP")
  3990.  
  3991.  
  3992.     'Property vehicles and Equipment
  3993.         HS.Exp "A#ASS_ADD_PPE_MAIN.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#PPE_TOT.C3#BV_COST_A_MAINTAIN.I#[ICP Top]"
  3994.         HS.Exp "A#ASS_ADD_PPE_EXP.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#PPE_TOT.C3#BV_COST_A_EXPAND.I#[ICP Top]"
  3995.  
  3996.     'Investment property
  3997.         HS.Exp "A#ASS_ADD_INV_MAIN.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#INV_PROP.C3#BV_COST_A_MAINTAIN.I#[ICP Top]"
  3998.         HS.Exp "A#ASS_ADD_INVP_EXP.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#INV_PROP.C3#BV_COST_A_EXPAND.I#[ICP Top]"
  3999.  
  4000.  
  4001.     'Full maintenance lease assets
  4002.         HS.Exp "A#ASS_ADD_FML_MAIN.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#FML_ASSETS_TOTAL.C3#BV_COST_A_MAINTAIN.I#[ICP Top]"
  4003.         HS.Exp "A#ASS_ADD_FML_EXP.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#FML_ASSETS_TOTAL.C3#BV_COST_A_EXPAND.I#[ICP Top]"
  4004.  
  4005.     'Intangible Assets
  4006.         HS.Exp "A#ASS_ADD_INT_MAIN.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#INT_TOTAL.C3#BV_COST_A_MAINTAIN.I#[ICP Top]"
  4007.         HS.Exp "A#ASS_ADD_INT_EXP.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#INT_TOTAL.C3#BV_COST_A_EXPAND.I#[ICP Top]"
  4008.  
  4009.     '*****************************************************************
  4010.     'NET CASH FLOW - INVESTING ACTIVITIES: Proceeds on disposal of PPE, INT, FML
  4011.     '*****************************************************************
  4012.         HS.Clear ("A#ASS_DIS_PRO_PPE_COST")
  4013.         HS.Clear ("A#ASS_DIS_PRO_PPE_ADEP")
  4014.         HS.Clear ("A#ASS_DIS_PRO_FML_COST")
  4015.         HS.Clear ("A#ASS_DIS_PRO_FML_ADEP")
  4016.         HS.Clear ("A#ASS_DIS_PRO_INT_COST")
  4017.         HS.Clear ("A#ASS_DIS_PRO_INT_ADEP")
  4018.         HS.Clear ("A#ASS_DIS_PRO_INVP_COST")
  4019.         HS.Clear ("A#ASS_DIS_PRO_INVP_ADEP")
  4020.  
  4021.  
  4022.     'Property vehicles and Equipment
  4023.         HS.Exp "A#ASS_DIS_PRO_PPE_COST.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#PPE_TOT.C3#BV_COST_DIS_COST.I#[ICP Top]"
  4024.         HS.Exp "A#ASS_DIS_PRO_PPE_ADEP.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#PPE_TOT.C3#BV_ACCDEP_DIS_AD.I#[ICP Top]"
  4025.  
  4026.     'Investment property
  4027.         HS.Exp "A#ASS_DIS_PRO_INVP_COST.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#INV_PROP.C3#BV_COST_DIS_COST.I#[ICP Top]"
  4028.         HS.Exp "A#ASS_DIS_PRO_INVP_ADEP.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#INV_PROP.C3#BV_ACCDEP_DIS_AD.I#[ICP Top]"
  4029.  
  4030.  
  4031.     'Full maintenance lease assets
  4032.         HS.Exp "A#ASS_DIS_PRO_FML_COST.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#FML_ASSETS_TOTAL.C3#BV_COST_DIS_COST.I#[ICP Top]"
  4033.         HS.Exp "A#ASS_DIS_PRO_FML_ADEP.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#FML_ASSETS_TOTAL.C3#BV_ACCDEP_DIS_AD.I#[ICP Top]"
  4034.  
  4035.     'Intangible Assets
  4036.         HS.Exp "A#ASS_DIS_PRO_INT_COST.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#INT_TOTAL.C3#BV_COST_DIS_COST.I#[ICP Top]"
  4037.         HS.Exp "A#ASS_DIS_PRO_INT_ADEP.C3#[None].C1#[None] = A#PPE_FML_INT_ASS.C1#INT_TOTAL.C3#BV_ACCDEP_DIS_AD.I#[ICP Top]"
  4038.  
  4039.     '*****************************************************************
  4040.     'NET CASH FLOW - FINANCING ACTIVITIES:Increase/decrease in Ordinary Share Cap
  4041.     '*****************************************************************
  4042.         HS.Clear ("A#FA_SC_ORD_CASH.C1#[None]")
  4043.         HS.Clear ("A#FA_SC_ORD_BUYBACK.C1#[None]")
  4044.         HS.Clear ("A#FA_SC_ORD_CAP_RED.C1#[None]")
  4045.         HS.Clear ("A#FA_SC_AORD_CASH.C1#[None]")
  4046.         HS.Clear ("A#FA_SC_AORD_BUYBACK.C1#[None]")
  4047.         HS.Clear ("A#FA_SC_AORD_CAP_RED.C1#[None]")
  4048.         HS.Clear ("A#FA_SP_CASH.C1#[None]")
  4049.         HS.Clear ("A#FA_SP_CASH.C1#[None]")
  4050.         HS.Clear ("A#FA_SP_BUYBACK.C1#[None]")
  4051.         HS.Clear ("A#FA_SP_CAP_RED.C1#[None]")
  4052.         HS.Clear ("A#FA_SP_CAP_ISSUE_EX.C1#[None]")
  4053.  
  4054.     'Ordinary share capital
  4055.         HS.Exp "A#FA_SC_ORD_CASH.C1#[None] = A#SC_ORD_TOTAL.C1#SC_ISS_CASH.I#[ICP Top]"
  4056.         HS.Exp "A#FA_SC_ORD_BUYBACK.C1#[None] = A#SC_ORD_TOTAL.C1#SC_BUYBACK.I#[ICP Top]"
  4057.         HS.Exp "A#FA_SC_ORD_CAP_RED.C1#[None] = A#SC_ORD_TOTAL.C1#SC_CAP_RED.I#[ICP Top]"
  4058.  
  4059.     'A-Ordinary share capital
  4060.         HS.Exp "A#FA_SC_AORD_CASH.C1#[None] = A#SC_AORD_TOTAL.C1#SC_ISS_CASH.I#[ICP Top]"
  4061.         HS.Exp "A#FA_SC_AORD_BUYBACK.C1#[None] = A#SC_AORD_TOTAL.C1#SC_BUYBACK.I#[ICP Top]"
  4062.         HS.Exp "A#FA_SC_AORD_CAP_RED.C1#[None] = A#SC_AORD_TOTAL.C1#SC_CAP_RED.I#[ICP Top]"
  4063.  
  4064.     'Share premium
  4065.         HS.Exp "A#FA_SP_CASH.C1#[None] = A#SP_TOTAL.C1#SC_ISS_CASH.I#[ICP Top]"
  4066.         HS.Exp "A#FA_SP_BUYBACK.C1#[None] = A#SP_TOTAL.C1#SC_BUYBACK.I#[ICP Top]"
  4067.         HS.Exp "A#FA_SP_CAP_RED.C1#[None] = A#SP_TOTAL.C1#SC_CAP_RED.I#[ICP Top]"
  4068.         HS.Exp "A#FA_SP_CAP_ISSUE_EX.C1#[None] = A#SP_TOTAL.C1#SC_ISSUE_EXP.I#[ICP Top]"
  4069.  
  4070.     '*****************************************************************
  4071.     'NET CASH FLOW - FINANCING ACTIVITIES: Movement in intergroup Loans
  4072.     '*****************************************************************
  4073.  
  4074. '       'Opening Balance
  4075. '       'Opening Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Opening Balance)
  4076. '           HS.Exp "A#FA_INTRGRP_OPEN_EQ"&C1234None&" = A#INTGRP_ENT_LOANS.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  4077. '       'Opening Balance: Loans to group companies = BS: Loans to group companies (Opening Balance)
  4078. '           HS.Exp "A#FA_INTRGRP_OPEN_TO"&C1234None&" = A#LOAN_TO_GROUP_CO.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  4079. '       'Opening Balance: Loan capital = BS: Loan capital (Opening Balance)
  4080. '           HS.Exp "A#FA_INTRGRP_OPEN_CAP"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  4081. '       'Opening Balance: Loan from Group Company = BS: Loan from Group Company (Opening Balance)
  4082. '           HS.Exp "A#FA_INTRGRP_OPEN_FROM"&C1234None&" = A#LOAN_FROM_GRP_INT.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  4083. '       'Opening Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Opening Balance)
  4084. '           HS.Exp "A#FA_INTRGRP_OPEN_PLG.I#[ICP None]"&C1234None&" = A#IGPLTPlug.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.P#LAST.Y#PRIOR.I#[ICP Top]"&C1234Top
  4085.  
  4086.     'Loans Capitalised
  4087.         'Loans Capitalised -  Subs and JV
  4088. '           HS.Clear "A#FA_INTRGRP_CAP_JV"&C1234None
  4089.             HS.Exp "A#FA_INTRGRP_CAP_JV"&C1234None&" =  A#INV_S_JV_LOANS_CAP.I#[ICP Top]"&C1234Top
  4090.         'Loans capitalised - Share Premium
  4091. '           HS.Clear "A#FA_INTRGRP_CAP_SP"&C1234None
  4092.             HS.Exp "A#FA_INTRGRP_CAP_SP"&C1234None&" = - A#SP_TOTAL.C1#SC_ISS_CAP.P#CUR.C1#SC_ISS_CAP.I#[ICP Top]"&C234Top
  4093.         'Loans capitalised - A Ordinary Scap
  4094. '           HS.Clear "A#FA_INTRGRP_CAP_AORD"&C1234None
  4095.             HS.Exp "A#FA_INTRGRP_CAP_AORD"&C1234None&" = - A#SC_AORD_TOTAL.C1#SC_ISS_CAP.I#[ICP Top]"&C234Top
  4096.         'Loans capitalised - Ordinary Scap
  4097. '           HS.Clear "A#FA_INTRGRP_CAP_ORD"&C1234None
  4098.             HS.Exp "A#FA_INTRGRP_CAP_ORD"&C1234None&" = - A#SC_ORD_TOTAL.C1#SC_ISS_CAP.I#[ICP Top]"&C234Top
  4099.  
  4100.  
  4101.     'Closing Balance
  4102.         'Closing Balance: Intergroup Equity Loans = BS: Intergroup Equity Loans (Closing Balance)
  4103.  
  4104.             HS.Exp "A#FA_INTRGRP_CLOS_EQ"&C1234None&" = A#INTGRP_ENT_LOANS.I#[ICP Top]"&C1234Top
  4105.         'Closing Balance: Loans to group companies = BS: Loans to group companies (Closing Balance)
  4106.             HS.Exp "A#FA_INTRGRP_CLOS_TO"&C1234None&" = A#LOAN_TO_GROUP_CO.I#[ICP Top]"&C1234Top
  4107.         'Closing Balance: Loan capital = BS: Loan capital (Closing Balance)
  4108.             HS.Exp "A#FA_INTRGRP_CLOS_CAP"&C1234None&" = A#SH_FUND_ORD_LOAN_CAP.I#[ICP Top]"&C1234Top
  4109.         'Closing Balance: Loan from Group Company = BS: Loan from Group Company (Closing Balance)
  4110.             HS.Exp "A#FA_INTRGRP_CLOS_FROM"&C1234None&" = A#LOAN_FROM_GRP_INT.I#[ICP Top]"&C1234Top
  4111.         'Closing Balance: Plug Accs = BS: IGPLTPlug and IGPEqPlug (Closing Balance)
  4112.             HS.Exp "A#FA_INTRGRP_CLOS_PLG.I#[ICP None]"&C1234None&" = A#IGPLTPlug.I#[ICP Top]"&C1234Top&" + A#IGPEqPlug.I#[ICP Top]"&C1234Top
  4113.  
  4114.  
  4115.     '*****************************************************************
  4116.     'NET CASH FLOW - FINANCING ACTIVITIES: Long-term borrowings Raised
  4117.     '*****************************************************************
  4118.  
  4119.     'Full Maintenance Leased Liabilities
  4120.         HS.Exp "A#FA_LT_BOR_R_FML"&C1234None&" = A#LT_FML_TOTAL.C1#LT_DEBT_RAISED.I#[ICP Top]"&C234Top&" + A#ST_FML_TOTAL.C1#LT_DEBT_RAISED.I#[ICP Top]"&C234Top
  4121.     'Interest Bearing Liabilities
  4122.         HS.Exp "A#FA_LT_BOR_R_INTE"&C1234None&" = A#LT_INT_TOTAL.C1#LT_DEBT_RAISED.I#[ICP Top]"&C234Top&" + A#ST_INT_TOTAL.C1#LT_DEBT_RAISED.I#[ICP Top]"&C234Top
  4123.     'Non interest Bearing Liabilities
  4124.         HS.Exp "A#FA_LT_BOR_R_INTER"&C1234None&" = A#LT_NON_INT_TOTAL.C1#LT_DEBT_RAISED.I#[ICP Top]"&C234Top&" + A#ST_NON_INT_TOTAL.C1#LT_DEBT_RAISED.I#[ICP Top]"&C234Top
  4125.  
  4126.     '*****************************************************************
  4127.     'NET CASH FLOW - FINANCING ACTIVITIES: Long-term borrowings Repaid
  4128.     '*****************************************************************
  4129.  
  4130.     'Full Maintenance Leased Liabilities
  4131.         HS.Exp "A#FA_LT_BOR_RP_FML"&C1234None&" = A#LT_FML_TOTAL.C1#LT_DEBT_REPAID.I#[ICP Top]"&C234Top&" + A#ST_FML_TOTAL.C1#LT_DEBT_REPAID.I#[ICP Top]"&C234Top
  4132.     'Interest Bearing Liabilities
  4133.         HS.Exp "A#FA_LT_BOR_RP_INTE"&C1234None&" = A#LT_INT_TOTAL.C1#LT_DEBT_REPAID.I#[ICP Top]"&C234Top&" + A#ST_INT_TOTAL.C1#LT_DEBT_REPAID.I#[ICP Top]"&C234Top
  4134.     'Non interest Bearing Liabilities
  4135.         HS.Exp "A#FA_LT_BOR_RP_NINTE"&C1234None&" = A#LT_NON_INT_TOTAL.C1#LT_DEBT_REPAID.I#[ICP Top]"&C234Top&" + A#ST_NON_INT_TOTAL.C1#LT_DEBT_REPAID.I#[ICP Top]"&C234Top
  4136.  
  4137.     '*****************************************************************
  4138.     'CASH FLOW - Movement:  Subsidiaries / Businesses Acquired
  4139.     '*****************************************************************
  4140.     'Inventory
  4141.         HS.Exp "A#SUB_ACQ_FV_INV.C1#[None] = A#WCM_INV_MOV.C1#WCM_RC_SUB_BUS_ACQ.I#[ICP Top]"
  4142.  
  4143.     'Trade Receivables
  4144.         HS.Exp "A#SUB_ACQ_FV_TRD_RC.C1#[None] = A#WCM_TR_RC.C1#WCM_RC_SUB_BUS_ACQ.I#[ICP Top]"
  4145.  
  4146.     'Sundry Reveivables
  4147.         HS.Exp "A#SUB_ACQ_FV_SUN_RC.C1#[None] = A#WCM_S_RC.C1#WCM_RC_SUB_BUS_ACQ.I#[ICP Top]"
  4148.  
  4149.     'Trade Payables
  4150.         HS.Exp "A#SUB_ACQ_FV_TRD_PB.C1#[None] = - A#WCM_TPAY.C1#WCM_RC_SUB_BUS_ACQ.I#[ICP Top]"
  4151.  
  4152.     'Other Payables
  4153.         HS.Exp "A#SUB_ACQ_FV_OTH_PB.C1#[None] = - A#WCM_PAY_OTH.C1#WCM_RC_SUB_BUS_ACQ.I#[ICP Top]"
  4154.  
  4155.     '*****************************************************************
  4156.     'CASH FLOW - Movement:  Subsidiaries / Businessess Disposed
  4157.     '*****************************************************************
  4158.     'Inventory
  4159.         HS.Exp "A#SUB_DIS_FV_INV.C1#[None] = A#WCM_INV_MOV.C1#WCM_RC_SUB_BUS_DISP.I#[ICP Top]"
  4160.  
  4161.     'Trade Receivables
  4162.         HS.Exp "A#SUB_DIS_FV_TRD_RC.C1#[None] = A#WCM_TR_RC.C1#WCM_RC_SUB_BUS_DISP.I#[ICP Top]"
  4163.  
  4164.     'Sundry Reveivables
  4165.         HS.Exp "A#SUB_DIS_FV_SUN_RC.C1#[None] = A#WCM_S_RC.C1#WCM_RC_SUB_BUS_DISP.I#[ICP Top]"
  4166.  
  4167.     'Trade Payables
  4168.         HS.Exp "A#SUB_DIS_FV_TRD_PB.C1#[None] = A#WCM_TPAY.C1#WCM_RC_SUB_BUS_DISP.I#[ICP Top]"
  4169.  
  4170.     'Other Payables
  4171.         HS.Exp "A#SUB_DIS_FV_OTH_PB.C1#[None] = A#WCM_PAY_OTH.C1#WCM_RC_SUB_BUS_DISP.I#[ICP Top]"
  4172.  
  4173.     '*****************************************************************
  4174.     'CASH FLOW - Other
  4175.     '*****************************************************************
  4176.  
  4177.     '19 Feb 2014 - Update by Adrian
  4178.     If HS.Year.Member = "2015" then
  4179.         Select Case HS.Scenario.Member
  4180.         Case "Actual","Forecast"
  4181.             Select Case HS.Period.Member
  4182.             Case "January","February","March","April","May","June"
  4183.                 HS.Exp "A#SUB_ACQ_CASH = A#SUB_ACQ_FV_CASH.I#[ICP Top]"
  4184.             End Select
  4185.         End Select
  4186.     ElseIf HS.Year.Member = "2016" then
  4187.         Select Case HS.Scenario.Member
  4188.         Case "Budget"
  4189.             HS.Exp "A#SUB_ACQ_CASH = A#SUB_ACQ_FV_CASH.I#[ICP Top]"
  4190.         End Select
  4191.     Else
  4192.         HS.Exp "A#SUB_ACQ_CASH = -1 * A#SUB_ACQ_FV_CASH.I#[ICP Top]"
  4193.     End If
  4194.  
  4195.     If HS.Year.Member > "2015" then
  4196.         HS.Exp "A#SUB_ACQ_CASH = A#SUB_ACQ_FV_CASH.I#[ICP Top]"
  4197.     End If
  4198.  
  4199.     '*****************************************************************
  4200.     'CASH FLOW - Cash Beginning of period
  4201.     '*****************************************************************
  4202.     If HS.Scenario.Member = "Actual" then
  4203.  
  4204.               HS.Exp"A#BEGIN_CASH_EQ"&C1234None&" = A#CUR_ASS_CASH"&C1234Top&".P#LAST.Y#PRIOR.I#[ICP Top] - A#BS_BANK_OVERDRAFT.I#[ICP Top].P#LAST.Y#PRIOR"&C1234Top
  4205.  
  4206.     End IF
  4207.  
  4208.  '      HS.Exp"A#BEGIN_CASH_EQ"&C1234None&" = A#CUR_ASS_CASH"&C1234Top&".P#LAST.Y#PRIOR.I#[ICP Top] - A#BS_BANK_OVERDRAFT.I#[ICP Top].P#LAST.Y#PRIOR"&C1234Top
  4209.  
  4210.  
  4211.         HS.Exp "A#WCM_PLUG"&C1234None&".I#[ICP None] = A#IGPSTPlug"&C1234Top&".P#LAST.Y#PRIOR.I#[ICP Top]- A#IGPSTPlug"&C1234Top&".I#[ICP Top]"
  4212.  
  4213.     If HS.Scenario.Member = "Forecast" then
  4214.  
  4215.         HS.Exp "A#WCM_PLUG"&C1234None&".I#[ICP None] = A#IGPSTPlug"&C1234Top&".P#LAST.Y#PRIOR.I#[ICP Top].S#Actual- A#IGPSTPlug"&C1234Top&".I#[ICP Top]"
  4216.  
  4217.     End IF
  4218.  
  4219.  
  4220.  
  4221.     'Call writetofile("CF END")
  4222. End Sub
  4223.  
  4224.  
  4225. Sub Taxation
  4226.  
  4227.     'Call writetofile("TAX BEGIN")
  4228.     '*****************************************************************
  4229.     '*****************************************************************
  4230.     'Tax Schedules Calculation
  4231.     '*****************************************************************
  4232.     '*****************************************************************
  4233.  
  4234.     'Net Profit / Loss per the IS
  4235.         HS.Exp "A#TAX_IS_PBT"&C1234None&" = A#PBT.I#[ICP Top]"&C1234Top
  4236.  
  4237.     'Inter Group Dividends Received incl in PBT
  4238.         HS.Exp "A#TAX_DIV_IG_RC"&C1234None&" = A#AP_ORD_DIV_RC.I#[ICP Top]"&C1234Top
  4239.  
  4240.     'Donations
  4241.         HS.Exp "A#TAX_DONATIONS"&C1234None&" = A#OOE_DONATION_DEDUCT.I#[ICP Top]"&C1234Top
  4242.  
  4243.  
  4244. '   'Section 8E and 103(5) Dividends
  4245. '       HS.Exp "A#DIV_SEC_8A_103_5"&C34None&" = (A#II_DIVS_TOTAL.C1#II_DIVS_TOT.I#[ICP Top]"&C34IS&" * -1)"
  4246.  
  4247.     'Dividends Received
  4248.         Hs.Exp "A#DIV_RECEIVED"&C1234None&" = A#II_DIVS_TOTAL.I#[ICP Top]"&C1234Top&" + A#AP_ORD_DIV_RC.I#[ICP Top]"&C1234Top
  4249.  
  4250.     'Profit on sale of PPE
  4251.         HS.Exp "A#TAX_DED_PDA"&C1234None&" = A#OOI_P_SALE_PPE.I#[ICP Top]"&C1234Top
  4252.  
  4253.     'Accounting Proceeds on Disposals
  4254. '22/02/07       HS.Exp "A#TAX_DED_ACC_PDA.C1#BV_ACCDEP_DIS_AD"&C234None&" = A#PPE_FML_INT_ASS.C3#BV_ACCDEP_DIS_AD.I#[ICP Top]"&C124Top
  4255. '       HS.Exp "A#TAX_DED_ACC_PDA.C1#BV_COST_DIS_COST"&C234None&" = A#PPE_FML_INT_ASS.C3#BV_COST_DIS_COST.I#[ICP Top]"&C124Top
  4256. '       HS.Exp "A#TAX_DED_ACC_PDA.C1#OOE_LOSS_PPE"&C234None&" = -1 * A#OOE_LOSS_PPE.C1#[None].I#[ICP Top]"&C234Top
  4257. '       HS.Exp "A#TAX_DED_ACC_PDA.C1#OOI_P_SALE_PPE"&C234None&" = A#OOI_P_SALE_PPE.C1#[None].I#[ICP Top]"&C234Top
  4258.  
  4259.         HS.Exp "A#TAX_DED_ACC_PDA"&C1234None&" = A#ASS_DIS_PRO_PPE.I#[ICP Top]"&C1234Top
  4260.  
  4261.     'Prepayments from BS
  4262.         HS.Exp "A#TDEB_S_PREP_D_FUEL"&C1234None&" = A#DEB_S_PREP_D_FUEL.I#[ICP Top]"&C1234Top
  4263.         HS.Exp "A#TDEB_S_PREP_D_INS"&C1234None&" = A#DEB_S_PREP_D_INS.I#[ICP Top]"&C1234Top
  4264.         HS.Exp "A#TDEB_S_PREP_D_RENT"&C1234None&" = A#DEB_S_PREP_D_RENT.I#[ICP Top]"&C1234Top
  4265.         HS.Exp "A#TDEB_S_PREP_D_SEC"&C1234None&" = A#DEB_S_PREP_D_SEC.I#[ICP Top]"&C1234Top
  4266.         HS.Exp "A#TDEB_S_PREP_D_VEH"&C1234None&" = A#DEB_S_PREP_D_VEH.I#[ICP Top]"&C1234Top
  4267. '       HS.Exp "A#TDEB_S_PREP_ND"&C1234None&" = A#DEB_S_PREP_ND.I#[ICP Top]"&C1234Top
  4268.         HS.Exp "A#TDEB_S_PRP_D_OTH_IN"&C1234None&" = A#DEB_S_PRP_D_OTH_IN.I#[ICP Top]"&C1234Top
  4269.         HS.Exp "A#TDEB_S_PREP_D_OTH"&C1234None&" = A#DEB_S_PREP_D_OTH.I#[ICP Top]"&C1234Top
  4270.  
  4271.  
  4272.  
  4273. 'XXX    'Prepaid expenses
  4274.         HS.Clear "A#TAX_ADD_PREP_EXP"&C1234None
  4275.         HS.Exp "A#TAX_ADD_PREP_EXP"&C1234None&" = A#TDEB_S_PREP_D.P#LAST.Y#PRIOR"&C1234Top
  4276.  
  4277.     'Income from Associates
  4278. '       HS.Exp "A#TAX_A_ET_P_INC_ASS"&C1234None&" = A#INCOME_ASSOCIATES.I#[ICP Top]"&C1234Top
  4279.  
  4280.     'Interest and Penalties paid to SARS
  4281.         HS.Exp "A#TAX_A_ET_P_INT_SARS.C1#[None]"&C34None&" = A#FC_RC_OF_REV.I#[ICP Top]"&C34IS&" + A#OOE_FINE_PEN_SARS.I#[ICP Top]"&C34Top
  4282.  
  4283.     'Fines and Penalties
  4284.         hs.cLEAR "A#TAX_A_ET_P_F_ESARS.C1#[None]"&C34None
  4285.         HS.Exp "A#TAX_A_ET_P_F_ESARS.C1#[None]"&C34None&" = A#OOE_FINES_PENALTIES.I#[ICP Top]"&C1234Top
  4286.  
  4287.     'Donations
  4288.         HS.Exp "A#TAX_A_ET_P_ND_DON.C1#[None]"&C234None&" = A#OOE_DONATION_NDEDUCT.I#[ICP Top]"&C1234Top
  4289.  
  4290.  
  4291.     'Legal Fees non deductible
  4292.         HS.Exp "A#TAX_A_ET_P_LEGAL_ND.C1#[None]"&C234None&" = -1 * A#OOE_LF_A_Cap_ND.I#[ICP Top]"&C1234Top
  4293.  
  4294.  
  4295.     'Prof and Consulting Fee (non deductible)
  4296.         HS.Exp "A#TAX_A_ET_P_PROF_ND.C1#[None]"&C234None&" = - 1 * A#OOE_FEES_CP_A_CAP_ND.C1#[None].I#[ICP Top]"&C1234Top
  4297.  
  4298.     'Overseas Travel (non deductible)
  4299.         HS.Exp "A#TAX_A_ET_P_OS_TR_ND.C1#[None]"&C34None&" = -1 * A#OOE_TA_A_NON_DED.I#[ICP Top]"&C134Top
  4300.  
  4301.     'Repairs and maintenance never deductible
  4302.         HS.Exp "A#TAX_A_ET_P_RM_ND"&C1234None&" = A#OOE_REP_MAIN_A_NDED.I#[ICP Top]"&C1234Top
  4303.  
  4304.     'Wear and tear claimable
  4305.         HS.Exp "A#TAX_A_ET_P_RM_WT"&C1234None&" = A#OOE_REP_MAIN_A_WT.I#[ICP Top]"&C1234Top
  4306.  
  4307.     'Restraint of trade Initial Amount Expended Current Year
  4308.         HS.Exp "A#OOE_RT_A_IN_AMT_EX_C.C1#DD_A_PRO_SPE_LIS_1"&C234None&" = A#OOE_RES_TRD_PMT.I#[ICP Top]"&C1234Top
  4309.  
  4310.     'Restraint of trade Initial Amount Expended Prior Year
  4311.         HS.Exp "A#OOE_RT_A_IN_AMT_EX_P.C1#DD_A_PRO_SPE_LIS_1"&C234None&" = A#OOE_RT_A_IN_AMT_EX_C.Y#PRIOR.P#LAST.I#[ICP Top]"&C1234Top
  4312.  
  4313.     ' Amts previously taxed as received in adv
  4314.         HS.Exp "A#TAX_DED_PY_ADV = A#PAY_DEF_INC_AMOUNT.C1#Total Custom 1.Y#PRIOR.P#LAST.I#[ICP Top]"
  4315.  
  4316.     ' Provisions acquired with buss acq
  4317.         HS.Exp "A#PRO_A_TAX_MOV_ACQ.C1#[None] = A#PRO_A_TAX_TOTAL.C1#PRO_A_TAX_MOV_ACQ.I#[ICP Top]"
  4318.  
  4319.     ' Building allowance [section 13]
  4320.         HS.Exp "A#TAX_DED_BUILD_ALL"&C123None&" = A#TBV_TOT.C1#PPE_BUILDINGS_TOTAL.C2#TAX_DTB_DIFF.C3#ACCWT_CUR_DEP.I#[ICP Top]"
  4321.  
  4322.     'Doubtful Debt Provision additional information - Deductible Provision or
  4323.     'Doubtful debt allowance [section 11(j)]
  4324.         HS.Exp "A#DD_A_PRO_SPE_DEDUCT.C1#[None]  = (A#DD_A_PRO_SPE_AMOUNT.I#[ICP Top].C1#Total Custom 1) * 0.25"
  4325.  
  4326.     'Lease pmts on capitalised leased assets
  4327.     '   HS.Exp "A#TAX_DED_LEASE_PMTS"&C1234None&" = A#LT_INT_CAP_LEAS.C1#LT_DEBT_REPAID.I#[ICP Top]"&C234Top
  4328.  
  4329.     'Capitalised finance leases
  4330.         HS.Exp "A#TAX_ADD_FC_CFL"&C1234None&" = A#FC_CFL.I#[ICP Top]"&C1234Top
  4331.  
  4332.     ' Decrease in provisions and/or reserves
  4333.         If HS.GetCell ("A#PRO_A_TAX_TOTAL.C1#PRO_A_TAX_MOV.I#[ICP Top]") < 0 Then
  4334.             HS.Exp "A#TAX_DED_DEC_PROV"&C1234None&" = -1 * A#PRO_A_TAX_TOTAL.C1#PRO_A_TAX_MOV.I#[ICP Top]"&C234Top
  4335.         End If
  4336.  
  4337.     'Accumulated Loss on Fixed Assets
  4338. '           HS.Exp "A#TAX_ADD_ACC_LOSS_FA"&C1234None&" = A#OOE_LOSS_OTH.I#[ICP Top]"&C1234Top
  4339.             HS.Exp "A#TAX_ADD_ACC_LOSS_FA"&C1234None&" = A#OOE_LOSS_PPE.I#[ICP Top]"&C1234Top
  4340.  
  4341.     '  Increase in provisions and/or reserves
  4342.         If HS.GetCell ("A#PRO_A_TAX_TOTAL.C1#PRO_A_TAX_MOV.I#[ICP Top]") > 0 Then
  4343.              HS.Exp "A#TAX_ADD_INC_PROV"&C1234None&" = A#PRO_A_TAX_TOTAL.C1#PRO_A_TAX_MOV.I#[ICP Top]"&C234Top
  4344.         End If
  4345.         'TAX_ADD_INC_PROV  = PRO_A_TAX_MOV
  4346.  
  4347.     'Tax Value of Fixed Assets Disposed - Cost
  4348. '       HS.Exp "A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_COS"&C23None&" = A#QTBV_TOT.C1#Total Custom 1.C2#Total Custom 2.C3#BV_COST_DIS_COST.I#[ICP Top]"
  4349.         HS.Clear "A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_COS"&C234None
  4350.         HS.Exp "A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_COS"&C234None&" = A#TPPE_FML_INT_ASS.C1#Total Custom 1.C2#Total Custom 2.C3#BV_COST_DIS_COST.I#[ICP Top].C4#Total Custom 4"
  4351.  
  4352.     'Tax Value of Fixed Assets Disposed - Wear and Tear
  4353. '       HS.Exp "A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_W_T"&C23None&" = A#QTBV_TOT.C1#Total Custom 1.C2#Total Custom 2.C3#ACCWT_DIS_AD.I#[ICP Top]"
  4354.         HS.Clear "A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_W_T"&C234None
  4355.         HS.Exp "A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_W_T"&C234None&" = A#TPPE_FML_INT_ASS.C1#Total Custom 1.C2#Total Custom 2.C3#BV_ACCDEP_DIS_AD.I#[ICP Top].C4#Total Custom 4"
  4356.  
  4357.     'Wear and tear allowance [section 11 (e)]
  4358.         HS.Clear "A#ACCWT_CUR_DEP"
  4359.         HS.Exp "A#ACCWT_CUR_DEP"&C1234None&" = A#TPPE_FML_INT_ASS.C3#BV_ACCDEP_CUR_DEP"&C124Top&".I#[ICP Top]"
  4360. '       Call writetofile("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&" with data = "&Data)
  4361.  
  4362.  
  4363.     'Wear and tear allowance [section 11 (e)] for temp diff
  4364.         HS.Exp "A#TACCWT_CUR_DEP"&C1234None&" = A#ACCWT_CUR_DEP.I#[ICP Top]"&C1234Top
  4365.  
  4366. '   'Wear and tear allowance [section 11 (e)]
  4367. '       HS.Exp "A#ACCWT_CUR_DEP = A#NQABV_TOT.C2#TAX_DTB_DIFF.C3#ACCWT_CUR_DEP.I#[ICP Top]"
  4368.  
  4369.  
  4370.     'Wear and tear on disallowed Repair and Maintenance
  4371.         HS.Exp "A#TAX_DED_W_T_R_M"&C123None&" = A#RMCT_TOTAL.C1#ASSETS_TOT.C2#TAX_DTB_DIFF.C3#ACCWT_CUR_DEP.I#[ICP Top]"
  4372.  
  4373.     'Exp Setoff against Prov (non deductible)
  4374.         HS.Exp "A#TAX_A_ET_P_EX_PRO_ND.C1#[None] = -1 * A#PRO_A_TAX_TOTAL.C1#PRO_A_TAX_MOV_NDED.I#[ICP Top]"
  4375.  
  4376.     'Prov disposed of with sale of buss
  4377.         HS.Exp "A#TAX_A_ET_P_PRO_DIS_B.C1#[None] = A#PRO_A_TAX_TOTAL.C1#PRO_A_TAX_MOV_DISP.I#[ICP Top]"
  4378.  
  4379.     'Depreciation on Qualifying Assets - Accounting
  4380.         HS.cLEAR "A#TAX_ADD_DPR_QA"
  4381.         HS.Exp "A#TAX_ADD_DPR_QA"&C1234None&" = A#QABV_TOTAL.C1#Total Custom 1.C2#Total Custom 2.C3#BV_ACCDEP_CUR_DEP.C4#QABV_TOT_ACCOUNTING.I#[ICP Top]"
  4382.  
  4383.     'Depreciation on Non Qualifying Assets - Accounting
  4384.         HS.Clear "A#TAX_ADD_DPR_NQA"
  4385.         HS.Exp "A#TAX_ADD_DPR_NQA"&C1234None&" = A#NQABV_TOT.C1#Total Custom 1.C2#Total Custom 2.C3#BV_ACCDEP_CUR_DEP.C4#QABV_TOT_ACCOUNTING.I#[ICP Top]"
  4386.  
  4387.     'Depreciation on capitalised leased assets
  4388.         HS.cLEAR "A#TAX_ADD_DPR_CAP_L"
  4389.         HS.Exp "A#TAX_ADD_DPR_CAP_L"&C1234None&" = A#QABV_TOTAL.C1#Total Custom 1.C2#Total Custom 2.C3#BV_ACCDEP_CUR_DEP.C4#QABV_TOT_LEASED _ASS.I#[ICP Top]"
  4390.  
  4391.     ' Doubtful debts allowance [section 11(j)]
  4392.         HS.Exp "A#TAX_ADD_DDA = A#DD_A_PRO_SPE_DEDUCT.P#LAST.Y#PRIOR.I#[ICP Top]"
  4393.  
  4394.     ' Scrapping allowance [section 11(o)]
  4395.     '   HS.Clear "A#TAX_DED_SCRAP.C1#[None]"
  4396.     '   If HS.GetCell ("A#TAX_DED_ACC_PDA.C1#Total Custom 1.I#[ICP Top]"&C234Top) < HS.GetCell ("A#TAX_DED_T_FAD.C1#TAX_VAL.I#[ICP Top]"&C234Top) Then
  4397.     '       HS.Exp "A#TAX_DED_SCRAP.C1#[None] = A#TAX_DED_T_FAD.C1#TAX_VAL.I#[ICP Top] - A#TAX_DED_ACC_PDA.C1#Total Custom 1.I#[ICP Top]"
  4398.     '   Else
  4399.     '       HS.Clear "A#TAX_DED_SCRAP.C1#[None]"
  4400.     '       HS.Exp "A#TAX_DED_SCRAP.C1#[None] = 0"
  4401.     '   End If
  4402.  
  4403.     ' Impairment on Qualifying Assets
  4404.         HS.Exp "A#TAX_ADD_IMP_QA"&C34None&" = A#IMPAIRMENT.I#[ICP Top]"&C34Top&" - A#TAX_ADD_IMP_NQA.I#[ICP Top]"&C34None
  4405.  
  4406.     'Recoupment of Fixed Assets
  4407.         If HS.GetCell ("A#TAX_DED_ACC_PDA.C1#Total Custom 1.I#[ICP Top]"&C234Top) < HS.GetCell ("A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_COS"&C234Top) Then
  4408.         IF HS.GetCell ("A#TAX_DED_ACC_PDA.C1#Total Custom 1.I#[ICP Top]"&C234Top) > HS.GetCell ("A#TAX_DED_T_FAD.C1#TAX_VAL"&C234Top) then
  4409.             hs.cLEAR "A#TAX_ADD_RFA.C1#[None]"
  4410.             HS.Exp "A#TAX_ADD_RFA.C1#[None] = A#TAX_DED_ACC_PDA.C1#Total Custom 1.I#[ICP Top] - A#TAX_DED_T_FAD.C1#TAX_VAL.I#[ICP Top]"
  4411.         End If
  4412.         End If
  4413.  
  4414.         If HS.GetCell ("A#TAX_DED_ACC_PDA.C1#Total Custom 1.I#[ICP Top]"&C234Top) > HS.GetCell ("A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_COS"&C234Top) Then
  4415.             HS.Clear "A#TAX_ADD_RFA.C1#[None]"
  4416.             HS.Exp "A#TAX_ADD_RFA.C1#[None] = A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_COS.I#[ICP Top] - A#TAX_DED_T_FAD.C1#TAX_VAL.I#[ICP Top]"
  4417.         End If
  4418.  
  4419.         If HS.GetCell ("A#TAX_DED_ACC_PDA.C1#Total Custom 1.I#[ICP Top]"&C234Top) > HS.GetCell ("A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_COS"&C234Top) Then
  4420.             HS.Clear "A#TAX_ADD_RFA.C1#[None]"
  4421.             HS.Exp "A#TAX_ADD_RFA.C1#[None] = A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_COS.I#[ICP Top] - A#TAX_DED_T_FAD.C1#TAX_VAL.I#[ICP Top]"
  4422.         End If
  4423.  
  4424.         If HS.GetCell ("A#TAX_DED_ACC_PDA.C1#Total Custom 1.I#[ICP Top]"&C234Top) > HS.GetCell ("A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_COS"&C234Top) Then
  4425.             HS.Clear "A#CAP_PROFIT_CALC.C1#[None]"
  4426.             HS.Exp "A#CAP_PROFIT_CALC.C1#[None] = A#TAX_DED_ACC_PDA.C1#Total Custom 1.I#[ICP Top] - A#TAX_DED_T_FAD.C1#TAX_DED_T_FAD_COS.I#[ICP Top]"
  4427.         Else
  4428.             HS.Exp "A#CAP_PROFIT_CALC.C1#[None] = 0"
  4429.         End If
  4430.  
  4431.     ' Wear and tear (Part 10.9)
  4432.     '   If HS.GetCell ("A#TAX_ADD_RFA") > HS.GetCell ("A#TAX_ADD_T_VFA") Then
  4433.     '       HS.Exp "A#TAX_ADD_WT = A#TAX_ADD_RFA.I#[ICP Top]"
  4434.  
  4435.     '   End If
  4436.  
  4437.     'Allowance for future exp [section 24C]
  4438.             HS.Clear "A#TAX_ADD_FUT_EXP"
  4439.             HS.Exp "A#TAX_ADD_FUT_EXP = A#TAX_DED_FUT_EXP.I#[ICP Top].Y#Prior.P#LAST"
  4440.  
  4441.     '*****************************************************************
  4442.     'TEMPORARY DIFFERENCES - DEFERRED TAXATION BALANCE CALC current year close
  4443.     '*****************************************************************
  4444.  
  4445.     'Book values fixed assets - qualifying
  4446.         Hs.Clear "A#TAX_DTB_QABV.C2#TAX_DTB_CY_CLOSE"
  4447.         HS.Exp "A#TAX_DTB_QABV.C2#TAX_DTB_CY_CLOSE"&C134None&" = A#QABV_TOTAL"&C123Top&".C4#QABV_TOT_ACCOUNTING.I#[ICP Top]"
  4448.  
  4449.     'Tax Values fixed assets - qualiftyin
  4450.         HS.Clear "A#TAX_DTB_QTBV.C2#TAX_DTB_CY_CLOSE"
  4451.         HS.Exp "A#TAX_DTB_QTBV.C2#TAX_DTB_CY_CLOSE"&C134None&" = A#TPPE_FML_INT_ASS"&C123Top&".C4#QABV_TOT_ACCOUNTING.I#[ICP Top]"
  4452.  
  4453.     'Provisions (+)
  4454.         HS.Exp "A#PRO_A_TAX_TOT.C1#[None].C2#TAX_DTB_CY_CLOSE = A#PRO_A_TAX_TOTAL.C1#PRO_A_TAX_TOT.C2#[None].I#[ICP Top]"
  4455.  
  4456.     'Prepayments (-)
  4457.         HS.Exp "A#TAX_DTB_TEMP_PREP.C2#TAX_DTB_CY_CLOSE = -1 * A#TDEB_S_PREP_D.C2#[None].I#[ICP Top]"
  4458.  
  4459.     'Doubtful debt allowance (-)
  4460.         HS.Exp "A#TAX_DTB_TEMP_DOUBT.C2#TAX_DTB_CY_CLOSE = -1 * A#DD_A_PRO_SPE_DEDUCT.C2#[None].I#[ICP Top]"
  4461.  
  4462.     'Lease liab (cap outstanding) (+)
  4463.         HS.Exp "A#TAX_DTB_TEMP_LEASE.C2#TAX_DTB_CY_CLOSE"&C134None&" = A#LT_INT_CAP_LEAS.C1#CLOSING.I#[ICP Top]"&C234Top&" + A#LT_FML_CAP_LIAB.C1#CLOSING.I#[ICP Top]"&C234Top
  4464.  
  4465.     'Book value of Leased Assets (-)
  4466.         HS.Exp "A#TAX_DTB_TEMP_BV_LA.C2#TAX_DTB_CY_CLOSE"&C134None&" = A#QABV_TOTAL"&C123Top&".C4#QABV_TOT_LEASED _ASS.I#[ICP Top]"
  4467.  
  4468.     'Restraint of Trade write off and payment
  4469.         HS.Exp "A#TAX_DTB_TEMP_RES_TRD.C2#TAX_DTB_CY_CLOSE"&C134None&" = A#OOE_RT_A_BAL_5YR.I#[ICP Top]"&C1234Top
  4470.  
  4471.     'Trademarks
  4472.         HS.Exp "A#TA_DTB_TEMP_TRADEM.C2#TAX_DTB_CY_CLOSE"&C134None&" = A#QABV_TOTAL.C1#INT_PATENTS_TOT.C2#TAX_DTB_CY_CLOSE.C3#BV_TOTAL.C4#QABV_TOT_LEASED _ASS.I#[ICP Top]"
  4473.  
  4474.     'Amounts Received in Advance
  4475.         HS.Exp "A#TAX_DTB_TEMP_ADV.C2#TAX_DTB_CY_CLOSE"&C134None&" = A#PAY_DEF_INC_AMOUNT.I#[ICP Top]"&C1234Top
  4476.  
  4477.     '24C Allowance
  4478.         HS.Exp "A#TAX_DTB_TEMP_24C.C2#TAX_DTB_CY_CLOSE"&C134None&" = A#TAX_DED_FUT_EXP.I#[ICP Top]"&C1234Top
  4479.  
  4480.     'Tax Loss
  4481.         If HS.GetCell ("A#TAX_DTB_TLOSS.C2#TAX_DTB_CY_CLOSE") < 0 Then
  4482.             HS.Exp "A#TAX_DTB_TLOSS.C2#TAX_DTB_CY_CLOSE = A#TAX_DTB_TLOSS.C2#TAX_DTB_CY_CLOSE.I#[ICP Top] * -1"
  4483.         Else
  4484.             HS.Clear "A#TAX_DTB_TLOSS.C2#TAX_DTB_CY_CLOSE"
  4485.             HS.Exp "A#TAX_DTB_TLOSS.C2#TAX_DTB_CY_CLOSE = 0"
  4486.         End If
  4487.  
  4488.     'Repairs and Maintenance Capitalised for Tax
  4489.         HS.Exp "A#RMCT_TOTAL.C2#TAX_DTB_CY_CLOSE"&C134None&" = A#TAX_ADD_RM_CAP.I#[ICP Top]"&C1234Top
  4490.  
  4491.     ' CGT EXPOSURE ON UNR GAINS/LOSSES
  4492.         HS.Exp "A#TAX_DTB_CGT_EXP.C2#TAX_DTB_CY_CLOSE.C1#[None] = A#TAX_BASE2_COST.C1#TAX_CUMM_GAINS_LOSS.I#[ICP Top].C2#[None] / -2"
  4493.  
  4494.     'Current Year Loss incurred
  4495.         If HS.GetCell ("A#TAX_TI_B_CGT_ASS") < 0 then
  4496.             HS.Exp "A#TAX_CY_LOSS_INCUR"&C1234None&" = A#TAX_TI_B_CGT_ASS.I#[ICP Top]"&C1234Top
  4497.         End If
  4498.  
  4499.     '*****************************************************************
  4500.     'TAX ADDITIONAL INFORMATION - ASSETS DISPOSED
  4501.     '*****************************************************************
  4502.     'Opening Balance
  4503.  
  4504.         If HS.GetCell ("A#TAX_BASE1_COST.C1#TAX_CUMM_GAINS_LOSS.C2#Total Custom 2.Y#PRIOR.P#LAST") < 0 Then
  4505.  
  4506.             HS.Clear "A#TAX_BASE1_COST.C1#TAX_CUMM_OPEN.C2#Specify1"&C34None
  4507.             HS.Exp "A#TAX_BASE1_COST.C1#TAX_CUMM_OPEN.C2#Specify1"&C34None&" = A#TAX_BASE1_COST.C1#TAX_CUMM_GAINS_LOSS.Y#PRIOR.P#LAST.I#[ICP Top]"&C234Top
  4508.         End If
  4509.  
  4510.     'Capital Gain/Loss for the year
  4511.             HS.Clear "A#TAX_BASE1_COST.C1#TAX_CGT_GAIN.C2#Specify1"&C34None
  4512.             HS.Clear "A#TAX_BASE1_COST.C1#TAX_CGT_LOSS.C2#Specify1"&C34None
  4513.         If HS.GetCell ("A#TAX_PROCEEDS") > HS.GetCell ("A#TAX_BASE1_COST.C1#TAX_CUMM_OPEN.C2#Total Custom 2") Then
  4514.             HS.Exp "A#TAX_BASE1_COST.C1#TAX_CGT_GAIN.C2#Specify1"&C34None&" = A#TAX_PROCEEDS.I#[ICP Top]"&C1234Top&" - A#TAX_BASE.I#[ICP Top]"&C1234Top
  4515.         Else
  4516.             HS.Exp "A#TAX_BASE1_COST.C1#TAX_CGT_LOSS.C2#Specify1"&C34None&" = A#TAX_BASE1_COST.C1#TAX_CUMM_OPEN.I#[ICP Top]"&C234Top&" - A#TAX_BASE.I#[ICP Top]"&C1234Top
  4517.         End If
  4518.  
  4519.     'Net Cumulative Capital Gains / Loss
  4520.             HS.Clear "A#TAX_A_CG"
  4521.             HS.Clear "A#TAX_BASE1_COST.C1#TAX_CGT_GAIN.C2#Specify20"&C34None
  4522.             HS.Clear "A#TAX_BASE1_COST.C1#TAX_CGT_LOSS.C2#Specify20"&C34None
  4523.         If HS.GetCell ("A#TAX_BASE1_COST.C1#TAX_CUMM_GAINS_LOSS.C2#Total Custom 2") > 0 Then
  4524.  
  4525.             HS.Exp "A#TAX_BASE1_COST.C1#TAX_CGT_GAIN.C2#Specify20"&C34None&" = A#TAX_BASE1_COST.C1#TAX_CGT_GAIN.C2#Total Custom 2.I#[ICP Top] * -1"
  4526.             HS.Exp "A#TAX_BASE1_COST.C1#TAX_CGT_LOSS.C2#Specify20"&C34None&" = A#TAX_BASE1_COST.C1#TAX_CGT_LOSS.C2#Total Custom 2.I#[ICP Top] * -1"
  4527.  
  4528.             HS.Clear "A#TAX_A_CG"
  4529.             HS.Exp "A#TAX_A_CG"&C1234None&" = A#TAX_BASE1_COST.C1#TAX_CUMM_CURR.C2#Specify20"&C34None&" * -0.5"
  4530.         End If
  4531.  
  4532.     'CAPITAL GAINS LOSS
  4533.         If HS.GetCell ("A#TAX_A_CG") < 0 Then
  4534.             HS.Exp "A#TAX_DTB_CGT_LOSS.C2#TAX_DTB_CY_CLOSE"&C134None&" = A#TAX_A_CG.I#[ICP Top]"&C1234Top&" * -0.5"
  4535.         End If
  4536.  
  4537.     'CAPITAL GAINS LOSS
  4538.         If HS.GetCell ("A#TAX_BASE1_COST.C1#TAX_CUMM_GAINS_LOSS.C2#Total Custom 2") < 0 Then
  4539.             HS.Clear "A#TAX_A_CG"
  4540.             HS.Exp "A#TAX_DTB_CGT_LOSS.C2#TAX_DTB_CY_CLOSE"&C134None&" = A#TAX_BASE1_COST.C1#TAX_CUMM_GAINS_LOSS.I#[ICP Top]"&C234Top&" * 0.5"
  4541.         End If
  4542.  
  4543.  
  4544.     '*****************************************************************
  4545.     'TAX ADDITIONAL INFORMATION - ASSETS REVALUED
  4546.     '*****************************************************************
  4547.  
  4548.     'Opening Balance
  4549.         If HS.GetCell ("A#TAX_BASE2_COST.C1#TAX_CUMM_GAINS_LOSS.C2#Total Custom 2.Y#PRIOR.P#LAST") < 0 Then
  4550.  
  4551.             HS.Clear "A#TAX_BASE2_COST.C1#TAX_CUMM_OPEN.C2#Specify1"&C34None
  4552.             HS.Exp "A#TAX_BASE2_COST.C1#TAX_CUMM_OPEN.C2#Specify1"&C34None&" = A#TAX_BASE2_COST.C1#TAX_CUMM_GAINS_LOSS.Y#PRIOR.P#LAST.I#[ICP Top]"&C234Top
  4553.         End If
  4554.  
  4555.     'Capital Gain/Loss for the year
  4556.             HS.Clear "A#TAX_BASE2_COST.C1#TAX_CGT_GAIN.C2#Specify1"&C34None
  4557.             HS.Clear "A#TAX_BASE2_COST.C1#TAX_CGT_LOSS.C2#Specify1"&C34None
  4558.         If HS.GetCell ("A#TAX_VALUATION") > HS.GetCell ("A#TAX_BASE2_COST.C1#TAX_CUMM_OPEN.C2#Total Custom 2") Then
  4559.             HS.Exp "A#TAX_BASE2_COST.C1#TAX_CGT_GAIN.C2#Specify1"&C34None&" = A#TAX_VALUATION.I#[ICP Top]"&C1234Top&" - A#TAX_BASE2.I#[ICP Top]"&C1234Top
  4560.         Else
  4561.             HS.Exp "A#TAX_BASE2_COST.C1#TAX_CGT_LOSS.C2#Specify1"&C34None&" = A#TAX_BASE2_COST.C1#TAX_CUMM_OPEN.I#[ICP Top]"&C234Top&" - A#TAX_BASE2.I#[ICP Top]"&C1234Top
  4562.         End If
  4563.  
  4564.     'Net Cumulative Capital Gains / Loss
  4565.             HS.Clear "A#TAX_BASE2_COST.C1#TAX_CGT_GAIN.C2#Specify20"&C34None
  4566.             HS.Clear "A#TAX_BASE2_COST.C1#TAX_CGT_LOSS.C2#Specify20"&C34None
  4567.  
  4568.             HS.Exp "A#TAX_BASE2_COST.C1#TAX_CGT_GAIN.C2#Specify20"&C34None&" = A#TAX_BASE2_COST.C1#TAX_CGT_GAIN.C2#Total Custom 2.I#[ICP Top] * -1"
  4569.             HS.Exp "A#TAX_BASE2_COST.C1#TAX_CGT_LOSS.C2#Specify20"&C34None&" = A#TAX_BASE2_COST.C1#TAX_CGT_LOSS.C2#Total Custom 2.I#[ICP Top] * -1"
  4570.  
  4571.             HS.Clear "A#TAX_DTB_CGT_EXP.C2#TAX_DTB_CY_MOVE"
  4572.             HS.Exp "A#TAX_DTB_CGT_EXP.C2#TAX_DTB_CY_MOVE"&C134None&" = A#TAX_BASE2_COST.C1#TAX_CUMM_CURR.C2#Specify20"&C34None&" * 0.5"
  4573.  
  4574.     '*****************************************************************
  4575.     'Net Tax Value
  4576.     '*****************************************************************
  4577.         HS.Exp "A#TAX_DED_INT_PROP = A#TAX_PAID / A#TAX_NTV_ORG_LIFE"
  4578.  
  4579.     '*****************************************************************
  4580.     'DEFERRED TAX BALANCE BREAKDOWN - current year close
  4581.     '*****************************************************************
  4582.  
  4583.     'FIXED ASSETS
  4584.         HS.Exp "A#TAX_DT_FA.C2#TAX_DTB_CY_CLOSE = (A#TAX_DTB_TEMP_BV_LA.C2#TAX_DTB_CY_CLOSE + A#TAX_DTB_TEMP_LEASE.C2#TAX_DTB_CY_CLOSE.I#[ICP Top]) * A#TAX_RATE"
  4585.  
  4586.     'Working Capital
  4587.         HS.Exp "A#TAX_DT_WC.C2#TAX_DTB_CY_CLOSE = A#TAX_DTB_TEMP_PROV.C2#TAX_DTB_CY_CLOSE.I#[ICP Top] * A#TAX_RATE"
  4588.  
  4589.     'Effects of Accounting Changes
  4590.         HS.Exp "A#TAX_DT_ACC.C2#TAX_DTB_CY_CLOSE = A#TAX_DTB_ACC_CH.C2#TAX_DTB_CY_CLOSE.I#[ICP Top] * A#TAX_RATE"
  4591.  
  4592.     'EFFECT OF TAX LOSSES
  4593.         HS.Exp "A#TAX_EFF_LOSS.C2#TAX_DTB_CY_CLOSE = A#TAX_DTB_TLOSS.C2#TAX_DTB_CY_CLOSE.I#[ICP Top] * A#TAX_RATE"
  4594.  
  4595.     'EFFECT OF CGT EXPOSURE ON UNR GAINS/LOSS
  4596.         HS.Exp "A#TAX_EFF_CGT_EXP.C2#TAX_DTB_CY_CLOSE = A#TAX_DTB_CGT_EXP.C2#TAX_DTB_CY_CLOSE.I#[ICP Top] * A#TAX_RATE"
  4597.  
  4598.     'EFFECT OF CGT LOSSES
  4599.         HS.Exp "A#TAX_EFF_CGT_LOSS.C2#TAX_DTB_CY_CLOSE = A#TAX_DTB_CGT_LOSS.C2#TAX_DTB_CY_CLOSE.I#[ICP Top] * A#TAX_RATE"
  4600.  
  4601.     '*****************************************************************
  4602.     'TEMPORARY DIFFERNCES - DEFERRED TAXATION BALANCE CALC prior year close
  4603.     '*****************************************************************
  4604.  
  4605.     'BOOK VALUES FIXED ASSETS-QUALIFYING
  4606.         HS.Exp "A#TAX_DTB_QABV.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_DTB_QABV.C2#TAX_DTB_CY_CLOSE.I#[ICP Top].P#LAST.Y#PRIOR"
  4607.  
  4608.     'P AND L ON DISPOSAL OF NON-QUAL ASSETS
  4609.         HS.Exp "A#TAX_TEMP_P_L.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_TEMP_P_L.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4610.  
  4611.     'TAX VALUES FIXED ASSETS-QUALIFYING
  4612.         HS.Exp "A#TAX_DTB_QTBV.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_DTB_QTBV.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4613.  
  4614. 'XXX    '24C ALLOWANCE
  4615.         HS.Exp "A#TAX_DTB_TEMP_24C.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_DTB_TEMP_24C.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4616.  
  4617.     'PROVISIONS (+)
  4618.         HS.Exp "A#PRO_A_TAX_TOT.C2#TAX_DTB_PY_EXP_CLOSE = A#PRO_A_TAX_TOT.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4619.  
  4620.     'PREPAYMENTS (-)
  4621.         HS.Exp "A#TAX_DTB_TEMP_PREP.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_DTB_TEMP_PREP.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4622.  
  4623.     'DOUBTFUL DEBTS ALLOWANCE (-)
  4624.         HS.Exp "A#TAX_DTB_TEMP_DOUBT.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_DTB_TEMP_DOUBT.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4625.  
  4626.     'LEASE LIABILITIES (CAP OUTSTANDING) (+)
  4627.         HS.Exp "A#TAX_DTB_TEMP_LEASE.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_DTB_TEMP_LEASE.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4628.  
  4629.     'BOOK VALUE OF LEASED ASSETS (-)
  4630.         HS.Exp "A#TAX_DTB_TEMP_BV_LA.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_DTB_TEMP_BV_LA.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4631.  
  4632.     'TRADEMARKS
  4633.         HS.Exp "A#TA_DTB_TEMP_TRADEM.C2#TAX_DTB_PY_EXP_CLOSE = A#TA_DTB_TEMP_TRADEM.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4634.  
  4635.     'CAPITALISED R AND M TAX VALUE
  4636.         HS.Exp "A#RMCT_TOTAL.C2#TAX_DTB_PY_EXP_CLOSE = A#RMCT_TOTAL.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4637.  
  4638.     'AMOUNTS RECEIVED IN ADVANCE
  4639.         HS.Exp "A#TAX_DTB_TEMP_ADV.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_DTB_TEMP_ADV.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4640.  
  4641.     'RESTRAINT OF TRADE WRITE OFF & PAYMENT
  4642.         HS.Exp "A#TAX_DTB_TEMP_RES_TRD.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_DTB_TEMP_RES_TRD.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4643.  
  4644.     'OTHER (Specify)
  4645.         HS.Exp "A#TAX_DTB_TEMP_OTHER.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_DTB_TEMP_OTHER.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4646.  
  4647.     'Effects of Accounting Changes
  4648.         HS.Exp "A#TAX_DTB_ACC_CH.C2#TAX_DTB_PY_EXP_CLOSE = A#TAX_DTB_ACC_CH.C2#TAX_DTB_CY_CLOSE.P#LAST.Y#PRIOR.I#[ICP Top]"
  4649.  
  4650.     '*****************************************************************
  4651.     'TEMPORARY DIFFERNCES - DEFERRED TAXATION BALANCE CALC move
  4652.     '*****************************************************************
  4653.  
  4654.     'BOOK VALUES FIXED ASSETS-QUALIFYING
  4655.         HS.Exp "A#TAX_DTB_QABV.C2#TAX_DTB_CY_MOVE"&C134None&" = A#TAX_ADD_DPR_QA.I#[ICP Top]"&C1234Top&" + A#TAX_ADD_ACC_LOSS_FA.I#[ICP Top]"&C1234Top&" - A#TAX_DED_PDA.I#[ICP Top]"&C1234None&"  - A#TAX_ADD_IMP_NQA.I#[ICP Top]"&C1234Top
  4656. '               + A#IMPAIRMENT.I#[ICP Top]"&C1234Top&"
  4657.  
  4658.     'TAX VALUES FIXED ASSETS-QUALIFYING
  4659.         HS.Exp "A#TAX_DTB_QTBV.C2#TAX_DTB_CY_MOVE"&C134None&" = A#TPPE_FML_INT_ASS"&C12Top&".C3#BV_ACCDEP_CUR_DEP.C4#QABV_TOT_ACCOUNTING.I#[ICP Top] - A#TAX_DED_SCRAP"&C1234Top&".I#[ICP Top] + A#TAX_ADD_RFA.I#[ICP Top]"&C1234Top
  4660.  
  4661.     '24C ALLOWANCE
  4662.         HS.Exp "A#TAX_DTB_TEMP_24C.C2#TAX_DTB_CY_MOVE"&C134None&" = A#TAX_ADD_FUT_EXP.I#[ICP Top]"&C1234Top&" - A#TAX_DED_FUT_EXP.I#[ICP Top]"&C1234Top
  4663.  
  4664.     'PROVISIONS (+)
  4665.         HS.Exp "A#PRO_A_TAX_TOT.C1#PRO_A_TAX_MOV_INC"&C134None&" = A#TAX_ADD_INC_PROV.I#[ICP Top]"&C1234Top&" - A#TAX_DED_DEC_PROV.I#[ICP Top]"&C1234Top
  4666.  
  4667.     'PREPAYMENTS (-)
  4668.         HS.Exp "A#TAX_DTB_TEMP_PREP.C2#TAX_DTB_CY_MOVE = A#TAX_ADD_PREP_EXP.I#[ICP Top]"&C1234Top&" - A#TDEB_S_PREP_D.I#[ICP Top]"&C1234Top
  4669.  
  4670.     'DOUBTFUL DEBTS ALLOWANCE (-)
  4671.         HS.Exp "A#TAX_DTB_TEMP_DOUBT.C2#TAX_DTB_CY_MOVE = A#DD_A_PRO_SPE_DEDUCT.I#[ICP Top].C2#[None] - A#DD_A_PRO_SPE_DEDUCT.C2#[None].P#LAST.Y#PRIOR.I#[ICP Top]"
  4672.  
  4673.     'LEASE LIABILITIES (CAP OUTSTANDING) (+)
  4674.         HS.Exp "A#TAX_DTB_TEMP_LEASE.C2#TAX_DTB_CY_MOVE"&C134None&" = A#FC_CFL.I#[ICP Top]"&C1234Top&" + A#TAX_DED_LEASE_PMTS.I#[ICP Top]"&C1234Top
  4675.  
  4676.     'BOOK VALUE OF LEASED ASSETS (-)
  4677.         HS.Exp "A#TAX_DTB_TEMP_BV_LA.C2#TAX_DTB_CY_MOVE"&C134None&" = A#TAX_ADD_DPR_CAP_L.I#[ICP Top]"&C1234Top&" + A#TAX_ADD_LEASE.I#[ICP Top]"&C1234Top
  4678.  
  4679.     'TRADEMARKS
  4680.         HS.Exp "A#TA_DTB_TEMP_TRADEM.C2#TAX_DTB_CY_MOVE"&C134None&" = A#TAX_DED_INT_PROP.I#[ICP Top]"&C1234Top&" * -1"
  4681.  
  4682.     'AMOUNTS RECEIVED IN ADVANCE
  4683.         HS.Exp "A#TAX_DTB_TEMP_ADV.C2#TAX_DTB_CY_MOVE"&C134None&" = A#PAY_DEF_INC_AMOUNT"&C1234Top&".I#[ICP Top] - A#TAX_DED_PY_ADV"&C1234Top&".I#[ICP Top]"
  4684.  
  4685.     'RESTRAINT OF TRADE WRITE OFF & PAYMENT
  4686.         HS.Exp "A#TAX_DTB_TEMP_RES_TRD.C2#TAX_DTB_CY_MOVE.C1#[None] = A#OOE_REP_MAIN_A_WT.C1#ASS_TOTAL.C2#[None].I#[ICP Top] - A#TAX_DED_W_T_R_M.I#[ICP Top]"&C12None
  4687.  
  4688.     'REPAIRS AND MAINTENANCE
  4689.         HS.Exp "A#RMCT_TOTAL.C2#TAX_DTB_CY_MOVE"&C134None&" = A#TAX_A_ET_P_RM_ND"&C1234Top&".I#[ICP Top] - A#TAX_A_ET_P_RM_WT"&C1234None&".I#[ICP Top]"&C1234Top
  4690.  
  4691.  
  4692.     '*****************************************************************
  4693.     'DEFERRED TAX BALANCE BREAKDOWN - current year MOVE
  4694.     '*****************************************************************
  4695.  
  4696.     'Effects of Accounting Changes
  4697.         HS.Exp "A#TAX_DTB_ACC_CH.C2#TAX_DTB_CY_MOVE = A#TAX_ADD_ACC_CHANGES.I#[ICP Top].C2#[None] - A#TAX_DED_ACC_CHA.I#[ICP Top].C2#[None]"
  4698.  
  4699.     'EFFECT OF TAX LOSSES
  4700.         If HS.GetCell ("A#TAX_TI_B_CGT_ASS") < 0 Then
  4701.             HS.Exp "A#TAX_EFF_LOSS.C2#TAX_DTB_CY_MOVE = A#TAX_TI_B_CGT_ASS.I#[ICP Top].C2#[None]"
  4702.         If HS.GetCell ("A#TAX_TI_B_CGT_ASS") <  HS.GetCell ("A#TAX_ASS_L_PY") Then
  4703.             HS.Exp "A#TAX_EFF_LOSS.C2#TAX_DTB_CY_MOVE = A#TAX_TI_B_CGT_ASS.I#[ICP Top].C2#[None]"
  4704.         Else
  4705.             HS.Exp "A#TAX_EFF_LOSS.C2#TAX_DTB_CY_MOVE = A#TAX_ASS_L_PY.I#[ICP Top].C2#[None]"
  4706.         End If
  4707.         End If
  4708.  
  4709.     'EFFECT OF CGT EXPOSURE ON UNR GAINS/LOSS
  4710.         HS.Exp "A#TAX_EFF_CGT_EXP.C1#[None].C2#TAX_DTB_CY_MOVE = A#TAX_BASE2_COST.C1#TAX_CUMM_GAINS_LOSS.C2#Total Custom 2.I#[ICP Top] * A#TAX_CG_INC_RATE"&C12None
  4711.  
  4712.     'EFFECT OF CGT LOSSES
  4713.         HS.Exp "A#TAX_EFF_CGT_LOSS.C1#[None].C2#TAX_DTB_CY_MOVE = A#TAX_BASE1_COST.C1#TAX_CUMM_GAINS_LOSS.I#[ICP Top].C2#Total Custom 2 * A#TAX_CG_INC_RATE"&C12None
  4714.  
  4715.     '*****************************************************************
  4716.     'DEFERRED TAX BALANCE CURRENT YEAR
  4717.     '*****************************************************************
  4718.         HS.Exp "A#TAX_DTB_CY.C2#[None] = A#TAX_DTB_TOT_TEMP.C2#TAX_DTB_DIFF.I#[ICP Top] * A#TAX_RATE"
  4719.  
  4720.     '*****************************************************************
  4721.     'DEFERRED TAX BALANCE PRIOR YEAR
  4722.     '*****************************************************************
  4723.         HS.Exp "A#TAX_DTB_PY = A#TAX_DTB_CY.Y#PRIOR.P#LAST.I#[ICP Top] * -1"
  4724.  
  4725.     '*****************************************************************
  4726.     'TAX OTHER
  4727.     '*****************************************************************
  4728.     'Taxable Income/Loss including Taxable CG
  4729.         If HS.GetCell ("A#TAX_INC.Y#PRIOR.P#LAST") < 0 Then
  4730.             HS.Exp "A#TAX_ASS_L_PY"&C1234None&" = -1 * A#TAX_INC.Y#PRIOR.P#LAST.I#[ICP Top]"&C1234Top
  4731.         End If
  4732.  
  4733.     'Current Tax per the IS (Current Year)
  4734.         If HS.GetCell ("A#TAX_INC") > 0 Then
  4735.             HS.Exp "A#TAX_IS_CUR"&C1234None&" = A#TAX_INC.I#[ICP Top]"&C1234Top&" * A#TAX_RATE.I#[ICP Top]"&C1234Top
  4736.         End If
  4737.  
  4738.  
  4739.     'Taxation - Capital Gains included in Taxable Income
  4740. '       HS.Exp "C1#TAX_GL_CGT = A#TAX_A_CG * A#TAX_CG_INC_RATE"
  4741.  
  4742.     'Taxation - Prior Year Current Tax
  4743. '       HS.Exp "C1#TAX_GL_SA_PRIOR_CUR = C1#TAX_GL_SA_CUR.P#LAST.Y#PRIOR"
  4744.  
  4745.     'Taxation - Prior Year Deferred Tax
  4746. '       HS.Exp "C1#TAX_GL_SA_PRIOR_DEF = C1#TAX_GL_SA_DEF.P#LAST.Y#PRIOR"
  4747.  
  4748.     'Taxation - Prior Year Current Tax
  4749. '       HS.Exp "C1#TAX_GL_FOR_PRIOR_CUR = C1#TAX_GL_FOR_CUR.P#LAST.Y#PRIOR"
  4750.  
  4751.     'Taxation - Prior Year Deferred Tax
  4752. '       HS.Exp "C1#TAX_GL_FOR_PRIOR_DEF = C1#TAX_GL_FOR_DEF.P#LAST.Y#PRIOR"
  4753.  
  4754.     'Taxation - Secondary Taxation on Companies
  4755. '       HS.Exp "C1#TAX_GL_STC = A#TAX_A_STC"
  4756.  
  4757.  
  4758.     'Taxation (Tax Calc)
  4759.         HS.Exp "A#TAX_CALC_TOTAL.C1#TAX_GL_SA_CUR"&C234None&" = A#TAX_IS_CUR"&C1234Top&".I#[ICP Top]"
  4760.  
  4761.     'Taxation (Tax Calc) - Current
  4762.         HS.Exp "A#TAX_CALC_TOTAL.C1#TAX_GL_CGT"&C234None&" = A#TAX_CG_INC_TI"&C1234Top&".I#[ICP Top]"
  4763.  
  4764.     'Taxation (Tax Calc) - Deferred
  4765.         HS.Exp "A#TAX_CALC_TOTAL.C1#TAX_GL_SA_DEF"&C234None&" = A#TAX_DT_CY"&C1234Top&".I#[ICP Top]"
  4766.  
  4767.     'Tax Rate
  4768.         HS.Exp "C1#TAX_A_TAX_RATE = A#TAX_RATE"
  4769.  
  4770.     'Tax Effect
  4771.         HS.Exp "C1#TAX_A_TAX_EFFECT = C1#TAX_A_TAX_EFF_AMT * C1#TAX_A_TAX_RATE"
  4772.  
  4773.     'Tax Percentage
  4774. 'XX     HS.Exp "C1#TAX_A_PERCENTAGE = C1#TAX_A_TAX_EFFECT / A#PBT"&C1234Top
  4775.  
  4776. 'd  'Standard tax expense
  4777.         HS.Exp "A#TAX_A_ET_STD_EXP.C1#TAX_A_TAX_EFF_AMT"&C234None&" = A#PBT"&C1234Top&".I#[ICP Top] * A#TAX_RATE"&C1234Top&".I#[ICP Top]"
  4778.  
  4779. 'd  'Permanent differences
  4780.         HS.Exp "A#TAX_A_ET_PERM_DIF"&C234None&".C1#TAX_A_TAX_EFF_AMT = A#TAX_DT_PERM_DIF"&C1234Top&".I#[ICP Top] * A#TAX_RATE"&C1234Top&".I#[ICP Top] * -1"
  4781.  
  4782. 'd  'Effective Tax Expense - Change in rate of taxation
  4783.         HS.Exp "A#TAX_A_CHNG_TAX_RATE.C1#TAX_A_TAX_EFF_AMT"&C234None&" = A#TAX_DTB_TOT_TEMP.I#[ICP Top]"&C1234Top&" * (A#TAX_RATE"&C1234Top&".I#[ICP Top] - A#TAX_RATE.Y#PRIOR.P#Last"&C1234Top&".I#[ICP Top])"
  4784.  
  4785.     'Effective Tax Expense - STC
  4786.         HS.Exp "A#TAX_A_STC.C1#TAX_A_TAX_EFF_AMT"&C234None&" = A#TAX_PRO_STC.I#[ICP Top]"&C1234Top
  4787.  
  4788.     'Effective Tax Expense - Capital gains tax
  4789.         HS.Exp "A#TAX_A_CGT.C1#TAX_A_TAX_EFF_AMT"&C234None&" = A#TAX_CG_INC_TI.I#[ICP Top]"&C1234Top
  4790.  
  4791.     'Foreign tax rate differential
  4792.         HS.Exp "A#TAX_A_FOREX_DIFF.C1#TAX_A_TAX_EFF_AMT"&C234None&" = A#TAX_A_FOR_TAX_DIF.I#[ICP Top]"&C1234Top&" * A#TAX_RATE"&C1234Top&".I#[ICP Top]"
  4793.  
  4794.     'Effective Tax Expense - Capital gains losses
  4795.         If HS.GetCell ("A#TAX_BASE1_COST.C1#TAX_CUMM_CURR.C2#Total Custom 2") < 0 Then
  4796.             HS.Exp "A#TAX_A_CGT_LOSS.C1#TAX_A_TAX_EFF_AMT = A#TAX_BASE1_COST.C1#TAX_CUMM_CURR.C2#Total Custom 2 * -1 * A#TAX_CG_INC_RATE.C1#Total Custom 1"
  4797.         Else
  4798.             HS.Exp "A#TAX_A_CGT_LOSS.C1#TAX_A_TAX_EFF_AMT = 0"
  4799.         End If
  4800.  
  4801.     'Effective Tax Expense - Unrealised Capital Gains
  4802.         HS.Exp "A#TAX_A_CG_GAIN_U.C1#TAX_A_TAX_EFF_AMT.C2#[None] = A#TAX_BASE1_COST.C1#TAX_CGT_GAIN.C2#Total Custom 2.I#[ICP Top]"
  4803.  
  4804.     'Effective Tax Expense - Unrealised Capital Losses
  4805.         HS.Exp "A#TAX_A_CG_LOSS_U.C1#TAX_A_TAX_EFF_AMT.C2#[None] = A#TAX_BASE1_COST.C1#TAX_CGT_LOSS.C2#Total Custom 2.I#[ICP Top]"
  4806.  
  4807.     'Provisions Add Info for Tax purposes
  4808. '       HS.Exp "A#PRO_A_NDED_STOCK_OBS.C1#PRO_A_TAX_MOV_INC =
  4809.  
  4810.     'Call writetofile("TAX END")
  4811.  
  4812.  
  4813.  
  4814.  
  4815. End Sub
  4816.  
  4817. Sub AdditionalInfo
  4818.  
  4819.     '*******************************************************************
  4820.     '*******************************************************************
  4821.     'FINANCIAL HIGHLIGHTS
  4822.     '*******************************************************************
  4823.     '*******************************************************************
  4824.     'Call writetofile("ADD INFO BEGIN")
  4825.     '*******************************************************************
  4826.     'Trading Income
  4827.     '*******************************************************************
  4828.     'Operating Income
  4829.         HS.Exp "A#OTH_OPR_INC"&C1234None&" = A#OPERATING_INCOME.I#[ICP Top]"&C1234Top
  4830.     'Loss on disposal of operations
  4831.         HS.Exp "A#FH_TRD_INC_DIS_OPS"&C1234None&" = A#L_DIS_OPS.I#[ICP Top]"&C1234Top
  4832.     'Foreign Exchange gain
  4833.         HS.Exp "A#FH_TRD_INC_FOREX_G"&C1234None&" = A#OOI_FX_GAIN.I#[ICP Top]"&C1234Top
  4834.     'Foreign Exchange Loss
  4835.         HS.Exp "A#FH_TRD_INC_FOREX_L"&C1234None&" = A#OOE_FX_LOSS_TOTAL.I#[ICP Top]"&C1234Top
  4836.     'Goodwill Impairment
  4837.         HS.Exp "A#FH_TRD_INC_GOODWILL"&C1234None&" = A#IMP_GW.I#[ICP Top]"&C1234Top
  4838.     'Accounting Bookvalue from PPE
  4839.         HS.Exp "A#ABV_TOT.C4#QABV_TOT_ACCOUNTING = A#PPE_FML_INT_ASS.I#[ICP Top]"
  4840.  
  4841.     '*******************************************************************
  4842.     'Headline earnings
  4843.     '*******************************************************************
  4844.     'Impairment
  4845.         HS.Exp "A#FH_HE_IMPAIRMENT"&C1234None&" = A#IMPAIRMENT.I#[ICP Top]"&C1234Top
  4846.  
  4847.     '*******************************************************************
  4848.     'Capital Employed
  4849.     '*******************************************************************
  4850.     'Current Liabilities
  4851.         HS.Exp "A#CUR_LIAB"&C1234None&" = A#BS_CURR_LIAB.I#[ICP Top]"&C1234Top
  4852.  
  4853.  
  4854.     '*****************************************************************
  4855.     '*****************************************************************
  4856.     'Ratios Calculations
  4857.     '*****************************************************************
  4858.     '*****************************************************************
  4859.     'Headline Earnings = net profit + capital items
  4860.         HS.Exp "A#R_HE"&C1234None&" = A#NET_PROFIT_YR.I#[ICP Top].W#YTD"&C1234Top&" + A#CAPITAL_ITEMS.W#YTD.I#[ICP Top]"&C1234Top
  4861.  
  4862.     'Fully diluted headline earnings = net profit - diluted earnings + capital items
  4863.         HS.Exp "A#R_DHE"&C1234None&" = A#NET_PROFIT_YR.I#[ICP Top].W#YTD"&C1234Top&" - A#R_DE.I#[ICP Top].W#YTD"&C1234Top&" + A#CAPITAL_ITEMS.W#YTD.I#[ICP Top]"&C1234Top
  4864.  
  4865.     'Market Capitalisation = Shares in issue * Share Price
  4866.         HS.Exp "A#MARKET_CAP"&C1234None&" = A#SC_A_ORD.I#[ICP Top].w#ytd"&C1234Top&" * A#R_SP.I#[ICP Top].W#YTD"&C1234Top
  4867.  
  4868.     'Trading Income = Operating income + capital items
  4869.         HS.Exp "A#R_TI"&C1234None&" = A#OPERATING_INCOME.I#[ICP Top].w#ytd"&C1234Top&" + A#CAPITAL_ITEMS.W#YTD.I#[ICP Top]"&C1234Top
  4870.  
  4871.     'Net Tangible Asset Value = ORDINARY SHAREHOLDERS FUNDS - GW - Intangibles
  4872.         HS.Exp "A#NET_TAN_ASS_VAL"&C1234None&" = A#SH_FUND_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" - A#GW_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" - A#PPE_FML_INT_ASS.W#YTD.I#[ICP Top].C1#INT_TOTAL"&C234Top
  4873.  
  4874.     'Net Tangible Asset value per share = (ORDINARY SHAREHOLDERS FUNDS - Goodwill) / Shares in issue
  4875.         HS.Exp "A#R_NTAV"&C1234None&" = (A#NET_TAN_ASS_VAL.W#YTD.I#[ICP Top]"&C1234Top&" / A#SC_A_ORD.W#YTD.I#[ICP Top]"&C1234Top&") * 100"
  4876.  
  4877.     'Earnings per Share = Net profit for the year / Weighted Ave Nr of ordinary shares
  4878.         HS.Exp "A#R_EPS"&C1234None&" = (A#NET_PROFIT_YR.W#YTD.I#[ICP Top]"&C1234Top&" / A#SC_A_WAVE_SH_NR.W#YTD.I#[ICP Top]"&C1234Top&") * 100"
  4879.  
  4880.     'Headline Earnings per Share = Headline earnings / Weighted Ave Nr of ordinary shares
  4881.         HS.Exp "A#R_HPS"&C1234None&" = (A#R_HE.W#YTD.I#[ICP Top]"&C1234Top&" / A#SC_A_WAVE_SH_NR.W#YTD.I#[ICP Top]"&C1234Top&") * 100"
  4882.  
  4883.     'Fully Diluted Earnings per Share = (Net profit for the year + Fully diluted Earnings (Specify)) / Diluted Weighted Ave nr of Ord Shares
  4884.         HS.Exp "A#R_DEPS"&C1234None&" = (A#NET_PROFIT_YR.W#YTD.I#[ICP Top]"&C1234Top&" + A#FUL_DIL_EARN.W#YTD.I#[ICP Top]"&C1234Top&") / A#SC_A_DWAVE_SH_NR.W#YTD.I#[ICP Top]"&C1234Top
  4885.  
  4886.     'Fully Diluted Headline EPS = Fully diluted Headline Earnings / Diluted Weighted Ave nr of Ord Shares
  4887.         HS.Exp "A#R_DHPS"&C1234None&" = (A#R_DHE.W#YTD.I#[ICP Top]"&C1234Top&" / A#SC_A_DWAVE_SH_NR.W#YTD.I#[ICP Top]"&C1234Top&") * 100"
  4888.  
  4889.     'Price / Earnings ratio = Share Price / Headline Earnings per Share
  4890.         HS.Exp "A#R_PE"&C1234None&" = A#R_SP.W#YTD.I#[ICP Top]"&C1234Top&" / A#R_HPS.W#YTD.I#[ICP Top]"&C1234Top
  4891.  
  4892.     'Gross Profit margin (%) = Gross profit / Revenue
  4893.         HS.Exp "A#R_GP_M"&C1234None&" = (A#GROSS_PROFIT.W#YTD.I#[ICP Top]"&C1234Top&" / A#RTI_VAL_VAT_RET_REV.W#YTD.I#[ICP Top]"&C1234Top&") * 100"
  4894.  
  4895.     'EBITDA margin (%) = Operating profit before deprec (EBITDA) / Revenue
  4896.         HS.Exp "A#R_EBITDA_M"&C1234None&" = (A#EBITDA.W#YTD.I#[ICP Top]"&C1234Top&" / A#RTI_VAL_VAT_RET_REV.W#YTD.I#[ICP Top]"&C1234Top&") * 100"
  4897.  
  4898.     'Trading Margin  (%) = Trading Income / Revenue
  4899.         HS.Exp "A#R_T_M"&C1234None&" = (A#R_TI.W#YTD.I#[ICP Top]"&C1234Top&" / A#RTI_VAL_VAT_RET_REV.W#YTD.I#[ICP Top]"&C1234Top&") * 100"
  4900.  
  4901.     'Operating margin  (%) = Operating income / Revenue
  4902.         HS.Exp "A#R_O_M"&C1234None&" = (A#OPERATING_INCOME.W#YTD.I#[ICP Top]"&C1234Top&" / A#RTI_VAL_VAT_RET_REV.W#YTD.I#[ICP Top]"&C1234Top&") * 100"
  4903.  
  4904.     'Oper Inc bf net loss on dis of bus (%) = (Operating income + Losses on disposal of operations) / Revenue
  4905.         HS.Exp "A#R_OI_LOSS_M"&C1234None&" = (A#OPERATING_INCOME.W#YTD.I#[ICP Top]"&C1234Top&" + A#L_DIS_OPS.W#YTD.I#[ICP Top]"&C1234Top&" / A#RTI_VAL_VAT_RET_REV.W#YTD.I#[ICP Top]"&C1234Top&") * 100"
  4906.  
  4907.     'Interest cover = Operating income / Net interest cost/received
  4908.         HS.Exp "A#R_INT_COV.W#YTD"&C1234None&" = A#OPERATING_INCOME.W#YTD.I#[ICP Top]"&C1234Top&" / ((A#FINANCE_COST.W#YTD.I#[ICP Top]"&C1234Top&" - A#INVESTMENT_INCOME.W#YTD.I#[ICP Top]"&C1234Top&")"
  4909.  
  4910.     'Dividend cover - declared = Earnings per Share / Declared
  4911.         HS.Exp "A#R_DIV_COV_DEC"&C1234None&" = A#R_EPS.W#YTD.I#[ICP Top]"&C1234Top&" / A#R_DIV_D.W#YTD.I#[ICP Top]"&C1234Top
  4912.  
  4913.     'Dividend cover - paid = Earnings per Share / Paid
  4914.         HS.Exp "A#R_DIV_COV_PD"&C1234None&" = A#R_EPS.W#YTD.I#[ICP Top]"&C1234Top&" / A#R_DIV_PD.W#YTD.I#[ICP Top]"&C1234Top
  4915.  
  4916.     'Cap empl (ave between ye nr and cur per)
  4917.         HS.Exp "A#R_CE"&C1234None&" = A#EQ_LIAB_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" - A#BS_CURR_LIAB.W#YTD.I#[ICP Top]"&C1234Top
  4918.  
  4919.     'Return on capital employed = Operating income (Annualised) / Cap Empl (Ave between YE Nr and cur per)
  4920.         HS.Exp "A#R_ROCE"&C1234None&" = ((A#R_TI.W#YTD.I#[ICP Top]"&C1234Top&" / HS.PERIOD.NUMBER) * 12) / ((A#R_CE.W#YTD.I#[ICP Top]"&C1234Top&".P#LAST.Y#PRIOR + A#R_CE.W#YTD.I#[ICP Top]"&C1234Top&".P#CUR) / 2) * 100"
  4921.  
  4922.     'Capital Employed before Goodwill = (Cap Empl (Ave between YE Nr and cur per) + GW w/o (Ave between YE Nr and cur per))
  4923.         HS.Exp "A#CAP_EMP_BEFORE_GW"&C1234None&" = ((A#R_CE.W#YTD.I#[ICP Top]"&C1234Top&".P#LAST.Y#PRIOR + A#R_CE.W#YTD.I#[ICP Top]"&C1234Top&".P#CUR) / 2) + ((A#R_GW_SP.W#YTD.I#[ICP Top]"&C1234Top&".P#LAST.Y#PRIOR + A#R_GW_SP.W#YTD.I#[ICP Top]"&C1234Top&".P#CUR) / 2)"
  4924.  
  4925.     'Return on cap empl bf goodwill = Operating income (Annualised) / Capital Employed before Goodwill
  4926.         HS.Exp "A#R_ROCE_GW"&C1234None&" = A#OPERATING_INCOME.W#YTD.I#[ICP Top]"&C1234Top&" / A#CAP_EMP_BEFORE_GW.W#YTD.I#[ICP Top]"&C1234Top
  4927.  
  4928.     'Return on equity = Headline earnings (Annualised) / ORDINARY SHAREHOLDERS FUNDS (Ave)
  4929.         HS.Exp "A#R_ROE"&C1234None&" = ((A#R_HE.W#YTD.I#[ICP Top]"&C1234Top&"  / HS.PERIOD.NUMBER) * 12) / ((A#SH_FUND_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&".P#CUR + A#SH_FUND_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&".P#LAST.Y#PRIOR) / 2)"
  4930.  
  4931.     'Equity before goodwill = ORDINARY SHAREHOLDERS FUNDS (Ave) + GW w/o (Ave between YE Nr and cur per)
  4932.         HS.Exp "A#EQ_BEFORE_GW"&C1234None&" = (A#SH_FUND_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&"  / HS.PERIOD.NUMBER) + ((A#R_GW_SP.I#[ICP Top]"&C1234Top&".W#YTD.P#LAST.Y#PRIOR + A#R_GW_SP.W#YTD.I#[ICP Top]"&C1234Top&".P#CUR) / 2)"
  4933.  
  4934.     'Return on equity before goodwill = Headline earnings (Annualised) / Equity before goodwill
  4935.         HS.Exp "A#R_ROE_GW"&C1234None&" = ((A#R_HE.W#YTD.I#[ICP Top]"&C1234Top&" / HS.PERIOD.NUMBER) * 12) / A#EQ_BEFORE_GW.W#YTD.I#[ICP Top]"&C1234Top
  4936.  
  4937.     'Income on Assets = Trading Income (Annualised) + Income from associates (Annualised)
  4938.         HS.Exp "A#INC_ASSETS"&C1234None&" = ((A#R_TI.W#YTD.I#[ICP Top]"&C1234Top&"  / HS.PERIOD.NUMBER) * 12) + ((A#INCOME_ASSOCIATES.W#YTD.I#[ICP Top]"&C1234Top&" / HS.PERIOD.NUMBER) * 12)"
  4939.  
  4940.     'Return on Total Assets = Income on Assets / TOTAL ASSETS (Ave)
  4941.         HS.Exp "A#R_ROTA"&C1234None&" = (A#INC_ASSETS.W#YTD.I#[ICP Top]"&C1234Top&" / ((A#ASSETS_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" + A#ASSETS_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&".P#LAST.Y#PRIOR) / 2)) * 100"
  4942.  
  4943.     'Debt = (Long Term Debt + Short-Term Borrowings)+ Bank overdraft - Cash resources + Loan from group co: interest bearing + Short-term borrowings
  4944.         HS.Exp "A#DEBT"&C1234None&" = A#BS_NON_CURR_INT_LIAB.W#YTD.I#[ICP Top]"&C1234Top&" + A#BS_BANK_OVERDRAFT.W#YTD.I#[ICP Top]"&C1234Top&" - A#CUR_ASS_CASH.W#YTD.I#[ICP Top]"&C1234Top&" - A#BS_DEF_TAX_TOT.W#YTD.I#[ICP Top]"&C1234Top&" + A#ST_FML_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" + A#ST_INT_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" - A#FRES_INS_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" - A#LT_NON_INT_TOTAL.W#YTD.I#[ICP Top]"&C1234Top
  4945.  
  4946.     'Gearing ratio = Debt / ORDINARY SHAREHOLDERS FUNDS (C/Balance)
  4947.         HS.Exp "A#R_GR"&C1234None&" = A#DEBT.W#YTD.I#[ICP Top]"&C1234Top&" / A#SH_FUND_TOTAL.W#YTD.I#[ICP Top]"&C1234Top
  4948.  
  4949.     'Debt excl FML = (Long Term Debt  + Short-Term Borrowings) - Full Maintenance Leased Liabilities + Bank overdraft - Cash resources + Loan from group co: interest bearing
  4950. '       HS.Exp "A#DEBT_EXL_FML"&C1234None&" = A#BS_NON_CURR_INT_LIAB.W#YTD.I#[ICP Top]"&C123Top&" + A#BS_BANK_OVERDRAFT.W#YTD.I#[ICP Top]"&C1234Top&" - A#CUR_ASS_CASH.W#YTD.I#[ICP Top]"&C1234Top&" - A#BS_DEF_TAX_TOT.W#YTD.I#[ICP Top]"&C1234Top&" - A#BS_FUND_RESERVES.W#YTD.I#[ICP Top]"&C1234Top&" + A#ST_INT_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" - A#LT_NON_INT_TOTAL.W#YTD.I#[ICP Top]"&C1234Top
  4951.         HS.Exp "A#DEBT_EXL_FML"&C1234None&" = A#DEBT"&C1234None&".W#YTD.I#[ICP Top] - A#ST_FML_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" - A#FRES_FML_TOTAL.W#YTD.I#[ICP Top]"&C1234Top
  4952.  
  4953.     'Gearing ratio - Excluding FML = Debt / ORDINARY SHAREHOLDERS FUNDS (C/Balance)
  4954.         HS.Exp "A#R_GR_EXC_FML"&C1234None&" = A#DEBT_EXL_FML.W#YTD.I#[ICP Top]"&C1234Top&" / A#SH_FUND_TOTAL.W#YTD.P#LAST.I#[ICP Top]"&C1234Top
  4955.  
  4956.     'Capital and Reserves = ORDINARY SHAREHOLDERS FUNDS - Foreign Currency Translation Reserves - Revaluation Reserves - Goodwill - Deferred tax asset + Deferred tax liability (if Liability > Asset, Liability, Asset)
  4957.         HS.Exp "A#CAP_RES"&C1234None&" = A#SH_FUND_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" + A#DEF_TAX_A_TOT.W#YTD.I#[ICP Top]"&C1234Top&" - A#OTH_RES_FCTR.W#YTD.I#[ICP Top]"&C1234Top&" - A#OTH_RES_REVAL.W#YTD.I#[ICP Top]"&C1234Top&" - A#GW_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" - A#DFR_TAX_ASSET.W#YTD.I#[ICP Top]"&C1234Top&" - A#BS_DEF_TAX.W#YTD.I#[ICP Top]"&C1234Top
  4958.  
  4959.     'Nedcor Gearing - All (max 200%) = Debt excl FML / Capital and Reserves
  4960.         HS.Exp "A#R_GR_NED_ALL"&C1234None&" = A#DEBT_EXL_FML.W#YTD.I#[ICP Top]"&C1234Top&" / A#CAP_RES.W#YTD.I#[ICP Top]"&C1234Top
  4961.  
  4962.     'Nedcor Gearing - Ex FML (max 75%) = Debt / Capital and Reserves
  4963.         HS.Exp "A#R_GR_NED_EX_FML"&C1234None&" = A#DEBT.W#YTD.I#[ICP Top]"&C1234Top&" / A#CAP_RES.W#YTD.I#[ICP Top]"&C1234Top
  4964.  
  4965.     'Asset Turn = Revenue (Annualised) / TOTAL ASSETS (Ave)
  4966. '       HS.Exp "A#R_AT"&C1234None&" = A#RTI_VAL_VAT_RET_REV.W#YTD.I#[ICP Top]"&C1234Top&" / (A#ASSETS_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" / HS.PERIOD.NUMBER)"
  4967.         HS.Exp "A#R_AT"&C1234None&" = (A#RTI_VAL_VAT_RET_REV.W#YTD.I#[ICP Top]"&C1234Top&" * 12 / HS.PERIOD.NUMBER) /  ((A#ASSETS_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" + A#ASSETS_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&".P#Last.Y#Prior)/2)"
  4968.  
  4969.     'Current ratio = Current Assets / Current Liabilities
  4970.         HS.Exp "A#R_CR"&C1234None&" = A#CUR_ASS_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" / A#BS_CURR_LIAB.W#YTD.I#[ICP Top]"&C1234Top
  4971.  
  4972.     'Liquid Assets = Current Assets - Inventories
  4973.         HS.Exp "A#LIQ_ASS"&C1234None&" = A#CUR_ASS_TOTAL.W#YTD.I#[ICP Top]"&C1234Top&" - A#CUR_ASS_INVEN_TOT.W#YTD.I#[ICP Top]"&C1234Top
  4974.  
  4975.     'Acid Test ratio = Liquid Assets / Current Liabilities
  4976.         HS.Exp "A#R_ATR"&C1234None&" = A#LIQ_ASS.W#YTD.I#[ICP Top]"&C1234Top&" / A#BS_CURR_LIAB.W#YTD.I#[ICP Top]"&C1234Top
  4977.  
  4978.     'Inventory Days = Inventories (Close) / Cost of sales (nr of days year to date)
  4979.         HS.Exp "A#R_INV_DAYS"&C1234None&" = (A#CUR_ASS_INVEN_TOT.W#YTD.I#[ICP Top]"&C1234Top&" / A#COST_OF_SALES.W#YTD.I#[ICP Top]"&C1234Top&") * 30.41666667 *  HS.PERIOD.NUMBER"
  4980.  
  4981.     'Debtor days = Trade and other receivables (Close) / Revenue
  4982.         HS.Exp "A#R_DEB_DAYS"&C1234None&" = (A#CUR_ASS_TRADE_OTH.W#YTD.I#[ICP Top]"&C1234Top&" / A#RTI_VAL_VAT_RET_REV.W#YTD.I#[ICP Top]"&C1234Top&") * 30.41666667 *  HS.PERIOD.NUMBER"
  4983.  
  4984.     'Creditor days = Trade and other payables (Close) / Cost of sales  (nr of days year to date)
  4985.         HS.Exp "A#R_CRED_DAYS"&C1234None&" = (A#BS_PAYABLES.W#YTD.I#[ICP Top]"&C1234Top&" / A#COST_OF_SALES.W#YTD.I#[ICP Top]"&C1234Top&") * 30.41666667 *  HS.PERIOD.NUMBER"
  4986.  
  4987.     'Cash generated as percentage of EBITDA = Cash generated from operations / Operating profit before deprec (EBITDA)
  4988.         HS.Exp "A#R_CGFO_EIBTDA.W#YTD"&C1234None&" = A#GENERATED_OPS.W#YTD.V#<Entity Curr Total>.I#[ICP Top]"&C1234Top&" / A#EBITDA"&C1234Top&".V#<Entity Curr Total>.W#YTD.I#[ICP Top])"
  4989.  
  4990.  
  4991.     'Call writetofile("ADD INFO END")
  4992.  
  4993. End Sub
  4994.  
  4995. '--------------------------------------------------------------------
  4996. '********************************************************************
  4997. 'HYPER INFLATION LOGIC
  4998. '--------------------------------------------------------------------
  4999. '********************************************************************
  5000.  
  5001. Sub HyperInflation
  5002.     'Call writetofile("HI Begin")
  5003.     EntityM = HS.Entity.member
  5004.     ValueM = HS.Value.Member
  5005.     If HS.Value.IsTransCur then
  5006.         ValueM = "Translation"
  5007.     End If
  5008.  
  5009.     Select Case ValueM
  5010.     Case "<Entity Currency>"
  5011.     'Investments will be the same as assets, but with no depr
  5012.     'After entering base assets and equity
  5013.  
  5014.     '****************************************************************
  5015.     '****************************************************************
  5016.     'PULL BS/IS TO HI TECHNICAL ACCOUNTS
  5017.     '****************************************************************
  5018.     '****************************************************************
  5019.         'Index additions and disposals = Cost additions and disposals
  5020.         'Pull Opening to Base Hyperinflated
  5021.         '------------------------------------------------------
  5022.         'PPE
  5023.         '------------------------------------------------------
  5024.             '   Call writetofile ("Doing calc for data "&HS.GetCell("A#PPE_FML_INT_ASS.C3#BV_COST_A_EXPAND.I#[ICP Top].C2#[None].C4#[None]"))
  5025.             'PPE OPENING
  5026.                 HS.Exp "A#B C Acquired.C2#LAST1.C3#[None].C4#[None] = A#PPE_FML_INT_ASS.C3#OPENING_COST.I#[ICP Top].C2#[None].C4#[None]"
  5027.  
  5028.             'PPE COST ADD & DIS
  5029.                 HS.Exp "A#B C Acquired.C2#Current.C3#[None].C4#[None] = A#PPE_FML_INT_ASS.C3#BV_COST_A_EXPAND.I#[ICP Top].C2#[None].C4#[None]"
  5030.                 HS.Exp "A#B C Disposed.C2#Current.C3#[None].C4#[None] = A#PPE_FML_INT_ASS.C3#BV_COST_DIS_COST.I#[ICP Top].C2#[None].C4#[None]"
  5031.  
  5032.         '------------------------------------------------------
  5033.         'DEPR
  5034.         '------------------------------------------------------
  5035.             'DEPR OPENING
  5036.                 HS.Exp "A#B D Acquired.C2#LAST1.C3#[None].C4#[None] = A#PPE_FML_INT_ASS.C3#OPENING_DEPR.I#[ICP Top].C2#[None].C4#[None]"
  5037.  
  5038.             'ACCDEP ADD & DIS
  5039.                 HS.Exp "A#B D Acquired.C2#Current.C3#[None].C4#[None] = A#PPE_FML_INT_ASS.C3#BV_ACCDEP_CUR_DEP.I#[ICP Top].C2#[None].C4#[None]"
  5040.                 HS.Exp "A#B D Disposed.C2#Current.C3#[None].C4#[None] = A#PPE_FML_INT_ASS.C3#BV_ACCDEP_DIS_AD.I#[ICP Top].C2#[None].C4#[None]"
  5041.  
  5042.         '------------------------------------------------------
  5043.         'SH FUND
  5044.         '------------------------------------------------------
  5045.             'SH FUND OPENING
  5046.                 HS.Exp "A#B Cap Increase.C2#LAST1.C1#[None].C3#[None].C4#[None] = A#SC_SP.C1#OPENING.I#[ICP Top].C2#[None].C4#[None].C3#[None]"
  5047.  
  5048.             'SH FUND INCREASE DECREASE
  5049.                 HS.Exp "A#B Cap Increase.C2#Current.C1#[None].C3#[None].C4#[None]  = A#SC_SP.C1#SC_ISS_TOT.I#[ICP Top].C2#[None].C4#[None].C3#[None]"
  5050.                 HS.Exp "A#B Cap Decrease.C2#Current.C1#[None].C3#[None].C4#[None]  = A#SC_SP.C1#SC_CAP_RED.I#[ICP Top].C2#[None].C4#[None].C3#[None]"
  5051.  
  5052.         '------------------------------------------------------
  5053.         'OTHER RES
  5054.         '------------------------------------------------------
  5055.             'OTHER RES OPENING
  5056.                 HS.Exp "A#B NDR Increase.C2#LAST1.C1#[None].C3#[None].C4#[None] = A#OTH_RES_TOTAL.C1#OPENING.I#[ICP Top].C2#[None].C4#[None].C3#[None]"
  5057.  
  5058.             'OTHER RESERVE INCREASE & DECREASE
  5059.                 If HS.GetCell ("A#OTH_RES_TOTAL.C1#OTH_RES_TOT") > HS.GetCell ("A#OTH_RES_TOTAL.C1#OTH_RES_TOT.P#Prior.I#[ICP Top]") Then
  5060.                     HS.Exp "A#B NDR Increase.C2#Current.C1#[None].C3#[None].C4#[None] = A#OTH_RES_TOTAL.C1#OTH_RES_TOT.I#[ICP Top].C2#[None].C4#[None].C3#[None] - A#OTH_RES_TOTAL.C1#OTH_RES_TOT.I#[ICP Top].C2#[None].C4#[None].C3#[None].P#Prior"
  5061.                 Else
  5062.                     HS.Exp "A#B NDR Decrease.C2#Current.C1#[None].C3#[None].C4#[None] = A#OTH_RES_TOTAL.C1#OTH_RES_TOT.I#[ICP Top].C2#[None].C4#[None].C3#[None] - A#OTH_RES_TOTAL.C1#OTH_RES_TOT.I#[ICP Top].C2#[None].C4#[None].C3#[None].P#Prior"
  5063.                 End If
  5064.  
  5065.         '------------------------------------------------------
  5066.         'INVENTORY
  5067.         '------------------------------------------------------
  5068.             'INVENTORY INCREASE
  5069.                 HS.Exp "A#Base Stock Cost.C2#Current.C1#[None].C3#[None].C4#[None] = A#CUR_ASS_INVEN_TOT.C1#INVEN_PROV_MOV_INC.C2#[None].C4#[None].C3#[None].I#[ICP Top]"
  5070.  
  5071.         '------------------------------------------------------
  5072.         'REVENUE
  5073.         '------------------------------------------------------
  5074.             HS.Exp "A#REVENUE_HI = A#REVENUE.I#[ICP Top]"
  5075.  
  5076.     '****************************************************************
  5077.     '****************************************************************
  5078.     'Calculating with factors
  5079.     '****************************************************************
  5080.     '****************************************************************
  5081.  
  5082.                 'HS.Exp "A#I C Acquired.C2#Current"&C34None&" = A#B C Acquired.C2#Current.I#[ICP Top]"&C34Top&" * A#Monthly Factor.C2#Current"&C34Top&".E#[None].I#[ICP Top]"
  5083.                 HS.Exp "A#I C Acquired.C2#Current = A#B C Acquired.I#[ICP Top].C2#Current * A#Monthly Factor.C2#Current.I#[ICP Top].E#[None]"
  5084.                 HS.Exp "A#I C Disposed = A#B C Disposed * A#Disposal Factor.C1#[None].E#[None]"
  5085.                 'HS.Exp "A#I C Disposed"&C34None&" = A#B C Disposed.I#[ICP Top]"&C34Top&" * A#Disposal Factor"&C1234Top&".I#[ICP Top].E#[None]"
  5086.             'Call writetofile("Inflate ="&HS.GetCell("A#Inflate COst.C2#Current.C2#PPE"))
  5087.             'Call writetofile("Factor ="&HS.GetCell("A#Depreciation Factor.C2#Current.C2#PPE"))
  5088.                 'HS.Exp "A#I D Acquired.C2#Current"&C34None&" = A#Inflate Cost.C2#Hyperinflated.I#[ICP Top]"&C34Top&" * A#Depreciation Factor.I#[ICP Top]"&C234Top
  5089.                 HS.Exp "A#I D Acquired.C2#Current = A#B D Acquired.I#[ICP Top].C2#Current * A#Depreciation Factor.C2#Current.I#[ICP Top].E#[None]"
  5090.                 HS.Exp "A#I D Disposed = A#B D Disposed * A#Disposal Factor.C1#[None].E#[None]"
  5091.  
  5092.                 'HS.Exp "A#Inflated Stock Cost"&C134None&" = A#Base Stock Cost.I#[ICP Top]"&C1234Top&" * A#Stock Factor"&C1234Top&".E#[None].I#[ICP Top]"
  5093.                 HS.Exp "A#Inflated Stock Cost = A#Base Stock Cost * A#Stock Factor.C1#[None].E#[None]"
  5094.  
  5095.                 'HS.Exp "A#I Cap Increase.C2#Current"&C134None&" = A#B Cap Increase.C2#Current.I#[ICP Top]"&C134Top&" * A#Monthly Factor.C2#Current"&C34Top&".E#[None].I#[ICP Top]"
  5096.                 HS.Exp "A#I Cap Increase.C2#Current = A#B Cap Increase.I#[ICP Top].C2#Current * A#Monthly Factor.C2#Current.I#[ICP Top].E#[None]"
  5097.                 HS.Exp "A#I Cap Decrease = A#B Cap Decrease * A#Cap Disp Factor.C1#[None].E#[None]"
  5098.                 'HS.Exp "A#I NDR Increase.C2#Current"&C134None&" = A#B NDR Increase.C2#Current.I#[ICP Top] * A#Monthly Factor.C2#Current"&C134Top&".E#[None].I#[ICP Top]"
  5099.                 HS.Exp "A#I NDR Increase.C2#Current = A#B NDR Increase.I#[ICP Top].C2#Current * A#Monthly Factor.C2#Current.I#[ICP Top].E#[None]"
  5100.                 HS.Exp "A#I NDR Decrease = A#B NDR Decrease * A#NDR Disp Factor.C1#[None].E#[None]"
  5101.                 HS.Exp "A#Inflated Proceeds.C1#[None].C2#[None] = A#Base Proceeds.C1#[None].C2#[None] * A#Proceeds Factor.C2#Current.C1#[None].E#[None]"
  5102.  
  5103. '           'Apply the monthly factor to the base cost acquired
  5104.             'monthly factor should be unique to Opening balances, and cannot be used in general
  5105.  
  5106. '               HS.Exp "A#I C Acquired.C2#Current"&C34None&" = A#B C Acquired.C2#Current.I#[ICP Top]"&C34Top&" * A#Monthly Factor.C2#Current"&C34Top&".E#[None].I#[ICP Top]"
  5107. '               HS.Exp "A#I C Disposed"&C34None&" = A#B C Disposed.I#[ICP Top]"&C34Top&" * A#Disposal Factor"&C34Top&".E#[None].I#[ICP Top]"
  5108. '           'Call writetofile("Inflate ="&HS.GetCell("A#Inflate COst.C2#Current.C2#PPE"))
  5109. '           'Call writetofile("Factor ="&HS.GetCell("A#Depreciation Factor.C2#Current.C2#PPE"))
  5110. '               HS.Exp "A#I D Acquired.C2#Current"&C34None&" = A#Inflate Cost.C2#Hyperinflated.I#[ICP Top]"&C34Top&" * A#Depreciation Factor.I#[ICP Top]"&C234Top
  5111. '               HS.Exp "A#I D Disposed"&C34None&" = A#B D Disposed.I#[ICP Top]"&C1234Top&" * A#Disposal Factor"&C1234Top&".E#[None].I#[ICP Top]"
  5112. '               HS.Exp "A#Inflated Stock Cost.C2#Current"&C134None&" = A#Base Stock Cost.I#[ICP Top]"&C1234Top&" * A#Stock Factor"&C1234Top&".E#[None].I#[ICP Top]"
  5113. '
  5114. '               HS.Exp "A#I Cap Increase.C2#Current"&C134None&" = A#B Cap Increase.C2#Current.I#[ICP Top]"&C134Top&" * A#Monthly Factor.C2#Current"&C34Top&".E#[None].I#[ICP Top]"
  5115. '               HS.Exp "A#I Cap Decrease"&C34None&" = A#B Cap Decrease.I#[ICP Top]"&C34Top&" * A#Cap Disp Factor"&C34Top&".E#[None].I#[ICP Top]"
  5116. '               HS.Exp "A#I NDR Increase.C2#Current"&C134None&" = A#B NDR Increase.C2#Current.I#[ICP Top] * A#Monthly Factor.C2#Current"&C34Top&".E#[None].I#[ICP Top]"
  5117. '               HS.Exp "A#I NDR Decrease"&C34None&" = A#B NDR Decrease.I#[ICP Top]"&C34Top&" * A#NDR Disp Factor"&C34Top&".E#[None].I#[ICP Top]"
  5118. '               HS.Exp "A#Inflated Proceeds"&C34None&" = A#Base Proceeds"&C34Top&".I#[ICP Top] * A#Proceeds Factor.C2#Current"&C34Top&".E#[None].I#[ICP Top]"
  5119. '
  5120.     Case "Translation"
  5121.             'the following will execute the hyperinflation rules based on the entity UD1
  5122.             'the following will inflate the IS accounts with UD HyperInflate @ the average index
  5123.  
  5124.                 If hs.entity.ud1("") = "HYP" Then
  5125.                     Set DataUnit = HS.OpenDataUnit("")
  5126.                     NumItems = DataUnit.GetNumItems
  5127.                     For item_loop = 0 To NumItems - 1
  5128.                     Call DataUnit.GetItem(Item_Loop, Account, ICP, Custom1, Custom2, Custom3, Custom4, Data)
  5129.  
  5130.                     '*******REVENUE HYPERINFLATE IN IS???
  5131.                         If HS.Account.IsDescendant("INCOME_STATEMENT",Account) Then
  5132.                             'Call writetofile("ACC")
  5133.                             hs.exp "A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&" = A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".V#<Entity Currency> * A#Monthly Factor.C2#Current"&C134Top&".I#[ICP Top].E#[None]"
  5134.                             'All BS accounts go at 1
  5135.                         End If
  5136.                         If HS.Account.IsDescendant("BALANCE_SHEET",Account) Then
  5137.                             'Call writetofile("ACC")
  5138.                             hs.exp "A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&" = A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".V#<Entity Currency> * 1"
  5139.                             'All BS accounts go at 1
  5140.                         End If
  5141.                     next
  5142.  
  5143.             '           Call writetofile("Calculating "&HS.Value.Member)
  5144.  
  5145.                 '****************************************************************
  5146.                 '****************************************************************
  5147.                 'PUSH BACK TO BS/IS FROM TECHNICAL ACCOUNT
  5148.                 '****************************************************************
  5149.                 '****************************************************************
  5150.  
  5151.                     '------------------------------------------------------
  5152.                     'PPE
  5153.                     '------------------------------------------------------
  5154.                     'PPE OPENING
  5155.                         HS.Exp "A#PPE_FML_INT_ASS.C3#BV_COST_HI.C2#[None].C4#[None] = A#I C Acquired.C2#LAST1.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5156.  
  5157.                     'PPE COST ADD & DIS
  5158.                         HS.Exp "A#PPE_FML_INT_ASS.C3#BV_COST_EXP_HI.C2#[None].C4#[None] = A#I C Acquired.C2#Current.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5159.                         HS.Exp "A#PPE_FML_INT_ASS.C3#BV_COST_DIS_HI.C2#[None].C4#[None] = A#I C Disposed.C2#Current.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5160.  
  5161.                     '------------------------------------------------------
  5162.                     'DEPR
  5163.                     '------------------------------------------------------
  5164.                     'DEPR OPENING
  5165.                         HS.Exp "A#PPE_FML_INT_ASS.C3#BV_ACCDEP_HI.C2#[None].C4#[None] = A#I D Acquired.C2#LAST1.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5166.  
  5167.                     'ACCDEP ADD & DIS
  5168.                         HS.Exp "A#PPE_FML_INT_ASS.C3#BV_ACCDEP_EXP_HI.C2#[None].C4#[None] = A#I D Acquired.C2#Current.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5169.                         HS.Exp "A#PPE_FML_INT_ASS.C3#BV_ACCDEP_DIS_HI.C2#[None].C4#[None] = A#I D Disposed.C2#Current.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5170.  
  5171.                     '------------------------------------------------------
  5172.                     'SH FUND
  5173.                     '------------------------------------------------------
  5174.                     'SH FUND OPENING
  5175.                         HS.Exp "A#SC_SP_HI.C1#SC_OPEN_HI.C2#[None] = A#I Cap Increase.C2#LAST1.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5176.  
  5177.                     'SH FUND INCREASE DECREASE
  5178.                         HS.Exp "A#SC_SP_HI.C1#SC_RED_HI.C2#[None] = A#I Cap Increase.C2#Current.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5179.                         HS.Exp "A#SC_SP_HI.C1#SC_CAP_RED.C2#[None] = A#I Cap Decrease.C2#Current.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5180.  
  5181.                     '------------------------------------------------------
  5182.                     'OTHER RES
  5183.                     '------------------------------------------------------
  5184.                     'OTHER RES OPENING
  5185.                         HS.Exp "A#OTH_RES_HI.C1#OPENING_HI.C2#[None] = A#I NDR Increase.C2#LAST1.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5186.  
  5187.                     'OTHER RESERVE INCREASE & DECREASE
  5188.                         HS.Exp "A#OTH_RES_HI.C1#OTH_RES_HI_INC.C2#[None] = A#I NDR Increase.C2#Current.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5189.                         HS.Exp "A#OTH_RES_HI.C1#OTH_RES_HI_DEC.C2#[None] = A#I NDR Decrease.C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5190.  
  5191.                     '------------------------------------------------------
  5192.                     'INVENTORY
  5193.                     '------------------------------------------------------
  5194.                     'INVENTORY INCREASE
  5195.                         HS.Exp "A#INVEN_HI.C1#INVEN_PROV_MOV_HI.C2#[None] = A#Base Stock Cost.C2#Current.I#[ICP Top].C3#[None].C4#[None].I#[ICP Top].V#<Entity Currency>"
  5196.  
  5197.  
  5198.  
  5199.                     '------------------------------------------------------
  5200.                     'REVENUE
  5201.                     '------------------------------------------------------
  5202.                         HS.Exp "A#REVENUE = A#REVENUE_HI"
  5203.  
  5204.  
  5205.  
  5206.  
  5207.  
  5208.             '       'This must be calculated with Zelda's app
  5209.             '           'HS.Exp "A#Total Proceeds = A#ASS_DIS_PRO_FML + A#ASS_DIS_PRO_INT + A#ASS_DIS_PRO_PPE"
  5210.             '
  5211.                         HS.Exp "A#Prof or Los on Disp = A#Inflated Proceeds.V#<Entity Currency>.I#[ICP Top] -"& _
  5212.                         "(A#I C Disposed.C2#Current.C2#Total Custom 2.V#<Entity Currency>.I#[ICP Top] - A#I D Disposed.C2#Current.C2#Total Custom 2.V#<Entity Currency>.I#[ICP Top])"
  5213.  
  5214.  
  5215.  
  5216.             '   Elseif hs.entity.ud1("") = "TRANS" then
  5217.             '       Call writetofile("HI END")
  5218.             '
  5219.             '
  5220.                 End If
  5221.     '
  5222.     'Call writetofile("HI Done")
  5223.     End Select
  5224.  
  5225.     ''*****************************************************************
  5226.     ''Recalculate - Closing Balance is equal to Open Balance plus Movement
  5227.     ''****************************************************************
  5228.         'HS.Exp "C3#CLOSING_COST = C3#OpeningC + C3#MovementC"
  5229.     'HS.Exp "C3#ClosingD = C3#OpeningD + C3#MovementD"
  5230.  
  5231.  
  5232. End Sub
  5233.  
  5234.  
  5235. Sub IndexHI
  5236.     '(1)    To be calculated after Custom 1 [None] CPI's have been entered
  5237.  
  5238.     'Monthly factor
  5239.     HS.Exp "A#Monthly Factor.C2#Current"&C134None&" = A#Reporting CPI"&C1234Top&".I#[ICP Top].E#[None] / A#Monthly CPI.E#[None]"&C1234Top&".I#[ICP Top]"
  5240.  
  5241.     'Disposal factor
  5242.     HS.Exp "A#Disposal Factor.C2#Current"&C134None&" = A#Disposed CPI"&C1234Top&".I#[ICP Top].E#[None] / A#Acquired CPI.E#[None]"&C1234Top&".I#[ICP Top]"
  5243.  
  5244.     'Proceeds factor
  5245.     HS.Exp "A#Proceeds Factor.C2#Current"&C134None&" = A#Reporting CPI"&C1234Top&".I#[ICP Top].E#[None] / A#Disposed CPI.E#[None]"&C1234Top&".I#[ICP Top]"
  5246.  
  5247.     'Stock factor
  5248.     HS.Exp "A#Stock Factor.C2#Current"&C134None&" = A#Reporting CPI"&C1234Top&".I#[ICP Top].E#[None] / A#Stock CPI.E#[None]"&C1234Top&".I#[ICP Top]"
  5249.  
  5250.     'NDR Disp factor
  5251.     HS.Exp "A#NDR Disp Factor.C2#Current"&C134None&" = A#NDR Decrease CPI"&C1234Top&".I#[ICP Top].E#[None] / A#NDR Acquired CPI.E#[None]"&C1234Top&".I#[ICP Top]"
  5252.  
  5253.     'Cap Disp factor
  5254.     HS.Exp "A#Cap Disp Factor.C2#Current"&C134None&" = A#Cap Decrease CPI"&C1234Top&".I#[ICP Top].E#[None] / A#Cap Acquired CPI.E#[None]"&C1234Top&".I#[ICP Top]"
  5255.  
  5256.     'Depreciation factor
  5257.     HS.Exp "A#Depreciation Factor.C2#Current"&C34None&" = A#Assets.C3#BV_ACCDEP_CUR_DEP"&C24Top&".I#[ICP Top] / A#Assets.C3#CLOSING_COST"&C24Top&".I#[ICP Top]"
  5258.  
  5259. End Sub
  5260.  
  5261.  
  5262. Sub Translate
  5263.     'this will create a FCTR for the cashflow based on the average rate and not the end of month rate
  5264.  
  5265.     'T r a d e   d e b t o r s   F C T R   c a l c
  5266.         'Put Translated opening balance in FCTR
  5267.         Hs.Trans "A#WCM_TR_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TR_RC.C1#OPENING.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#OPENINGRATE"
  5268.         'Opening balance is done further down, as part of a loop
  5269.  
  5270.         'Put movements in FCTR at average rate
  5271.         HS.trans "A#WCM_TR_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TR_RC.C1#WCM_RC_OTHER_NC_MV.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5272.         HS.trans "A#WCM_TR_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TR_RC.C1#WCM_RC_FX_GAIN_LOSS.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5273.         HS.trans "A#WCM_TR_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TR_RC.C1#WCM_RC_HI_ADJ.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5274.         HS.trans "A#WCM_TR_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TR_RC.C1#WCM_RC_SUB_BUS_ACQ.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5275.         HS.trans "A#WCM_TR_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TR_RC.C1#WCM_RC_SUB_BUS_DISP.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5276.         HS.trans "A#WCM_TR_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TR_RC.C1#WCM_RC_BAD_D_WO.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5277.  
  5278.         'Put translated closing balance in FCTR
  5279.         HS.trans "A#WCM_TR_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TR_RC.C1#WCM_CLOSING.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#ENDOFMONTHRATE"
  5280.  
  5281.         'Put fctr on cashflow movement in FCTR account
  5282.         HS.trans "A#WCM_TR_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TR_RC.C1#WCM_RC_TOT.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5283.  
  5284.     'B a d   d e b t   m o v e m e n t s
  5285.         HS.trans "A#DEB_TR_PR_BD_MOV_INC.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEB_TR_PR_BD_MOV_INC.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5286.         HS.trans "A#DEB_TR_PR_BD_MOV_REV.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEB_TR_PR_BD_MOV_REV.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5287.         HS.trans "A#DEB_TR_PR_BD_MOV_UTI.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEB_TR_PR_BD_MOV_UTI.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5288.         HS.trans "A#DEB_TR_PR_BD_SUB_ACQ.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEB_TR_PR_BD_SUB_ACQ.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5289.         HS.trans "A#DEB_TR_PR_BD_SUB_DIS.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEB_TR_PR_BD_SUB_DIS.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5290.  
  5291.     'Sundry debtors provisions  m o v e m e n t s
  5292.         HS.trans "A#DEB_S_ST_PR_MOV_INC.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEB_S_ST_PR_MOV_INC.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5293.         HS.trans "A#DEB_S_ST_PR_MOV_REV.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEB_S_ST_PR_MOV_REV.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5294.         HS.trans "A#DEB_S_ST_PR_MOV_UTI.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEB_S_ST_PR_MOV_UTI.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5295.         HS.trans "A#DEB_S_ST_PR_SUB_ACQ.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEB_S_ST_PR_SUB_ACQ.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5296.         HS.trans "A#DEB_S_ST_PR_SUB_DIS.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEB_S_ST_PR_SUB_DIS.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5297.         HS.trans "A#DEB_S_ST_PR_ACPOL.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEB_S_ST_PR_ACPOL.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#OPENINGRATE",""
  5298.  
  5299.  
  5300.     'S u n d r y   D e b t o r s  F C T R   c a l c
  5301.     'Lines removed 26 October 2007
  5302.         'HS.Clear "AWCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]"
  5303.         'HS.Trans "A#WCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_S_RC.C1#Opening.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE","A#OPENINGRATE"
  5304.         'HS.Trans "A#WCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_S_RC.C1#WCM_Closing.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE","A#ENDOFMONTHRATE"
  5305.  
  5306.         'Put Translated opening balance in FCTR
  5307.         Hs.Trans "A#WCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_S_RC.C1#OPENING.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#OPENINGRATE"
  5308.         'Opening balance is done further down, as part of a loop
  5309.  
  5310.         'Put movements in FCTR at average rate
  5311.         HS.trans "A#WCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]", "A#WCM_S_RC.C1#WCM_RC_OTHER_NC_MV.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5312.         HS.trans "A#WCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_S_RC.C1#WCM_RC_FX_GAIN_LOSS.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5313.         HS.trans "A#WCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_S_RC.C1#WCM_RC_HI_ADJ.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5314.         HS.trans "A#WCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_S_RC.C1#WCM_RC_SUB_BUS_ACQ.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5315.         HS.trans "A#WCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_S_RC.C1#WCM_RC_SUB_BUS_DISP.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5316.         HS.trans "A#WCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_S_RC.C1#WCM_RC_BAD_D_WO.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5317.  
  5318.         'Put translated closing balance in FCTR
  5319.         HS.trans "A#WCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_S_RC.C1#WCM_CLOSING.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#ENDOFMONTHRATE"
  5320.  
  5321.         HS.trans "A#WCM_S_RC.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_S_RC.C1#WCM_RC_TOT.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5322.  
  5323.     'I n v e n t o r y   F C T R   c a l c
  5324.         'Put Translated opening balance in FCTR
  5325.         Hs.Trans "A#WCM_INV_MOV.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_INV_MOV.C1#OPENING.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#OPENINGRATE"
  5326.         'Opening balance is done further down, as part of a loop
  5327.  
  5328.         'Put movements in FCTR at average rate
  5329.         HS.trans "A#WCM_INV_MOV.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]", "A#WCM_INV_MOV.C1#WCM_RC_OTHER_NC_MV.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5330.         HS.trans "A#WCM_INV_MOV.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_INV_MOV.C1#WCM_RC_FX_GAIN_LOSS.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5331.         HS.trans "A#WCM_INV_MOV.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_INV_MOV.C1#WCM_RC_HI_ADJ.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5332.         HS.trans "A#WCM_INV_MOV.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_INV_MOV.C1#WCM_RC_SUB_BUS_ACQ.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5333.         HS.trans "A#WCM_INV_MOV.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_INV_MOV.C1#WCM_RC_SUB_BUS_DISP.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5334.         HS.trans "A#WCM_INV_MOV.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_INV_MOV.C1#WCM_RC_BAD_D_WO.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5335.  
  5336.         'Put translated closing balance in FCTR
  5337.         HS.trans "A#WCM_INV_MOV.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_INV_MOV.C1#WCM_CLOSING.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#ENDOFMONTHRATE"
  5338.         HS.trans "A#WCM_INV_MOV.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_INV_MOV.C1#WCM_RC_TOT.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5339.  
  5340.  
  5341.     'T r a d e   p a y a b l e s   F C T R   c a l c
  5342.         'Put Translated opening balance in FCTR
  5343.         Hs.Trans "A#WCM_TPAY.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TPAY.C1#OPENING.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#OPENINGRATE"
  5344.         'Opening balance is done further down, as part of a loop
  5345.  
  5346.         'Put movements in FCTR at average rate
  5347.         HS.trans "A#WCM_TPAY.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]", "A#WCM_TPAY.C1#WCM_RC_OTHER_NC_MV.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5348.         HS.trans "A#WCM_TPAY.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TPAY.C1#WCM_RC_FX_GAIN_LOSS.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5349.         HS.trans "A#WCM_TPAY.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TPAY.C1#WCM_RC_HI_ADJ.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5350.         HS.trans "A#WCM_TPAY.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TPAY.C1#WCM_RC_SUB_BUS_ACQ.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5351.         HS.trans "A#WCM_TPAY.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TPAY.C1#WCM_RC_SUB_BUS_DISP.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5352.         HS.trans "A#WCM_TPAY.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TPAY.C1#WCM_RC_BAD_D_WO.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5353.  
  5354.         'Put translated closing balance in FCTR
  5355.         HS.trans "A#WCM_TPAY.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TPAY.C1#WCM_CLOSING.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#ENDOFMONTHRATE"
  5356.         HS.trans "A#WCM_TPAY.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_TPAY.C1#WCM_RC_TOT.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5357.  
  5358.  
  5359.     'O t h e r   p a y a b l e s   F C T R   c a l c
  5360.         'Put Translated opening balance in FCTR
  5361.         Hs.Trans "A#WCM_PAY_OTH.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_PAY_OTH.C1#OPENING.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#OPENINGRATE"
  5362.         'Opening balance is done further down, as part of a loop
  5363.  
  5364.         'Put movements in FCTR at average rate
  5365.         HS.trans "A#WCM_PAY_OTH.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]", "A#WCM_PAY_OTH.C1#WCM_RC_OTHER_NC_MV.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5366.         HS.trans "A#WCM_PAY_OTH.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_PAY_OTH.C1#WCM_RC_FX_GAIN_LOSS.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5367.         HS.trans "A#WCM_PAY_OTH.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_PAY_OTH.C1#WCM_RC_HI_ADJ.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5368.         HS.trans "A#WCM_PAY_OTH.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_PAY_OTH.C1#WCM_RC_SUB_BUS_ACQ.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5369.         HS.trans "A#WCM_PAY_OTH.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_PAY_OTH.C1#WCM_RC_SUB_BUS_DISP.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5370.         HS.trans "A#WCM_PAY_OTH.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_PAY_OTH.C1#WCM_RC_BAD_D_WO.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5371.  
  5372.         'Put translated closing balance in FCTR
  5373.         HS.trans "A#WCM_PAY_OTH.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_PAY_OTH.C1#WCM_CLOSING.C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#ENDOFMONTHRATE"
  5374.         HS.trans "A#WCM_PAY_OTH.C1#FCTR.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#WCM_PAY_OTH.C1#WCM_RC_TOT.C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5375.  
  5376.  
  5377.     'F i n a n c i n g   a c t i v i t i e s
  5378.         'this will create a FCTR for the cashflow financing activities
  5379.  
  5380.     'I n t e r g r o u p   l o a n s
  5381.         'Opening balances in FCTR and Opening balances in parent currency opening balances
  5382.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_OPEN.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#OPENINGRATE"
  5383.         'Hs.Trans "A#FA_INTRGRP_OPEN_EQ.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_OPEN_EQ.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#OPENINGRATE",""
  5384.         'Hs.Trans "A#FA_INTRGRP_OPEN_CAP.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_OPEN_CAP.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#OPENINGRATE",""
  5385.         'Hs.Trans "A#FA_INTRGRP_OPEN_FROM.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_OPEN_FROM.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#OPENINGRATE",""
  5386.         'Hs.Trans "A#FA_INTRGRP_OPEN_TO.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_OPEN_TO.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#OPENINGRATE",""
  5387.         'Hs.Trans "A#FA_INTRGRP_OPEN_PLG.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_OPEN_PLG.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#OPENINGRATE",""
  5388.  
  5389.  
  5390.         'Movements
  5391.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AP_OTH_MV_TOT.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5392.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_CAP.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5393.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_FX_REV.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5394.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_IMP.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5395.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_SUB_ACQ.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5396.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_SUB_DIS.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5397.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_TRF.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5398.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_OTH.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5399.         'Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_IGPFAPLUG.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5400.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_NC_DECR_GRP_LOAN.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5401.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#AVERAGERATE"
  5402.  
  5403.         'Cashflow movement
  5404.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_LN.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5405.  
  5406.         'Closing balances
  5407.         Hs.Trans "A#FA_FCTR.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#FA_INTRGRP_CLOS.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","","A#ENDOFMONTHRATE"
  5408.  
  5409.  
  5410.         'Sub acq disp accounts not translating properly in Cashflow statement
  5411.         HS.TRANS "A#DEF_TAX_A_SUB_ACQ.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#DEF_TAX_A_SUB_ACQ.C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#AVERAGERATE",""
  5412.  
  5413.  
  5414.         YearM = HS.Year.Member
  5415.         EntityM = HS.Entity.Member
  5416.         Set DataUnit = HS.OpenDataUnit("E#"&EntityM)
  5417.         NumItems = DataUnit.GetNumItems
  5418.         For item_loop = 0 To NumItems - 1
  5419.             Call DataUnit.GetItem(Item_Loop, Account, ICP, Custom1, Custom2, Custom3, Custom4, Data)
  5420.             If Data <> 0 Then
  5421.     '           Call writetofile("in loop")
  5422.                 ' Translations for the Custom 1 and 3 Movements accounts using the average rate
  5423.                     If HS.Custom1.IsDescendant("MOVEMENTS", Custom1) Then
  5424.                         HS.Trans "A#"&Account&".C1#"&Custom1&".V#"&Value&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5425.                     ElseIf HS.Custom3.IsDescendant("MOVEMENTS_COST", Custom3) Then
  5426.                         HS.Trans "A#"&Account&".C1#"&Custom1&".V#"&Value&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5427.                     ElseIf HS.Custom3.IsDescendant("MOVEMENTS_DEPR", Custom3) Then
  5428.                         HS.Trans "A#"&Account&".C1#"&Custom1&".V#"&Value&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5429.                     ElseIf HS.Custom1.IsDescendant("INVEN_PROV_MOV_TOT", Custom1) Then
  5430.                         HS.Trans "A#"&Account&".C1#"&Custom1&".V#"&Value&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5431.  
  5432.                 'Translations for the Custom 1 and 3 Change in Accounting Policy accounts  using the end of month rate of the prior year last month
  5433.                     ElseIf Custom3 = "BV_COST_ACPOL" Then
  5434.                         HS.Trans "A#"&Account&".C1#"&Custom1&".V#"&Value&".C2#"&Custom2&".C3#BV_COST_ACPOL.C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#BV_COST_ACPOL.C4#"&Custom4&".I#"&ICP,"A#OPENINGRATE",""
  5435.                     ElseIf Custom3 = "BV_ACCDEP_ACPOL" Then
  5436.                         HS.Trans "A#"&Account&".C1#"&Custom1&".V#"&Value&".C2#"&Custom2&".C3#BV_ACCDEP_ACPOL.C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#BV_ACCDEP_ACPOL.C4#"&Custom4&".I#"&ICP,"A#OPENINGRATE",""
  5437.                     ElseIf Custom3 = "BV_ACCDEP_ACPOL" Then
  5438.                         HS.Trans "A#"&Account&".C1#"&Custom1&".V#"&Value&".C2#"&Custom2&".C3#BV_ACCDEP_ACPOL.C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#BV_ACCDEP_ACPOL.C4#"&Custom4&".I#"&ICP,"A#OPENINGRATE",""
  5439.                     ElseIf Custom3 = "OPENING_COST" Then
  5440.                         HS.Trans "A#"&Account&".C1#"&Custom1&".V#"&Value&".C2#"&Custom2&".C3#OPENING_COST.C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#OPENING_COST.C4#"&Custom4&".I#"&ICP,"A#OPENINGRATE",""
  5441.                     ElseIf Custom3 = "OPENING_DEPR" Then
  5442.                         HS.Trans "A#"&Account&".C1#"&Custom1&".V#"&Value&".C2#"&Custom2&".C3#OPENING_DEPR.C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#OPENING_DEPR.C4#"&Custom4&".I#"&ICP,"A#OPENINGRATE",""
  5443.                     ElseIf Custom1 = "INVEN_GROSS" Then
  5444.                         HS.Trans "A#"&Account&".C1#INVEN_GROSS.V#"&Value&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#INVEN_GROSS.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#ENDOFMONTHRATE",""
  5445.  
  5446.                 'PPE closing balance
  5447.                     ElseIf Custom3 = "Closing_Cost" then
  5448.                         HS.Trans "A#"&Account&".C1#"&Custom1&".V#"&Value&".C2#"&Custom2&".C3#Closing_Cost.C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#Closing_Cost.C4#"&Custom4&".I#"&ICP,"A#ENDOFMONTHRATE",""
  5449.                     ElseIf Custom3 = "Closing_Depr" then
  5450.                         HS.Trans "A#"&Account&".C1#"&Custom1&".V#"&Value&".C2#"&Custom2&".C3#Closing_Depr.C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#Closing_Depr.C4#"&Custom4&".I#"&ICP,"A#ENDOFMONTHRATE",""
  5451.                     ElseIf Custom1 = "CLOSING_PROV" then
  5452.                         HS.Trans "A#"&Account&".C1#CLOSING_PROV.V#"&Value&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#CLOSING_PROV.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#ENDOFMONTHRATE",""
  5453.                 'Translation for C1 Closing Balances
  5454.                     ElseIf Custom1 = "Closing" then
  5455.                         HS.Trans "A#"&Account&".C1#CLOSING.V#"&Value&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".C1#CLOSING.C2#"&Custom2&".V#"&Value&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#ENDOFMONTHRATE",""
  5456.                     ElseIf Custom1 = "WCM_CLOSING" then
  5457.                         HS.Trans "A#"&Account&".C1#WCM_CLOSING.V#"&Value&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".C1#WCM_CLOSING.V#"&Value&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#ENDOFMONTHRATE",""
  5458.  
  5459.                     End If
  5460.  
  5461.  
  5462.                 'Closing Balances for Assets and Liab without Customs: + Cashflow opening and closing balances
  5463.                     Select Case Account
  5464.                         Case "DEB_TR_PR_BD_CL" , "DEB_S_ST_PR_CL" , "INV_ASS_CL" , "INV_S_JV_CL" , "GW_COST_CL" , "GW_ACCDEP_CL" , "NONCUR_RC_CLOSE" , "TAX_CL" , "SFD_CL" , "MIN_CL"
  5465.                             HS.Trans "A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#ENDOFMONTHRATE",""
  5466.                         'This will translate the cash opening balance at the opeining rate
  5467.                         Case "BEGIN_CASH_EQ"
  5468.                             HS.Trans "A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#OPENINGRATE",""
  5469.                         Case "END_CASH_EQ"
  5470.                             HS.Trans "A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#ENDOFMONTHRATE",""
  5471.                         Case "FA_INTRGRP_CLOS_CAP","FA_INTRGRP_CLOS_EQ","FA_INTRGRP_CLOS_FROM","FA_INTRGRP_CLOS_TO","FA_INTRGRP_CLOS_PLG"
  5472.                             HS.Trans "A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#ENDOFMONTHRATE",""
  5473.                         Case "FA_INTRGRP_OPEN_CAP","FA_INTRGRP_OPEN_EQ","FA_INTRGRP_OPEN_FROM","FA_INTRGRP_OPEN_TO","FA_INTRGRP_OPEN_PLG"
  5474.                             HS.Trans "A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#OPENINGRATE",""
  5475.                     End Select
  5476.  
  5477.                     'Translations for accounts (OPENING and ACPOL) at end of month rate which do not have Custom 1 and 3 Movements attached to it
  5478.                     FCTR_UD3 = HS.Account.UD3("")
  5479.                     Select Case Account
  5480.                         Case "INV_ASS_ACPOL","INV_S_JV_ACPOL","GW_COST_ACPOL","GW_ACCDEP_ACPOL","MIN_ACPOL","DEF_TAX_A_ACPOL","MIN_ACPOL","DEB_TR_PR_BD_OPEN","DEB_S_ST_PR_OPEN","INV_ASS_OPEN","INV_S_JV_OPEN","GW_COST_OPEN","GW_ACCDEP_OPEN","NONCUR_RC_OPEN","SFD_OPEN","TAX_OPEN","MIN_OPEN","DEF_TAX_A_OPEN"
  5481.                         '   Call writetofile("1) writing from "&account&" to account "&FCTR_UD3&" for the amount of "&data)
  5482.                             HS.Trans "A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#OPENINGRATE",""
  5483. '                           HS.Trans "A#"&FCTR_UD3&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#OPENINGRATE","A#ENDOFMONTHRATE"
  5484.                         Case Else
  5485.                     'This will create the FCTR from the movements section. The movements all have their FCTR account set as a UD3
  5486.                         If FCTR_UD3 <> "1" Then
  5487.                     '       Call writetofile("2) writing from "&account&" to account "&FCTR_UD3&" for the amount of "&data)
  5488.  
  5489.  
  5490.  
  5491.                             '***************************************
  5492.                             '***************************************
  5493.                             '***************************************
  5494.                             '***************************************
  5495.                             'HS.Trans "A#"&FCTR_UD3&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5496.                             'Added by Riaan on the 11 July 2006 to fix consolidation error
  5497.  
  5498.                             Select Case Account
  5499.                             'for fctr accounts with a custom attached - Change done by ZS 25/07/07 - Translation of movement where movement is on Account dimension
  5500.                             'GW average translation also added
  5501.                             Case "NONCUR_RC_ACQ","NONCUR_RC_DIS","NONCUR_RC_DIV","NONCUR_RC_FVADJ_EQ","NONCUR_RC_FVADJ_IS","NONCUR_RC_INC_INV","NONCUR_RC_LOAN_GRANT","NONCUR_RC_LOAN_REPD","NONCUR_RC_OPEN","NONCUR_RC_SUB_BU_ACQ","NONCUR_RC_SUB_BU_DIS","GW_COST_BU_ACQ","GW_COST_BU_DIS","GW_ACCDEP_BU_DIS","GW_ACCDEP_IMPAIR","INV_ASS_SUB_ACQ","INV_ASS_SUB_DIS","INV_ASS_DIV_RC","INV_ASS_EQ_MOV","INV_ASS_INT_ACQ","INV_ASS_INT_DIS_BV","INV_ASS_INCOME_IS"
  5502.                                 HS.Trans "A#"&FCTR_UD3&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5503.                                 HS.Trans "A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5504.                             Case "NONCUR_RC_IMPAIRMENT"
  5505.                                 HS.Trans "A#"&FCTR_UD3&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#[None].C4#[None].I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5506.                                 HS.Trans "A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5507.                             Case else   'for fctr accounts without a custom attached
  5508.                                 HS.Trans "A#"&FCTR_UD3&".V#"&Value&".C1#[None].C2#[None].C3#[None].C4#[None].I#[ICP None]","A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5509.                                 'HS.Trans "A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5510.                             End Select
  5511.  
  5512.             '           Elseif
  5513.             '               HS.Trans "A#"&Account&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AVERAGERATE",""
  5514.                         End if
  5515.                     End Select
  5516.  
  5517.                 'This will translate the historic opening balances for all accounts with these UD3. UD3 is also equal to their respective rate
  5518.                 'Call writetofile (FCTR_UD3)
  5519.                 '!!!! This if used for ACCOUNT UD's
  5520.                 FCTR_UD2 = HS.Account.UD2("")
  5521.                 Select Case FCTR_UD2
  5522.                     Case "AP_RATE","SC_ORD_RATE","SC_AORD_RATE","SP_RATE","OR_CONT_RATE","OR_EQ_RATE","OR_FCTR_RATE","OR_FV_RATE","OR_HA_RATE","OR_HI_RATE","OR_RR_RATE","OR_SB_RATE","OR_OT_RATE"
  5523. '                       Call writetofile ("Rate = "&HS.GetRate("A#"&FCTR_UD3))
  5524.  
  5525.                         If Custom1 = "OPENING" then
  5526.                             HS.Trans "A#"&Account&".C1#OPENING.V#"&Value&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#OPENING.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&FCTR_UD2,""
  5527.                         End If
  5528.  
  5529.                         If Custom1 = "ACPOL" then
  5530.                             HS.Trans "A#"&Account&".V#"&Value&".C1#ACPOL.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#ACPOL.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&FCTR_UD2,""
  5531.                         End If
  5532.  
  5533.                         If Account = "AP_PREV_OPEN" then
  5534.                             HS.Trans "A#AP_PREV_OPEN.V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AP_PREV_OPEN.V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&FCTR_UD2,""
  5535.                         End If
  5536.  
  5537.                         If Account = "AP_ACPOL" then
  5538.                             HS.Trans "A#AP_ACPOL.V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AP_ACPOL.V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&FCTR_UD2,""
  5539.                         End If
  5540.  
  5541.                         If Account = "AP_FUND_ERROR" then
  5542.                             HS.Trans "A#AP_FUND_ERROR.V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#AP_FUND_ERROR.V#"&Value&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&FCTR_UD2,""
  5543.                         End If
  5544.  
  5545.                     Case "1"
  5546.                         If Custom1 = "OPENING" then
  5547.                             HS.Trans "A#"&Account&".V#"&Value&".C1#OPENING.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#OPENING.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#OPENINGRATE",""
  5548.                         End If
  5549.  
  5550.                         If Custom1 = "ACPOL" then
  5551.                             HS.Trans "A#"&Account&".V#"&Value&".C1#ACPOL.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#ACPOL.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#OPENINGRATE",""
  5552.                         End If
  5553.                         If Custom1 = "Closing" then
  5554.                         HS.Trans "A#"&Account&".V#"&Value&".C1#CLOSING.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#"&Account&".V#"&Value&".C1#CLOSING.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&".I#"&ICP,"A#ENDOFMONTHRATE",""
  5555.                         End If
  5556.  
  5557.  
  5558.  
  5559.                     End Select
  5560.  
  5561.  
  5562.                 End If
  5563.             Next
  5564.  
  5565.  
  5566. End Sub
  5567.  
  5568.  
  5569.  
  5570.  
  5571.     'Pulls the total of the historic account into a technical account - to be used for translation later
  5572.  
  5573.  
  5574. Sub FCTR
  5575. '   Call writetofile ("FCTR")
  5576.     'This will take the translated amount (at EOM) minus the translated amount (as calculated in Sub Translate)
  5577.  
  5578.     HS.Exp "A#SC_ORD_FCTR"&C1234None&" = A#SC_ORD_TOTAL.I#[ICP Top]"&C1234Top&" - A#SC_ORD_FCTR"&C1234Top
  5579.     HS.Exp "A#SC_AORD_FCTR"&C1234None&" = A#SC_AORD_FCTR.I#[ICP Top]"&C1234Top&" - A#SC_AORD_TOTAL"&C1234Top
  5580.     HS.Exp "A#SP_FCTR"&C1234None&" = A#SP_TOTAL.I#[ICP Top]"&C1234Top&" - A#SP_FCTR"&C1234Top
  5581.     HS.Exp "A#OR_CONT_FCTR"&C1234None&" =  A#OTH_RES_CONT.I#[ICP Top]"&C1234Top&" - A#OR_CONT_FCTR"&C1234Top
  5582.     HS.Exp "A#OR_EQ_FCTR"&C1234None&" = A#OTH_RES_EQ_SH_PAY.I#[ICP Top]"&C1234Top&" - A#OR_EQ_FCTR"&C1234Top
  5583.     HS.Exp "A#OR_FCTR_FCTR"&C1234None&" =  A#OTH_RES_FCTR.I#[ICP Top]"&C1234Top&" - A#OR_FCTR_FCTR"&C1234Top&" - A#OTH_RES_FCTR"&C1234Top
  5584.     HS.exp "A#OR_FV_FCTR"&C1234None&" = A#OTH_RES_FV.I#[ICP Top]"&C1234Top&" - A#OR_FV_FCTR"&C1234Top
  5585.     HS.exp "A#OR_HA_FCTR"&C1234None&" =  A#OTH_RES_HED_AC.I#[ICP Top]"&C1234Top&" - A#OR_HA_FCTR"&C1234Top
  5586.     HS.exp "A#OR_HI_FCTR"&C1234None&" =  A#OTH_RES_HI.I#[ICP Top]"&C1234Top&" - A#OR_HI_FCTR"&C1234Top
  5587.     HS.exp "A#OR_RR_FCTR"&C1234None&" =  A#OTH_RES_REVAL.I#[ICP Top]"&C1234Top&" - A#OR_RR_FCTR"&C1234Top
  5588.     HS.exp "A#OR_SB_FCTR"&C1234None&" =  A#OTH_RES_SB.I#[ICP Top]"&C1234Top&" - A#OR_SB_FCTR"&C1234Top
  5589.     HS.exp "A#OR_OT_FCTR"&C1234None&" =  A#OTH_RES_OTHER.I#[ICP Top]"&C1234Top&" - A#OR_OT_FCTR"&C1234Top
  5590.     HS.Exp "A#AP_FCTR"&C1234None&" = A#AP_Total.I#[ICP Top]"&C1234Top&" - A#AP_FCTR"&C1234Top
  5591.  
  5592.  
  5593.  
  5594. '   HS.exp "A#EQL_FCTR"&C1234None&" = A#EQL_FCTR"&C1234None&" - A#SH_FUND_ORD_LOAN_CAP"&C1234Top
  5595.  
  5596.  
  5597. ''This adds all the FCTR technical accounts together and puts it into the BS (Other Reserves)
  5598.  
  5599.  
  5600.     HS.exp  "A#OTH_RES_FCTR.C1#OTH_RES_FCTR.C2#[None].C3#[None].C4#[None].V#"&Value&" = A#AP_FCTR"&C1234Top&".V#"&Value&" + A#SC_ORD_FCTR"&C1234Top&".V#"&Value&" + "& _
  5601.             "(A#SC_AORD_FCTR"&C1234Top&".V#"&Value&" + A#SP_FCTR"&C1234Top&".V#"&Value&" + A#OR_CONT_FCTR"&C1234Top&".V#"&Value&" + A#OR_EQ_FCTR"&C1234Top&".V#"&Value&" +"& _
  5602.             "(A#OR_FCTR_FCTR"&C1234Top&".V#"&Value&" + A#OR_FV_FCTR"&C1234Top&".V#"&Value&" + A#OR_HA_FCTR"&C1234Top&".V#"&Value&" + A#OR_HI_FCTR"&C1234Top&".V#"&Value&" +"& _
  5603.             "(A#OR_RR_FCTR"&C1234Top&".V#"&Value&" + "& _
  5604.             "(A#OR_SB_FCTR"&C1234Top&".V#"&Value&" + A#OR_OT_FCTR"&C1234Top&".V#"&Value
  5605.  
  5606.  
  5607. 'Call writetofile("Trans End")
  5608. End Sub
  5609.  
  5610.  
  5611. Sub Consolidate
  5612.  
  5613. '********************************************************************************************
  5614. '********************************************************************************************
  5615. 'CONSOLIDATION LOGIC
  5616. '********************************************************************************************
  5617. '********************************************************************************************
  5618. 'Call writetofile("Cons")
  5619.         Dim MyDataUnit
  5620.         Dim lNumItems
  5621.         Dim dPCon
  5622.         Dim dPOwn
  5623.         Dim dEntity
  5624.  
  5625.         'Get the variables used during the consolidation process.
  5626.         dParent = HS.Parent.Member                  'The name of the entity's parent company
  5627.         dEntity = HS.Entity.Member                  'The current entity's name
  5628.         strScenario = HS.Scenario.Member
  5629.         strYear = HS.Year.Member
  5630.         strPeriod = HS.Period.Member
  5631.  
  5632.         'Two variables defined to make the logic more readible.
  5633.         Elim = "V#[Elimination]"                    'The name of the elimination element of the value dimension
  5634.         Elim_Intco = "V#[Elimination].I#"           'The elmination element plus Interco setup - just less typing
  5635.  
  5636.         'Set up variable to hold the parent/child info for this parent
  5637.         Set DataUnit = HS.OpenDataUnit("E#"&dEntity)
  5638.  
  5639.         'Determine the number of child "relationships"
  5640.         NumItems = DataUnit.GetNumItems
  5641.  
  5642.         'Pull the ownership rates to be used in the consolidation process
  5643.         dPOwn = HS.Node.POwn("")                    'The Ownership % of this node
  5644.         if HS.Period.Member = "July" and HS.Year.Member > "2000" then
  5645.             dPOwnPrior = HS.Node.POwn("Y#Prior.P#Last")
  5646.         else
  5647.             dPOwnPrior = HS.Node.POwn("P#Prior")                    'The Ownership % of this node
  5648.         end if
  5649.  
  5650.         'Pull the consolidation rates to be used in the consolidation process
  5651.         dPCon = HS.Node.PCon("")                    'The Consolidation % of this node
  5652.         dPVar = dPOwn - dPOwnPrior
  5653.         dPVarn = dPOwnPrior - dPOwn
  5654.  
  5655.         'Calculate the minority rates to be used in the consolidation process
  5656.         dPMIN = 1 - dPOwn
  5657.  
  5658.         'Pull the consolidation method used by this entity, e.g. Subsidiary, Joint Venture, Associate, etc
  5659.         Method = HS.Node.Method("")                 'The method of this node
  5660.  
  5661.  
  5662.  
  5663.         'Loop through each relationship
  5664.         For item_loop = 0 To NumItems - 1
  5665.  
  5666.             'Get all the info for this unit
  5667.             Call DataUnit.GetItem(item_loop, Account, ICP, Custom1, Custom2, Custom3, Custom4, Data)
  5668.  
  5669.  
  5670.                     'If there is no data do not process the record
  5671.                     If Data <> 0 Then
  5672.                         ConVar = dPCon
  5673.                         MinVar = dPOwn
  5674.  
  5675.                         'If POwn is 0 then we can accept that the company has been moved to another structure, ie restructuring
  5676.                         'if this is the case we should not calculate a minority and by setting MinVar to 1 it will not excecute
  5677.                         'the minority rules
  5678.                         If MinVar = 0 Then
  5679.                            MinVar = 1
  5680.                         End If
  5681. '           Call Eliminate(strAccount, strICP)
  5682.         'Call writetofile("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&" with data = "&Data)
  5683.  
  5684.                     End If
  5685.         Call Eliminate(Account, ICP)
  5686.  
  5687.  
  5688.         Select Case Method
  5689.         Case ""    'For all other entities without methods
  5690.                 If HS.Account.IsBase("","") Then
  5691.             'Call writetofile("None begin")
  5692.                     Call HS.Con("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  5693.  
  5694.                 End If
  5695.  
  5696.             'Call writetofile("None End")
  5697.  
  5698.         Case "JV"     'Convar must be set to 1 - POwn
  5699.             'Call writetofile("Begin CONSOL METHODS JV Begin")
  5700.                 If HS.Account.IsBase("","") Then
  5701.                     Call HS.Con("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  5702.  
  5703.                 End If
  5704.             'Call writetofile("Begin CONSOL METHODS JV Ends")
  5705. '       Call writetofile("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&" with data = "&Data)
  5706.  
  5707.             'Call writetofile("CONSOL BEGIN ASS")
  5708.  
  5709.         Case "ASS"
  5710. '               Call writetofile("CONSOL METHODS ASS begin")
  5711. '           Convar = 0
  5712.                 'Account list
  5713.                     'HS.ImpactStatus "P#"&vPeriodM&".Y#"&vYear
  5714. '                       Income_Statement_list = HS.Account.List("Income_Statement","[BASE]")
  5715. '                      Balance_Sheet_list = HS.Account.List("Balance_Sheet","[BASE]")
  5716. '                      For aa = LBound (Balance_Sheet_list) to UBound (Balance_Sheet_list)
  5717.  
  5718.  
  5719.                         If HS.Account.IsBase ("INCOME_STATEMENT", "") then
  5720.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 0, "")
  5721.                         End If
  5722.  
  5723.                         If HS.Account.IsBase ("BALANCE_SHEET", "") then
  5724.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 0, "")
  5725.                         End If
  5726.  
  5727.                 '   If HS.Account.IsDescendant("INCOME_STATEMENT", "") = false then
  5728.                 '   If HS.Account.IsDescendant("BALANCE_SHEET", "") = false then
  5729.                 '           IF HS.Account.ISBAse("IS_A_TOTAL","") then
  5730.                 '               Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  5731.                 '           End IF
  5732.                 '           IF HS.Account.ISBAse("BS_A_TOTAL","") then
  5733.                 '               Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  5734.                 '           End if
  5735.                 '           If HS.Account.ISBase("OTH_INFO_TOTAL","") then
  5736.                 '               Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  5737.                 '           End if
  5738.                 '           IF HS.Account.ISBAse("TAX _TOTAL","") then
  5739.                 '               Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  5740.                 '           End if
  5741.                 '   End If
  5742.                 '   End If
  5743.  
  5744.  
  5745.  
  5746.                         'If Account = "PROFIT_AFTER_TAX" then
  5747.                         '   Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 0, "")
  5748.                         'End If
  5749.  
  5750.                         If Account = "PROFIT_AFTER_TAX" then
  5751.                             Call HS.Con("A#Income_Associates.C3#NONE.C4#NONE", dPOwn, "")
  5752.                             Call HS.Con("A#INV_ASS_INCOME_IS.C1#[None].C2#[None].C3#[None].C4#[None]", -dPOwn, "")
  5753.  
  5754.                         End If
  5755.  
  5756.                         'If HS.Account.IsBase("AP_RET_PROF_OPEN", "") then
  5757.                         '   Call HS.Con("A#INV_ASS_OPEN.I#[ICP None].W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5758.                         'End If
  5759.  
  5760.  
  5761.                         'Calculate Opening Balances
  5762.                         '***************************
  5763.                         '***************************
  5764.                         If Account = "AP_PREV_OPEN" then
  5765.                             Call HS.Con("A#INV_ASS_OPEN.I#[ICP None].W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5766.                         End If
  5767.  
  5768.                         If HS.Account.IsBase("OTH_RES_TOTAL", "") then
  5769.                             If Custom1 = "OPENING" Then
  5770.                                 Call HS.Con("A#INV_ASS_OPEN.I#[ICP None].W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5771.                             End If
  5772.                         End If
  5773.  
  5774.                         If HS.Account.IsBase("SC_SP", "") then
  5775.                             If Custom1 = "OPENING" Then
  5776.                                 Call HS.Con("A#INV_ASS_OPEN.I#[ICP None].W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5777.                             End If
  5778.                         End If
  5779.                         '***************************
  5780.                         '***************************
  5781.  
  5782.                         'Calculate change in accounting policy
  5783.                         '***************************
  5784.                         '***************************
  5785.                         If Account = "AP_ACPOL" then
  5786.                             If Custom1 = "ACPOL" or Custom1 = "[None]" Then
  5787.                                 Call HS.Con("A#INV_ASS_ACPOL.I#[ICP None].W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5788.                             End If
  5789.                         End If
  5790.                         If HS.Account.IsBase("OTH_RES_TOTAL", "") then
  5791.                             If Custom1 = "ACPOL" Then
  5792.                                 Call HS.Con("A#INV_ASS_ACPOL.I#[ICP None].W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5793.                             End If
  5794.                         End If
  5795.                         If HS.Account.IsBase("SC_SP", "") then
  5796.                             If Custom1 = "ACPOL" Then
  5797.                                 Call HS.Con("A#INV_ASS_ACPOL.I#[ICP None].W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5798.                             End If
  5799.                         End If
  5800.                         '*****************************
  5801.                         '*****************************
  5802.  
  5803.                         'Dividend
  5804.                         '***************************
  5805.                         '***************************
  5806.                         If HS.Account.IsBase("AP_ORD_DIV_TOTAL", "") then
  5807.                             Call HS.Con("A#INV_ASS_DIV_RC.I#[ICP None].W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5808.                         End If
  5809.                         '***************************
  5810.                         '***************************
  5811.  
  5812.                         'Other Equity Movements
  5813.                         '***************************
  5814.                         '***************************
  5815.                         Select Case Account
  5816.                         Case "AP_MIN","AP_FUND_ERROR","AP_OTH_MV_1","AP_OTH_MV_2","OTH_RES_CONT","OTH_RES_EQ_SH_PAY","OTH_RES_FCTR","OTH_RES_FV","OTH_RES_HED_AC","OTH_RES_HI","OTH_RES_REVAL","OTH_RES_SB","OTH_RES_OTHER","SC_AORD_TOTAL","SC_ORD_TOTAL","SP_TOTAL","SC_SP_HI"
  5817.                         'Case "AP_ACPOL","AP_FUND_ERROR","AP_PREV_OPEN","AP_OTH_MV_1","AP_OTH_MV_2","OTH_RES_CONT","OTH_RES_EQ_SH_PAY","OTH_RES_FCTR","OTH_RES_FV","OTH_RES_HED_AC","OTH_RES_HI","OTH_RES_REVAL","OTH_RES_SB","OTH_RES_OTHER"
  5818.                             UnderMovement = "False"
  5819.                             If HS.Custom1.IsDescendant("Movements","") then
  5820.                                 UnderMovement = "True"
  5821.                             End If
  5822.                             If UnderMovement = "True" or Custom1 = "[None]" Then
  5823.                                 Call HS.Con("A#INV_ASS_EQ_MOV.I#[ICP None].W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", -dPOwn, "")
  5824.                             End If
  5825.                         End Select
  5826.                         '***************************
  5827.                         '***************************
  5828.  
  5829.         Case "SUBS"
  5830.  
  5831.             'Call writetofile("Begin SUBS")
  5832.             'INCOME STATEMENT
  5833.             If HS.Account.IsBase("INCOME_STATEMENT", "") then
  5834.                 Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  5835.             End If
  5836.  
  5837.             If HS.Account.IsDescendant("SH_FUND_MINORITY", "") then
  5838.                 Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  5839.             End If
  5840.  
  5841.             If HS.Account.IsDescendant("INCOME_STATEMENT", "") = false then
  5842.                 If HS.Account.IsDescendant("BALANCE_SHEET", "") = false then
  5843.                     IF HS.Account.ISBAse("IS_A_TOTAL","") then
  5844.                         Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  5845.                     End IF
  5846.                     IF HS.Account.ISBAse("BS_A_TOTAL","") then
  5847.                         Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  5848.                     End if
  5849.                     If HS.Account.ISBase("OTH_INFO_TOTAL","") then
  5850.                         Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  5851.                     End if
  5852.                     IF HS.Account.ISBAse("TAX _TOTAL","") then
  5853.                         Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  5854.                     End if
  5855.                 End If
  5856.             End If
  5857.  
  5858.             If HS.Year.Member > "2000" then
  5859.                 Select Case Account
  5860.                 Case "PROFIT_AFTER_TAX"
  5861.                     Call HS.Con("A#PROFIT_AFTER_TAX.W#"&View, 1, "")
  5862.                     Call HS.Con("A#MIN_INT_TOTAL.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#NONE.C4#NONE", -dPMin, "")
  5863.                     Call HS.Con("A#MIN_SHARE_PROFIT.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPMin, "")
  5864.                     Call HS.Con("A#AP_MIN.I#"&ICP&".C1#[None].W#"&View&".C2#[None].C3#[None].C4#[None]", -dPMin, "")
  5865.                 End Select
  5866.             end if
  5867.  
  5868. 'New logic relating to minority in the income statement - ensures that minority is calculated after previous levels income statement minority already allocated eg.99%x70%
  5869.             If HS.Year.Member > "2008" then
  5870.                 select case account
  5871.                 case "NET_PROFIT_YR"
  5872.                     Call HS.Con("A#MIN_INT_TOTAL.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", -dPMin, "")
  5873.                     Call HS.Con("A#MIN_SHARE_PROFIT.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPMin, "")
  5874.                     Call HS.Con("A#AP_MIN.I#"&ICP&".C1#[None].W#"&View&".C2#[None].C3#[None].C4#[None]", -dPMin, "")
  5875.                 End Select
  5876.             end if
  5877. '           Call writetofile ("End IS")
  5878.  
  5879. '                   Call writetofile("SCAP Consol begin")
  5880.  
  5881.             IF HS.Account.IsBase("SC_SP","") Then
  5882.                 If Custom1 = "OPENING" then
  5883.                     Call HS.Con("A#MIN_OPEN.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1-dPOwn, "")
  5884.                 End If
  5885.             End If
  5886.  
  5887.  
  5888.             if HS.Account.IsBase("SC_SP","") Then
  5889.                 if custom1 = "OPENING" then
  5890.                     Call HS.Con("A#GW_COST_OPEN.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5891.                 End If
  5892.             end if
  5893.  
  5894.             IF HS.Account.IsBase("SC_SP","") Then
  5895.                 If Custom1 = "ACPOL" then
  5896.                     Call HS.Con("A#MIN_ACPOL.I#"&ICP&".C1#[None].W#"&View&".C2#[None].C3#[None].C4#[None]", 1-dPOwn, "")
  5897.                 End If
  5898.             End If
  5899.  
  5900.             IF HS.Account.IsBase("SC_SP","") Then
  5901.                 If Custom1 = "ACPOL" then
  5902.                     Call HS.Con("A#GW_COST_ACPOL.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5903.                 End If
  5904.             End If
  5905.  
  5906.             IF HS.Account.ISBase ("TMIN_SH_INCR_IS","") then
  5907.                 Call HS.Con("A#MIN_SH_INCR.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  5908.             End If
  5909.  
  5910.             IF HS.Account.IsBase("SC_SP","") Then
  5911.                 If Custom1 = "SC_CONVERSION" or Custom1 = "SC_ISSUE_BUS_ACQ" or Custom1 = "SC_ISSUE_EXP" or Custom1 = "SC_OPTIONS_GRANTED" or Custom1= "SC_ISS_CAP" or Custom1= "SC_ISS_CONSID" or Custom1= "SC_ISS_CASH" Then
  5912.                     Call HS.Con("A#GW_COST_BU_ACQ.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  5913.                 End If
  5914.             End If
  5915.  
  5916.  
  5917.             IF HS.Account.IsBase ("TMIN_SH_DECR_IS","") then
  5918.                 Call HS.Con("A#MIN_SH_DECR.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  5919.             End If
  5920.  
  5921.  
  5922.             IF HS.Account.IsBase("SC_SP","") Then
  5923.                 If Custom1 = "SC_BUYBACK" or Custom1 = "SC_CAP_RED" or Custom1 = "SC_OPTIONS_FORFEITED" or Custom1 = "SC_BUS_DIS" Then
  5924.                     Call HS.Con("A#GW_COST_BU_DIS.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, -dPOwn, "")
  5925.                 End If
  5926.             End if
  5927.  
  5928.             IF HS.Account.IsBase("INV_S_JV_TOTAL","") Then
  5929.                 Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 0, "")
  5930.             End If
  5931.  
  5932.             IF Account = "INV_S_JV_IMPAIR" Then
  5933.                 Call HS.Con("A#GW_ACCDEP_IMPAIR.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  5934.             End If
  5935.  
  5936.  
  5937. '           Call writetofile("SCAP Consol END")
  5938.  
  5939.             Select Case Account
  5940.  
  5941.             Case "INV_S_JV_OPEN"
  5942.                 Call HS.Con("A#GW_COST_OPEN.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  5943.  
  5944.             Case "INV_S_JV_INT_ACQ"
  5945.                 Call HS.Con("A#GW_COST_BU_ACQ.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  5946.  
  5947.             Case "INV_S_JV_LOANS_CAP"
  5948.                 Call HS.Con("A#GW_COST_BU_ACQ.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  5949.  
  5950.             Case "INV_S_JV_ACPOL"
  5951.                 Call HS.Con("A#GW_COST_ACPOL.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  5952.  
  5953.             Case "INV_S_JV_FCTADJ"
  5954.                 Call HS.Con("A#GW_COST_FCTADJ.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  5955.  
  5956.             Case "INV_S_JV_INT_DIS"
  5957.                 Call HS.Con("A#GW_COST_BU_DIS.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  5958.  
  5959.  
  5960. '           '*******************************************************************
  5961. '           'Allocation of At Acquisition Reserves
  5962. '           '*******************************************************************
  5963.  
  5964.             Case "ACQ_RES_OPEN"
  5965.                 Call HS.Con("A#GW_COST_OPEN.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5966.                 Call HS.Con("A#AP_PREV_OPEN.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, -dPOwn, "")
  5967.  
  5968.             Case "ACQ_OTH_RES_OPEN"
  5969.                 Call HS.Con("A#GW_COST_OPEN.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5970.                 Call HS.Con("A#OTH_RES_OTHER.I#"&ICP&".W#"&View&".C1#OPENING.C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, -dPOwn, "")
  5971.                 If HS.Year.Member > "2008" then
  5972.                     Call HS.Con("A#MIN_OPEN.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1-dPOwn, "")
  5973.                 End if
  5974.  
  5975.             Case "ACQ_RES_ACPOL"
  5976.                 Call HS.Con("A#GW_COST_ACPOL.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5977.                 Call HS.Con("A#AP_ACPOL.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, -dPOwn, "")
  5978.  
  5979.             Case "ACQ_OTH_RES_ACPOL"
  5980.                 Call HS.Con("A#GW_COST_ACPOL.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5981.                 Call HS.Con("A#OTH_RES_OTHER.I#"&ICP&".C1#ACPOL.W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, -dPOwn, "")
  5982.                 If HS.Year.Member > "2008" then
  5983.                     Call HS.Con("A#MIN_ACPOL.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1-dPOwn, "")
  5984.                 End if
  5985.  
  5986.             Case "ACQ_RES_INC"
  5987.                 Call HS.Con("A#GW_COST_BU_ACQ.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5988.                 Call HS.Con("A#AP_SUB_ACQ.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, -dPOwn, "")
  5989.  
  5990.             Case "ACQ_OTH_RES_INC"
  5991.                 Call HS.Con("A#GW_COST_BU_ACQ.I#"&ICP&".C1#[None].W#"&View&".C2#[None].C3#[None].C4#[None]", dPOwn, "")
  5992.                 Call HS.Con("A#OTH_RES_OTHER.I#"&ICP&".C1#OTHR_1.W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, -dPOwn, "")
  5993.                 If HS.Year.Member > "2008" then
  5994.                     Call HS.Con("A#MIN_SUB_ACQ.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1-dPOwn, "")
  5995.                 End if
  5996.  
  5997.             Case "ACQ_RES_DEC"
  5998.                 Call HS.Con("A#GW_COST_BU_DIS.I#"&ICP&".C1#[None].W#"&View&".C2#[None].C3#[None].C4#[None]", -dPOwn, "")
  5999.                 Call HS.Con("A#AP_SUB_DIS.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  6000.  
  6001.             Case "ACQ_OTH_RES_DEC"
  6002.                 Call HS.Con("A#GW_COST_BU_DIS.I#"&ICP&".C1#[None].W#"&View&".C2#[None].C3#[None].C4#[None]", -dPOwn, "")
  6003.                 Call HS.Con("A#OTH_RES_OTHER.I#"&ICP&".C1#OTHR_2.W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  6004.                 If HS.Year.Member > "2008" then
  6005.                     Call HS.Con("A#MIN_OPEN.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1-dPOwn, "")
  6006.                 End if
  6007.  
  6008.             Case "ACQ_RES_IMP"
  6009.                 Call HS.Con("A#GW_ACCDEP_IMPAIR.I#"&ICP&".C1#[None].W#"&View&".C2#[None].C3#[None].C4#[None]", dPOwn, "")
  6010.                 Call HS.Con("A#AP_OTH_MV_1.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, -dPOwn, "")
  6011.  
  6012.             Case "AP_PREV_OPEN"
  6013.                 Call HS.Con("A#MIN_OPEN.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  6014.  
  6015.             Case "AP_ACPOL"
  6016.                 Call HS.Con("A#MIN_ACPOL.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  6017.  
  6018.             Case "AP_FUND_ERROR"
  6019.                 Call HS.Con("A#MIN_ACPOL.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  6020.  
  6021.             Case "AP_SUB_ACQ"
  6022.                 Call HS.Con("A#MIN_SUB_ACQ.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  6023.  
  6024.             Case "AP_SUB_DIS"
  6025.                 Call HS.Con("A#MIN_SUB_SOLD.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  6026.  
  6027.             Case "AP_IFRS2"
  6028.                 Call HS.Con("A#MIN_IFRS2.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  6029.  
  6030.             Case "AP_IFRS_CHANGE"
  6031.                 Call HS.Con("A#MIN_IFRS_CHANGE.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  6032.  
  6033.             Case "AP_OPTIONS"
  6034.                 Call HS.Con("A#MIN_OPTIONS.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  6035.  
  6036.             Case "OTH_RES_CALCMOV"  '- Adrian 3 Dec 2014
  6037.                 If HS.Year.Member = "2015" then
  6038.                     Select Case HS.Scenario.Member
  6039.                     Case "Actual","Forecast"
  6040.                         Select Case HS.Period.Member
  6041.                         Case "January","February","March","April","May","June"
  6042.                             Call HS.Con("A#MIN_OTH_RES.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  6043.                         End Select
  6044.                     End Select
  6045.                 ElseIf HS.Year.Member > "2015" then
  6046.                     Call HS.Con("A#MIN_OTH_RES.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  6047.                 End If
  6048.  
  6049.             Case "AP_NET_PROFIT_YR"
  6050.                 Call HS.Con("A#AP_NET_PROFIT_YR", 1, "")
  6051.  
  6052.  
  6053.             Case "AP_ORD_DIV"
  6054.                 Call HS.Con("A#MIN_DIV_PD_TO_MIN.I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None].W#"&View, dPMin, "")
  6055.                 Call HS.Con("A#SFD_DIV_ACCR_MINOR.W#"&View&".I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None]", -dPMin, "")
  6056.                 Call HS.Con("A#SFD_DIV_ACCRUED.W#"&View&".I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None]", -dPOwn, "")
  6057.  
  6058.             Case "AP_ORD_DIV_RC"
  6059.                 Call HS.Con("A#MIN_DIV_PD_TO_MIN.I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None].W#"&View, dPMin, "")
  6060.                 Call HS.Con("A#SFD_DIV_ACCR_MINOR.W#"&View&".I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None]", -dPMin, "")
  6061.                 Call HS.Con("A#SFD_DIV_ACCRUED.W#"&View&".I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None]", -dPOwn, "")
  6062.  
  6063.  
  6064.             Case "AP_ORD_INTGRP_DIV"
  6065.                 Call HS.Con("A#MIN_DIV_PD_TO_MIN.I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None].W#"&View, dPMin, "")
  6066.                 Call HS.Con("A#SFD_DIV_ACCR_MINOR.W#"&View&".I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None]", -dPMin, "")
  6067.                 Call HS.Con("A#SFD_DIV_ACCRUED.W#"&View&".I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None]", -dPOwn, "")
  6068.  
  6069.  
  6070.             Case "IGPDivPlug"
  6071.                 Call HS.Con("A#MIN_DIV_PD_TO_MIN.I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None].W#"&View, dPMin, "")
  6072.                 Call HS.Con("A#SFD_DIV_ACCRUED.W#"&View&".I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None]", -dPOwn, "")
  6073.                 Call HS.Con("A#SFD_DIV_ACCR_MINOR.W#"&View&".I#[ICP None].C1#[None].C2#[None].C3#[None].C4#[None]", -dPMin, "")
  6074.  
  6075.         End Select
  6076.  
  6077.         If HS.Account.IsBase ("AP_OTH_MV_TOT","") Then
  6078.             Call HS.Con("A#MIN_ACPOL.I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1-dPOwn, "")
  6079.         End If
  6080.  
  6081.  
  6082.         If HS.Account.IsBase ("AP_ORD_DIV_TOTAL","") Then
  6083.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  6084.         End If
  6085.  
  6086.         If HS.Account.IsBase ("IGPDivPlug","") Then
  6087.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  6088.         End If
  6089.  
  6090.         If Account = "AP_MIN" then
  6091.             Call HS.Con("A#AP_MIN", dPOwn, "")
  6092.         End If
  6093.  
  6094.         If HS.Account.IsBase("AP_RET_PROF_OPEN","") Then
  6095.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  6096.         End If
  6097.  
  6098.         If Account = "AP_SUB_ACQ" Then
  6099.             Call HS.Con("A#AP_SUB_ACQ.W#"&View&"", dPOwn, "")
  6100.  
  6101.         End If
  6102.  
  6103.         If Account = "AP_SUB_DIS" Then
  6104.             Call HS.Con("A#AP_SUB_DIS.W#"&View&"", dPOwn, "")
  6105.         End If
  6106.  
  6107.         If Account = "AP_TRF_NDR" Then
  6108.             Call HS.Con("A#AP_TRF_NDR.W#"&View&"", dPOwn, "")
  6109.         End If
  6110.  
  6111.         If Account = "AP_IFRS2" Then
  6112.             Call HS.Con("A#AP_IFRS2.W#"&View&"", dPOwn, "")
  6113.         End If
  6114.  
  6115. 'Added by PJackson 140519
  6116.         If Account = "AP_IFRS_CHANGE" Then
  6117.             Call HS.Con("A#AP_IFRS_CHANGE.W#"&View&"", dPOwn, "")
  6118.         End If
  6119.  
  6120.         If Account = "AP_OPTIONS" Then
  6121.             Call HS.Con("A#AP_OPTIONS.W#"&View&"", dPOwn, "")
  6122.         End If
  6123.  
  6124.         If Account = "AP_ORD_INTGRP_DIV" Then
  6125.             Call HS.Con("A#AP_ORD_INTGRP_DIV.W#"&View&"", dPOwn, "")
  6126.         End If
  6127.  
  6128.         If Account = "CDM_OPEN" Then
  6129.             Call HS.Con("A#CDM_OPEN.W#"&View&"", dPOwn, "")
  6130.         End If
  6131.  
  6132.  
  6133.                     'GOODWILL CONSOLIDATION
  6134.         If Account = "GW_COST_FCTADJ" then
  6135.             Call HS.Con("A#GW_COST_FCTADJ.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6136.         End If
  6137.  
  6138.         If Account = "GW_COST_OPEN" then
  6139.             Call HS.Con("A#GW_COST_OPEN.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6140.         End If
  6141.  
  6142.         If Account = "GW_COST_ACPOL" then
  6143.             Call HS.Con("A#GW_COST_ACPOL.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6144.         End If
  6145.  
  6146.         IF HS.Account.IsBase("GW_COST_MOV","") Then
  6147.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6148.         End If
  6149.  
  6150.         If Account = "GW_ACCDEP_FCTADJ" then
  6151.             Call HS.Con("A#GW_ACCDEP_FCTADJ.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6152.         End If
  6153.  
  6154.         If Account = "GW_ACCDEP_OPEN" then
  6155.             Call HS.Con("A#GW_ACCDEP_OPEN.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6156.         End If
  6157.  
  6158.         If Account = "GW_ACCDEP_ACPOL" then
  6159.             Call HS.Con("A#GW_ACCDEP_ACPOL.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6160.         End If
  6161.  
  6162.             IF HS.Account.IsBase("GW_ACCDEP_MOV","") Then
  6163.                 Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6164.             End If
  6165.  
  6166.  
  6167.         '--------------------------------------------------
  6168.         If POwnP > 50 And POwnPrior < 50 then
  6169.             Select Case Account
  6170.             Case "ACQ_RES_OPEN"
  6171.                 Call HS.Con("A#MIN_SUB_SOLD.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6172.             Case "ACQ_OTH_RES_OPEN"
  6173.                 Call HS.Con("A#MIN_SUB_SOLD.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6174.             End Select
  6175.             If Account = "SC_SP" and Custom1 = "OPENING" then
  6176.                 Call HS.Con("A#MIN_SUB_ACQ.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6177.             End If
  6178.         End If
  6179.  
  6180.  
  6181.         If POwnP < 50 And POwnPrior > 50 then
  6182.             Select Case Account
  6183.             Case "ACQ_RES_OPEN"
  6184.                 Call HS.Con("A#MIN_SUB_SOLD.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6185.             Case "ACQ_OTH_RES_OPEN"
  6186.                 Call HS.Con("A#MIN_SUB_SOLD.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6187.             End Select
  6188.             If Account = "SC_SP" and Custom1 = "OPENING" then
  6189.                 Call HS.Con("A#MIN_SUB_SOLD.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6190.             End If
  6191.         End If
  6192.  
  6193.         '--------------------------------------------------
  6194.  
  6195.         IF HS.Account.IsBase("OTH_RES_TOTAL","") Then
  6196.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  6197.         End If
  6198.  
  6199. '--------------------------------------------
  6200.  
  6201.         IF HS.Account.IsBase("CUR_ASS_INVEN_TOT","") Then
  6202.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6203.         End If
  6204.  
  6205.         IF HS.Account.IsBase("CUR_ASS_TRADE_OTH","") Then
  6206.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6207.         End If
  6208.  
  6209.         IF HS.Account.IsBase("CUR_ASS_TECH","") Then
  6210.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6211.         End If
  6212.  
  6213.         IF HS.Account.IsBase("CUR_A_ASS_CASH","") Then
  6214.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6215.         End If
  6216.         IF HS.Account.IsBase("BS_A_BANK_OVERDRAFT","") Then
  6217.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6218.         End If
  6219.  
  6220.  
  6221.         IF Account = "CASH_SUPER_FIN_BANK" Then
  6222.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6223.         End If
  6224.  
  6225.         IF Account = "IGPCashPlug" Then
  6226.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6227.         End If
  6228.  
  6229.         If Account = "PPE_FML_INT_ASS" then
  6230.             Call HS.Con("A#PPE_FML_INT_ASS.I#"&ICP&".W#"&View, 1, "")
  6231.         End If
  6232.  
  6233.         IF HS.Account.IsBase("INV_ASS_TOTAL","") Then
  6234.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6235.         End If
  6236.  
  6237.         IF HS.Account.IsBase("OTH_NON_CUR_ASSETS","") Then
  6238.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6239.         End If
  6240.  
  6241.         If Account = "INTGRP_ENT_LOANS" then
  6242.             Call HS.Con("A#INTGRP_ENT_LOANS.I#"&ICP&".W#"&View, 1, "")
  6243.         End If
  6244.  
  6245.         If Account = "IGPEqPlug" then
  6246.             Call HS.Con("A#IGPEqPlug.I#"&ICP&".W#"&View, 1, "")
  6247.         End If
  6248.  
  6249.         IF HS.Account.IsBase("DFR_TAX_ASSET_TOT","") Then
  6250.             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6251.         End If
  6252.  
  6253.         IF HS.Account.IsBase("LIAB_TOTAL","") Then
  6254.             Select Case Account
  6255.                 Case "SFD_DIV_ACCRUED","SFD_DIV_ACCR_MINOR","OD_TOTAL"
  6256.                 'Do not consolidate these accounts as they are calculated during the consoliadtion process
  6257.                 'ig you re-calculate here they will double up
  6258.                 Case Else
  6259.                     Call HS.Con("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6260.                 End Select
  6261.         End If
  6262.  
  6263.         If Account = "SH_FUND_ORD_LOAN_CAP" Then
  6264.             Call HS.Con("A#SH_FUND_ORD_LOAN_CAP.W#"&View&"", 1, "")
  6265.         End If
  6266.  
  6267.         'CASHFLOW CONSOLIDATION - WORKING CAPITAL
  6268.  
  6269.         If Account = "BEGIN_CASH_EQ" Then
  6270.             Call HS.Con("A#BEGIN_CASH_EQ.W#"&View&"",1, "")
  6271.         End If
  6272. '                       IF Account = "WCM_TR_RC" Then
  6273. '                           IF Custom1 = "WCM_RC_BAD_D_WO" then
  6274. '                               Call HS.Con("A#WCM_TR_RC.C1#WCM_RC_BAD_D_WO.W#"&View&"", 1, "")
  6275. '                           End if
  6276. '                       End If
  6277.         IF Account = "WCM_TR_RC" Then
  6278.             Call HS.Con("A#WCM_TR_RC.W#"&View&"", 1, "")
  6279.         End If
  6280.         IF Account = "WCM_S_RC" Then
  6281.             Call HS.Con("A#WCM_S_RC.W#"&View&"", 1, "")
  6282.         End If
  6283.         IF Account = "WCM_PLUG" Then
  6284.             Call HS.Con("A#WCM_PLUG.W#"&View&"", 1, "")
  6285.         End If
  6286.         IF Account = "WCM_INV_MOV" Then
  6287.             Call HS.Con("A#WCM_INV_MOV.W#"&View&"", 1, "")
  6288.         End If
  6289.         IF HS.Account.IsBase("INVEN_PROV_MOV_TOT","") Then
  6290.             Call HS.Con("A#INVEN_PROV_MOV_TOT.W#"&View&"", 1, "")
  6291.         End If
  6292.         IF Account = "WCM_TPAY" Then
  6293.             Call HS.Con("A#WCM_TPAY.W#"&View&"", 1, "")
  6294.         End If
  6295.         IF Account = "WCM_PAY_OTH" Then
  6296.             Call HS.Con("A#WCM_PAY_OTH.W#"&View&"", 1, "")
  6297.         End If
  6298.         IF Account = "WCM_INS_C" Then
  6299.             Call HS.Con("A#WCM_INS_C.W#"&View&"", 1, "")
  6300.         End If
  6301.         IF HS.Account.IsBase("WCM_FR_E","") Then
  6302.             Call HS.Con("A#WCM_FR_E.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 0, "")
  6303.         End If
  6304.         IF Account = "WCM_FML_C" Then
  6305.             Call HS.Con("A#WCM_FML_C.W#"&View&"", 1, "")
  6306.         End If
  6307.         If Account = "OPS_INC_OTHER" then
  6308.             Call HS.Con("A#OPS_INC_OTHER.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6309.         End if
  6310.         If Account = "WCM_PLUG" then
  6311.             Call HS.Con("A#WCM_PLUG.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6312.         End if
  6313.         If Account = "FA_INTRGRP_OTH" then
  6314.             Call HS.Con("A#FA_INTRGRP_OTH.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6315.         End if
  6316.         If Account = "SC_A_ORD" then
  6317.             Call HS.Con("A#SC_A_ORD.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6318.         End if
  6319.  
  6320.         If Account = "FA_FCTR" then
  6321.             Call HS.Con("A#FA_FCTR.W#"&View&"", 1, "")
  6322.         End if
  6323.         If Account = "FCTR" then
  6324.             Call HS.Con("A#FCTR.W#"&View&"", 1, "")
  6325.         End if
  6326.  
  6327.  
  6328.             Case "HOLD"
  6329.  
  6330.                     If HS.Account.IsDescendant("INCOME_STATEMENT", "") = false then
  6331.                     If HS.Account.IsDescendant("BALANCE_SHEET", "") = false then
  6332.                             IF HS.Account.ISBAse("IS_A_TOTAL","") then
  6333.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6334.                     End IF
  6335.                             IF HS.Account.ISBAse("BS_A_TOTAL","") then
  6336.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6337.                     End if
  6338.                             If HS.Account.ISBase("OTH_INFO_TOTAL","") then
  6339.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6340.                     End if
  6341.                             IF HS.Account.ISBAse("TAX _TOTAL","") then
  6342.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6343.                     End if
  6344.                     End If
  6345.                     End If
  6346.  
  6347.                 'INCOME STATEMENT
  6348.                         If HS.Account.IsBase("INCOME_STATEMENT", "") then
  6349.     '                   Call writetofile("Begin IS")
  6350.                             'Call writetofile("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4)
  6351.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6352.                         End If
  6353.  
  6354.                     Select Case Account
  6355.                         Case "PROFIT_AFTER_TAX"
  6356.                             Call HS.Con("A#PROFIT_AFTER_TAX", 1, "")
  6357.                             Call HS.Con("A#MIN_INT_TOTAL.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", -dPMin, "")
  6358.                             Call HS.Con("A#MIN_SHARE_PROFIT.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", dPMin, "")
  6359.                             Call HS.Con("A#AP_MIN.I#"&ICP&".C1#[None].W#"&View&".C2#[None].C3#[None].C4#[None]", -dPMin, "")
  6360.  
  6361.                     End Select
  6362.  
  6363.     '                   Call writetofile ("End IS")
  6364.  
  6365.  
  6366.                         If HS.Account.IsBase ("AP_ORD_DIV_TOTAL","") Then
  6367.                             Call HS.Con("A#"&Account&".I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  6368.                         End If
  6369.  
  6370.                         If HS.Account.IsBase ("IGPDivPlug","") Then
  6371.                             Call HS.Con("A#"&Account&".I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  6372.                         End If
  6373.  
  6374.  
  6375.                         If Account = "AP_MIN" then
  6376.                             Call HS.Con("A#AP_MIN.W#"&View, dPOwn, "")
  6377.                         End If
  6378.  
  6379.                         If HS.Account.IsBase("AP_RET_PROF_OPEN","") Then
  6380.                             Call HS.Con("A#"&Account&".I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  6381.                         End If
  6382.  
  6383.                         If Account = "AP_SUB_ACQ" Then
  6384.                             Call HS.Con("A#AP_SUB_ACQ", dPOwn, "")
  6385.                         End If
  6386.  
  6387.                         If Account = "AP_SUB_DIS" Then
  6388.                             Call HS.Con("A#AP_SUB_DIS", dPOwn, "")
  6389.                         End If
  6390.  
  6391.                         If Account = "AP_TRF_NDR" Then
  6392.                             Call HS.Con("A#AP_TRF_NDR", dPOwn, "")
  6393.                         End If
  6394.  
  6395.                         If Account = "AP_IFRS2" Then
  6396.                             Call HS.Con("A#AP_IFRS2", dPOwn, "")
  6397.                         End If
  6398.  
  6399. 'Added by PJackson 140519
  6400.                         If Account = "AP_IFRS_CHANGE" Then
  6401.                             Call HS.Con("A#AP_IFRS_CHANGE", dPOwn, "")
  6402.                         End If
  6403.  
  6404.                         If Account = "AP_OPTIONS" Then
  6405.                             Call HS.Con("A#AP_OPTIONS", dPOwn, "")
  6406.                         End If
  6407.  
  6408.                         If Account = "AP_ORD_INTGRP_DIV" Then
  6409.                             Call HS.Con("A#AP_ORD_INTGRP_DIV", dPOwn, "")
  6410.                         End If
  6411.  
  6412.                         If Account = "CDM_OPEN" Then
  6413.                             Call HS.Con("A#CDM_OPEN", dPOwn, "")
  6414.                         End If
  6415.  
  6416.                         IF HS.Account.IsBase("INV_S_JV_TOTAL","") Then
  6417.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 0, "")
  6418.                         End If
  6419.  
  6420.                         IF Account = "INV_S_JV_TOTAL" Then
  6421.                             Call HS.Con("A#GW_ACCDEP_IMPAIR.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6422.                         End If
  6423.  
  6424.  
  6425.                         Select Case Account
  6426.                             Case "INV_S_JV_OPEN"
  6427.                                 Call HS.Con("A#GW_COST_OPEN.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6428.  
  6429.                             Case "INV_S_JV_INT_ACQ"
  6430.                                 Call HS.Con("A#GW_COST_BU_ACQ.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6431.  
  6432.                             Case "INV_S_JV_LOANS_CAP"
  6433.                                 Call HS.Con("A#GW_COST_BU_ACQ.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6434.  
  6435.                             Case "INV_S_JV_ACPOL"
  6436.                                 Call HS.Con("A#GW_COST_ACPOL.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6437.  
  6438.                             Case "INV_S_JV_FCTADJ"
  6439.                                 Call HS.Con("A#GW_COST_FCTADJ.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6440.  
  6441.                             Case "INV_S_JV_INT_DIS"
  6442.                                 Call HS.Con("A#GW_COST_BU_DIS.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6443.  
  6444. '                           Case "INV_S_JV_IMPAIR"
  6445. '                               Call HS.Con("A#GW_ACCDEP_IMPAIR.I#"&ICP&".W#"&View&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6446.                         End Select
  6447.  
  6448.     '                   '*******************************************************************
  6449.     '                   'Allocation of At Acquisition Reserves
  6450.     '                   '*******************************************************************
  6451.  
  6452.                     'GOODWILL CONSOLIDATION
  6453.                             If Account = "GW_COST_FCTADJ" then
  6454.                                 Call HS.Con("A#GW_COST_FCTADJ.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6455.                             End If
  6456.  
  6457.                             If Account = "GW_COST_OPEN" then
  6458.                                 Call HS.Con("A#GW_COST_OPEN.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6459.                             End If
  6460.  
  6461.                             If Account = "GW_COST_ACPOL" then
  6462.                                 Call HS.Con("A#GW_COST_ACPOL.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6463.                             End If
  6464.  
  6465.                             IF HS.Account.IsBase("GW_COST_MOV","") Then
  6466.                                 Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6467.                             End If
  6468.  
  6469.                             If Account = "GW_ACCDEP_FCTADJ" then
  6470.                                 Call HS.Con("A#GW_ACCDEP_FCTADJ.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6471.                             End If
  6472.  
  6473.                             If Account = "GW_ACCDEP_OPEN" then
  6474.                                 Call HS.Con("A#GW_ACCDEP_OPEN.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6475.                             End If
  6476.  
  6477.                             If Account = "GW_ACCDEP_ACPOL" then
  6478.                                 Call HS.Con("A#GW_ACCDEP_ACPOL.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", 1, "")
  6479.                             End If
  6480.  
  6481.                             IF HS.Account.IsBase("GW_ACCDEP_MOV","") Then
  6482.                                 Call HS.Con("A#"&Account&".W#"&View&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6483.                             End If
  6484.  
  6485.  
  6486. '                       '--------------------------------------------------
  6487. '                       If POwnP > 50 And POwnPrior < 50 then
  6488. '                           Select Case Account
  6489. '                           Case "ACQ_RES_OPEN"
  6490. '                               Call HS.Con("A#MIN_SUB_SOLD.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6491. '                           Case "ACQ_OTH_RES_OPEN"
  6492. '                               Call HS.Con("A#MIN_SUB_SOLD.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6493. '                           End Select
  6494. '                           If Account = "SC_SP" and Custom1 = "OPENING" then
  6495. '                               Call HS.Con("A#MIN_SUB_ACQ.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6496. '                           End If
  6497. '                       End If
  6498. '
  6499. '
  6500. '                       If POwnP < 50 And POwnPrior > 50 then
  6501. '                           Select Case Account
  6502. '                           Case "ACQ_RES_OPEN"
  6503. '                               Call HS.Con("A#MIN_SUB_SOLD.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6504. '                           Case "ACQ_OTH_RES_OPEN"
  6505. '                               Call HS.Con("A#MIN_SUB_SOLD.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6506. '                           End Select
  6507. '                           If Account = "SC_SP" and Custom1 = "OPENING" then
  6508. '                               Call HS.Con("A#MIN_SUB_SOLD.W#"&View&".I#"&ICP&".C1#[None].C2#[None].C3#[None].C4#[None]", dPVar, "")
  6509. '                           End If
  6510. '                       End If
  6511. '
  6512.                         '--------------------------------------------------
  6513. '
  6514. '                       If Account = "INV_S_JV_TOTAL" then
  6515. '                           Call HS.Con("A#INV_S_JV_TOTAL", 0, "")
  6516. '                       End If
  6517. '
  6518. '                       If Account = "INV_S_JV_OPEN" then
  6519. '                           Call HS.Con("A#INV_S_JV_OPEN", 0, "")
  6520. '                       End If
  6521. '
  6522. '                       IF Account = "INV_S_JV_IMPAIRMENT" then
  6523. '                           Call HS.Con("A#INV_S_JV_IMPAIRMENT", 0, "")
  6524. '                       End If
  6525. '
  6526. '                       IF Account = "INV_S_JV_INT_ACQ" then
  6527. '                           Call HS.Con("A#INV_S_JV_INT_ACQ", 0, "")
  6528. '                       End If
  6529. '
  6530. '                       If Account = "INV_S_JV_INT_DIS" then
  6531. '                           Call HS.Con("A#INV_S_JV_INT_DIS", 0, "")
  6532. '                       End If
  6533. '
  6534. '                       If Account = "INV_S_JV_LOANS_CAP" then
  6535. '                           Call HS.Con("A#INV_S_JV_LOANS_CAP", 0, "")
  6536. '                       End If
  6537. '
  6538. '                       If Account = "INV_S_JV_FCTADJ" then
  6539. '                           Call HS.Con("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 0, "")
  6540. '                       End If
  6541.  
  6542.                         IF HS.Account.IsBase("OTH_RES_TOTAL","") Then
  6543.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, dPOwn, "")
  6544.                         End If
  6545.  
  6546.     '--------------------------------------------
  6547.  
  6548.                         IF HS.Account.IsBase("CUR_ASS_INVEN_TOT","") Then
  6549.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6550.                         End If
  6551.  
  6552.                         IF HS.Account.IsBase("CUR_ASS_TRADE_OTH","") Then
  6553.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6554.                         End If
  6555.  
  6556.                         IF HS.Account.IsBase("CUR_ASS_TECH","") Then
  6557.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6558.                         End If
  6559.  
  6560.                         IF HS.Account.IsBase("CUR_A_ASS_CASH","") Then
  6561.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6562.                         End If
  6563.                         IF HS.Account.IsBase("BS_A_BANK_OVERDRAFT","") Then
  6564.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6565.                         End If
  6566.  
  6567.  
  6568.                         IF Account = "CASH_SUPER_FIN_BANK" Then
  6569.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6570.                         End If
  6571.  
  6572.                         IF Account = "IGPCashPlug" Then
  6573.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6574.                         End If
  6575.  
  6576.                         If Account = "PPE_FML_INT_ASS" then
  6577.                             Call HS.Con("A#PPE_FML_INT_ASS.I#"&ICP&".W#"&View&".S#"&Scenario, 1, "")
  6578.                         End If
  6579.  
  6580.                         IF HS.Account.IsBase("INV_ASS_TOTAL","") Then
  6581.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6582.                         End If
  6583.  
  6584.                         IF HS.Account.IsBase("OTH_NON_CUR_ASSETS","") Then
  6585.                             Call HS.Con("A#"&Account&".I#"&ICP&".W#"&View&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6586.                         End If
  6587.  
  6588.                         If Account = "INTGRP_ENT_LOANS" then
  6589.                             Call HS.Con("A#INTGRP_ENT_LOANS", 1, "")
  6590.                         End If
  6591.  
  6592.                         If Account = "IGPEqPlug" then
  6593.                             Call HS.Con("A#IGPEqPlug", 1, "")
  6594.                         End If
  6595.  
  6596.                         IF HS.Account.IsBase("DFR_TAX_ASSET_TOT","") Then
  6597.                             Call HS.Con("A#"&Account&".I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6598.                         End If
  6599.  
  6600.                         IF HS.Account.IsBase("LIAB_TOTAL","") Then
  6601.                             Select Case Account
  6602.                                 Case "OD_TOTAL"
  6603.                             Case Else
  6604.                                 Call HS.Con("A#"&Account&".I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6605.                             End Select
  6606.                         End If
  6607.  
  6608.                         If Account = "SH_FUND_ORD_LOAN_CAP" Then
  6609.                             Call HS.Con("A#SH_FUND_ORD_LOAN_CAP", 1, "")
  6610.                         End If
  6611.  
  6612.                         IF HS.Account.IsBase("SC_SP","") Then
  6613.                             Call HS.Con("A#"&Account&".I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6614.                         End If
  6615.  
  6616.                         'CASHFLOW CONSOLIDATION - WORKING CAPITAL
  6617.  
  6618.                         If Account = "BEGIN_CASH_EQ" Then
  6619.                             Call HS.Con("A#BEGIN_CASH_EQ.W#"&View&"",1, "")
  6620.                         End If
  6621.                         IF Account = "WCM_TR_RC" Then
  6622.                             Call HS.Con("A#WCM_TR_RC.W#"&View&"", 1, "")
  6623.                         End If
  6624.                         IF Account = "WCM_S_RC" Then
  6625.                             Call HS.Con("A#WCM_S_RC.W#"&View&"", 1, "")
  6626.                         End If
  6627.                         IF Account = "WCM_PLUG" Then
  6628.                             Call HS.Con("A#WCM_PLUG.W#"&View&"", 1, "")
  6629.                         End If
  6630.                         IF Account = "WCM_INV_MOV" Then
  6631.                             Call HS.Con("A#WCM_INV_MOV.W#"&View&"", 1, "")
  6632.                         End If
  6633.                         IF HS.Account.IsBase("INVEN_PROV_MOV_TOT","") Then
  6634.                             Call HS.Con("A#INVEN_PROV_MOV_TOT.W#"&View&"", 1, "")
  6635.                         End If
  6636.                         IF Account = "WCM_TPAY" Then
  6637.                             Call HS.Con("A#WCM_TPAY.W#"&View&"", 1, "")
  6638.                         End If
  6639.                         IF Account = "WCM_PAY_OTH" Then
  6640.                             Call HS.Con("A#WCM_PAY_OTH.W#"&View&"", 1, "")
  6641.                         End If
  6642.                         IF Account = "WCM_INS_C" Then
  6643.                             Call HS.Con("A#WCM_INS_C.W#"&View&"", 1, "")
  6644.                         End If
  6645.                         IF HS.Account.IsBase("WCM_FR_E","") Then
  6646.                             Call HS.Con("A#WCM_FR_E.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 0, "")
  6647.                         End If
  6648.                         IF Account = "WCM_FML_C" Then
  6649.                             Call HS.Con("A#WCM_FML_C.W#"&View&"", 1, "")
  6650.                         End If
  6651.                         If Account = "SC_A_ORD" then
  6652.                             Call HS.Con("A#SC_A_ORD.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6653.                         End if
  6654.                         If Account = "OPS_INC_OTHER" then
  6655.                             Call HS.Con("A#OPS_INC_OTHER.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6656.                         End if
  6657.                         If Account = "WCM_PLUG" then
  6658.                             Call HS.Con("A#WCM_PLUG.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6659.                         End if
  6660.                         If Account = "FA_INTRGRP_OTH" then
  6661.                             Call HS.Con("A#FA_INTRGRP_OTH.I#"&ICP&".C1#"&Custom1&".W#"&View&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4, 1, "")
  6662.                         End if
  6663.                         If Account = "FA_FCTR" then
  6664.                             Call HS.Con("A#FA_FCTR.W#"&View&"", 1, "")
  6665.                         End if
  6666.                         If Account = "FCTR" then
  6667.                             Call HS.Con("A#FCTR.W#"&View&"", 1, "")
  6668.                         End if
  6669.  
  6670.  
  6671.         End Select
  6672.     'Call writetofile("CONSOL END")
  6673.  
  6674. Next
  6675.  
  6676. 'Call writetofile("CONSOL END")
  6677. End Sub
  6678.  
  6679.  
  6680. '********************************************************************************************
  6681. '********************************************************************************************
  6682. 'INTER COMPANY ELIMINATION
  6683. '********************************************************************************************
  6684. '********************************************************************************************
  6685.  
  6686. Sub Eliminate (strAccount, strICP)
  6687.     Method = HS.Node.Method("")                 'The method of this node
  6688.     If Method <> "ASS" Then
  6689.        Dim CanEliminate
  6690.        Dim strPlug
  6691.        Dim dPCon
  6692.        Dim DPOwn
  6693.  
  6694.        CanEliminate = TRUE
  6695.        NegatePlug = FALSE
  6696.  
  6697.        If (StrComp(strICP, "[ICP None]", vbTextCompare) = 0) Then
  6698.           CanEliminate = FALSE
  6699.        ElseIf (HS.Account.IsICP(strAccount) = FALSE) Then
  6700.           CanEliminate = FALSE
  6701.        ElseIf (HS.PARENT.ISDESCENDANT(HS.PARENT.Member,strICP) = FALSE) Then
  6702.           CanEliminate = FALSE
  6703.        Else
  6704.           strPlug = HS.Account.PlugAcct(strAccount)
  6705.  
  6706.        If (strPlug = "") Then CanEliminate = FALSE
  6707.        End If
  6708.  
  6709.        If CanEliminate Then
  6710.  
  6711.           dPCon = HS.Node.PCon("")
  6712.           dPOwn = HS.Node.POwn("")
  6713.  
  6714.           call HS.Con("V#[Elimination].I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4,-1*dPCon,"")
  6715.           call HS.Con("V#[Elimination].A#"&strPlug&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4,dPCon,"")
  6716.  
  6717.        End If
  6718.     End If
  6719. End Sub
  6720.  
  6721.  
  6722. '   Sub Eliminate (strAccount, strICP)
  6723. '          Dim CanEliminate
  6724. '          Dim strPlug
  6725. '          Dim dPCon
  6726. '          Dim dPOwn
  6727. '          CanEliminate = TRUE
  6728. '          NegatePlug = FALSE
  6729. '
  6730. ''  Call writetofile("ELIM BEGIN")
  6731. '
  6732. '          'If the ICP data has been entered on the "[ICP None]" value then do not eliminate
  6733. '          If (StrComp(strICP, "[ICP None]", vbTextCompare) = 0) Then
  6734. '             CanEliminate = FALSE
  6735. '          'If the account is not marked as inter-company then do not eliminate
  6736. '          ElseIf (HS.Account.IsICP(strAccount) = FALSE) Then
  6737. '             CanEliminate = FALSE
  6738. '          'If we are not at the first common parent, do not eliminate
  6739. '          ElseIf (HS.PARENT.ISDESCENDANT(HS.PARENT.Member,strICP) = FALSE) Then
  6740. '             CanEliminate = FALSE
  6741. '          'Elimination will happen if none of the above criteria is met, and the "strPlug" will get a value
  6742. '          Else
  6743. '             strPlug = HS.Account.PlugAcct(strAccount)
  6744. '          End If
  6745. '
  6746. '          'If no plug account has been setup, no elimination will happen  'HS.Parent.IsDescendant("I#[ICP Top]", "")
  6747. '
  6748. '          If (strPlug = "") Then
  6749. '          CanEliminate = FALSE
  6750. '          End If
  6751. '
  6752. '          'If none of the above criteria have been met, the elimination will happen
  6753. '          If CanEliminate Then
  6754. '
  6755. ''          Call writetofile("A#"&Account&".I#"&ICP&".C1#"&Custom1&".C2#"&Custom2&".C3#"&Custom3&".C4#"&Custom4&" with data = "&Data)
  6756. '             dPCon = HS.Node.PCon("")
  6757. '             dPOwn = HS.Node.POwn("")
  6758. '
  6759. '             'The elimination will happen
  6760. '             call HS.Con("V#[Elimination]",-dPOwn,"")
  6761. '             'The contra entry to the plug account
  6762. '             call HS.Con("V#[Elimination].A#" & strPlug,dPOwn,"")
  6763. '          End If
  6764. ''  Call writetofile("ELIM END")
  6765. '   End Sub
  6766.  
  6767. '********************************************************************************************
  6768. '********************************************************************************************
  6769. 'JV ELIMINATION
  6770. '********************************************************************************************
  6771. '********************************************************************************************
  6772.  
  6773. '   Sub EliminateJV(strAccount, strICP) 'JV elimination rules
  6774. '
  6775. '          Dim CanEliminate
  6776. '          Dim strPlug
  6777. '          Dim dPCon
  6778. '
  6779. '
  6780. '          CanEliminate = TRUE
  6781. '          NegatePlug = FALSE
  6782. '
  6783. '          'If the ICP data has been entered on the "[ICP None]" value then do not eliminate
  6784. '          If (StrComp(strICP, "[ICP None]", vbTextCompare) = 0) Then
  6785. '             CanEliminate = FALSE
  6786. '          'If the account is not marked as inter-company then do not eliminate
  6787. '          ElseIf (HS.Account.IsICP(strAccount) = FALSE) Then
  6788. '             CanEliminate = FALSE
  6789. '          'If we are not at the first common parent, do not eliminate
  6790. '          ElseIf (HS.PARENT.ISDESCENDANT(HS.PARENT.Member,strICP) = FALSE) Then
  6791. '             CanEliminate = FALSE
  6792. '          'Elimination will happen if none of the above criteria is met, and the "strPlug" will get a value
  6793. '          Else
  6794. '             strPlug = HS.Account.PlugAcct(strAccount)
  6795. '          End If
  6796. '
  6797. '          'If no plug account has been setup, no elimination will happen
  6798. '          If (strPlug = "") Then
  6799. '             CanEliminate = FALSE
  6800. '          End If
  6801. '
  6802. '          'If none of the above criteria have been met, the elimination will happen
  6803. '          If CanEliminate Then
  6804. '
  6805. '**             If strAccount = "DivPaid" or strAccount = "491014" or strAccount = "145620" or strAccount = "DividendPayable" then
  6806. '**                 dPCon = 1
  6807. '
  6808. '**             else
  6809. '             dPCon = HS.Node.PCon("E#"&strICP)
  6810. '             dPOwn = HS.Node.POwn("E#"&strICP)
  6811. '          End if
  6812.  
  6813.               'The elimination will happen
  6814. '             call HS.Con("V#[Elimination]",-1*dPOwn,"")
  6815. '             call HS.Con("V#[Elimination]",1-dPOwn,"")
  6816.           'The contra entry to the plug account
  6817. '             call HS.Con("V#[Elimination].A#" & strPlug,dPOwn,"")
  6818.  
  6819.  
  6820.  
  6821. 'End Sub
  6822.  
  6823.  
  6824.  
  6825.  
  6826.  
  6827. Sub Input
  6828.     'make the historic rate accounts on all entities
  6829.     HS.Input "A#AP_RATE"
  6830.     HS.Input "A#SC_ORD_RATE"
  6831.     HS.Input "A#SC_AORD_RATE"
  6832.     HS.Input "A#SP_RATE"
  6833.     HS.Input "A#OR_CONT_RATE"
  6834.     HS.Input "A#OR_EQ_RATE"
  6835.     HS.Input "A#OR_FCTR_RATE"
  6836.     HS.Input "A#OR_FV_RATE"
  6837.     HS.Input "A#OR_HA_RATE"
  6838.     HS.Input "A#OR_HI_RATE"
  6839.     HS.Input "A#OR_RR_RATE"
  6840.     HS.Input "A#OR_SB_RATE"
  6841.     HS.Input "A#OR_OT_RATE"
  6842.     HS.Input "A#OR_EQL_RATE"
  6843.     HS.Input "A#EQL_RATE"
  6844.     'make the historic rate accounts on all entities
  6845.     HS.Input "A#I_AP_RATE"
  6846.     HS.Input "A#I_SC_ORD_RATE"
  6847.     HS.Input "A#I_SC_AORD_RATE"
  6848.     HS.Input "A#I_SP_RATE"
  6849.     HS.Input "A#I_OR_CONT_RATE"
  6850.     HS.Input "A#I_OR_EQ_RATE"
  6851.     HS.Input "A#I_OR_FCTR_RATE"
  6852.     HS.Input "A#I_OR_FV_RATE"
  6853.     HS.Input "A#I_OR_HA_RATE"
  6854.     HS.Input "A#I_OR_HI_RATE"
  6855.     HS.Input "A#I_OR_RR_RATE"
  6856.     HS.Input "A#I_OR_SB_RATE"
  6857.     HS.Input "A#I_OR_OT_RATE"
  6858.     HS.Input "A#I_OR_EQL_RATE"
  6859.     HS.Input "A#I_EQL_RATE"
  6860.  
  6861. End Sub
  6862.  
  6863.  
  6864. '*************************************************
  6865. '*                NO INPUT ROUTINE               *
  6866. '*************************************************
  6867.  
  6868. Sub NoInput()
  6869.     For n = 2024 to 2030
  6870.         HS.NoInput "A#DEB_S_TR_PR_BD_OPEN.Y#"&n
  6871.         HS.NoInput "A#DEB_S_TR_PR_BD_MOV_INC.Y#"&n
  6872.         HS.NoInput "A#DEB_S_TR_PR_ACPOL.Y#"&n
  6873.         HS.NoInput "A#DEB_S_TR_PR_BD_MOV_REV.Y#"&n
  6874.         HS.NoInput "A#DEB_S_TR_PR_BD_SUB_ACQ.Y#"&n
  6875.         HS.NoInput "A#DEB_S_TR_PR_BD_FCTR.Y#"&n
  6876.     Next
  6877. End Sub
  6878.  
  6879.  
  6880. '*****************************************************************************************************************
  6881. '                 WRITE TO FILE
  6882. '*****************************************************************************************************************
  6883.  
  6884. Sub WriteToFile(txtStringToWrite)
  6885.     'this routine will write to a file and create the file first if it is not there
  6886.     'the lines 'On Error Resume Next' and 'On Error Goto 0' will let the system continue processing
  6887.     'in the case there is an error in the routine.  this is desirable because it would be foolish to
  6888.     'let the writing to a file routine bring down HFM unnecessarily is the event of a fatal error
  6889.  
  6890.     'To call this rountine, the following 'template' can be copied and modified appropriately:
  6891.     'Call WriteToFile("Replace this text with whatever you would like written to the file")
  6892.  
  6893.     On Error Resume Next
  6894.      'Set the FileSize Constant to the maximum size you would like the log file to grow before being deleted
  6895.      'e.g., 50mb = 52428800bytes
  6896.      Const FileSize = 52428800
  6897.      'put the name of the file to write the log to in the FileSpec Constant
  6898.      Const FileSpec = "E:\Colin's logs\rulerunlog.txt"
  6899.      'put the name of the file to write a log for when the rules log gets deleted
  6900.      Const FileDeleteSpec =  "E:\Colin's logs\rulerunlogdeleted.txt"
  6901.      Const ForReading = 1, ForWriting = 2, ForAppending = 8
  6902.      Dim fso, f, s, strTemp
  6903.      Set fso = CreateObject("Scripting.FileSystemObject")
  6904.         Set f = fso.GetFile(FileSpec)
  6905.         s = f.size
  6906.      Set f = Nothing
  6907.  
  6908.      'check if filesize is bigger than we desire
  6909.      If FileSize < s then
  6910.       'you can change the directory, file name, and extension (e.g., .htm) to anything you wish below
  6911.       Set f = fso.OpenTextFile(FileDeleteSpec, ForAppending, True)
  6912.       f.WriteLine "Log file (" & FileSpec & ") reached size limit of " & FileSize & " bytes and was deleted at " & Now()
  6913.       f.Close
  6914.       Set f = Nothing
  6915.  
  6916.       'delete file because it surpassed the filesize limitation we desire
  6917.       fso.DeleteFile(FileSpec)
  6918.      Else
  6919.       'continue with processing because filesize is under allotment
  6920.      End If
  6921.      Set f = fso.OpenTextFile(FileSpec, ForAppending, True)
  6922.      f.WriteLine txtStringToWrite & "   " & Now()
  6923.      f.Close
  6924.      Set f = Nothing
  6925.     On Error Goto 0
  6926.  
  6927. End Sub
  6928.  
  6929.  
  6930.  
  6931.  
  6932.             'Clear Calculated Accounts in Cash Flow
  6933. '               HS.Clear ("A#ASS_ADD_FML_EXP.C3#[None].C1#[None]")
  6934. '               HS.Clear ("A#ASS_ADD_FML_MAIN.C3#[None].C1#[None]")
  6935. '               HS.Clear ("A#ASS_ADD_INT_EXP.C3#[None].C1#[None]")
  6936. '               HS.Clear ("A#ASS_ADD_INT_MAIN.C3#[None].C1#[None]")
  6937. '               HS.Clear ("A#ASS_ADD_PPE_EXP.C3#[None].C1#[None]")
  6938. '               HS.Clear ("A#ASS_ADD_PPE_MAIN.C3#[None].C1#[None]")
  6939. '               HS.Clear ("A#ASS_DIS_PRO_FML_ADEP.C3#[None].C1#[None]")
  6940. '               HS.Clear ("A#ASS_DIS_PRO_FML_COST.C3#[None].C1#[None]")
  6941. '               HS.Clear ("A#ASS_DIS_PRO_INT_ADEP.C3#[None].C1#[None]")
  6942. '               HS.Clear ("A#ASS_DIS_PRO_INT_COST.C3#[None].C1#[None]")
  6943. '               HS.Clear ("A#ASS_DIS_PRO_PPE_ADEP.C3#[None].C1#[None]")
  6944. '               HS.Clear ("A#ASS_DIS_PRO_PPE_COST.C3#[None].C1#[None]")
  6945. '               HS.Clear ("A#ASS_INV_ACQ_PREF.C1#[None]")
  6946. '               HS.Clear ("A#ASS_INV_ACQ_SEC.C1#[None]")
  6947. '               HS.Clear ("A#ASS_INV_ACQ_SUPERGRP.C1#[None]")
  6948. '               HS.Clear ("A#ASS_INV_DIS_PREF.C1#[None]")
  6949. '               HS.Clear ("A#ASS_INV_DIS_SEC.C1#[None]")
  6950. '               HS.Clear ("A#ASS_INV_DIS_SUPERGRP.C1#[None]")
  6951. '               HS.Clear ("A#BEGIN_CASH_EQ"&C1234None)
  6952. '               HS.Clear ("A#FA_INTRGRP_CAP_JV")
  6953. '               HS.Clear ("A#FA_INTRGRP_CLOS_CAP")
  6954. '               HS.Clear ("A#FA_INTRGRP_CLOS_EQ")
  6955. '               HS.Clear ("A#FA_INTRGRP_CLOS_FROM")
  6956. '               HS.Clear ("A#FA_INTRGRP_CLOS_TO")
  6957. '               HS.Clear ("A#FA_INTRGRP_OPEN_CAP")
  6958. '               HS.Clear ("A#FA_INTRGRP_OPEN_EQ")
  6959. '               HS.Clear ("A#FA_INTRGRP_OPEN_FROM")
  6960. '               HS.Clear ("A#FA_INTRGRP_OPEN_TO")
  6961. '               HS.Clear ("A#FA_LT_BOR_R_FML"&C1234None)
  6962. '               HS.Clear ("A#FA_LT_BOR_R_INTE"&C1234None)
  6963. '               HS.Clear ("A#FA_LT_BOR_R_INTER"&C1234None)
  6964. '               HS.Clear ("A#FA_LT_BOR_RP_FML"&C1234None)
  6965. '               HS.Clear ("A#FA_LT_BOR_RP_INTE"&C1234None)
  6966. '               HS.Clear ("A#FA_LT_BOR_RP_NINTE"&C1234None)
  6967. '               HS.Clear ("A#FA_SC_AORD_BUYBACK.C1#[None]")
  6968. '               HS.Clear ("A#FA_SC_AORD_CAP_RED.C1#[None]")
  6969. '               HS.Clear ("A#FA_SC_AORD_CASH.C1#[None]")
  6970. '               HS.Clear ("A#FA_SC_ORD_BUYBACK.C1#[None]")
  6971. '               HS.Clear ("A#FA_SC_ORD_CAP_RED.C1#[None]")
  6972. '               HS.Clear ("A#FA_SC_ORD_CASH.C1#[None]")
  6973. '               HS.Clear ("A#FA_SP_BUYBACK.C1#[None]")
  6974. '               HS.Clear ("A#FA_SP_CAP_ISSUE_EX.C1#[None]")
  6975. '               HS.Clear ("A#FA_SP_CAP_RED.C1#[None]")
  6976. '               HS.Clear ("A#FA_SP_CASH.C1#[None]")
  6977. '               HS.Clear ("A#FIN_COST"&C1234None)
  6978. '               HS.Clear ("A#INV_PREF_DIV_RC")
  6979. '               HS.Clear ("A#INV_SEC_DIV_RC")
  6980. '               HS.Clear ("A#INV_SUPERGRP_DIV_RC")
  6981. '               HS.Clear ("A#INVEN_PROV_MOV_TOT.C1#[None]")
  6982. '               HS.Clear ("A#INVEN_PROV_SUB_ACQ.C1#[None]")
  6983. '               HS.Clear ("A#INVEN_PROV_SUB_DIS.C1#[None]")
  6984. '               HS.Clear ("A#LT_DEBT_INT_ACC"&C1234None)
  6985. '               HS.Clear ("A#PRO_INC.C1#[None]")
  6986. '               HS.Clear ("A#PRO_PMT.C1#[None]")
  6987. '               HS.Clear ("A#PRO_REV.C1#[None]")
  6988. '               HS.Clear ("A#SC_AORD_TOTAL.C1#SC_ISS_CAP")
  6989. '               HS.Clear ("A#SC_ORD_TOTAL.C1#SC_ISS_CAP")
  6990. '               HS.Clear ("A#SP_TOTAL.C1#SC_ISS_CAP")
  6991. '               HS.Clear ("A#SUB_ACQ_CASH")
  6992. '               HS.Clear ("A#SUB_ACQ_FML.C3#[None]")
  6993. '               HS.Clear ("A#SUB_ACQ_FV_FRS_FML.C1#[None]")
  6994. '               HS.Clear ("A#SUB_ACQ_FV_FRS_INS.C1#[None]")
  6995. '               HS.Clear ("A#SUB_ACQ_FV_INT_L"&C1234None)
  6996. '               HS.Clear ("A#SUB_ACQ_FV_INV.C1#[None]")
  6997. '               HS.Clear ("A#SUB_ACQ_FV_LT_FML"&C1234None)
  6998. '               HS.Clear ("A#SUB_ACQ_FV_NINT_L"&C1234None)
  6999. '               HS.Clear ("A#SUB_ACQ_FV_OTH_PB.C1#[None]")
  7000. '               HS.Clear ("A#SUB_ACQ_FV_PRO_AF.C1#[None]")
  7001. '               HS.Clear ("A#SUB_ACQ_FV_PRO_BON.C1#[None]")
  7002. '               HS.Clear ("A#SUB_ACQ_FV_PRO_INS.C1#[None]")
  7003. '               HS.Clear ("A#SUB_ACQ_FV_PRO_LP.C1#[None]")
  7004. '               HS.Clear ("A#SUB_ACQ_FV_PRO_OTH.C1#[None]")
  7005. '               HS.Clear ("A#SUB_ACQ_FV_PRO_RES.C1#[None]")
  7006. '               HS.Clear ("A#SUB_ACQ_FV_PRO_RV.C1#[None]")
  7007. '               HS.Clear ("A#SUB_ACQ_FV_PRO_STRUC.C1#[None]")
  7008. '               HS.Clear ("A#SUB_ACQ_FV_PRO_WAR.C1#[None]")
  7009. '               HS.Clear ("A#SUB_ACQ_FV_SUN_RC.C1#[None]")
  7010. '               HS.Clear ("A#SUB_ACQ_FV_TRD_PB.C1#[None]")
  7011. '               HS.Clear ("A#SUB_ACQ_FV_TRD_RC.C1#[None]")
  7012. '               HS.Clear ("A#SUB_ACQ_INT.C1#[None].C3#[None]")
  7013. '               HS.Clear ("A#SUB_ACQ_PPE.C3#[None]")
  7014. '               HS.Clear ("A#SUB_ACQ_PREF_A.C1#[None]")
  7015. '               HS.Clear ("A#SUB_ACQ_SEC_A.C1#[None]")
  7016. '               HS.Clear ("A#SUB_ACQ_SI_AOSCAP.C1#[None]")
  7017. '               HS.Clear ("A#SUB_ACQ_SI_OSCAP.C1#[None]")
  7018. '               HS.Clear ("A#SUB_ACQ_SP.C1#[None]")
  7019. '               HS.Clear ("A#SUB_ACQ_SUPERGRP_A.C1#[None]")
  7020. '               HS.Clear ("A#SUB_DIS_FML"&C13None)
  7021. '               HS.Clear ("A#SUB_DIS_FML_A"&C13None)
  7022. '               HS.Clear ("A#SUB_DIS_FV_FRS_FML.C1#[None]")
  7023. '               HS.Clear ("A#SUB_DIS_FV_FRS_INS.C1#[None]")
  7024. '               HS.Clear ("A#SUB_DIS_FV_INT_L"&C1234None)
  7025. '               HS.Clear ("A#SUB_DIS_FV_INV.C1#[None]")
  7026. '               HS.Clear ("A#SUB_DIS_FV_LT_FML"&C1234None)
  7027. '               HS.Clear ("A#SUB_DIS_FV_NINT_L"&C1234None)
  7028. '               HS.Clear ("A#SUB_DIS_FV_OTH_PB.C1#[None]")
  7029. '               HS.Clear ("A#SUB_DIS_FV_PRO_AF.C1#[None]")
  7030. '               HS.Clear ("A#SUB_DIS_FV_PRO_BON.C1#[None]")
  7031. '               HS.Clear ("A#SUB_DIS_FV_PRO_INS.C1#[None]")
  7032. '               HS.Clear ("A#SUB_DIS_FV_PRO_LP.C1#[None]")
  7033. '               HS.Clear ("A#SUB_DIS_FV_PRO_OTH.C1#[None]")
  7034. '               HS.Clear ("A#SUB_DIS_FV_PRO_RES.C1#[None]")
  7035. '               HS.Clear ("A#SUB_DIS_FV_PRO_RV.C1#[None]")
  7036. '               HS.Clear ("A#SUB_DIS_FV_PRO_STRUC.C1#[None]")
  7037. '               HS.Clear ("A#SUB_DIS_FV_PRO_WAR.C1#[None]")
  7038. '               HS.Clear ("A#SUB_DIS_FV_SUN_RC.C1#[None]")
  7039. '               HS.Clear ("A#SUB_DIS_FV_TRD_PB.C1#[None]")
  7040. '               HS.Clear ("A#SUB_DIS_FV_TRD_RC.C1#[None]")
  7041. '               HS.Clear ("A#SUB_DIS_INT"&C13None)
  7042. '               HS.Clear ("A#SUB_DIS_INT_A"&C13None)
  7043. '               HS.Clear ("A#SUB_DIS_PPE"&C13None)
  7044. '               HS.Clear ("A#SUB_DIS_PPE_A"&C13None)
  7045. '               HS.Clear ("A#SUB_DIS_PREF_A.C1#[None]")
  7046. '               HS.Clear ("A#SUB_DIS_SEC_A.C1#[None]")
  7047. '               HS.Clear ("A#SUB_DIS_SUPERGRP_A.C1#[None]")
  7048. '               HS.Clear ("A#TAX_PAID")
  7049. '               HS.Clear ("A#WCM_FML_C.C1#[None]")
  7050. '               HS.Clear ("A#WCM_FML_E")
  7051. '               HS.Clear ("A#WCM_FML_E.C1#[None]")
  7052. '               HS.Clear ("A#WCM_INS_C.C1#[None]")
  7053. '               HS.Clear ("A#WCM_INS_E")
  7054. '               HS.Clear ("A#WCM_INS_E.C1#[None]")
  7055. '               HS.Clear ("A#WCM_INV_MOV.C1#CLOSING")
  7056. '               HS.Clear ("A#WCM_INV_MOV.C1#OPENING")
  7057. '               HS.Clear ("A#WCM_PAY_OTH.C1#CLOSING")
  7058. '               HS.Clear ("A#WCM_PAY_OTH.C1#OPENING")
  7059. '               HS.Clear ("A#WCM_S_RC.C1#CLOSING")
  7060. '               HS.Clear ("A#WCM_S_RC.C1#OPENING")
  7061. '               HS.Clear ("A#WCM_TPAY.C1#CLOSING")
  7062. '               HS.Clear ("A#WCM_TPAY.C1#OPENING")
  7063. '               HS.Clear ("A#WCM_TR_RC.C1#CLOSING")
  7064. '               HS.Clear ("A#WCM_TR_RC.C1#OPENING")
  7065.  
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!