Неправильная себестоимость в бухгалтерии при возврате товаров от комиссионера

Типовая бухгалтерия ред. 3.0, замечено на релизе 3.0., но сама проблема вероятно появилась ранее. При возврате товаров от комиссионера проводка Дт 41.1 Кт 45 делается с неправильной себестоимостью.

Вплоть до того. что на сч. 45 образуется суммовой остаток без количества. Причем суммовой остаток может быть как положительный так и отрицательный.

Описанная ситуация может возникать, если в документе указана себестоимость возвращаемого товара. Причем колонка с себестоимостью в форме документа недоступна для просмотра. То, что себестоимость указана, можно проверить с помощью обработки "Данные объекта".

Причиной может быть использование типового обмена с типовой торговлей ред 10.3. В этом случае себестоимость выгружается из торговли, даже если в настройках обмена установлено: себестоимость - не передавать.

Для исправления необходимо изменить правила выгрузки из УТ - для реквизита "Себестоимость" группы свойств (табличной части) "Товары" внести изменения в обработчик события "ПередВыгрузкой":

// оквита
Если УзелДляОбмена.ВариантПереносаСебестоимостиСписанияВБухгалтериюПредприятия = Перечисления.ВариантыПереносаСебестоимостиСписанияВБухгалтериюПредприятия.НеПереносить Тогда
     Значение = 0;
Иначе
// / оквита
 
ВалютаРегл = Параметры.ВалютаРегламентированногоУчета;
ВалютаУпр  = Параметры.ВалютаУправленческогоУчета;
 
Если ЗначениеЗаполнено(ОбъектКоллекции.Себестоимость) И ТипЗнч(ОбъектКоллекции.Себестоимость) = Тип("Число") Тогда
 
     Значение = ОбъектКоллекции.Себестоимость; 
 
     Если НЕ ВалютаУпр = ВалютаРегл Тогда
         СтруктураКурса = МодульВалютногоУчета.ПолучитьКурсВалюты(Параметры.ВалютаУправленческогоУчета, Источник.Дата);
         КурсУпр = СтруктураКурса.Курс;
         КратностьУпр = СтруктураКурса.Кратность;
 
         Значение = МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(Значение, ВалютаУпр, ВалютаРегл,
         КурсУпр, 1, КратностьУпр, 1);
     КонецЕсли;
 
     ОбъектКоллекции.Себестоимость = Окр(Значение, 2); 
 
 
 
 
Иначе
 
     Отказ = Истина;
 
КонецЕсли;
// оквита
КонецЕсли;
// / оквита

Обновлено 14.01.2018 08:27

Главное меню