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

[ska_punx]

Доброго времени суток.
При проведении пакетного задания Фин. Учет Себест. Товаров, некорректно была настроена одна группа учета и следовательно результат задания некорректен.
Как правильно и повозможности без ручного ввода (ибо некорректных операций больше двухсот) исправить/сторнировать эти опрерации?

Заранее благодарен, за вразумительные ответы.

NAV5 SP1 SQL

[prefreitor]

Нужно зайти в фин. регистры - форма 116. Выбрать нужный регистр и воспользоваться функцией "Аннулировать Регистр".

[Eugeny_F]

А разве после этого "Фин. учтенная Себестоимость" в таблице "Стоимость Операция" обнулится?

[prefreitor]

Цитата:

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

А разве после этого "Фин. учтенная Себестоимость" в таблице "Стоимость Операция" обнулится?

Не посмотрел, что функционал докручен. В принципе доработка несложная: фин. операция связана с операцией стоимости.

[ska_punx]

Цитата:

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

Не посмотрел, что функционал докручен. В принципе доработка несложная: фин. операция связана с операцией стоимости.

ох, а как-нибудь без доработок?

[.Quattro.]

Руками поменять Фин. счет в GL Entry.

[romtex_imported]

Поставьте нужный фильтр и наслаждайтесь:

Dlg.OPEN('Идет Процесс @1@@@@@@@@@@@@@@@@@');

ValueEntry.RESET;
ValueEntry.SETRANGE(поле,значение);
ILECount := ValueEntry.COUNT;
IF ValueEntry.FIND('-') THEN
 REPEAT
  I+= 1;
   IF GLEntry.GET(ValueEntry."G/L Entry No. (Account)") THEN
	BEGIN
	  IF GLEntry.GET(ValueEntry."G/L Entry No. (Account)") THEN GLEntry.DELETE;
	  IF GLEntry.GET(ValueEntry."G/L Entry No. (Bal. Account)") THEN  GLEntry.DELETE;

	  GLCorr.RESET;
	  GLCorr.SETRANGE("Debit Entry No.",ValueEntry."G/L Entry No. (Account)");
	  IF GLCorr.FIND('-') THEN GLCorr.DELETE;

	  GLCorr.RESET;
	  GLCorr.SETRANGE("Debit Entry No.",ValueEntry."G/L Entry No. (Bal. Account)");
	  IF GLCorr.FIND('-') THEN GLCorr.DELETE;

	 GLCorr.RESET;
	 GLCorr.SETRANGE("Credit Entry No.",ValueEntry."G/L Entry No. (Account)");
	 IF GLCorr.FIND('-') THEN GLCorr.DELETE;

	 GLCorr.RESET;
	 GLCorr.SETRANGE("Credit Entry No.",ValueEntry."G/L Entry No. (Bal. Account)");
	 IF GLCorr.FIND('-') THEN GLCorr.DELETE;

	 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;
   Dlg.UPDATE(1,ROUND(I/ILECount*10000,1));
 UNTIL ValueEntry.NEXT = 0;

 Dlg.CLOSE;

[Fordewind]

Цитата:

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

Не посмотрел, что функционал докручен. В принципе доработка несложная: фин. операция связана с операцией стоимости.

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

Цитата:

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

Поставьте нужный фильтр и наслаждайтесь:

Хм, еще ж нужно всякие галочки поснимать, что себестоимость скорректирована. А то при следующем запуске он эти старые не будет корректировать

[Alterant]

Цитата:

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

Хм, еще ж нужно всякие галочки поснимать, что себестоимость скорректирована. А то при следующем запуске он эти старые не будет корректировать

Не, галки вроде снимать не надо, это ж не коррекция, а фин. учет.

[Fordewind]

Цитата:

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

Не, галки вроде снимать не надо, это ж не коррекция, а фин. учет.

Ну точно. Это у кого чего болит...

[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 должна быть хотя бы.
Что касательно вопроса топикстартера там еще придется настроечки учета поправить, изменить фин. счета перед повторным фин. учетом.

[Eugeny_F]

Кстати, если фин. учет запускался не по товарным операциям, а по учетным группам, боюсь, что эти докрутки отработают некорректно

[prefreitor]

Цитата:

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

Кстати, если фин. учет запускался не по товарным операциям, а по учетным группам, боюсь, что эти докрутки отработают некорректно

Полностью согласен, вчера уже когда шел с работы подумал об этом) К сожалению универсального лекарства тут нет.