Имя: Пароль:
1C
 
v7: Вес товара прописью
0 ДенисЧ
 
07.07.10
09:06
Хочу вывести в форму вес в тоннах прописью.
Файл .spl

{"Speller",
{"Numbers",
{"Тонна","Тонны","Тонн","кг","кг","кг","F"}},
{"Numbers",
{"Одна","Две","Три","Четыре","Пять","Шесть","Семь","Восемь","Девять","Одна","Две",
"Десять","Одиннадцать","Двенадцать","Тринадцать","Четырнадцать","Пятнадцать","Шестнадцать","Семнадцать","Восемнадцать","Девятнадцать",
"Двадцать","Тридцать","Сорок","Пятьдесят","Шестьдесят","Семьдесят","Восемьдесят","Девяносто",
"Сто","Двести","Триста","Четыреста","Пятьсот","Шестьсот","Семьсот","Восемьсот","Девятьсот",
"Тысяча","Тысячи","Тысяч",
"Миллион","Миллиона","Миллионов",
"Миллиард","Миллиарда","Миллиардов",
"Триллион","Триллиона","Триллионов"}},
{"Date",
{"Январь","Февраль","Март","Апрель","Май","Июнь","Июль","Август","Сентябрь","Октябрь","Ноябрь","Декабрь",
"Января","Февраля","Марта","Апреля","Мая","Июня","Июля","Августа","Сентября","Октября","Ноября","Декабря",
"г.","Квартал"}}
{"DateRange",
{"Полугодие","Месяцев"}}
}

Переменную определяю как

   Пропись(КаталогИБ() + "\tonn.spl");
   печВес = Формат(Окр(печВесНакл/1000, 2), "ЧП");

В результате в печатной форме пусто.

Традиционный вопрос: ЧЯДНТ?
1 miki
 
07.07.10
09:11
а почему не в формате не ЧПДС?
2 miki
 
07.07.10
09:18
печВесНакл - тип, значение?
две секции "Numbers" и ни одной "Money"
3 ДенисЧ
 
07.07.10
09:22
(1) Потому что мне не нужны ДС. Или нужны?
(2) печВесНакл - число...
4 ДенисЧ
 
07.07.10
09:23
Добавил ДС, получил 0 рублей 21 копейка, хотя мне нужно 0 тонн 210 кг...
5 skunk
 
07.07.10
09:26
{"Numbers",
{"Тонна","Тонны","Тонн","кг","кг","кг","F"}},
{"Numbers",
{"Одна","Две","Три","Четыре","Пять","Шесть","Семь","Восемь","Девять","Одна","Две",
6 ДенисЧ
 
07.07.10
09:27
(5) Так и стоит...
7 skunk
 
07.07.10
09:28
{"Money",
{"Доллар","Доллара","Долларов","цент","цента","центов"}},
{"Numbers",
{"Один","Два","Три","Четыре","Пять","Шесть","Семь","Восемь","Девять","Одна","Две",
8 skunk
 
07.07.10
09:29
в (2) же говорили ... две секции "Numbers" и ни одной "Money"
9 ДенисЧ
 
07.07.10
09:31
Хм... с money заработало...
Век живи - век учись...
10 filh
 
07.07.10
09:31
(0) а КаталогИБ() в конце \ ставит?
11 miki
 
07.07.10
09:34
(9)странно... :)
не должно работать с одним файлом чтоб и тонны и килограммы:
Ищу файл прописи для вывода прописью единиц массы: ТОННЫ и килограммы
вот без файла прописи, через СЗ (/Cthulhu (14)/):
проблема с форматированием - число прописью
12 ДенисЧ
 
07.07.10
09:34
(10) А неважно. Я всегда туда ставлю :-)
13 filh
 
07.07.10
09:34
+(10) хм, работает и так и так :)
14 ДенисЧ
 
07.07.10
09:34
(11) Вот она мне выдала
Массой брутто    Ноль тонн 21 кг
15 filh
 
07.07.10
09:35
(12) в конце не забудь назад перевести на пропись по умолчанию.

Пропись("");
16 miki
 
07.07.10
09:35
(14)подозреваю, что д.б. 210 кг. ... или двести десять кг
17 Ёпрст
 
07.07.10
09:35
(0) у Рупора есть пример.. есть модифицированный от Uho
18 miki
 
07.07.10
09:38
19 Ёпрст
 
07.07.10
09:38
20 Ёпрст
 
07.07.10
09:38
(18) да, правда Uho его улучшил..
21 ДенисЧ
 
07.07.10
09:42
(16) Да, точно...
22 ДенисЧ
 
07.07.10
09:50
(19) Тоже врёт... На 0.21 т сказал 12 килограмм...
23 miki
 
07.07.10
09:51
(22)ты бы почитал по ссылкам из (11)
24 Ёпрст
 
07.07.10
09:58
(22) дык помножь дробную часть на 10 и будет верно всё.
25 ДенисЧ
 
07.07.10
10:01
(24) Вторую пропись писать, что ли?
26 Ёпрст
 
07.07.10
10:02
(24) да.. 2 прописи, для тонн и килограммов.. раздельно..
и всё. :)
27 ДенисЧ
 
07.07.10
10:04
(26) Фи... Но придётся... Бухи требуют...
28 filh
 
07.07.10
10:04
(25)
замени в (19) у Uho строку

Десятичные=Число(Сред(""+Округленное+".0",Найти(""+Округленное+".0",".")+1));

на

Десятичные = (Округленное - Целые)*1000;
29 Ёпрст
 
07.07.10
10:05
(27) а не, не надо.. я нашел ошибку. Ща кину пример.
30 Ёпрст
 
07.07.10
10:09
замени
Округленное=Окр(Ч,Округл);
на
Округленное=СокрЛП(Формат(Ч,"Ч15."+Округл));    

и наслаждайся.
31 ДенисЧ
 
07.07.10
10:11
(30) Так уже лучше :-)