ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / Crystal Reports 10 - Сумма прописью
21 сообщений из 21, страница 1 из 1
Crystal Reports 10 - Сумма прописью
    #36590582
006631
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
006631
Гость
Возможно ли В Crystal Reports 10 преобразовать число в число прописью на русском языке, в английский преобразовавыется ToWords, а как сделать на русский?
...
Рейтинг: 0 / 0
21.04.2010, 16:26
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #36590733
ustass
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ustass
Гость
В CR2008 это зависит от локализации пользователя на портале, может и в 10 то же самое
...
Рейтинг: 0 / 0
21.04.2010, 17:12
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #36591489
006631
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
006631
Гость
ustass,

WEB портал не используем, отчеты открываем с помощью команды ScaCRV.exe имя_отчета, на клиентах стоят русские Windows либо английские с русским MUI
...
Рейтинг: 0 / 0
22.04.2010, 07:56
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #36592987
vova626
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vova626
Гость
имею CR2008. rus


Число 344,0 перевелось как "три сто сорок четыре и хх / 100"
...
Рейтинг: 0 / 0
22.04.2010, 17:28
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #36610195
Kruchinin Pahan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kruchinin Pahan
Участник
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
04.05.2010, 08:25
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #36901874
Adtain
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adtain
Участник
А как функцию в Crystal добавить?
...
Рейтинг: 0 / 0
15.10.2010, 16:08
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37069788
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
Привет всем. Применила данную функцию, но у меня 1000 и 1000000 не выводит прописью. Не поняла почему.
...
Рейтинг: 0 / 0
20.01.2011, 17:14
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37081960
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
вопрос открыт
...
Рейтинг: 0 / 0
27.01.2011, 14:34
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37082308
SQLPowerUser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQLPowerUser
Участник
НадеждаМ,

C Crystal Reports знаком поверхностно, но можно попробовать на стороне сервера, например
Набор функций для создания суммы прописью
...
Рейтинг: 0 / 0
27.01.2011, 16:02
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37083275
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
SQLPowerUser,

Что-то подобное у нас есть на сервере, хотелось бы попробовать именно в crystal reports.
...
Рейтинг: 0 / 0
28.01.2011, 08:17
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37083580
MAYAKOV_SV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MAYAKOV_SV
Участник
НадеждаМЧто-то подобное у нас есть на сервере, хотелось бы попробовать именно в crystal reports.
Вот нашел:
http://www.gotdotnet.ru/Forums/Windows/284060.aspx

Хотя мне кажется, что лучше использовать функцию на сервере.
Т.к. вставлять этот код каждый раз для нового отчета, как то не айс...
...
Рейтинг: 0 / 0
28.01.2011, 10:25
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37083739
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
MAYAKOV_SV,

На сервере тормозит что-то
...
Рейтинг: 0 / 0
28.01.2011, 11:08
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37083817
MAYAKOV_SV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MAYAKOV_SV
Участник
НадеждаМMAYAKOV_SV,

На сервере тормозит что-то
Там же простейшие вычисления в функции (я смотрю тот пример, на который указал SQLPowerUser).
Без всяких запросов к базе.
Не должно ничего тормозить.
А вы уверены, что из-за этой функции тормозится-то?
...
Рейтинг: 0 / 0
28.01.2011, 11:34
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37083826
MAYAKOV_SV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MAYAKOV_SV
Участник
MAYAKOV_SVБез всяких запросов к базе.
Я имел в виду - нет запросов к таблицам внутри функции.
Обычно тормозится, если внутри есть какие-то доп. запросы.
...
Рейтинг: 0 / 0
28.01.2011, 11:35
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37087453
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
MAYAKOV_SVНадеждаМMAYAKOV_SV,

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

Я не использую тот пример что SQLPowerUser указал. У нас своя функция подобная. Обращение к базе есть и тормозит точно не из-за функции 100%. В любом случае запрос на сервере я менять не буду.
...
Рейтинг: 0 / 0
31.01.2011, 08:12
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37087460
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
Просто изучаю Crystal Reports, поэтому хотелось попробовать. Не факт что я буду вставлять функцию в Crystal Reports.
...
Рейтинг: 0 / 0
31.01.2011, 08:26
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37129645
Kruchinin Pahan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kruchinin Pahan
Участник
НадеждаМПривет всем. Применила данную функцию, но у меня 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
22.02.2011, 09:17
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37139986
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
Еще хотелось бы чтобы копейки выводились, но с этим завтра повожусь.
...
Рейтинг: 0 / 0
28.02.2011, 16:39
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37140773
Kruchinin Pahan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kruchinin Pahan
Участник
НадеждаМЕще хотелось бы чтобы копейки выводились, но с этим завтра повожусь.
Ню... У меня в накладной так сделано:
Код: 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, 05:43
| Ответить | Цитировать | Написать  
Crystal Reports 10 - Сумма прописью
    #37140914
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
Kruchinin Pahan,

Спасибо, на ваяла подобное :)
...
Рейтинг: 0 / 0
01.03.2011, 09:16
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Crystal Reports 10 - Сумма прописью
    #39809448
CvetikZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CvetikZ
Гость
В Crystal Reports 10 все работает замечательно, но необходимо данную функцию переписать для Crystal Reports 9, т.к. там отсутствуют функции Ceiling() и FLOOR(). Как и чем их можно заменить??
...
Рейтинг: 0 / 0
03.05.2019, 11:50
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / Crystal Reports 10 - Сумма прописью
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=31&msg=37140914&tid=1532876]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 265ms
total:  389ms
созд. / загр.: 389ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]