Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
18 апр 2024, 13:38

Сумма и ствака НДС

Автор cozac.eric, 03 авг 2016, 12:05

0 Пользователей и 1 гость просматривают эту тему.

cozac.eric

Помогите подсчитать сумму НДС и общую сумму
Написал код но сказали переделать

Вот код:

Процедура ТоварСтавкиНДСПриИзменении(Элемент)

ТекущиеДанные = Элементы.Товар.ТекущиеДанные;


Если ТекущиеДанные.СтавкиНДС = ПредопределенноеЗначение("Перечисление.СтавкиНДС.НДС20") тогда
ТекущиеДанные.СуммаНДС = ТекущиеДанные.Количество * ТекущиеДанные.Цена/100 * 20



ИначеЕсли ТекущиеДанные.СтавкиНДС = ПредопределенноеЗначение("Перечисление.СтавкиНДС.НДС6") тогда
ТекущиеДанные.СуммаНДС = ТекущиеДанные.Количество * ТекущиеДанные.Цена/100 * 6


ИначеЕсли ТекущиеДанные.СтавкиНДС = ПредопределенноеЗначение("Перечисление.СтавкиНДС.БезНДС") тогда
ТекущиеДанные.СуммаНДС = 0


КонецЕсли;
ТекущиеДанные.Итого = ТекущиеДанные.Сумма + ТекущиеДанные.СуммаНДС;
КонецПроцедуры

cozac.eric

Сказали сделать задавая общее условие чтобы при изменении ставки ндс не изменять код а чтобы процедура сама высчитала
я сам не очень понял поэтому и спрашиваю может кто-то чем то поможет

LexaK

все правильно вам сказали, вы все свои ставки НДС забили в коде, при появлении новой ставки вам надо будет изменять код расчета суммы НДС.
самое простое это подсмотреть как "Большой брат" это делает.

или вот подсказка.
когда у вас меняется ставка ндс в ТЧ
не надо писать кучу если, просто обработайте ставку НДС функцией, код будет примерно такой, функцию СтавкаНДС() напишите сами
она должна возвращать число
для 20% - 0.2
для 18% - 0.18
... и т.д.

вроде все понятно

Процедура ТоварСтавкиНДСПриИзменении(Элемент)

    ТекущиеДанные = Элементы.Товар.ТекущиеДанные;
    ТекущиеДанные.СуммаНДС = ТекущиеДанные.Сумма * СтавкаНДС(ТекущиеДанные.СтавкиНДС);
    ТекущиеДанные.Итого = ТекущиеДанные.Сумма + ТекущиеДанные.СуммаНДС;

КонецПроцедуры


заметили как сильно изменился ваш предыдущий код? ;)
если помогло нажмите: Спасибо!

cozac.eric

Спасибо большое помогли

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск