Calc Scripts used for forecast Monthly, Cut-Offs:
/* Filling Forecast value for April , May , June based on the Trend from Jan to Mar */
"AvgFCinApr"
(
IF (@ISMBR ("Actual"))
"AvgFCinApr" = "Mar" > "Jan";
"Apr" = "Mar" * "Forecast PC";
"May" = "Apr" * "Forecast PC";
"Jun" = "May" * "Forecast PC";
ENDIF;
)
//ESS_LOCALE English_UnitedStates.Latin1@Binary
/* Copy Data from Actual Scenario to LE Scenario for closed month */
datacopy "Actual"->"Jan" to "AprLEFC"->"Jan";
datacopy "Actual"->"Feb" to "AprLEFC"->"Feb";
datacopy "Actual"->"Mar" to "AprLEFC"->"Mar";
/* Data Copy for Units */
FIX ("Units")
datacopy "Actual"->"Mar" to "AprLEFC"->"Apr";
datacopy "Actual"->"Mar" to "AprLEFC"->"May";
datacopy "Actual"->"Mar" to "AprLEFC"->"Jun";
ENDFIX
/* Data Copy for Price */
FIX ("Price")
datacopy "Actual"->"Mar" to "AprLEFC"->"Apr";
datacopy "Actual"->"Mar" to "AprLEFC"->"May";
datacopy "Actual"->"Mar" to "AprLEFC"->"Jun";
ENDFIX
/* Forecast for Units */
FIX ("AprLEFC","Apr","May","Jun")
(
"Units" = "Units"*"Forecast PC"->"NoSegment";
)
ENDFIX
/* Forecast percentage for Price */
FIX ("AprLEFC","Apr","May","Jun")
(
"Price" = "Price"+"FCPrice"->"NoSegment";
)
ENDFIX
/* This Forecast done in Apr
Data copy for the Actual of previous months (Jan&Feb) + Plan of next 3 months (MarMay) */
Datacopy "Actual"->"Jan" to "AprOrgFC";
Datacopy "Actual"->"Feb" to "AprOrgFC";
Datacopy "Actual"->"Mar" to "AprOrgFC";
Datacopy "Plan"->"Apr" to "AprOrgFC";
Datacopy "Plan"->"May" to "AprOrgFC";
Datacopy "Plan"->"Jun" to "AprOrgFC";
/* Copy Data from Actaul Scenario to LE Scenario for closed month */
datacopy "Actual"->"Jan" to "FebLEFC"->"Jan";
/* February Latest Estimate is January Actual * percentage spcified in the Form */
"Forecast PC"
(
IF (@ISMBR("FebLEFC"))
"Forecast PC" = "FebLEFC"->"Jan" * "Feb";
ENDIF
)
HSE_Rates:
//ESS_LOCALE English_UnitedStates.Latin1@Binary
SET CACHE DEFAULT;
SET UPDATECALC OFF;
SET CLEARUPDATESTATUS OFF;
SET LOCKBLOCK HIGH;
FIX("Version","Currency","Segments")
FIX(@REMOVE(@LEVMBRS("Account",0),@LIST("HSP_Average","HSP_Ending","HSP_
Historical")),@REMOVE(@LEVMBRS("HSP_Rates",0),@LIST("HSP_InputValue","HSP_In
putCurrency")),@LEVMBRS("Year",0),@LEVMBRS("Scenario",0))
"Entity" (
IF (@ISUDA("Account","Average"))
"BegBalance" = "BegBalance"->"HSP_Average";
"Jan" = "Jan"->"HSP_Average";
"Feb" = "Feb"->"HSP_Average";
"Mar" = "Mar"->"HSP_Average";
"Apr" = "Apr"->"HSP_Average";
"May" = "May"->"HSP_Average";
"Jun" = "Jun"->"HSP_Average";
"Jul" = "Jul"->"HSP_Average";
"Aug" = "Aug"->"HSP_Average";
"Sep" = "Sep"->"HSP_Average";
"Oct" = "Oct"->"HSP_Average";
"Nov" = "Nov"->"HSP_Average";
"Dec" = "Dec"->"HSP_Average";
ELSEIF (@ISUDA("Account","Ending"))
"BegBalance" = "BegBalance"->"HSP_Ending";
"Jan" = "Jan"->"HSP_Ending";
"Feb" = "Feb"->"HSP_Ending";
"Mar" = "Mar"->"HSP_Ending";
"Apr" = "Apr"->"HSP_Ending";
"May" = "May"->"HSP_Ending";
"Jun" = "Jun"->"HSP_Ending";
"Jul" = "Jul"->"HSP_Ending";
"Aug" = "Aug"->"HSP_Ending";
"Sep" = "Sep"->"HSP_Ending";
"Oct" = "Oct"->"HSP_Ending";
"Nov" = "Nov"->"HSP_Ending";
"Dec" = "Dec"->"HSP_Ending";
ELSEIF (@ISUDA("Account","Historical"))
"BegBalance" = "BegBalance"->"HSP_Historical";
"Jan" = "Jan"->"HSP_Historical";
"Feb" = "Feb"->"HSP_Historical";
"Mar" = "Mar"->"HSP_Historical";
"Apr" = "Apr"->"HSP_Historical";
"May" = "May"->"HSP_Historical";
"Jun" = "Jun"->"HSP_Historical";
"Jul" = "Jul"->"HSP_Historical";
"Aug" = "Aug"->"HSP_Historical";
"Sep" = "Sep"->"HSP_Historical";
"Oct" = "Oct"->"HSP_Historical";
"Nov" = "Nov"->"HSP_Historical";
"Dec" = "Dec"->"HSP_Historical";
ELSEIF (@ISUDA("Account","NoRate"))
"BegBalance" = 1;
"Jan" = 1;
"Feb" = 1;
"Mar" = 1;
"Apr" = 1;
"May" = 1;
"Jun" = 1;
"Jul" = 1;
"Aug" = 1;
"Sep" = 1;
"Oct" = 1;
"Nov" = 1;
"Dec" = 1;
ENDIF;
);
ENDFIX ;
ENDFIX ;
