Исправление результатов Фин. Учет Себест. Товаров

[prefreitor]

Цитата:

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

а можно докруткой поделиться с общественностью?

T179

[codebox]CheckEntries()
....................................

IF GLEntry.FIND('-') THEN BEGIN
IF GLEntry."Journal Batch Name" = '' THEN
TestFieldError;
REPEAT
CheckGLAcc(GLEntry,BalanceCheckAmount,BalanceCheckAddCurrAmount);
//////////////UndoCostPosting/////////////////
IF ValueEntry.GET(GLEntry."Value Entry No.") THEN BEGIN
ValueEntry."G/L Entry No. (Account)" := 0;
ValueEntry."G/L Entry No. (Bal. Account)" := 0;
ValueEntry."Cost Posted to G/L" := 0;
ValueEntry."Cost Posted to G/L (ACY)" := 0;
ValueEntry.MODIFY;
END;
//////////////UndoCostPosting/////////////////


UNTIL GLEntry.NEXT = 0;
END;
..............................................................
[/codebox]
Вот фрагментик. Еще проверка кода аудита в функции TestFieldError должна быть хотя бы.
Что касательно вопроса топикстартера там еще придется настроечки учета поправить, изменить фин. счета перед повторным фин. учетом.