Как в БП 3.0 в документе поменять ставку и сумму ндс?
По теме из базы знаний
- Загрузка из Excel всех данных, включая книги покупок и книги продаж, в 1С:Бухгалтерия 3.0 для последующего формирования декларации НДС 2015
- Корректировочный счет-фактура в 1С: Бухгалтерия 3.0. Как создать? Как обосновать? Что за собой повлечет?
- Анатомия 1С для чайников
- Учет операций по арендным договорам на примере конфигурации УПП 1.3
- Подбор ставок НДС в счете поставщика. БП 3.0
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Обязательно сделайте резервную копию.
В групповой обработке есть пункт "Выполнить произвольный алгоритм" и встроенная справка по кнопке F1.
Можно написать что-то подобное:
// Доступные переменные:
// Объект - обрабатываемый объект
Для Каждого Стр из Объект.Товары Цикл
Стр.НДС = Стр.Сумма * 0.2
Если Объект.СуммаВключаетНДС Тогда
Стр.Сумма = Стр.Сумма+Стр.НДС
КонецЕсли;
КонецЦикла;
В групповой обработке есть пункт "Выполнить произвольный алгоритм" и встроенная справка по кнопке F1.
Можно написать что-то подобное:
// Доступные переменные:
// Объект - обрабатываемый объект
Для Каждого Стр из Объект.Товары Цикл
Стр.НДС = Стр.Сумма * 0.2
Если Объект.СуммаВключаетНДС Тогда
Стр.Сумма = Стр.Сумма+Стр.НДС
КонецЕсли;
КонецЦикла;
Пересчет сумм в табличной части происходит только при непосредственном изменении реквизита в открытой форме. Так что либо ручками менять в каждом документе ставку НДС, либо как писали в (2) произвольным алгоритмом. для ускорения процесса можно одновременно менять ставку и пересчитывать сумму:
Считаем что сумма у вас правильная
Для Каждого Стр Из Объект.Товары Цикл
Стр.СтавкаНДС=Перечисления.СтавкиНДС.НДС20;
//Стр.СтавкаНДС=Перечисления.СтавкиНДС.НДС20_120;
Стр.СуммаНДС=Стр.Сумма*0,2;
//Стр.СуммаНДС=Стр.Сумма/120*20;
КонецЦикла;
Объект.Записать();
Считаем что сумма у вас правильная
Для Каждого Стр Из Объект.Товары Цикл
Стр.СтавкаНДС=Перечисления.СтавкиНДС.НДС20;
//Стр.СтавкаНДС=Перечисления.СтавкиНДС.НДС20_120;
Стр.СуммаНДС=Стр.Сумма*0,2;
//Стр.СуммаНДС=Стр.Сумма/120*20;
КонецЦикла;
Объект.Записать();
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот