Поступрление ТМЦ (импорт) Комплексная конф. 483 релиз

Новая тема
При проведении  док. поступление ТМЦ (импорт)в Комплесной конфигурации релиз 483, не верно формируется стоимость ввезенного товара. В стоимость ошибочно вкл. НДС. Как исправить?
"Описание:
При проведении документа "Поступление ТМЦ (Импорт)" сумма, на
которую корректируется движения по партионному учету берется из
книги покупок, но для данного документа необходимо определять
сумму по регистру взаиморасчетов и не корректировать отражение в
партиях сумму таможенных платежей.

Способ исправления:
1. в модуле документа "Поступление ТМЦ (Импорт)" нужно заменить
процедуру СкорретироватьДвиженияПартийПоАвансам() на следующую:

Процедура СкорретироватьДвиженияПартийПоАвансам()

ОбщаяСуммаДокумента = глПересчет(глОбщаяСуммаДокумента(Контекст), Валюта, Курс, глРубли, 1, Кратность, 1);
ОбщаяСуммаПоУчету = 0;

РегистрВзаиморасчетов = СоздатьОбъект("Регистр.Поставщики");
Если РегистрВзаиморасчетов.ВыбратьДвиженияДокумента(ТекущийДокумент()) = 1 Тогда
Пока РегистрВзаиморасчетов.ПолучитьДвижение() = 1 Цикл
Если РегистрВзаиморасчетов.КодОперации = глКО.Закупка Тогда
ОбщаяСуммаПоУчету = ОбщаяСуммаПоУчету + РегистрВзаиморасчетов.ОценкаРуб;
КонецЕсли;
КонецЦикла;
КонецЕсли;

Если ОбщаяСуммаПоУчету <> 0 Тогда
// если документ не отражается по книгам покупок/продаж, корректировать не надо
ТаблицаКорректировкиПартий = глСоздатьТаблицуКорректировкиПартий();

глЗаполнитьТаблицуПоДвижениямРегистраПартий(ТаблицаКорректировкиПартий, Контекст);
глСкорретироватьСуммыПартий(ТаблицаКорректировкиПартий, ОбщаяСуммаДокумента, ОбщаяСуммаПоУчету);

глЗаписатьДвиженияРегистраПартийПоТаблице(ТаблицаКорректировкиПартий, Контекст);

КонецЕсли;

КонецПроцедуры // СкорретироватьДвиженияПартийПоАвансам()

2. в глобальном модуле заменить процедуру глСкорретироватьСуммыПартий() на следующую:
Процедура глСкорретироватьСуммыПартий(ТаблицаКорректировкиПартий, ОбщаяСуммаДокумента, ОбщаяСуммаПоУчету) Экспорт

ТаблицаКорректировкиПартий.ВыбратьСтроки();
Пока ТаблицаКорректировкиПартий. ПолучитьСтроку() = 1 Цикл
ТаблицаКорректировкиПартий.Количество = 0;
ТаблицаКорректировкиПартий.СуммаУпр = 0;
Если ТаблицаКорректировкиПартий.КодОперации = глКО.ТаможенныеПлатежи Тогда
ТаблицаКорректировкиПартий.СуммаРуб = 0;
ТаблицаКорректировкиПартий.СуммаБезНДС = 0;
ТаблицаКорректировкиПартий.СуммаПлат = 0;
ТаблицаКорректировкиПартий.ПродСтоимость = 0;
ТаблицаКорректировкиПартий.Выручка = 0;
Иначе
ТаблицаКорректировкиПартий.СуммаРуб = ТаблицаКорректировкиПартий.СуммаРуб * (ОбщаяСуммаПоУчету / ОбщаяСуммаДокумента - 1);
ТаблицаКорректировкиПартий.СуммаБезНДС = ТаблицаКорректировкиПартий.СуммаБезНДС * (ОбщаяСуммаПоУчету / ОбщаяСуммаДокумента - 1);
ТаблицаКорректировкиПартий.СуммаПлат = ТаблицаКорректировкиПартий.СуммаПлат * (ОбщаяСуммаПоУчету / ОбщаяСуммаДокумента - 1);
ТаблицаКорректировкиПартий.ПродСтоимость = ТаблицаКорректировкиПартий.ПродСтоимость * (ОбщаяСуммаПоУчету / ОбщаяСуммаДокумента - 1);
ТаблицаКорректировкиПартий.Выручка = ТаблицаКорректировкиПартий.Выручка * (ОбщаяСуммаПоУчету / ОбщаяСуммаДокумента - 1);
КонецЕсли;

КонецЦикла;

КонецПроцедуры // глСкорретироватьСуммыПартий()

"
Я бухгалтер , не программист!Куда "тыкать", чтобы все что написано сделать.
Волшебной кнопки "Решение всех проблем" нет. Воспользуйтесь услугами программиста.
Читают тему
(гостей: 1)

Быстрый переход