2
егаис
11.03.25
✎
13:36
|
Никто не сталкивался с таким? Т.е все грузят без флага "Цена включает НДС", а потом, после ручного изменения, усердно перебивают сумму, т.к. включается режим корректировок через скидки? )))
|
|
4
егаис
11.03.25
✎
14:24
|
&ИзменениеИКонтроль("ЦенаВключаетНДСПриИзмененииСервер")
Процедура корПриход_ЦенаВключаетНДСПриИзмененииСервер(КэшированныеЗначения)
#Вставка
Для Каждого СтрокаТовары Из Объект.Товары Цикл
Если Объект.ЦенаВключаетНДС Тогда
СтрокаТовары.Сумма = СтрокаТовары.СуммаСНДС;
Иначе
СтрокаТовары.Сумма = СтрокаТовары.СуммаСНДС - СтрокаТовары.СуммаНДС;
КонецЕсли;
СтрокаТовары.Цена = ?(СтрокаТовары.Количество = 0, 0, СтрокаТовары.Сумма / СтрокаТовары.Количество);
КонецЦикла;
#КонецВставки
СтруктураПересчетаСуммы = ОбработкаТабличнойЧастиКлиентСервер.ПараметрыПересчетаСуммыНДСВТЧ(Объект);
СтруктураДействий = Новый Структура;
СтруктураДействий.Вставить("ПересчитатьСуммуНДС", СтруктураПересчетаСуммы);
СтруктураДействий.Вставить("ПересчитатьСуммуСНДС", СтруктураПересчетаСуммы);
СтруктураДействий.Вставить("ОчиститьСуммуВзаиморасчетов");
ОбработкаТабличнойЧастиСервер.ОбработатьТЧ(Объект.Товары, СтруктураДействий, КэшированныеЗначения);
ОбщегоНазначенияУТ.ЗаполнитьДубликатыЗависимыхРеквизитовВКоллекции(Объект.Товары, ЗависимыеРеквизиты());
РассчитатьИтоговыеПоказателиПоступления(ЭтаФорма);
КонецПроцедуры
воткнул костыль, хз насколько корректно
|
|