Склонение ФИО и должностей

06.02.12

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

+36 –
>
  • Таблица исключений
  • Форма
Бесплатное склонение ФИО и должностей на языке 1С.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
down.zip
.zip 333,60Kb
297 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

Обработка предназначена для склонения ФИО и должностей.

Я решил сделать абсолютно бесплатную и свободную функцию склонения. Есть тестовая база, которая постоянно пополняется, чтобы вы были уверены, что функция работает правильно. Несложно адаптировать для 77.Учитывая, что для склонения нужен или словарь исключений, или ИИ, доступно простое ведение списка исключений.

 

 

Подобные проекты есть, но у них есть недостатки:

1.       Используется внешняя компонента, ее требуется зарегистрировать, для этого нужны права администратора (яркий пример – склонение в типовых конфигурациях)

2.       Отсутствует словарь исключений.

3.       Код на языке 1С запутанный и непрозрачный (Падеж «Крохотулька»)

4.       Некоторые разработки платные.

Обработка реализована в виде функции обСклонениеСтроки. В обработке «Тест склонения» можно протестировать мою функцию, обработку namedecl.dllот 1С и крохотульку.

Я использую подход, когда написана не только обработка, но и тесты к ней.

Форма редактирования таблицы исключений

Можно использовать константу (строка неограниченной длины) с именем «КонстантаГения1СДляИсключенийСклонения» для хранения исключений.

Таблицу исключений можно редактировать обработкой: «РедакторТаблицыИсключенийСклонений.epf»

 

 

Данные в константе хранятся в виде XML-строки вида:

 

 

1

Иванов

Д

Фамилия

М

RU

Иванидзе

 

 

2

Иванов

Р

Фамилия

М

RU

Иванидзе1

 

 

В событии «При открытии формы» вызывается функция общего модуля «ХукерНастройкаРедактораТаблицыИсключений(П)». Вы можете объявить эту функцию и перенастроить форму, заполнить списки выбора и т.п.

Доступные поля структуры П:

  • СписокПадеж – список падежей
  • СписокПол – список полов
  • СписокЯзык – список языков
  • СписокВид – список видов
  • ЭтаФорма – ссылка на форму
  • ЭтотОбъект – сам объект обработки
  • ТЗИсключения – таблица исключений

Вступайте в нашу телеграмм-группу Инфостарт

+36 –

См. также

ДО+ для 1С:Документооборот

Универсальные функции 1С 8.3 1С:Документооборот Россия Платные (руб)

ДО+ — расширение конфигурации, в котором собран постоянно пополняемый набор из 33 востребованных доработок для 1С:Документооборот КОРП 3.0: согласование задач прямо из мессенджеров MAX и Telegram, отзыв согласования и исполнения, гибкие повторные круги, эскалация с точностью до минут, контроль исполнительской дисциплины, выгрузка вложений в ZIP и склейка PDF, реестр документов в Excel, проверка дублей контрагентов и регистрационных номеров. Каждая возможность активируется отдельным флажком в режиме предприятия — включается только то, что нужно конкретной организации. Список функций расширяется с каждым релизом — текущая версия 2.1.0. Режим AddOn: типовая конфигурация не модифицируется, обновления ДО ставятся штатно, дополнительные лицензии и внешние компоненты не требуются. Внедрение силами администратора — около часа.

30000 руб.

09.07.2026    1393    1    0    

2
Заполнение формул в файлах Excel (кроссплатформенное решение)

Загрузка и выгрузка в Excel Универсальные функции Разработчик 1С:Предприятие 8 Россия Бесплатно (free)

Описанный ниже подход позволяет в три шага заполнять формулы в Excel файлы, вне зависимости от ОС сервера (MS Windows Server или Linux). Подход подразумевает отказ от работы с COM-объектом в пользу работы через "объектную модель документа" (DOM).

30.10.2025    8717    Abysswalker    11    

49
Отключение уведомления "Расширение конфигурации неактивно"

Универсальные функции Работа с интерфейсом Разработчик 1С:Предприятие 8 Бесплатно (free)

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

14.05.2025    14438    DeerCven    16    

66
В помощь разработчику: преобразование табличного документа в запрос

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

Внешняя обработка для создания запроса на основании табличных данных.

22.07.2024    11929    276    ixijixi    10    

45
Загрузка табличного документа в таблицу значений. Пять строк кода, которые изменили мир

Универсальные функции Разработчик 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

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

21.05.2024    68697    dimanich70    87    

181
Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Разработчик 1С:Предприятие 8 1C:Бухгалтерия Абонемент ($m)

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

1 стартмани

18.03.2024    9267    7    John_d    13    

59
GUID в 1С 8.3

Универсальные функции Разработчик Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

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

12.02.2024    85713    atdonya    31    

76
Переоткрытие внешних обработок

Универсальные функции Разработчик 1С:Предприятие 8 Бесплатно (free)

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

30.11.2023    13461    ke.92@mail.ru    18    

68
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. noprogrammer 243 07.02.12 00:43 Сейчас в теме
А почему склонение не сделать через регистры правил?! чем описание "доступа" http://infostart.ru/public/115906/ отличается от склонения? Зачем плодить сущности в виде исключений?
+ – Ответить
2. fixin 4347 07.02.12 08:28 Сейчас в теме
(1) а почему автор "Крохотульки" не использовал регистры правил? Особенности реализации. Так и я - использовал реализацию в виде кода. Если быть точнее, то на момент реализации про регистры правил не знал, поэтому писал в коде. Но код более прозрачный чем Крохотулька. А исключения - для того, чтобы сделать не закрытый алгоритм, а устойчивый к реальной жизни (исключениям).
Помимо этого у меня есть тестирование обработок склонения, что тоже не мало важно...

Если хотите реализовать склонение через регистр правил - бог вам в помощью, я буду только за.
+ – Ответить
3. fomix 33 07.02.12 17:05 Сейчас в теме
Прикольное название zip файла для скачивания ))))
+ – Ответить
4. Boroda 90 10.02.12 22:10 Сейчас в теме
Хорошая, нужная, понятная вещица. Спасибо!
+ – Ответить
5. fixin 4347 10.02.12 22:19 Сейчас в теме
(4) хорошая была бы, если бы на регистр правил переложить, а сами правила в XML закатать. ;-)
но как бесплатный и полностью контролируемый код тоже неплоха.
+ – Ответить
6. ВРедная 46 23.04.12 08:23 Сейчас в теме
Для склонения подразделений не предполагается использовать?
Например, Администрация президента сколняется неправильно. А у Крохотульки правильно :)
+ – Ответить
7. fixin 4347 03.05.12 10:53 Сейчас в теме
(6) не предполагается. Но можно занести в исключения. ;-)
+ – Ответить
8. YuraVK 17.05.12 16:40 Сейчас в теме
украинский не поддерживает?
+ – Ответить
9. Belkin_Sergey 263 12.07.12 12:11 Сейчас в теме
А как просклоняется должность "Первый заместитель директора по корпоративным вопросам" или "Главный технический руководитель по охране труда и ТБ"?
+ – Ответить
10. Belkin_Sergey 263 12.07.12 12:13 Сейчас в теме
(9) geterosser, Вопрос снят
+ – Ответить
11. EarlyBird 7 15.08.12 08:00 Сейчас в теме
Я офигеваю с этих людей!
Скачало 74 человека, сказали спасибо (в виде плюса) только 17.
По ходу, 57 неблагодарных свиней детектед :)
+ – Ответить
12. fixin 4347 21.08.12 19:43 Сейчас в теме
(11) ну может остальным не понравилось. спокойно.
+ – Ответить
13. sumixam 24.08.12 14:28 Сейчас в теме
спасибо полезнаю вещь да ещё и бесплатно )))
+ – Ответить
14. itt 10.09.12 13:53 Сейчас в теме
надо попробывать, а то в БП нет склонения ФИО и подразделений
+ – Ответить
15. fixin 4347 10.09.12 14:28 Сейчас в теме
(14) Если бы делал счас, сделал бы через регистр правил, но и так недурно.
+ – Ответить
16. ponaroshku 16.10.12 06:15 Сейчас в теме
Спасибо за обработку
+ – Ответить
17. alsegor 09.01.13 15:50 Сейчас в теме
Спасибо за обработку. Склонение Гения 1С неправильно склоняет имя Ольга (может и другие).
В проверке используется имя Анна, которое склоняется правильно.
Для Ольги должно быть:
И: Ольга
Р: Ольги
Д: Ольге
В: Ольгу
Т: Ольгой
П: Ольге

А Гений склоняет так:
И: Ольга
Р: Ольгы
Д: Ольге
В: Ольгу
Т: Ольгой
П: Ольге

Усовершенствуйте, пожалуйста, проверку.
+ – Ответить
18. _n26__ 15.01.13 08:47 Сейчас в теме
Спасибо, будем тестировать. Очень нужная вещь!
+ – Ответить
19. dedicated 25 20.02.13 15:43 Сейчас в теме
Спасибо! Помогло решить задачу вывода в Дательном падеже должности и ФИО в печатной форме "М2" документа Доверенность. Я использую в печатной форме таким образом: 
// Перевод Падежей встроенной функцией Гения
	С = обСлужРазбитьНаФИО(ФамилияИмяОтчествоДоверенного);
	Пол = Строка(Шапка.ФизЛицо.Пол);
	Если Пол = "Мужской" Тогда Пол = "М";
	ИначеЕсли Пол = "Женский" Тогда	Пол = "Ж";
	КонецЕсли;
	
	НовоеФамилия = обСклонениеСтроки(С.Фамилия, "Д", "Фамилия",Пол );
    НовоеИмя = обСклонениеСтроки(С.Имя,  "Д", "Имя",Пол);
	НовоеОтчество = обСклонениеСтроки(С.Отчество,  "Д", "Отчество",Пол);

	ФамилияИмяОтчествоДоверенного = НовоеФамилия+?(НовоеИмя="",""," ")+НовоеИмя+?(НовоеОтчество="",""," ")+НовоеОтчество;
	
	ДолжностьДоверенного = обСклонениеСтроки(ДолжностьДоверенного,  "Д", "Должность");
Показать


Если кому то поможет прикрепил файл печ. формы.
Прикрепленные файлы:
Доверенность.epf
Andrekaa; GrayCrane; +2 – Ответить
20. TrinitronOTV 16 11.03.13 10:55 Сейчас в теме
(19) dedicated, спасибо большое
+ – Ответить
21. AlexO 136 15.03.13 16:40 Сейчас в теме
Сергей, а что так некорректно отозвались о Крохотульке, "уперев" оттуда 2\3 контента по примерам склонения? :)
+ – Ответить
22. fixin 4347 15.03.13 16:56 Сейчас в теме
(21) AlexO, что именно я оттуда упер? дядя?
мне пришлось разбирать алгоритмы склонения самому.
и я взял за основу не крохотульку, а код на каком-то SQL-подобном языке с SQL.RU
Ибо в крахотульке разобраться невозможно, код специалом так написан.
+ – Ответить
23. fr.myha 10.07.13 14:04 Сейчас в теме
Делюсь функцией, возвращающая инициалы в дательном падеже

// функция в зависимости от переданного параметра возвращает ФИО
//
// Параметры:
// ФИО - строка. Если Можно вводить только Фамилию или Фимилия Имя или полное ФИО,
// разделитель пробел.
// Пол - Перечисления.Пол
// ТипВывода - числа 1: полное ФИО
// 2: Фамилия И.О.
// 3: И.О. Фамилия
// Возвращаемое значение:
// строка - результат форматирования
Функция обДательныйПадежНаСервере(ФИО,Пол,ТипВывода=0) Экспорт

ФИО_Падеж="";
Фамилия="";
Имя="";
Отчество="";
ФамилияПадеж="";
ИмяПадеж="";
ОтчествоПадеж="";
ФИО=СокрЛП(ФИО);
Длина=0;

Если СтрЧислоВхождений(ФИО," ") = 0 Тогда
Фамилия = ФИО;
Длина = 1;
ИначеЕсли СтрЧислоВхождений(ФИО," ") = 1 Тогда
Фамилия = Лев(ФИО,Найти(ФИО," ")-1);
Имя = СтрЗаменить(ФИО,Фамилия+" ","");
Длина = 2;
ИначеЕсли СтрЧислоВхождений(ФИО," ") = 2 Тогда
Фамилия = Лев(ФИО,Найти(ФИО," ")-1);
Имя = Лев(СтрЗаменить(ФИО,Фамилия+" ",""),Найти(СтрЗаменить(ФИО,Фамилия+" ","")," ")-1);
Отчество = СтрЗаменить(СтрЗаменить(ФИО,Фамилия+" ",""),Имя+" ","");
Длина = 3;
Иначе
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Предупреждение! Неправильно записано ФИО. Проверьте пробелы!" + Символы.ПС + "(обДательныйПадежНаСервере)";
Сообщение.Сообщить();
КонецЕсли;

Если (Нрег(Прав(Отчество,1))="ч") Тогда
ТекПол = Перечисления.Пол.Муж;
ИначеЕсли (Нрег(Прав(Отчество,1))="а") Тогда
ТекПол = Перечисления.Пол.Жен;
КонецЕсли;

Если ТекПол = Перечисления.Пол.Муж Тогда
КонецФамилии = Прав(Фамилия,1);
Если Нрег(КонецФамилии)="е"
ИЛИ Нрег(КонецФамилии) = "и"
ИЛИ Нрег(КонецФамилии) = "о"
ИЛИ Нрег(КонецФамилии) = "у"
ИЛИ Нрег(КонецФамилии) = "э"
ИЛИ Нрег(КонецФамилии) = "ю"
Тогда
ФамилияПадеж = Фамилия;
ИначеЕсли Нрег(КонецФамилии) = "я" Тогда
ФамилияПадеж = Лев(Фамилия,СтрДлина(Фамилия)-1) + "е";
ИначеЕсли Нрег(КонецФамилии) = "а" Тогда
ФамилияПадеж = Лев(Фамилия,СтрДлина(Фамилия)-1) + "е";
ИначеЕсли Нрег(КонецФамилии) = "й"
ИЛИ Нрег(КонецФамилии) = "ь"
Тогда
Если Нрег(Прав(Фамилия,2)) = "ий"
ИЛИ Нрег(Прав(Фамилия,2)) = "ый"
Тогда
ФамилияПадеж = Лев(Фамилия,СтрДлина(Фамилия)-2) + "ому";
Иначе
ФамилияПадеж = Лев(Фамилия,СтрДлина(Фамилия)-1) + "ю";
КонецЕсли
Иначе
Если Нрег(Прав(Фамилия,2)) = "ец" Тогда
ФамилияПадеж = Лев(Фамилия,СтрДлина(Фамилия)-2) + "цу";
Иначе
ФамилияПадеж = Фамилия + "у";
КонецЕсли
КонецЕсли;

Если Имя = "Лев" Тогда
ИмяПадеж = "Льву";
ИначеЕсли Имя="Павел" Тогда
ИмяПадеж = "Павлу";
ИначеЕсли Имя = "Пётр" Тогда
ИмяПадеж = "Петру";
ИначеЕсли Нрег(Прав(Имя,1)) = "й"
ИЛИ Нрег(Прав(Имя,1)) = "ь"
Тогда
ИмяПадеж = Лев(Имя,СтрДлина(Имя)-1) + "ю";
ИначеЕсли Нрег(Прав(Имя,1)) = "и" Тогда
ИмяПадеж = Имя;
ИначеЕсли Нрег(Прав(Имя,1)) = "а" Тогда
ИмяПадеж = Лев(Имя,СтрДлина(Имя)-1) + "е";
Иначе
ИмяПадеж = Имя + "у";
КонецЕсли;
ОтчествоПадеж = Отчество + "у";
ИначеЕсли ТекПол = Перечисления.Пол.Жен Тогда
КонецФамилии = Прав(Фамилия,1);

Если Нрег(КонецФамилии) = "а" Тогда
Если Нрег(Прав(Фамилия,3)) = "ова"
ИЛИ Нрег(Прав(Фамилия,3))="ева"
Тогда
ФамилияПадеж = Лев(Фамилия,СтрДлина(Фамилия)-1) + "ой";
Иначе
ФамилияПадеж = Лев(Фамилия,СтрДлина(Фамилия)-1) + "е";
КонецЕсли
ИначеЕсли Нрег(КонецФамилии) = "я" Тогда
Если Нрег(Прав(Фамилия,2)) = "ая" Тогда
ФамилияПадеж = Лев(Фамилия,СтрДлина(Фамилия)-2) + "ой";
Иначе
ФамилияПадеж = Лев(Фамилия,СтрДлина(Фамилия)-1) + "е";
КонецЕсли
Иначе
ФамилияПадеж = Фамилия;
КонецЕсли;

Если Нрег(Прав(Имя,1)) = "а" Тогда
ИмяПадеж = Лев(Имя,СтрДлина(Имя)-1) + "е";
ИначеЕсли Нрег(Прав(Имя,1)) = "я" Тогда
Если Нрег(Прав(Имя,2)) = "ия" Тогда
ИмяПадеж = Лев(Имя,СтрДлина(Имя)-1) + "и";
Иначе
ИмяПадеж = Лев(Имя,СтрДлина(Имя)-1) + "е";
КонецЕсли
Иначе
ИмяПадеж = Имя;
КонецЕсли;
ОтчествоПадеж = Лев(Отчество,СтрДлина(Отчество)-1) + "е";
Иначе
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Предупреждение! Неправильно задан Пол. Проверьте!" + Символы.ПС + "(обДательныйПадежНаСервере)";
Сообщение.Сообщить();
КонецЕсли;

Если Длина = 1 Тогда
ФИО_Падеж = "" + ФамилияПадеж;
ИначеЕсли Длина = 2 Тогда
Если ТипВывода = 1 Тогда
ФИО_Падеж = "" + ИмяПадеж + " " + ФамилияПадеж;
ИначеЕсли ТипВывода = 2 Тогда
ФИО_Падеж = "" + ФамилияПадеж + " " + Лев(ИмяПадеж,1) + ".";
ИначеЕсли ТипВывода = 3 Тогда
ФИО_Падеж = "" + Лев(ИмяПадеж,1) + "." + " " + ФамилияПадеж;
Иначе
ФИО_Падеж = "" + ФамилияПадеж + " " + ИмяПадеж;
КонецЕсли
ИначеЕсли Длина = 3 Тогда
Если ТипВывода = 1 Тогда
ФИО_Падеж = "" + ИмяПадеж + " " + ОтчествоПадеж + " " + ФамилияПадеж;
ИначеЕсли ТипВывода = 2 Тогда
ФИО_Падеж = "" + ФамилияПадеж + " " + Лев(ИмяПадеж,1) + "." + " " + Лев(ОтчествоПадеж,1) + ".";
ИначеЕсли ТипВывода=3 Тогда
ФИО_Падеж = "" + Лев(ИмяПадеж,1) + "." + " " + Лев(ОтчествоПадеж,1) + "." + " " + ФамилияПадеж;
Иначе
ФИО_Падеж = "" + ФамилияПадеж + " " + ИмяПадеж + " " + ОтчествоПадеж;
КонецЕсли
Иначе
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Предупреждение! Это не ФИО. Проверьте!" + Символы.ПС + "(обДательныйПадежНаСервере)";
Сообщение.Сообщить();
КонецЕсли;
Возврат ФИО_Падеж;
КонецФункции
+ – Ответить
24. SotNick 23 30.01.14 18:30 Сейчас в теме
Спасибо, отличная обработка!
+ – Ответить
25. user766040 25.07.18 08:17 Сейчас в теме
Полезная обработка. Спасибо автору!
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация