Учет ›
Разница в сумме в документе реализации в базе УТ 11.4 и БП 30 ›
#19
01.11.22 19:34
(1) Такую же выхватил ситуацию, времени особо нет что то выдумывать или искать разницу в алгоритмах расчета (она есть несомненно).
Нашел косяк в БП (правда конфа не типовая и обновляется не понятно как)
Модуль: УчетДоходовРасходов, процедура - ПолучитьТаблицуРеализацииПоКурсуАвансов()
есть такой код:
// БУ - корректируются значения колонки СуммаБУ.
//z++
СуммаРуб = ТаблицаВзаиморасчетыПоДоговору.Итог("СуммаРуб"); - это я вставил
//СуммаРуб = ТаблицаРезультатПоДоговору.Итог("СуммаРуб"); - вот это было и суммы взаиморасчетов не совпадали с суммой зачета по товарам хотя Сумма Корректировки считается как: разница по итогам именно ТаблицаВзаиморасчетыПоДоговору.
ОбщегоНазначенияБПВызовСервера.РаспределитьСуммуПоКолонкеТаблицы(
СуммаРуб + СуммаКорректировки,
ТаблицаРезультатПоДоговору,
"СуммаБУ",
"СуммаРуб");
Далее по разница в рублевых суммах сделал так:
Затянул через ком валютные отгрузки в базу БП и сравнил рублевые суммы (с ндс, без ндс, общая)
Модуль объекта - РеализацияТоваровУслуг, процедура ОбработкаПроведения
Добавил вот это:
| Код |
|---|
// Таблицы выручки от реализации: собственных товаров и услуг и отдельно комиссионных
ТаблицыРеализация = УчетДоходовРасходов.ПодготовитьТаблицыВыручкиОтРеализации(
ПараметрыПроведения.РеализацияТаблицаДокумента, ТаблицаВзаиморасчеты, ТаблицаСписанныеТовары,
ПараметрыПроведения.Реквизиты, Отказ);
ТаблицаСобственныеТоварыУслуги = ТаблицыРеализация.СобственныеТоварыУслуги;
ТаблицаТоварыУслугиКомитентов = ТаблицыРеализация.ТоварыУслугиКомитентов;
ТаблицаРеализованныеТоварыКомитентов = ТаблицыРеализация.РеализованныеТоварыКомитентов;
//z++ - разный расчет НДС по валютным продажам
Рег = РегистрыСведений._СверкаДокументов.СоздатьНаборЗаписей();
Рег.Отбор.Документ.Установить(ЭтотОбъект.Ссылка);
Рег.Прочитать();
Если Рег.Количество() = 1 Тогда
стрР = Рег[0];
итСумма = ТаблицаСобственныеТоварыУслуги.Итог("СуммаРуб");
итНДС = ТаблицаСобственныеТоварыУслуги.Итог("СуммаНДСРуб");
итБезНДС = ТаблицаСобственныеТоварыУслуги.Итог("СуммаБезНДСРуб");
Если (НЕ итНДС = стрР.дельтаНДС или (стрР.дельтаНДС = 0 и итНДС=0)) и НЕ итБезНДС = стрР.дельтаСумма Тогда
дельтаНДС = стрР.дельтаНДС -итНДС;
ДельтаСумма = стрР.дельтаСумма - итБезНДС;
ТаблицаСобственныеТоварыУслуги[0].СуммаНДСРуб = ТаблицаСобственныеТоварыУслуги[0].СуммаНДСРуб + дельтаНДС;
ТаблицаСобственныеТоварыУслуги[0].СуммаБезНДСРуб = ТаблицаСобственныеТоварыУслуги[0].СуммаБезНДСРуб + ДельтаСумма;
КонецЕсли;
Если НЕ ТаблицаСобственныеТоварыУслуги.Итог("СуммаБУ") = ТаблицаСобственныеТоварыУслуги.Итог("СуммаБезНДСРуб") + ТаблицаСобственныеТоварыУслуги.Итог("СуммаНДСРуб") ТОГДА
ТаблицаСобственныеТоварыУслуги[0].СуммаБУ = ТаблицаСобственныеТоварыУслуги[0].СуммаБУ + ДельтаСумма;
ТаблицаСобственныеТоварыУслуги[0].СуммаНУ = ТаблицаСобственныеТоварыУслуги[0].СуммаНУ + ДельтаСумма;
КонецЕсли;
КонецЕсли; |
возможно решение не самое лучшее, но это сработало и бух от меня отлип
