12 КодЮнит

[Control]

Конкретно интересует ф-ция "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

[artkashin]

Codeunit 12 -> BalanceCheckAmount

[Control]

Цитата:

Сообщение от Kashin

Codeunit 12 -> BalanceCheckAmount

Спасибище.