Доброе время суток!

  Подскажите, плиз, простой способ, если есть, конечно, получения из числа -> Число ( число прописью ) рублей.

  Я вот это накропал:
Рез = Формат(Что, "ЧЦ=15; ЧДЦ=2; ЧРД=-; ЧН=0-00; ЧГ=") + " (" + РаботаСКурсамиВалют.СформироватьСуммуПрописью(Что, Валюта) +") рублей"
 Но получается, что рубли и в скобках и за ними.

файл прописей

счас что-то подумал, можно просто вставить ) перед руб

До таго как число "сговняет" пропись() - не выципить что ль переменной значение?

просто : последего пробелом

ПоследнийПробел
ДенежкиПрописью

Результат = "" + Числ + " ( " + Лев(ДенежкиПрописью, ПоследнийПробел + ")" + Сред(ДенежкиПрописью, ПоследнийПробел)

Что произошло с ДенежкиПрописью? Реально поймать а?

Наверное вот так все же:
Рез = Формат(Что, "ЧЦ=15; ЧДЦ=2; ЧРД=-; ЧН=0-00; ЧГ=") + " (" + СтрЗаменить(РаботаСКурсамиВалют.СформироватьСуммуПрописью(Что, Валюта), " руб", ") руб");

я в шоке :


Функция СформироватьСуммуПрописью(Сумма, Валюта) Экспорт

   Если Валюта.ПараметрыПрописиНаРусском = "" Тогда
       Возврат ОбщегоНазначения.ФорматСумм(Сумма);
   Иначе
       Возврат ЧислоПрописью(Сумма, ,Валюта.ПараметрыПрописиНаРусском);
   КонецЕсли;

КонецФункции

Ред. 11

Функция СформироватьСуммуПрописью(Знач Сумма, Валюта, ВыводитьСуммуБезКопеек = Ложь) Экспорт
   
   Результат         = ?(Сумма < 0, -Сумма, Сумма);
   ЦелаяЧасть        = Цел(Результат);
   ФорматСтрока      = "Л=ru_RU;ДП=Ложь";
   ПараметрыПредмета = ОбщегоНазначения.ПолучитьЗначенияРеквизитов(Валюта, "ПараметрыПрописиНаРусском");
   
   Если Результат = ЦелаяЧасть Тогда
       
       Если ВыводитьСуммуБезКопеек Тогда
           
           Результат = ЧислоПрописью(Результат, ФорматСтрока, ПараметрыПредмета.ПараметрыПрописиНаРусском);
           Результат = Лев(Результат, Найти(Результат, "0") - 1);
           
       Иначе
           
           Результат = ЧислоПрописью(Результат, ФорматСтрока, ПараметрыПредмета.ПараметрыПрописиНаРусском);
           
       КонецЕсли;
       
   Иначе
       
       Результат = ЧислоПрописью(Результат, ФорматСтрока, ПараметрыПредмета.ПараметрыПрописиНаРусском);
       
   КонецЕсли;
   
   Возврат Результат;
   
КонецФункции
(c) 1C

(8) ужас а не функция

им реально за количество строк платят (!)
самая главная красота - это простота :


Функция СформироватьСуммуПрописью(Знач Сумма, Валюта, ВыводитьСуммуБезКопеек = Ложь) Экспорт

Результат         = ?(Сумма < 0, -Сумма, Сумма);
ФорматСтрока      = "Л=ru_RU;ДП=Ложь";
ПараметрыПредмета = ОбщегоНазначения.ПолучитьЗначенияРеквизитов(Валюта, "ПараметрыПрописиНаРусском");
Возврат ЧислоПрописью(?( ВыводитьСуммуБезКопеек ,Цел(Результат) ,Результат ), ФорматСтрока, ПараметрыПредмета.ПараметрыПрописиНаРусском);

КонецФункции

хотя ФорматСтрока и не нужен