Формы предмета исчисления

13.05.14

Разработка - Универсальные функции

Иногда возникает задача склонения предмета исчисления, но ее не пытаются решить правильно. Есть простое решение.

Задача.

Например, необходимо в интерфейсе отображать количество проданных за день яблок естественной фразой "Продано 1 яблоко" ("Продано 2 яблока", "Продано 5 яблок"). Обращаю внимание, что количество проданных яблок указывается числом, а не прописью.

Неправильные решения.

Обычно необходимость склонения предмета исчисления обходят следующими способами:

- Игнорирование.
В итоге получаем "Продано 1 яблоков" или "Продано 2 яблоко".

- Использование сокращений.
В итоге получаем "Продано 3 ябл."

- Использование всех форм сразу.
В итоге получаем "Продано 3 яблоко(ка,ок)" или "Продано 7 яблоко/яблока/яблок"

- Использование только одной формы.
В итоге получаем "Продано яблок: 3"

Последний вариант выглядит неплохо, но не всегда есть возможность использовать его.

Правильное решение.

Правильное решение заключается в выборе нужной формы предмета исчисления в зависимости от количества предмета.
Для русского языка это решается с помощью следующей функции.

Функция ПолучитьФормуПредметаИсчисления(Количество, Форма1, Форма2, Форма5) Экспорт
    
    Перем Формы, К;    
    
    Формы = Новый Массив();
    Формы.Добавить(Форма1);
    Формы.Добавить(Форма2);
    Формы.Добавить(Форма5);
    
    К = ?(Количество >= 0, Количество, -Количество);
    
    ИндексФормы = ?(К%10 = 1 И К%100 <> 11, 0, ?(К%10 >= 2 И К%10 = 20), 1, 2));
    
    Возврат Формы[ИндексФормы];
    
КонецФункции

В описанном примере решение может быть следующим.

"Продано " + Продано + " " + ПолучитьФормуПредметаИсчисления(Продано, "яблоко", "яблока", "яблок")

Для того, чтобы правильно определить каждую из трех форм, вы должны проговорить их для 1, 2 и 5 - этого будет достаточно.

Если потребуется определять форму предмета исчисления для других языков, то формулы можно подсмотреть здесь.

Заключение.

Старался быть кратким. Спасибо за внимание.

См. также

Универсальные функции Программист Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024    25104    dimanich70    82    

149

Универсальные функции Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    4504    3    John_d    11    

57

Универсальные функции Программист Стажер Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    25396    atdonya    25    

58

Универсальные функции Программист Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    6071    ke.92@mail.ru    17    

65

WEB-интеграция Универсальные функции Механизмы платформы 1С Программист Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    16542    YA_418728146    8    

170

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    4262    73    progmaster    10    

4

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 1C:Бухгалтерия 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    19135    180    sapervodichka    112    

136
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Ndochp 103 14.05.14 10:09 Сейчас в теме
А в 1С это разве не через Сумма прописью логично сделать?
kostik_love; +1 Ответить
2. Stety 153 14.05.14 11:23 Сейчас в теме
По аналогии с "ленивыми голубцами" это сойдет. Мы же все хотим побыстрее. Но и юзер тоже хочет побыстрее. Надо оно ему: каждый раз падежи вбивать? А программист на что?
На самом деле, если уж перекладывать ответственность за грамотность документов на юзера, то надо предусмотреть реквизиты для хранения наименований в падежах стоило бы во всех справочниках. Однако, как это раздует базу? Вот в чем вопрос...
3. lrs 27 14.05.14 23:44 Сейчас в теме
Я так делал:
СтрЗаменить(ЧислоПрописью(Продано,"","яблоко, яблока, яблок,,,,,,0"), ЧислоПрописью(Продано,"",",,,,,,,,0"), "")
BigB; romankoav; AlX0id; zqzq; ВРедная; userGJ; jsuh; rtnm; +8 Ответить
4. kostik_love 317 17.05.14 13:54 Сейчас в теме
Задача: 1 рубль, 3 рубля, 5 рублей
- Вы тоже так будете решать)?
5. rtnm 616 18.05.14 18:42 Сейчас в теме
6. kostik_love 317 19.05.14 12:35 Сейчас в теме
(5) я попробую так- как это сделано в типовых
7. dima_gsv 23 01.09.15 12:24 Сейчас в теме
(6) kostik_love, в типовых сделано как писал (3) lrs. На мой взгляд, не очень читаемо получается.
Оставьте свое сообщение