Ищу файл прописи для вывода прописью единиц массы: ТОННЫ и килограммы

Поделитесь пожалуйста такой прописью.

Ушло

(2) :))

(0) Только тут нуна 2 файла. Килограмм - это не копейка от тонны.
мыло где?

chum#profit-com.ru

(Андроиду)
Оба-на!!!
Я понял с пом. одной прописи нелья сделать вывод вот так:
"Две тонны двести тридцать один килограмм"?
Пользуюсь двумя, составляю строку с пом. двух прописей и соответственно целой и дробной части и получаю:
"Две тонны 00 двести тридцать один килограмм 00"
Просто прибивать нулики или есть более техничный способ?
Просто

Функция глВесВТоннахПрописью(Сумма) Экспорт
Перем Валюта;
 КоличествоТонн = Цел(Сумма);
 КоличествоКг = Цел((Сумма - КоличествоТонн)*1000);
 ИмяФайлаПрописиТонны = "tonn.spl";
 ИмяФайлаПрописиКг = "kilo.spl";
  
 Если ФС.СуществуетФайл(КаталогИБ()+ИмяФайлаПрописиТонны) = 0 Тогда
      Предупреждение("Не найден файл прописи для тонн " + ИмяФайлаПрописиТонны);
 Возврат "";
 Иначе
    Пропись(КаталогИБ()+ИмяФайлаПрописиТонны);
 КонецЕсли;
 СтрокаСуммы = СтрЗаменить(Формат(КоличествоТонн, "ЧПДС")," 00","");
 Если ФС.СуществуетФайл(КаталогИБ()+ИмяФайлаПрописиКг) = 0 Тогда
  Предупреждение("Не найден файл прописи для килограмм " + ИмяФайлаПрописиКг);
  Возврат "";
 Иначе
  Пропись(КаталогИБ()+ИмяФайлаПрописиКг);
 КонецЕсли;
 СтрокаСуммы = СтрокаСуммы + " " +
  нрег(СтрЗаменить(Формат(КоличествоКг, "ЧПДС")," 00",""));
 Пропись("");
 Возврат СтрокаСуммы;
КонецФункции // глВесВТоннахПрописью()

Все понял! Так и сделал. Спасибо