Красное сторно

[aleksys]

Как можно сделать красное сторно для операции списания товара?

[mazzy]

Для товара только возврат.

Навижин сделан исходя из предположения, что для склада бывает только две операции - приход и расход.

[rootadmin]

Однако в кредит-ноте есть для этого спец. галочка - Коррекция

[rov_imported]

Цитата:

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

Однако в кредит-ноте есть для этого спец. галочка - Коррекция

Да, только она не сторнирует проводки по себестоимости

[Alterant]

Цитата:

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

Однако в кредит-ноте есть для этого спец. галочка - Коррекция

Она сторнирует (красное сторно) только операции поставщика, а товарные - нет.

[rootadmin]

Жаль... очень жаль...

[ablievn_imported]

Там легко добавить возможность сторнировать и себестоимость. Кстати насчет сторнирования кредит-ноты. Если использовать налоговые группы вместо ндс-групп, то ндс тоже не сторнируется.

[mazzy]

ablievn, либо объяснитесь поподробнее. либо не путайте народ.
сторно складских операций что в Аксапте, что в Навижине "добавить" очень непросто.

Если вы считаете, что "легко", то расскажите как ваша добавка будет работать с товарными издержками и коррекцией себестоимости.

[ablievn_imported]

Какие потенциальные проблемы могут быть с коррекцией себестоимости и товарными издержками. На примере можете объяснить. Может я действительно зря путаю народ. Просто мы у себя сделали сторнирование товарных проводок по требованию бухгалтерии, а как на это может повлиять коррекция еще не успели разобраться. Насчет товарных издержек тоже интересно послушать, но не так актуально, мы их пока не используем.

[mazzy]

Цитата:

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

а как на это может повлиять коррекция еще не успели разобраться...

а... ясна. можно я не буду повторяться?
ищите здесь, на ахфоруме, на мибусо.ру.
Обсуждалось неоднократно.

Когда разберетесь, вернемся к вопросу?

[ablievn_imported]

ок. вернемся. Бухгалтерия все равно не передумает, так что придется копаться

[rov_imported]

Цитата:

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

Там легко добавить возможность сторнировать и себестоимость. Кстати насчет сторнирования кредит-ноты. Если использовать налоговые группы вместо ндс-групп, то ндс тоже не сторнируется.

Может быть правда: поделитесь решением-каким образом у вас это реализовано?

[Kirvisniemi]

CurrForm.Description.UPDATEFORECOLOR(255);

[ablievn_imported]

поделюсь. Немного кода в 22 и 5802 cu

Если интересно можно и сам код кинуть.

[rov_imported]

Цитата:

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

поделюсь. Немного кода в 22 и 5802 cu

Если интересно можно и сам код кинуть.

Тьфу! Код у меня давно сам написан, я думал вы это настройками разрулили(по крайней мере так это читается из вашего поста).

[Rom]

Цитата:

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

поделюсь. Немного кода в 22 и 5802 cu

Если интересно можно и сам код кинуть.


Тьфу! Код у меня давно сам написан, я думал вы это настройками разрулили(по крайней мере так это читается из вашего поста).

to ablievn and rov




Если не жалко, выложите код по коррекции себестоимости

Спасибо!

[ablievn_imported]

Можно и код. У нас он работает нормально, но как было сказано выше, в дальнейшем могут возникнуть проблемы с коррекцией себестоимости. Правда суть этих проблем пока не ясна, мы тоже еще не столкнулись:

5802 кю.
1) Заводим глобальную переменную bSalesCrMemoCorrection - boolean
2) Заводим ф-цию SetCrMemoCorrection
//AN_050220+
bSalesCrMemoCorrection := TRUE;
3) В ф-ции PostInvtPostBuf нужно добавить то, что внутри коммент.

IF AdjustmentCorrection THEN BEGIN
GenJnlLine.Correction := TRUE;
IF NotAdjustmentCorrectionACY THEN
GenJnlLine."Not Add.-Currency Correction" := TRUE;
END;
//AN_050220+{
IF bSalesCrMemoCorrection THEN
GenJnlLine.Correction := TRUE;
//AN_050220+}

IF OnlyAdjustmentCorrectionACY THEN
GenJnlLine."Only Add.-Currency Correction" := TRUE;

InsertJnlLineDim(GenJnlLine,TempJnlLineDim,"Dimension Entry No.");

22 кю. Ф-ция PostInventoryToGL с изменениями выглядит так:

WITH ValueEntry DO BEGIN
IF (NOT "Expected Cost") AND ("Entry Type" = "Entry Type"::"Direct Cost") AND
("Item Charge No." = '')
THEN
BalanceInterimPostToGL("Posting Date","Item Ledger Entry No.");

IF InvtPost.BufferInvtPosting(ValueEntry) THEN BEGIN
WithPost := TRUE;
//AN_050220+{
lGLSetup.GET;
IF lGLSetup."Mark Cr. Memos as Corrections" THEN
IF ValueEntry."Item Ledger Entry Type" = ValueEntry."Item Ledger Entry Type"::Sale THEN BEGIN
IF lILE.GET(ValueEntry."Item Ledger Entry No.") THEN
IF lILE.Positive THEN
IF NOT lILE.Correction THEN
InvtPost.SetCrMemoCorrection;
END;
//AN_050220+}
InvtPost.PostInvtPostBufPerEntry("Posting Date",ValueEntry,WithPost);
END;
END;

[Иннокентий_imported]

у нас есть готовый модуль по корректному удалению любых учтенных документов. на форуме есть обсуждение и описание функционала