Имя: Пароль:
1C
 
Сумма Прописью
0 DI-NIght
 
07.12.06
17:56
Народ ХЕЛП!!!

Нужно вывести сумму прописью в печатной форме документа по данным одной из формы ввода документа
Я сделал так
ФормСтрока = "Л = ru_RU; ДП = Истина";
ПарПредмета="Рубль,Рубля,Рублей,м,Копейка,Копейки,Копеек,м,2";
ПрописьЧисла = ЧислоПрописью(ЭлементыФормы.ОбщийИтог.Значение, ФормСтрока, ПарПредмета);
   Область.параметры.пропись = ПрописьЧисла;
   ТабДок.Вывести(Область);
Тоесть сумма прописью по "ЭлементыФормы.ОбщийИтог.Значение" Но проблемма в том, что копейки тоже рисует прописью, а нужно чтобы числом, как это можно сделать?
1 aka MikleV
 
07.12.06
18:00
(0) низнаю можно ли "стандартно" я бы отрезал у итога копейки в переменную..
в итоге получица надпись "... ноль копеек" и ноль копеек заменил бы на значение из переменной
2 ФантомGS
 
07.12.06
18:26
А если округлить число до целого и вывести округленное число а слова копейки уберать или поставить пустые позии а к числу копейки приплюсовать строкой из числа???
3 Молния
 
07.12.06
18:32
Ну ты блин даешь. Смотришь в стандартной бухгалтерии как в ТОРГ12 формируется сумма прописью и делаешь так же.
5 Neco
 
07.12.06
18:48
ФормСтрока = "Л = ru_RU; ДП = Истина; НД=Истина";
7 Cumpuciy
 
11.12.06
12:46
Функция обФорматСумм(Сумма, Валюта = Неопределено, ЧН = "", ЧРГ = "") Экспорт

   ФорматнаяСтрока = "ЧЦ=15;ЧДЦ=2" +
                   ?(обЗначениеНеЗаполнено(ЧН), "", ";" + "ЧН=" + ЧН) +
                   ?(обЗначениеНеЗаполнено(ЧРГ),"", ";" + "ЧРГ=" + ЧРГ);
   РезультирующаяСтрока = СокрЛ(Формат(Сумма, ФорматнаяСтрока));
   
   Если Не обЗначениенеЗаполнено(Валюта) Тогда
       РезультирующаяСтрока = РезультирующаяСтрока + " " + СокрП(Валюта);
   КонецЕсли;

   Возврат РезультирующаяСтрока;

КонецФункции
8 Cumpuciy
 
11.12.06
12:49
ЧислоПрописью(Сумма, "L=ru_RU", Валюта.ПараметрыПрописиНаРусском)
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший