cozac.eric
Приватное сообщение
Нужно вывести сумму вместе со ставкой НДС
- В архиве
4 |
0
5 августа 2016 в 16:10:19
(8 лет 13 недель 2 дня 22 часа назад)
- 01.08.2016 15:29:24
Текст задания
Написал код ошибки никакой не выдает но не работает.Помогите решить проблему
Вот код:
НаКлиенте
Процедура ТоварыСтавкаНДСПриИзменении(Элемент)
ТекДанные = Элементы.Товар.ТекущиеДанные;
Если ТекДанные.Объект.Товар.СтавкиНДС.СтавкиНДС=Объект.Товар.СтавкиНДС.Перечисление. СтавкиНДС.НДС6 тогда
НДС=6;
ИначеЕсли ТекДанные.Объект.Товар.СтавкиНДС.СтавкиНДС=Объект.Товар.СтавкиНДС.Перечисление. СтавкиНДС.НДС20 тогда
НДС=20;
ИначеЕсли ТекДанные.Объект.Товар.СтавкиНДС.СтавкиНДС=Объект.Товар.СтавкиНДС.Перечисление. СтавкиНДС.БезНДС тогда
НДС=0;
КонецЕсли;
СуммаБезНДС = Объект.Товар.Количество*Объект.Товар.Цена;
СуммаНДС = Объект.Товар.Количество*Объект.Товар.Цена/100;
Итого = Объект.Товар.Количество*Объект.Товар.Цена*(1+НДС/100);
Вот код:
НаКлиенте
Процедура ТоварыСтавкаНДСПриИзменении(Элемент)
ТекДанные = Элементы.Товар.ТекущиеДанные;
Если ТекДанные.Объект.Товар.СтавкиНДС.СтавкиНДС=Объект.Товар.СтавкиНДС.Перечисление. СтавкиНДС.НДС6 тогда
НДС=6;
ИначеЕсли ТекДанные.Объект.Товар.СтавкиНДС.СтавкиНДС=Объект.Товар.СтавкиНДС.Перечисление. СтавкиНДС.НДС20 тогда
НДС=20;
ИначеЕсли ТекДанные.Объект.Товар.СтавкиНДС.СтавкиНДС=Объект.Товар.СтавкиНДС.Перечисление. СтавкиНДС.БезНДС тогда
НДС=0;
КонецЕсли;
СуммаБезНДС = Объект.Товар.Количество*Объект.Товар.Цена;
СуммаНДС = Объект.Товар.Количество*Объект.Товар.Цена/100;
Итого = Объект.Товар.Количество*Объект.Товар.Цена*(1+НДС/100);
0
Отклики (2)
-
Дмитрий Смирнов
Санкт-Петербург(Россия)1 августа 2016 в 17:36:03600/час1 часЦена за час.
Обращайтесь. -
Максим Игоревич
Минск(Беларусь)1 августа 2016 в 19:24:38650/час1 часЕсли вам нужна помощь в решении собственными силами, то пишите на тематических форумах.
Но если вам нужен результат, то готов решить вашу проблему за вас.
Скайп: Xershi
Почта: maximbukanov@rambler.ru
Viber: +375256111399
