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

Число прописью

Автор ahmeda, 21 окт 2010, 13:40

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

ahmeda

Цитата: progmikon от 21 окт 2010, 18:56
Процедура СуммаСтрокой()
ФормСтрока = "Л = ru_RU; ДП = Истина";
ПарПредмета="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
ЗначПодв=Состав.Итог("Сумма");
ПрописьЧисла = ЧислоПрописью(ЗначПодв, ФормСтрока, ПарПредмета);
ЭлементыФормы.надпись1.Значение = ПрописьЧисла;
КонецПроцедуры

Сделайте обращение к этой процедуре в ПриОткрытии() и СоставПередОкончаниемРедактирования(.


Не, не помогает

progmikon

Что не помогает? Запостите ваш код.

ahmeda

Цитата: progmikon от 21 окт 2010, 19:21
Что не помогает? Запостите ваш код.

Процедура СоставКоличествоПриИзменении(Элемент)
   
   СсылкаНаСТЧ=ЭлементыФормы.Состав.ТекущиеДанные;
   СсылкаНаСТЧ.Сумма=СсылкаНаСТЧ.Количество*СсылкаНаСТЧ.Цена;
   
   ФормСтрока = "Л = ru_RU; ДП = Истина";
   ПарПредмета="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
   //ЗначПодв=ЭлементыФормы.Состав.Значение.Итог("Сумма");
   ЗначПодв=Состав.Итог("Сумма");

   ПрописьЧисла = ЧислоПрописью(ЗначПодв, ФормСтрока, ПарПредмета);

   ЭлементыФормы.Надпись2.Заголовок=ПрописьЧисла;
   
                          
                
КонецПроцедуры

Процедура СоставЦенаПриИзменении(Элемент)
    стч=ЭлементыФормы.Состав.ТекущиеДанные;     
   СТЧ.Сумма=СТЧ.Количество*СТЧ.Цена;
   ФормСтрока = "Л = ru_RU; ДП = Истина";
   ПарПредмета="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
   //ЗначПодв=ЭлементыФормы.Состав.Значение.Итог("Сумма");
   ЗначПодв=Состав.Итог("Сумма");

   ПрописьЧисла = ЧислоПрописью(ЗначПодв, ФормСтрока, ПарПредмета);

   ЭлементыФормы.Надпись2.Заголовок=ПрописьЧисла;


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


Процедура СоставКоличествоОткрытие(Элемент, СтандартнаяОбработка)

   СсылкаНаСТЧ=ЭлементыФормы.Состав.ТекущиеДанные;
   СсылкаНаСТЧ.Сумма=СсылкаНаСТЧ.Количество*СсылкаНаСТЧ.Цена;
   
   ФормСтрока = "Л = ru_RU; ДП = Истина";
   ПарПредмета="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
   //ЗначПодв=ЭлементыФормы.Состав.Значение.Итог("Сумма");
   ЗначПодв=Состав.Итог("Сумма");

   ПрописьЧисла = ЧислоПрописью(ЗначПодв, ФормСтрока, ПарПредмета);

   ЭлементыФормы.Надпись2.Заголовок=ПрописьЧисла;

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

Процедура СоставКоличествоОкончаниеВводаТекста(Элемент, Текст, Значение, СтандартнаяОбработка)
   СсылкаНаСТЧ=ЭлементыФормы.Состав.ТекущиеДанные;
   СсылкаНаСТЧ.Сумма=СсылкаНаСТЧ.Количество*СсылкаНаСТЧ.Цена;
   
   ФормСтрока = "Л = ru_RU; ДП = Истина";
   ПарПредмета="рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2";
   //ЗначПодв=ЭлементыФормы.Состав.Значение.Итог("Сумма");
   ЗначПодв=Состав.Итог("Сумма");
   ПрописьЧисла = ЧислоПрописью(ЗначПодв, ФормСтрока, ПарПредмета);

   ЭлементыФормы.Надпись2.Заголовок=ПрописьЧисла;

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


progmikon

А где у вас процедура приОткрытии формы?
Именно в ней вы и должны производить расчет.

ahmeda

Цитата: progmikon от 21 окт 2010, 19:38
А где у вас процедура приОткрытии формы?
Именно в ней вы и должны производить расчет.


:zebzdr: Спасибо progmikon, все заработало!

progmikon

Не за что. Пишите снова :)

Теги:

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

Рейтинг@Mail.ru

Поиск