Добавить расчет Акциза в ВПФ СФ и УПД -Бухгалтерия 3

расчет акциза скопипастить из УТ, нужные регистры заведены в бух базе

этот код надо адаптировать

Если СтрокаДокумента.Номенклатура.АлкогольнаяПродукция И НЕ СтрокаДокумента.Номенклатура.Покупное Тогда
СтавкаАкциза = ПолучитьСуммуАкцизаНаЕдиницуПродукции("Пиво",ДанныеШапки.Дата);
Акциз = СтрокаДокумента.Количество * СтавкаАкциза * КоэффициентАкциза;
Попытка
Если ЗначениеЗаполнено(СтрокаДокумента.Упаковка) Тогда
Если Строка(СтрокаДокумента.Упаковка) = "банка 3 л" Тогда
Акциз = Акциз*3;
ИначеЕсли Строка(СтрокаДокумента.Упаковка) = "банка 2 л" Тогда
Акциз = Акциз*2;
КонецЕсли;
КонецЕсли;
Исключение
Если Строка(СтрокаДокумента.Номенклатура.ОсновнаяЕдиница) = "банка 3 л" Тогда
Акциз = Акциз*3;
ИначеЕсли Строка(СтрокаДокумента.Номенклатура.ОсновнаяЕдиница) = "банка 2 л" Тогда
Акциз = Акциз*2;
КонецЕсли;
КонецПопытки;
Если Строка(СтрокаДокумента.Номенклатура) = "Пиво фильтрованное непастеризованное светлое ""Косоухофф Ячменный колос"" 3 л" Тогда
Акциз = Акциз*3;
КонецЕсли;
Иначе
Акциз = "без акциза";
КонецЕсли;

СахаросодержащийНапиток = УправлениеСвойствами.ЗначениеСвойства(СтрокаДокумента.Номенклатура,"СлабоалкогольныйНапитокАкциз_de5f0ca61d344beb94d08e31f48510d1");
Если ЗначениеЗаполнено(СахаросодержащийНапиток) Тогда
СтавкаАкциза = ПолучитьСуммуАкцизаНаЕдиницуПродукции("Сахар",ДанныеШапки.Дата);
Акциз = СтрокаДокумента.Количество*СтавкаАкциза*КоэффициентАкциза;
КонецЕсли;

СтрокаДокумента.Акциз = Акциз;


и функция

Функция ПолучитьСуммуАкцизаНаЕдиницуПродукции(ВидПродукции, ДатаСреза) Экспорт
Акциз = 0;
Если ВидПродукции = "Пиво" Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| АкцизыСрезПоследних.СуммаАкциза КАК СуммаАкциза
|ИЗ
| РегистрСведений.Акцизы.СрезПоследних(&ДатаСреза, ) КАК АкцизыСрезПоследних";

Запрос.УстановитьПараметр("ДатаСреза", ДатаСреза);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Акциз = ВыборкаДетальныеЗаписи.СуммаАкциза;
КонецЦикла;
ИначеЕсли ВидПродукции = "Сахар" Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| АкцизыСахаросодержащиеНапиткиСрезПоследних.СуммаАкциза КАК СуммаАкциза
|ИЗ
| РегистрСведений.АкцизыСахаросодержащиеНапитки.СрезПоследних(&ДатаСреза) КАК АкцизыСахаросодержащиеНапиткиСрезПоследних";

Запрос.УстановитьПараметр("ДатаСреза",ДатаСреза);
РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Акциз = ВыборкаДетальныеЗаписи.СуммаАкциза;
КонецЦикла;
КонецЕсли;
Возврат(Акциз);
КонецФункции

ВПФ пришлю