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

Перечисления НДС не получается перевести в числовой формат

Автор ksru, 10 ноя 2016, 10:47

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

ksru

Как можно сделать чтоб НДС считалось если оно заданно в перечислениях?
Если можно то скиньте пример.


LexaK

вот пример получения ставки(%) НДС из БП30.

Функция ПолучитьСтавкуНДС(СтавкаНДС, ПрименяютсяСтавки4и2 = Ложь) Экспорт

Если СтавкаНДС = Перечисления.СтавкиНДС.НДС20 ИЛИ СтавкаНДС = Перечисления.СтавкиНДС.НДС20_120 Тогда
Возврат 20;
ИначеЕсли СтавкаНДС = Перечисления.СтавкиНДС.НДС10 ИЛИ СтавкаНДС = Перечисления.СтавкиНДС.НДС10_110 Тогда
Ставка = ?(ПрименяютсяСтавки4и2, 2, 10);
Возврат Ставка;
ИначеЕсли СтавкаНДС = Перечисления.СтавкиНДС.НДС18 ИЛИ СтавкаНДС = Перечисления.СтавкиНДС.НДС18_118 Тогда
Ставка = ?(ПрименяютсяСтавки4и2, 4, 18);
Возврат Ставка;
КонецЕсли;

Возврат 0;

КонецФункции

если помогло нажмите: Спасибо!

ksru

будет работать?

Функция ПолучитьСтавкуНДС(СтавкаНДС) Экспорт

СтрокаТабличнойЧасти=Элементы.ЗаказанныйТовар.ТекущиеДанные;
Если СтрокаТабличнойЧасти.НДС = Перечисления.НДС.Процент18 Тогда
СтрокаТабличнойЧасти.НДС=18;

ИначеЕсли СтавкаНДС = Перечисления.НДС.Процент10 Тогда
СтрокаТабличнойЧасти.НДС= 10;
ИначеЕсли СтавкаНДС = Перечисления.НДС.БезНДС Тогда
СтрокаТабличнойЧасти.НДС= 0;
Иначе
СтрокаТабличнойЧасти.НДС= 0;
КонецЕсли;
КонецФункции

cska-fanat-kz

Цитата: ksru от 11 ноя 2016, 11:06
будет работать?

Функция ПолучитьСтавкуНДС(СтавкаНДС) Экспорт

СтрокаТабличнойЧасти=Элементы.ЗаказанныйТовар.ТекущиеДанные;
Если СтрокаТабличнойЧасти.НДС = Перечисления.НДС.Процент18 Тогда
СтрокаТабличнойЧасти.НДС=18;

ИначеЕсли СтавкаНДС = Перечисления.НДС.Процент10 Тогда
СтрокаТабличнойЧасти.НДС= 10;
ИначеЕсли СтавкаНДС = Перечисления.НДС.БезНДС Тогда
СтрокаТабличнойЧасти.НДС= 0;
Иначе
СтрокаТабличнойЧасти.НДС= 0;
КонецЕсли;
КонецФункции


не то, не тем и не туда :^454^:
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

LexaK

там где у вас в документе расчитывается/пересчитывается сумма,
при изменении Количества, цены и т.д.

как пример, который надо допилить.

&НаКлиенте
Процедура ТоварыКоличествоПриИзменении(Элемент)

    СтрокаТабличнойЧасти=Элементы.ЗаказанныйТовар.ТекущиеДанные;
    СтрокаТабличнойЧасти.СуммаНДС = СтрокаТабличнойЧасти.Количество
        * СтрокаТабличнойЧасти.Цена
        * ПолучитьСтавкуНДС(СтрокаТабличнойЧасти.СтавкаНДС); //обращение к описанной выше функции

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

если помогло нажмите: Спасибо!

Теги:

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

Рейтинг@Mail.ru

Поиск