Transfer

Description

Performs a one-step employee transfer.

Formula

SET CREATENONMISSINGBLK ON;

VAR savedAction = 0;

FIX ([Scenario], [Version], [Employees], [Year])
	DATACOPY [FromDepartment] TO [ToDepartment];
ENDFIX

FIX ([Scenario], [Version], [Employees],  [FromDepartment], [Year], @LEVMBRS("Period", 0), "Local", "HSP_InputValue")
"Action" 
(
	IF  ("Fiscal TP-Index" == [Month]->"Fiscal TP-Index")
		"Action" = 7;
	ELSEIF  ("Fiscal TP-Index" > [Month]->"Fiscal TP-Index")
		"Action" = #MISSING;
	ENDIF
);
CALC DIM ("Account");
ENDFIX

FIX ([Scenario], [Version], [Employees],  [ToDepartment], [Year], [Month], @LEVMBRS("Period", 0), "Local", "HSP_InputValue")
"Action"(
	IF  ("Fiscal TP-Index" == [Month]->"Fiscal TP-Index")
		"Action" = 8;
	ELSEIF  ("Fiscal TP-Index" < [Month]->"Fiscal TP-Index")
		"Action" = #MISSING;
	ELSE
		IF (savedAction <> 7 AND "Action" == 8)
			"Action" = #MISSING;
		ELSEIF ("Action" == 7)
			savedAction = 7;
		ENDIF		 
	ENDIF	
);
CALC DIM ("Account");
ENDFIX