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

[ahmeda]

Здравствуйте!

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

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

[progmikon]

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

Решения:
1. Сделать реквизитом и туда писать.
2. При открытии формы выполнять расчет из вашей процедуры.

[ahmeda]

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

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

только учитывается одна строка, а мне нужет итог по колонке Сумма
   
                          
                

[progmikon]

Тогда сохраняйте Состав.Итог("Сумма").

Или я вас не правильно понял?

[ahmeda]

Тык в том то и дело, я сохраняю, надпись появляется, жму ОК, провожу опер-но.
Потом снова открываю этот документ, а надписи нет!

[progmikon]

А вы ее куда сохраняете в реквизит с типом строка?

[vurdalak]

Еще можно методом Формат попробовать.

[ahmeda]

А вы ее куда сохраняете в реквизит с типом строка?

На форме документа создал текстовую надпись, туда и сохраняю

[ahmeda]

Еще можно методом Формат попробовать.

А это как? Если не сложно примерный код напишите.

[progmikon]

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

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