Использование функции ЧислоПрописью в справочнике
Здравствуйте, в моей конфигурации в справочнике ОбъектыНедвижимости рассчитывается стоимость объекта недвижимости, а результат передается в реквизит "КадастроваяСтоимостьОбъекта". Соответственно в реквизите "КадастроваяСтоимостьОбъектаПрописью" сумма должна преобразоваться в текст, вот код реквизита:
&НаКлиенте
Процедура КадастроваяСтоимостьОбъектаПриИзменении(Элемент)
Объект.КадастроваяСтоимостьПрописью = ЧислоПрописью(Объект.КадастроваяСтоимость, "Л=ru_RU;ДП=Истина", "рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2");
КонецПроцедуры
Я уже пользовался этой функцией в документе но и в справочнике она должна работать, но результат не отображается. Заранее извиняюсь если вопрос слишком простой.
&НаКлиенте
Процедура КадастроваяСтоимостьОбъектаПриИзменении(Элемент)
Объект.КадастроваяСтоимостьПрописью = ЧислоПрописью(Объект.КадастроваяСтоимость, "Л=ru_RU;ДП=Истина", "рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2");
КонецПроцедуры
Я уже пользовался этой функцией в документе но и в справочнике она должна работать, но результат не отображается. Заранее извиняюсь если вопрос слишком простой.
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
В таком виде? Дело в том что стоимость рассчитывается в табличной части "РасчетСтоимости".
&НаКлиенте
Процедура РассчитатьКадастровуюСтоимостьОбъекта()
ТекДанные = Элементы.РасчетСтоимости.ТекущиеДанные;
ТекДанные.Стоимость = ТекДанные.ЦенаЗемельногоУчасткаЗаКвадратныйМетр * ТекДанные.ПлощадьЗемельногоУчастка + ТекДанные.ЦенаЗаКвадратныйМетр * ТекДанные.ПлощадьНедвижимости;
Объект.КадастроваяСтоимостьПрописью = ЧислоПрописью(ТекДанные.Стоимость, "Л=ru_RU;ДП=Истина", "рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2")
КонецПроцедуры
&НаКлиенте
Процедура РассчитатьКадастровуюСтоимостьОбъекта()
ТекДанные = Элементы.РасчетСтоимости.ТекущиеДанные;
ТекДанные.Стоимость = ТекДанные.ЦенаЗемельногоУчасткаЗаКвадратныйМетр * ТекДанные.ПлощадьЗемельногоУчастка + ТекДанные.ЦенаЗаКвадратныйМетр * ТекДанные.ПлощадьНедвижимости;
Объект.КадастроваяСтоимостьПрописью = ЧислоПрописью(ТекДанные.Стоимость, "Л=ru_RU;ДП=Истина", "рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2")
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот