Crystal Reports 10 - Сумма прописью / Отчетные системы

2.0.37

Полная версия Контакт Правила FAQ Помощь

Гость

Нов. | Гор. | Избр.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / Crystal Reports 10 - Сумма прописью / 21 сообщений из 21, страница 1 из 1

21.04.2010, 16:26

#36590582

006631

Гость

Crystal Reports 10 - Сумма прописью

Возможно ли В Crystal Reports 10 преобразовать число в число прописью на русском языке, в английский преобразовавыется ToWords, а как сделать на русский?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

21.04.2010, 17:12

#36590733

ustass

Гость

Crystal Reports 10 - Сумма прописью

В CR2008 это зависит от локализации пользователя на портале, может и в 10 то же самое

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

22.04.2010, 07:56

#36591489

006631

Гость

Crystal Reports 10 - Сумма прописью

ustass,

WEB портал не используем, отчеты открываем с помощью команды ScaCRV.exe имя_отчета, на клиентах стоят русские Windows либо английские с русским MUI

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

22.04.2010, 17:28

#36592987

vova626

Гость

Crystal Reports 10 - Сумма прописью

имею CR2008. rus

Число 344,0 перевелось как "три сто сорок четыре и хх / 100"

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

04.05.2010, 08:25

#36610195

Kruchinin Pahan

Участник

Откуда: Екатеринбург
Сообщения: 926
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

006631Возможно ли В Crystal Reports 10 преобразовать число в число прописью на русском языке, в английский преобразовавыется ToWords, а как сделать на русский?
Надо писать самостоятельно. Приблизительный код может быть таким (тестировалось в 11 версии):

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.

//  0 . Входящие параметры
// lnInNumber   - Число для прописи
// lnPadeg      - Падеж
//       1  - именительный,
//       2  - родительный,
//       3  - дательный,
//       4  - винительный,
//       5  - творительный,
//       6  - предложный
// lnRod        - Род
//       0  - мужской род,
//       1  - женский род,
//       2  - средний род
Function (NumberVar lnInNumber, NumberVar lnPadeg, NumberVar lnRod)
// Исходящий параметр
LOCAL StringVar lcResult := "" ;
//  1 . Блок мнемонического потриадного преобразования.'101456701' ковертируется в '1c0d1em4c5d6et7c0d1e'
LOCAL NumberVar lnCnt_Triade ;
LOCAL NumberVar lnTriade ;
SELECT lnInNumber 
CASE  0 : lcResult := '0e.'
CASE  1 : lcResult := '1e.'
DEFAULT : (
    FOR lnCnt_Triade :=  1  TO Ceiling(Log(lnInNumber)/Log( 10 )/ 3 ) DO (    
        lnTriade := lnInNumber mod  1000  ;
        lnInNumber := FLOOR(lnInNumber /  1000 ) ;
        IF lnTriade <>  0  THEN (
            select lnCnt_Triade
                case  1  : lcResult := "." + lcResult
                case  2  : lcResult := "t" + lcResult
                case  3  : lcResult := "m" + lcResult
                case  4  : lcResult := "M" + lcResult ;
            lcResult := ToText (lnTriade Mod  10 , "0") + "e" + lcResult ;
            lcResult := ToText (FLOOR(lnTriade /  10 ) Mod  10 , "0") + "d" + lcResult ;
            lcResult := ToText (FLOOR(lnTriade /  100 ) Mod  10 , "0") + "c" + lcResult ;
            ) ;
    ) ;
lcResult ;
) ;
//  2 . Блок преобразования из мнемоник в слова
//  2 . 1 . Сотни
lcResult := REPLACE(lcResult, '0c', "") ;
lcResult := REPLACE(lcResult, '1c', MakeArray("сто ", "ста ", "ста ", "сто ", "ста ", "ста ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '2c', MakeArray("двести ", "двухсот ", "двухстам ", "двести ", "двумястами ", "двухста ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '3c', MakeArray("триста ", "трехсот ", "трехстам ", "триста ", "тремястами ", "трехста ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '4c', MakeArray("четыреста ", "четырехсот ", "четыремстам ", "четыреста ", "четырьмястами ", "четырехста ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '5c', MakeArray("пятьсот ", "пятиста ", "пятистам ", "пятьсот ", "пятистами ", "пятиста ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '6c', MakeArray("шестьсот ", "шестиста ", "шестистам ", "шестьсот ", "шестистами ", "шестиста ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '7c', MakeArray("семьсот ", "семиста ", "семистам ", "семьсот ", "семистами ", "семиста ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '8c', MakeArray("восемьсот ", "восьмиста ", "восьмистам ", "восемьсот ", "восьмистами ", "восьмиста ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '9c', MakeArray("девятьсот ", "девятиста ", "девятистам ", "девятьсот ", "девятистами ", "девятиста ")[lnPadeg]) ;
//  2 . 2 . Дцати
lcResult := REPLACE(lcResult, '1d0e', MakeArray("десять ", "десяти ", "десяти ", "десять ", "десятью ", "десяти ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '1d1e', MakeArray("одиннадцать ", "одиннадцати ", "одиннадцати ", "одиннадцать ", "одиннадцатью ", "одинадцати ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '1d2e', MakeArray("двенадцать ", "двенадцати ", "двенадцати ", "двенадцать ", "двенадцатью ", "двенадцати ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '1d3e', MakeArray("тринадцать ", "тринадцати ", "тринадцати ", "тринадцать ", "тринадцатью ", "тринадцати ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '1d4e', MakeArray("четырнадцать ", "четырнадцати ", "четырнадцати ", "четырнадцать ", "четырнадцатью ", "четырнадцати ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '1d5e', MakeArray("пятнадцать ", "пятнадцати ", "пятнадцати ", "пятнадцать ", "пятнадцатью ", "пятнадцати ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '1d6e', MakeArray("шестнадцать ", "шестнадцати ", "шестнадцати ", "шестнадцать ", "шестнадцатью ", "шестнадцати ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '1d7e', MakeArray("семнадцать ", "семнадцати ", "семнадцати ", "семнадцать ", "семнадцатью ", "семнадцати ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '1d8e', MakeArray("восемнадцать ", "восемнадцати ", "восемнадцати ", "восемнадцать ", "восемнадцатью ", "восемнадцати ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '1d9e', MakeArray("девятнадцать ", "девятнадцати ", "девятнадцати ", "девятьнадцмть ", "девятнадцатью ", "девятнадцати ")[lnPadeg]) ;
//  2 . 4 . Десятки
lcResult := REPLACE(lcResult, '0d', "") ;
lcResult := REPLACE(lcResult, '2d', MakeArray("двадцать ", "двадцати ", "двадцати ", "двадцать ", "двадцатью ", "двадцати ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '3d', MakeArray("тридцать ", "тридцати ", "тридцати ", "тридцать ", "тридцатью ", "тридцати ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '4d', MakeArray("сорок ", "сорока ", "сорока ", "сорок ", "сорока ", "сорока ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '5d', MakeArray("пятьдесят ", "пятидесяти ", "пятидесяти ", "пятьдесят ", "пятьюдесятью ", "пятидесяти ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '6d', MakeArray("шестьдесят ", "шестидесяти ", "шестидесяти ", "шестьдесят ", "шестьюдесятью ", "шестидесяти ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '7d', MakeArray("семьдесят ", "семидесяти ", "семидесяти ", "семьдесят ", "семьюдесятью ", "семидесяти ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '8d', MakeArray("восемьдесят ", "восьмидесяти ", "восьмидесяти ", "восемьдесят ", "восьмьюдесятью ", "восьмидесяти ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '9d', MakeArray("девяносто ", "девяноста ", "девяноста ", "девяносто ", "девяноста ", "девяноста ")[lnPadeg]) ;
//  2 . 5 . Единицы  5 - 9 
lcResult := REPLACE(lcResult, '0e', "") ;
lcResult := REPLACE(lcResult, '5e', MakeArray("пять ", "пяти ", "пяти ", "пять ", "пятью ", "пяти ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '6e', MakeArray("шесть ", "шести ", "шести ", "шесть ", "шестью ", "шести ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '7e', MakeArray("семь ", "семи ", "семи ", "семь ", "семью ", "семи ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '8e', MakeArray("восемь ", "восьми ", "восьми ", "восемь ", "восемью ", "восьми ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '9e', MakeArray("девять ", "девяти ", "девяти ", "девять ", "девятью ", "девяти ")[lnPadeg]) ;
//  2 . 6 . Единицы  1 - 4 
 SELECT lnRod
    //  2 . 6 . 1  Женский род. Единицы  1 - 4 
    CASE  1  : (
        lcResult := REPLACE(lcResult, '1e.', MakeArray("одна ", "одной ", "одной ", "одну ", "одной ", "одной ")[lnPadeg]) ;
        lcResult := REPLACE(lcResult, '2e.', MakeArray("две ", "двух ", "двум ", "две ", "двумя ", "двух ")[lnPadeg]) ;
        lcResult := REPLACE(lcResult, '3e.', MakeArray("три ", "трех ", "трем ", "три ", "тремя ", "трех ")[lnPadeg]) ;
        lcResult := REPLACE(lcResult, '4e.', MakeArray("четыре ", "четырех ", "четырем ", "четыре ", "четырьмя ", "четырех ")[lnPadeg]) ;
        )
    //  2 . 6 . 2  Средний род. Единицы  1 - 4 
    CASE  2  : (
        lcResult := REPLACE(lcResult, '1e.', MakeArray("одно ", "одного ", "одному ", "одно ", "одним ", "одном ")[lnPadeg]) ;
        lcResult := REPLACE(lcResult, '2e.', MakeArray("два ", "двух ", "двум ", "два ", "двумя ", "двух ")[lnPadeg]) ;
        lcResult := REPLACE(lcResult, '3e.', MakeArray("три ", "трех ", "трем ", "три ", "тремя ", "трех ")[lnPadeg]) ;
        lcResult := REPLACE(lcResult, '4e.', MakeArray("четыре ", "четырех ", "четырем ", "четыре ", "четырьмя ", "четырех ")[lnPadeg]) ;
        )
    //  2 . 6 . 3  Мужской род. Единицы  1 - 4 
    DEFAULT : (
        lcResult := REPLACE(lcResult, '1e.', MakeArray("один ", "одного ", "одному ", "одного ", "одним ", "одном ")[lnPadeg]) ;
        lcResult := REPLACE(lcResult, '2e.', MakeArray("два ", "двух ", "двум ", "двух ", "двумя ", "двух ")[lnPadeg]) ;
        lcResult := REPLACE(lcResult, '3e.', MakeArray("три ", "трех ", "трем ", "трех ", "тремя ", "трех ")[lnPadeg]) ;
        lcResult := REPLACE(lcResult, '4e.', MakeArray("четыре ", "четырех ", "четырем ", "четырех ", "четырьмя ", "четырех ")[lnPadeg]) ;
        ) ; 
//  2 . 7 . Тысячи  1 - 4 
lcResult := REPLACE(lcResult, '1et', MakeArray("одна тысяча ", "одной тысячи ", "одной тысячи ", "одну тысячу ", "одной тысячей ", "одной тысяче ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '2et', MakeArray("две тысячи ", "двух тысяч ", "двум тысячам ", "две тысячи ", "двумя тысячами ", "двух тысячах ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '3et', MakeArray("три тысячи ", "трех тысяч ", "трем тысячам ", "три тысячи ", "тремя тысячами ", "трех тысячах ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '4et', MakeArray("четыре тысячи ", "четырех тысяч ", "четырем тысячам ", "четыре тысячи ", "четырьмя тысячами ", "четырех тысячах ")[lnPadeg]) ;
//  2 . 8 . Миллионы  1 - 4 
lcResult := REPLACE(lcResult, '1em', MakeArray("один миллион ", "одного миллиона ", "одному миллиону ", "один миллион ", "одним миллионом ", "одном миллионе ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '2em', MakeArray("два миллиона ", "двух миллионов ", "двум миллионам ", "два миллиона ", "двумя миллионами ", "двух миллионах ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '3em', MakeArray("три миллиона ", "трех миллионов ", "трем миллионам ", "три миллиона ", "тремя миллионами ", "трех миллионах ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '4em', MakeArray("четыре миллиона ", "четырех миллионов ", "четырем миллионам ", "четыре миллиона ", "четырьмя миллионами ", "четырех миллионах ")[lnPadeg]) ;
//  2 . 9 . Миллиарды  1 - 4 
lcResult := REPLACE(lcResult, '1eM', MakeArray("один милиард ", "одного миллиарда ", "одному миллиарду ", "один миллиард ", "одним миллиардом ", "одном миллиарде ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '2eM', MakeArray("два милиарда ", "двух миллиардов ", "двум миллиардам ", "два миллиарда ", "двумя миллиардами ", "двух миллиардах ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '3eM', MakeArray("три милиарда ", "трех миллиардов ", "трем миллиардам ", "три миллиарда ", "тремя миллиардами ", "трех миллиардах ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, '4eM', MakeArray("четыре милиарда ", "четырех миллиардов ", "четырем миллиардам ", "четыре миллиарда ", "четырьмя миллиардами ", "четырех миллиардах ")[lnPadeg]) ;
//  2 . 10 . Названия триад
lcResult := REPLACE(lcResult, '.', "") ;
lcResult := REPLACE(lcResult, 't', MakeArray("тысяч ", "тысяч ", "тысячам ", "тысяч ", "тысячами ", "тысячах ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, 'm', MakeArray("миллионов ", "миллионов ", "миллионам ", "миллионов ", "миллионами ", "миллионах ")[lnPadeg]) ;
lcResult := REPLACE(lcResult, 'M', MakeArray("миллиардов ", "миллиардов ", "миллиардам ", "миллиардов ", "миллиардами ", "миллиардах ")[lnPadeg]) ;
TRIM(lcResult) ;

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.10.2010, 16:08

#36901874

Adtain

Участник

Откуда: Moscow
Сообщения: 289
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

А как функцию в Crystal добавить?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

20.01.2011, 17:14

#37069788

НадеждаМ

Участник

Сообщения: 812
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

Привет всем. Применила данную функцию, но у меня 1000 и 1000000 не выводит прописью. Не поняла почему.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

27.01.2011, 14:34

#37081960

НадеждаМ

Участник

Сообщения: 812
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

вопрос открыт

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

27.01.2011, 16:02

#37082308

SQLPowerUser

Участник

Откуда: ссылка в профиле
Сообщения: 277
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

НадеждаМ,

C Crystal Reports знаком поверхностно, но можно попробовать на стороне сервера, например
Набор функций для создания суммы прописью

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

28.01.2011, 08:17

#37083275

НадеждаМ

Участник

Сообщения: 812
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

SQLPowerUser,

Что-то подобное у нас есть на сервере, хотелось бы попробовать именно в crystal reports.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

28.01.2011, 10:25

#37083580

MAYAKOV_SV

Участник

Сообщения: 1 909
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

НадеждаМЧто-то подобное у нас есть на сервере, хотелось бы попробовать именно в crystal reports.
Вот нашел:
http://www.gotdotnet.ru/Forums/Windows/284060.aspx

Хотя мне кажется, что лучше использовать функцию на сервере.
Т.к. вставлять этот код каждый раз для нового отчета, как то не айс...

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

28.01.2011, 11:08

#37083739

НадеждаМ

Участник

Сообщения: 812
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

MAYAKOV_SV,

На сервере тормозит что-то

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

28.01.2011, 11:34

#37083817

MAYAKOV_SV

Участник

Сообщения: 1 909
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

НадеждаМMAYAKOV_SV,

На сервере тормозит что-то
Там же простейшие вычисления в функции (я смотрю тот пример, на который указал SQLPowerUser).
Без всяких запросов к базе.
Не должно ничего тормозить.
А вы уверены, что из-за этой функции тормозится-то?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

28.01.2011, 11:35

#37083826

MAYAKOV_SV

Участник

Сообщения: 1 909
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

MAYAKOV_SVБез всяких запросов к базе.
Я имел в виду - нет запросов к таблицам внутри функции.
Обычно тормозится, если внутри есть какие-то доп. запросы.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

31.01.2011, 08:12

#37087453

НадеждаМ

Участник

Сообщения: 812
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

MAYAKOV_SVНадеждаМMAYAKOV_SV,

На сервере тормозит что-то
Там же простейшие вычисления в функции (я смотрю тот пример, на который указал SQLPowerUser).
Без всяких запросов к базе.
Не должно ничего тормозить.
А вы уверены, что из-за этой функции тормозится-то?

Я не использую тот пример что SQLPowerUser указал. У нас своя функция подобная. Обращение к базе есть и тормозит точно не из-за функции 100%. В любом случае запрос на сервере я менять не буду.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

31.01.2011, 08:26

#37087460

НадеждаМ

Участник

Сообщения: 812
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

Просто изучаю Crystal Reports, поэтому хотелось попробовать. Не факт что я буду вставлять функцию в Crystal Reports.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

22.02.2011, 09:17

#37129645

Kruchinin Pahan

Участник

Откуда: Екатеринбург
Сообщения: 926
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

НадеждаМПривет всем. Применила данную функцию, но у меня 1000 и 1000000 не выводит прописью. Не поняла почему.
Потому что у меня ошибка в функции. В первом блоке. Log(1000)/Log(10)/3 = 1, а должно быть - 2 (пошла вторая триада).

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

//  1 . Блок мнемонического потриадного преобразования.'101456701' ковертируется в '1c0d1em4c5d6et7c0d1e'
LOCAL NumberVar lnCnt_Triade ;
LOCAL NumberVar lnTriade ;
SELECT lnInNumber 
CASE  0 : lcResult := '0e.'
DEFAULT : (
    FOR lnCnt_Triade :=  1  TO Ceiling(Log(lnInNumber +  1 )/Log( 10 )/ 3 ) DO (    
        lnTriade := lnInNumber mod  1000  ;
        lnInNumber := FLOOR(lnInNumber /  1000 ) ;
        IF lnTriade <>  0  THEN (
            select lnCnt_Triade
                case  1  : lcResult := "." + lcResult
                case  2  : lcResult := "t" + lcResult
                case  3  : lcResult := "m" + lcResult
                case  4  : lcResult := "M" + lcResult ;
            lcResult := ToText (lnTriade Mod  10 , "0") + "e" + lcResult ;
            lcResult := ToText (FLOOR(lnTriade /  10 ) Mod  10 , "0") + "d" + lcResult ;
            lcResult := ToText (FLOOR(lnTriade /  100 ) Mod  10 , "0") + "c" + lcResult ;
            ) ;
    ) ;

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

28.02.2011, 16:39

#37139986

НадеждаМ

Участник

Сообщения: 812
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

Еще хотелось бы чтобы копейки выводились, но с этим завтра повожусь.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2011, 05:43

#37140773

Kruchinin Pahan

Участник

Откуда: Екатеринбург
Сообщения: 926
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

НадеждаМЕще хотелось бы чтобы копейки выводились, но с этим завтра повожусь.
Ню... У меня в накладной так сделано:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

LOCAL numberVar lnNumber := SUM({CurStrings.summa}) ;
LOCAL numberVar lnOdd := (lnNumber *  100 ) mod  100  ;
lnNumber := FLOOR(lnNumber) ;

LOCAL StringVar lcPropis := PropisRus(lnNumber,  1 ,  0 ) ;
IF lcPropis <> "" THEN (
    lcPropis := UPPERCASE(lcPropis[ 1 ]) + MID(lcPropis,  2 ) + " руб. " ;
    ) ;
lcPropis := lcPropis + ToText(lnOdd, "00") + " коп." ;
lcPropis ;

Где PropisRus - обсуждаемая функция.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

01.03.2011, 09:16

#37140914

НадеждаМ

Участник

Сообщения: 812
Рейтинг: 0 / 0

Crystal Reports 10 - Сумма прописью

Kruchinin Pahan,

Спасибо, на ваяла подобное :)

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

03.05.2019, 11:50

#39809448

CvetikZ

Гость

Crystal Reports 10 - Сумма прописью

В Crystal Reports 10 все работает замечательно, но необходимо данную функцию переписать для Crystal Reports 9, т.к. там отсутствуют функции Ceiling() и FLOOR(). Как и чем их можно заменить??

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=31&tablet=1&tid=1532876]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	44ms
get topic data:	11ms
get forum data:	3ms
get page messages:	54ms
get tp. blocked users:	2ms
others:	269ms

total:	415ms