При проведении док. поступление ТМЦ (импорт)в Комплесной конфигурации релиз 483, не верно формируется стоимость ввезенного товара. В стоимость ошибочно вкл. НДС. Как исправить?
При проведении док. поступление ТМЦ (импорт)в Комплесной конфигурации релиз 483, не верно формируется стоимость ввезенного товара. В стоимость ошибочно вкл. НДС. Как исправить?
"Описание: <br>При проведении документа "Поступление ТМЦ (Импорт)" сумма, на <br>которую корректируется движения по партионному учету берется из <br>книги покупок, но для данного документа необходимо определять <br>сумму по регистру взаиморасчетов и не корректировать отражение в <br>партиях сумму таможенных платежей. <br><br>Способ исправления:<br>1. в модуле документа "Поступление ТМЦ (Импорт)" нужно заменить<br>процедуру СкорретироватьДвиженияПартийПоАвансам() на следующую:<br><br>Процедура СкорретироватьДвиженияПартийПоАвансам()<br><br>ОбщаяСуммаДокумента = глПересчет(глОбщаяСуммаДокумента(Контекст), Валюта, Курс, глРубли, 1, Кратность, 1);<br>ОбщаяСуммаПоУчету = 0;<br><br>РегистрВзаиморасчетов = СоздатьОбъект("Регистр.Поставщики");<br>Если РегистрВзаиморасчетов.ВыбратьДвиженияДокумента(ТекущийДокумент()) = 1 Тогда<br>Пока РегистрВзаиморасчетов.ПолучитьДвижение() = 1 Цикл<br>Если РегистрВзаиморасчетов.КодОперации = глКО.Закупка Тогда<br>ОбщаяСуммаПоУчету = ОбщаяСуммаПоУчету + РегистрВзаиморасчетов.ОценкаРуб;<br>КонецЕсли;<br>КонецЦикла;<br>КонецЕсли;<br><br>Если ОбщаяСуммаПоУчету <> 0 Тогда<br>// если документ не отражается по книгам покупок/продаж, корректировать не надо<br>ТаблицаКорректировкиПартий = глСоздатьТаблицуКорректировкиПартий();<br><br>глЗаполнитьТаблицуПоДвижениямРегистраПартий(ТаблицаКорректировкиПартий, Контекст);<br>глСкорретироватьСуммыПартий(ТаблицаКорректировкиПартий, ОбщаяСуммаДокумента, ОбщаяСуммаПоУчету);<br><br>глЗаписатьДвиженияРегистраПартийПоТаблице(ТаблицаКорректировкиПартий, Контекст);<br><br>КонецЕсли;<br><br>КонецПроцедуры // СкорретироватьДвиженияПартийПоАвансам()<br><br>2. в глобальном модуле заменить процедуру глСкорретироватьСуммыПартий() на следующую:<br>Процедура глСкорретироватьСуммыПартий(ТаблицаКорректировкиПартий, ОбщаяСуммаДокумента, ОбщаяСуммаПоУчету) Экспорт<br><br>ТаблицаКорректировкиПартий.ВыбратьСтроки();<br>Пока ТаблицаКорректировкиПартий. ПолучитьСтроку() = 1 Цикл<br>ТаблицаКорректировкиПартий.Количество = 0;<br>ТаблицаКорректировкиПартий.СуммаУпр = 0;<br>Если ТаблицаКорректировкиПартий.КодОперации = глКО.ТаможенныеПлатежи Тогда<br>ТаблицаКорректировкиПартий.СуммаРуб = 0;<br>ТаблицаКорректировкиПартий.СуммаБезНДС = 0;<br>ТаблицаКорректировкиПартий.СуммаПлат = 0;<br>ТаблицаКорректировкиПартий.ПродСтоимость = 0;<br>ТаблицаКорректировкиПартий.Выручка = 0;<br>Иначе<br>ТаблицаКорректировкиПартий.СуммаРуб = ТаблицаКорректировкиПартий.СуммаРуб * (ОбщаяСуммаПоУчету / ОбщаяСуммаДокумента - 1);<br>ТаблицаКорректировкиПартий.СуммаБезНДС = ТаблицаКорректировкиПартий.СуммаБезНДС * (ОбщаяСуммаПоУчету / ОбщаяСуммаДокумента - 1);<br>ТаблицаКорректировкиПартий.СуммаПлат = ТаблицаКорректировкиПартий.СуммаПлат * (ОбщаяСуммаПоУчету / ОбщаяСуммаДокумента - 1);<br>ТаблицаКорректировкиПартий.ПродСтоимость = ТаблицаКорректировкиПартий.ПродСтоимость * (ОбщаяСуммаПоУчету / ОбщаяСуммаДокумента - 1);<br>ТаблицаКорректировкиПартий.Выручка = ТаблицаКорректировкиПартий.Выручка * (ОбщаяСуммаПоУчету / ОбщаяСуммаДокумента - 1);<br>КонецЕсли;<br><br>КонецЦикла;<br><br>КонецПроцедуры // глСкорретироватьСуммыПартий() <br><br>"
Я бухгалтер , не программист!Куда "тыкать", чтобы все что написано сделать.
Волшебной кнопки "Решение всех проблем" нет. Воспользуйтесь услугами программиста.
26 апреля 2024 года — Форум пользователей «1С:Документооборота» |
1C:Лекторий: 25 апреля 2024 года — Бесплатная онлайн-лекция об учете НМА в 2024 году, практические рекомендации в 1С 1C:Лекторий: 7 мая 2024 года — Бесплатная онлайн-лекция о новом в 1С:ЗУП (версии 3.1.27-3.1.29): поддержка изменений по налогам и взносам, СЭДО, регистрация в органе статистики и другие изменения |