Вес прописью в килограммах

Вес 0,033 тонны выводится как «Ноль тонн тридцать три килограмма«. А хочется, чтобы выводился в килограммах без нуля тонн «Тридцать три килограмма«.

Помогло обсуждение на Мисте.

В итоге получился такой код:

Если Вес > 0 Тогда
	Если Вес >= 1 Тогда
		ВесПрописью = ЧислоПрописью(Окр(Вес,3,РежимОкругления.Окр15как20),"Л=ru_RU;ДП=ИСТИНА","тонна,тонны,тонн,ж,килограмм,килограмма,килограммов,м,3");                 
	Иначе
		ВесПрописью = ЧислоПрописью(Окр(Вес * 1000, 0,РежимОкругления.Окр15как20),"Л=ru_RU;ДП=ложь;НД=ложь","килограмм,килограмма,килограммов,м,грамм,грамма,граммов,м,0");                 
	КонецЕсли;
КонецЕсли;

Два важных момента:

  1. Вес в килограммах нужно выводить целым числом.
  2. Для веса в килограммах надо указывать граммы (хотя их можно не писать, просто передавать пустые параметры), но за ними писать 0 — количество разрядов дроби.
  3. Исходный вес в тоннах, поэтому мы его преобразовываем в килограммы для целых килограмм.

fixin

Программирую на 1С с 1999 года. В 1С просто Гений. В 2020 году ушел из офиса на вольные хлеба фриланса. Принимаю заказы.

Читайте также:

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *