|
Сумма Прописью |
☑ |
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", Валюта.ПараметрыПрописиНаРусском)
|
|