Имя: Пароль:
1C
1С v8
ЧислоПрописью округление
🠗 (Волшебник 12.01.2018 12:27)
, ,
0 Ruslan_
culeiman
 
12.01.18
11:45
Приветсвую, в типовой ут вес брутто - 1 102, 5, а в печатную форму попадает Одна т сто три кг, как убрать округление и чтобы печатало граммы тоже. Какой нужно передать формат что то не пойму, типовой         СтрокаФормат = "т, т, т, ж, кг, кг, кг, м, " + ?(Окр(МассаТонны) = МассаТонны, "0", "3");
1 shadow_sw
 
12.01.18
11:56
придет Волшебник, подарит словарь  :)
2 Ruslan_
culeiman
 
12.01.18
11:58
(1) не приходит волшебник, лишь бы поумничать
3 hhhh
 
12.01.18
12:04
(2) "Волшебник" с большой буквы пишется.
4 shadow_sw
 
12.01.18
12:04
ФормСтрока = "Л = ru_RU; ДП = Истина";
ПарПредмета="килограмм,килограмма,килограммов,м,грамм,грамма,граммов,м,3";
ПрописьЧисла = ЧислоПрописью(ИтогоМассаБрутто, ФормСтрока, ПарПредмета);

СП дорого, как обычно
5 Ruslan_
culeiman
 
12.01.18
12:09
(4) КЭП, нету инфы в СП про округление
6 Ruslan_
culeiman
 
12.01.18
12:09
(3) Поэтому и не приходит
7 shadow_sw
 
12.01.18
12:11
(5) лейтенант, есть куча желтых книжек
8 Ruslan_
culeiman
 
12.01.18
12:13
(7) Тогда зачем форум нужен?
9 shadow_sw
 
12.01.18
12:17
(8) удаляйся
10 Zmich
 
12.01.18
12:18
(0).
Функция ПолучитьВесПрописью(ВыбЧисло)
    
    ФормСтрока = "Л = ru_RU; ДП = Истина";
    ПараметрыТ = "тонна, тонны, тонн, ж,,,,, 0";
    Тонны = Цел(ВыбЧисло/1000);
    Если Тонны > 0 Тогда
        ПрописьЧислаТонны = ЧислоПрописью(Тонны, ФормСтрока, ПараметрыТ) + " ";
    Иначе
        ПрописьЧислаТонны = "";
    КонецЕсли;
    КгИГр = ВыбЧисло - Тонны*1000;
    ПараметрыКгИГр = "килограмм, килограмма, килограммов, м, грамм, грамма, граммов, м, 3";
    ПрописьЧислаКгИГр = ЧислоПрописью(КгИГр, ФормСтрока, ПараметрыКгИГр);
    Если ПрописьЧислаТонны <> "" Тогда
        ПрописьЧислаКгИГр = НРег(ПрописьЧислаКгИГр);
    КонецЕсли;    
    Возврат ПрописьЧислаТонны + ПрописьЧислаКгИГр;
    
КонецФункции
11 Ruslan_
culeiman
 
12.01.18
12:26
(9) раз ты не можешь ответить я сам отвечу, форум нужен для того чтобы люди делились опытом, может кто сталкивался с такой же задачей и может помочь либо направить в нужную сторону.
п.с. Надо вопрос прочитать, потом умничать
12 Ruslan_
culeiman
 
12.01.18
12:26
(10) Спасибо большое
13 Волшебник
 
модератор
12.01.18
12:28
(8) Форум создан для того, чтобы дарить людям радость общения.
http://www.forum.mista.ru/about.php

Ваш Кэп.
14 shadow_sw
 
12.01.18
12:35
(2)вот и пришел он - Волшебник :) (13)
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.