public void Test_01_TLedgerInitFlagHandler()
{
bool blnOld = new TLedgerInitFlag(43, "RevalTest").IsSet;
new TLedgerInitFlag(FLedgerNumber, "RevalTest").IsSet = true;
Assert.IsTrue(new TLedgerInitFlag(
FLedgerNumber, "RevalTest").IsSet, "Flag was set a line before");
TLedgerInitFlag.SetOrRemoveFlag(FLedgerNumber, "RevalTest", true);
Assert.IsTrue(new TLedgerInitFlag(
FLedgerNumber, "RevalTest").IsSet, "Flag was set a line before");
new TLedgerInitFlag(FLedgerNumber, "RevalTest").IsSet = false;
Assert.IsFalse(new TLedgerInitFlag(
FLedgerNumber, "RevalTest").IsSet, "Flag was reset a line before");
TLedgerInitFlag.SetOrRemoveFlag(FLedgerNumber, "RevalTest", false);
Assert.IsFalse(new TLedgerInitFlag(
FLedgerNumber, "RevalTest").IsSet, "Flag was reset a line before");
TLedgerInitFlag.SetFlagComponent(FLedgerNumber, "RevalTest", "A");
TLedgerInitFlag.SetFlagComponent(FLedgerNumber, "RevalTest", "B");
TLedgerInitFlag.SetFlagComponent(FLedgerNumber, "RevalTest", "C");
TLedgerInitFlag.RemoveFlagComponent(FLedgerNumber, "RevalTest", "B");
String NewVal = TLedgerInitFlag.GetFlagValue(FLedgerNumber, "RevalTest");
Assert.IsTrue(NewVal == "A,C", "Flag Value of 'RevalTest' should be 'A,C' but is '" + NewVal + "'");
new TLedgerInitFlag(FLedgerNumber, "RevalTest").IsSet = blnOld;
}
private void CheckIfRevaluationIsDone()
{
if (!FInfoMode)
{
return;
}
TLedgerInitFlag flag = new TLedgerInitFlag(FledgerInfo.LedgerNumber, "", null);
String RevalAccounts = flag.GetFlagValue(MFinanceConstants.LEDGER_INIT_FLAG_REVAL);
if (RevalAccounts == "")
{
return; // Revaluation has been performed.
}
TVerificationResult tvr;
if (FledgerInfo.CurrentPeriod < FledgerInfo.NumberOfAccountingPeriods)
{
tvr = new TVerificationResult(
Catalog.GetString("Currency revaluation"),
String.Format(
Catalog.GetString("Before proceeding you may want to revalue foreign currency accounts {0}."),
RevalAccounts),
"",
TPeriodEndErrorAndStatusCodes.PEEC_05.ToString(), TResultSeverity.Resv_Status);
// Error is non-critical - the user can choose to continue.
}
else
{
tvr = new TVerificationResult(
Catalog.GetString("Currency revaluation"),
String.Format(
Catalog.GetString("The foreign currency accounts {0} need to be revalued."),
RevalAccounts),
"",
TPeriodEndErrorAndStatusCodes.PEEC_05.ToString(), TResultSeverity.Resv_Critical);
// Error is critical - the user nust do a reval.
}
FverificationResults.Add(tvr);
}
