Нужна помощь в нахождении ошибки!

Форум Программирование Общие вопросы программирования (Dev)
1. Pishka622 19.09.21 12:38 Сейчас в теме
&НаКлиенте
Процедура ИзменениеЦены(Команда)

Перем ВводимоеЧисло;
ОбратныйВызов = Новый ОписаниеОповещения("ОбратныйВызов", ЭтотОбъект);
ПоказатьВводЧисла(ОбратныйВызов, ВводимоеЧисло, "Введите Число", 15, 5);
Строка = Элементы.Товары.ТекущиеДанные;
Сумма = Строка.СуммаСНДС;
Сумма = Сумма + ВводимоеЧисло;


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

&НаКлиенте
Процедура ОбратныйВызов(ВводимоеЧисло, ДопПар) Экспорт

Если ВводимоеЧисло = Неопределено Тогда
Сообщить("Ничего не введено!");
Иначе
Сообщить(ВводимоеЧисло);
КонецЕсли;

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


Была поставлена задача создать команду, которая запрашивает у пользователя число и изменяет сумму на введенное число. Проблема в том, что при отладке возникает ошибка, что преобразования к типу число невозможно, хотя значение в колонке таблицы- число
+ – Ответить
По теме из базы знаний
Найденные решения
2. spacecraft 19.09.21 12:55 Сейчас в теме
(1)
Проблема в том, что при отладке возникает ошибка, что преобразования к типу число невозможно, хотя значение в колонке таблицы- число

Конечно невозможно преобразовать Неопределено к числу.

Как вариант: 
&НаКлиенте
Процедура ИзменениеЦены(Команда)
  ОбратныйВызов = Новый ОписаниеОповещения("ОбратныйВызов", ЭтотОбъект);
  ПоказатьВводЧисла(ОбратныйВызов, 0, "Введите Число", 15, 5);
КонецПроцедуры

&НаКлиенте
Процедура ОбратныйВызов(ВводимоеЧисло, ДопПар) Экспорт
  Если НЕ ВводимоеЧисло = Неопределено Тогда
    Строка = Элементы.Товары.ТекущиеДанные;
    Строка.СуммаСНДС = Строка.СуммаСНДС + ВводимоеЧисло;
  КонецЕсли;
КонецПроцедуры
Показать
Pishka622; +1 – Ответить
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. spacecraft 19.09.21 12:55 Сейчас в теме
(1)
Проблема в том, что при отладке возникает ошибка, что преобразования к типу число невозможно, хотя значение в колонке таблицы- число

Конечно невозможно преобразовать Неопределено к числу.

Как вариант: 
&НаКлиенте
Процедура ИзменениеЦены(Команда)
  ОбратныйВызов = Новый ОписаниеОповещения("ОбратныйВызов", ЭтотОбъект);
  ПоказатьВводЧисла(ОбратныйВызов, 0, "Введите Число", 15, 5);
КонецПроцедуры

&НаКлиенте
Процедура ОбратныйВызов(ВводимоеЧисло, ДопПар) Экспорт
  Если НЕ ВводимоеЧисло = Неопределено Тогда
    Строка = Элементы.Товары.ТекущиеДанные;
    Строка.СуммаСНДС = Строка.СуммаСНДС + ВводимоеЧисло;
  КонецЕсли;
КонецПроцедуры
Показать
Pishka622; +1 – Ответить
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот