Подскажите как программно заполнить ставку ндс с последующей обработкой
Добрый день!
Бухгалтерия предприятия, редакция 3.0 (3.0.98.11)
Делаю обработки загрузки платежек.
В своей обработке присваиваю НДС.
После чего в платежке она присваивается, но не идёт дальнейшее изменение реквизитов (изменение суммы НДС и назначения платежа).
Я так предполагаю нужно пользоваться каким-то методом ОбработкаРеквизитов или что-то наподобие.
код создание платежки, что нужно сделать, чтобы при изменении реквизита НДС, начали менять остальные поля.
Бухгалтерия предприятия, редакция 3.0 (3.0.98.11)
Делаю обработки загрузки платежек.
В своей обработке присваиваю НДС.
После чего в платежке она присваивается, но не идёт дальнейшее изменение реквизитов (изменение суммы НДС и назначения платежа).
Я так предполагаю нужно пользоваться каким-то методом ОбработкаРеквизитов или что-то наподобие.
код создание платежки, что нужно сделать, чтобы при изменении реквизита НДС, начали менять остальные поля.
Для каждого Стр Из Объект.Загрузка Цикл
СозданиеДокументов = Документы.ПлатежноеПоручение.СоздатьДокумент();
СозданиеДокументов.Дата = ТекущаяДата();
СозданиеДокументов.Организация = Справочники.Организации.НайтиПоНаименованию(Объект.Организация);
СозданиеДокументов.СчетОрганизации = Справочники.БанковскиеСчета.НайтиПоНаименованию(СозданиеДокументов.Организация.ОсновнойБанковскийСчет);
СозданиеДокументов.Контрагент = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН", Стр.ИНН);
СозданиеДокументов.СчетКонтрагента = Справочники.БанковскиеСчета.НайтиПоНаименованию(Стр.БанковскийСчёт);
СозданиеДокументов.ОчередностьПлатежа = 5;
СозданиеДокументов.ДокументОснование = Справочники.ДоговорыКонтрагентов.НайтиПоНаименованию(Стр.ДоговорОснование);
СозданиеДокументов.СуммаДокумента = Стр.Сумма;
СозданиеДокументов.ВидОперации = ПредопределенноеЗначение("Перечисление.ВидыОперацийСписаниеДенежныхСредств.ОплатаПоставщику");
СозданиеДокументов.ВидПлатежа = "Электронно";
СозданиеДокументов.СтавкаНДС = ПредопределенноеЗначение("Перечисление.СтавкиНДС.НДС20");
СозданиеДокументов.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоНаименованию(Стр.ДДС);
СозданиеДокументов.НазначениеПлатежа = Стр.НазначПлатеж
+ СозданиеДокументов.СуммаДокумента
+ СозданиеДокументов.СтавкаНДС;
Если УчетДенежныхСредствБП = Неопределено Тогда
Иначе
РеквизитыПлательщикаПолучателя = УчетДенежныхСредствБП.СформироватьАвтоЗначенияРеквизитовПлательщикаПолучателя(
СозданиеДокументов.Организация,
СозданиеДокументов.СчетОрганизации,
СозданиеДокументов.Контрагент,
СозданиеДокументов.СчетКонтрагента);
ЗаполнитьЗначенияСвойств(СозданиеДокументов, РеквизитыПлательщикаПолучателя,
"ИННПлательщика, ИННПолучателя, КПППлательщика, КПППолучателя, ТекстПлательщика, ТекстПолучателя");
//ПересчитатьСуммуНДС(СозданиеДокументов.СуммаДокумента, СозданиеДокументов.СтавкаНДС);
СозданиеДокументов.Записать();
КонецЕсли;
КонецЦикла;
Сообщить("Платежные поручения созданы");
КонецПроцедуры
ПоказатьПо теме из базы знаний
Найденные решения
Помогло следующее.
СозданиеДокументов.СтавкаНДС = Перечисления.СтавкиНДС.СтавкаНДС(Перечисления.ВидыСтавокНДС.Общая, СозданиеДокументов.Дата);
СозданиеДокументов.СуммаНДС = ПересчитатьСуммуНДС(СозданиеДокументов.СуммаДокумента, СозданиеДокументов.СтавкаНДС);
&НаКлиентеНаСервереБезКонтекста
Функция ПересчитатьСуммуНДС(СуммаДокумента, СтавкаНДС)
ПроцентНДС = УчетНДСВызовСервераПовтИсп.ПолучитьСтавкуНДС(СтавкаНДС);
СуммаНДС = Окр(СуммаДокумента * ПроцентНДС / (100 + ПроцентНДС), 2);
Возврат СуммаНДС;
КонецФункции
ПоказатьОстальные ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Помогло следующее.
СозданиеДокументов.СтавкаНДС = Перечисления.СтавкиНДС.СтавкаНДС(Перечисления.ВидыСтавокНДС.Общая, СозданиеДокументов.Дата);
СозданиеДокументов.СуммаНДС = ПересчитатьСуммуНДС(СозданиеДокументов.СуммаДокумента, СозданиеДокументов.СтавкаНДС);
&НаКлиентеНаСервереБезКонтекста
Функция ПересчитатьСуммуНДС(СуммаДокумента, СтавкаНДС)
ПроцентНДС = УчетНДСВызовСервераПовтИсп.ПолучитьСтавкуНДС(СтавкаНДС);
СуммаНДС = Окр(СуммаДокумента * ПроцентНДС / (100 + ПроцентНДС), 2);
Возврат СуммаНДС;
КонецФункции
Показать
Вакансии
Аналитик 1С / Бизнес-аналитик
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)