Ошибка в коде

@Lychik · Регистрация: 08.10.2012

Author24 — интернет-сервис помощи студентам

Смысл задания такой: Есть документ с табличной часть. Поле УчетНДС табличной части ссылается на перечисление НДС. При изменении значения поля «Учет НДС» значение поля «Сумма» должно меняться автоматически. При условии, что выбрано значение «С НДС», то к цене прибавляется 18%, если «Без НДС», то цена не меняется.
Код написан следующий:

1C

&НаКлиенте
Процедура ОписаниеУчетНДСПриИзменении(Элемент)
    СтрокаТабличнойЧасти = Элементы.Описание.ТекущиеДанные;
    НДС = Перечисление.НДС.СНДС;
    Если СтрокаТабличнойЧасти.УчетНДС = НДС Тогда
        СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Цена + (СтрокаТабличнойЧасти.Цена * 0.18);
    КонецЕсли;
КонецПроцедуры;

Выдает следующую ошибку:
{Документ.ПлатежноеПоручение.Форма.ФормаДокумента.Форма(5,8)}: Переменная не определена (Перечисление)
НДС = <<?>>Перечисление.НДС.СНДС; (Проверка: Тонкий клиент)

Заранее спасибо.

@duk337 · 16.06.2013, 19:51

Наберите "Переч" и нажмите ^Пробел
Перечисления

@Lychik · 16.06.2013, 19:55 **[ТС]**

Все равно. Та же ошибка.

@duk337 · 16.06.2013, 20:16

Сообщение от Lychik

Переменная не определена (Перечисление)

та же, значит... ну-ну

@Lychik · 16.06.2013, 20:28 **[ТС]**

Ну если совсем точно, то ошибка отличается ровно на одну букву.
{Документ.ПлатежноеПоручение.Форма.ФормаДокумента.Форма(5,8)}: Переменная не определена (Перечисления)
НДС = <<?>>Перечисления.НДС.СНДС; (Проверка: Тонкий клиент)

@duk337 · 16.06.2013, 20:34

так, подождите... Это управляемое? Перечисления видны только на сервере.

@Lychik · 16.06.2013, 20:52 **[ТС]**

Такая мысль возникала. ТОлько что-то никак не соображу как это написать.

@duk337 · 16.06.2013, 21:04

из события на клиенте запустите серверную процедуру или функцию

Добавлено через 4 минуты

1C

&НаКлиенте
Процедура ОписаниеУчетНДСПриИзменении(Элемент)
ОписаниеУчетНДСПриИзмененииНаСервере(Элемент.Текданные)
КонцПР
&НаСервере
Процедура ОписаниеУчетНДСПриИзмененииНаСервере(Стр)
Стр.Сумма=Стр.Цена+?(Стр.УчетНДС = Перечисления.НДС.СНДС,Стр.Цена*0.18,0);

@Lychik · 16.06.2013, 21:25 **[ТС]**

Спасибо. Ошибку теперь не выдает, но работает не так как должно.

@duk337 · 16.06.2013, 21:42

алгоритм сыроват. Подсмотрите в типовых. Там Перечисление - это ставка НДС. Кроме того по смыслу НДС цены не касается. Количество*Цена*(100+ставка)/100 - это сумма с НДС

@Lychik · 16.06.2013, 21:49 **[ТС]**

Хорошо. Спасибо.

@Lychik 0 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 11
	16.06.2013, 21:49 [ТС]	11
	Хорошо. Спасибо. 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	16.06.2013, 19:51	2
	Наберите "Переч" и нажмите ^Пробел Перечисления 0

@Lychik 0 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 11
	16.06.2013, 19:55 [ТС]	3
	Все равно. Та же ошибка. 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	16.06.2013, 20:16	4
	Сообщение от Lychik Переменная не определена (Перечисление) та же, значит... ну-ну 0

@Lychik 0 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 11
	16.06.2013, 20:28 [ТС]	5
	Ну если совсем точно, то ошибка отличается ровно на одну букву. {Документ.ПлатежноеПоручение.Форма.ФормаДокумента.Форма(5,8)}: Переменная не определена (Перечисления) НДС = <<?>>Перечисления.НДС.СНДС; (Проверка: Тонкий клиент) 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	16.06.2013, 20:34	6
	так, подождите... Это управляемое? Перечисления видны только на сервере. 0

@Lychik 0 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 11
	16.06.2013, 20:52 [ТС]	7
	Такая мысль возникала. ТОлько что-то никак не соображу как это написать. 0

@Lychik 0 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 11
	16.06.2013, 21:25 [ТС]	9
	Спасибо. Ошибку теперь не выдает, но работает не так как должно. 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	16.06.2013, 21:42	10
	алгоритм сыроват. Подсмотрите в типовых. Там Перечисление - это ставка НДС. Кроме того по смыслу НДС цены не касается. КоличествоЦена(100+ставка)/100 - это сумма с НДС 0

Опции темы