Конкретно интересует ф-ция "InitGLEntry" в CU 12, а в ней место
Код:
IF GLEntry."Posting Date" = NORMALDATE(GLEntry."Posting Date") THEN BEGIN
BalanceCheckAmount :=
BalanceCheckAmount + GLEntry.Amount * ((GLEntry."Posting Date" - 01010000D) MOD 99 + 1);
BalanceCheckAmount2 :=
BalanceCheckAmount2 + GLEntry.Amount * ((GLEntry."Posting Date" - 01010000D) MOD 98 + 1);
END ELSE BEGIN
BalanceCheckAmount :=
BalanceCheckAmount + GLEntry.Amount * ((NORMALDATE(GLEntry."Posting Date") - 01010000D + 50) MOD 99 + 1);
BalanceCheckAmount2 :=
BalanceCheckAmount2 + GLEntry.Amount * ((NORMALDATE(GLEntry."Posting Date") - 01010000D + 50) MOD 98 + 1);
END;
Интересно пчему именно эти константы выбраны. Заранее спасибо.
PS NAV 4.0 SP3