Склонение ФИО

11.10.13

Склонение ФИО без подключения сторонних компонент для ЗУП 2.5!

Скачать файл

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

Наименование		По подписке [?]	Купить один файл
Склонение ФИО .epf 6,21Kb ver:1 50	50	Скачать (1 SM)	Купить за 1 850 руб.

Для демонстрации была написана простенькая обработка, где выбирается сотрудник из справочника, ФИО которого нужно просклонять (управляемые формы).

склонение

+3 –

См. также

INFOSTART TEAMLEAD&CIO EVENT 2025

Мероприятия Россия Платные (руб)

Конференция для ИТ-специалистов инхаус-подразделений: от разработчиков до ИТ-директоров. В центре внимания полный спектр задач, стоящих перед ИТ-руководителями: разработка, управление проектами, инфраструктура, безопасность и лидерство.

51000 руб.

28.08.2024 4181 443 0

INFOSTART TECH EVENT 2024

Мероприятия Системный администратор Программист Бизнес-аналитик Руководитель проекта Россия Платные (руб)

XIV конференция по технологиям автоматизации учета на платформе 1С:Предприятие, которая пройдет в Санкт-Петербурге и соберет 1200 участников из разных регионов России и мира.

5500 руб.

06.12.2023 13529 55 0

372

INFOSTART A&PM EVENT 2025

Мероприятия Программист Бизнес-аналитик Руководитель проекта Россия Платные (руб)

Практическая конференция для аналитиков и руководителей проектов 1С 29-31 мая 2025 г. Санкт-Петербург, отель Cosmos Saint-Petersburg Pribaltiyskaya Hotel

39600 руб.

28.08.2024 5248 96 0

Техподдержка Маркетплейс

Услуги Платные (руб)

Техническая поддержка ИНФОСТАРТ Маркетплейс — профессиональная помощь по готовым решениям на базе 1С. Мы предлагаем консультации по настройке, внедрению, и оптимизации работы с нашими решениями, чтобы вы могли эффективно использовать программные продукты для достижения бизнес-задач.

2000 руб.

06.02.2024 1661 67 0

Онлайн-курс «Практические аспекты внедрения регламентированного учета и расчета себестоимости в 1С:ERP на крупных промышленных предприятиях» (с учетом новых возможностей версии 2.5.17). С 7 октября по 5 ноября 2024 г.

ИТ-анализ Работа с конфигурациями Ведение учета Внедрение ИТ-систем Программист Бизнес-аналитик Бухгалтер Пользователь Руководитель проекта Платформа 1С v8.3 1С:ERP Управление предприятием 2 Россия НДС Платные (руб)

Курс рассчитан для подготовки экспертов по регламентированному учету и учету затрат для внедрения на крупных промышленных предприятиях с «исторически сложившимся» учетом.

14500 руб.

29.07.2024 3300 76 1

Database Compression Tool (DCT) Универсальный инструмент сжатия, свертки и конвертации баз данных 1С

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

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP и т.д.). Поддерживаются управляемые и обычные формы. Может выполнять свертку сразу нескольких баз данных и выполнять их автоматически без непосредственного участия пользователя.

8400 руб.

20.08.2024 9329 73 32

Оркестратор 1С

Технологические Системный администратор Программист Бизнес-аналитик Конфигурации 1cv8

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

28000 руб.

04.12.2023 8131 0 0

Онлайн-курс «Процессный подход в проектах внедрения ERP-систем. Авторская методика». С 10 октября по 17 декабря 2024г.

ИТ-анализ Бизнес-аналитик Руководитель проекта Платформа 1С v8.3 Платные (руб)

На курсе вы освоите технологию работы с требованиями к автоматизации с учетом специфики бизнес-процессов заказчика, получите практические инструменты для качественного выявления и систематизации требований.

14000 руб.

02.08.2024 1949 31 0

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. peterxx 23 11.10.13 15:55 Сейчас в теме

Стесняюсь спросить, а чем она отличается (желательно в лучшую сторону) от уже предлагавшихся здесь и компоненты от 1С?

2. kote 537 11.10.13 17:28 Сейчас в теме

(1) судя по всему - это не внешняя компонента.. т.е. там код 1С отрабатывает - осталось только это все оформить в виде функции..

10. Alchemist 29.07.14 10:34 Сейчас в теме

(1) peterxx, автор написал, что обработка не использует никаких внешних компонент - скачал, потратил 1$m - посмотрел исходный код, и увидел, что, на самом деле, обработка использует типовые механизмы ЗУП. Ставлю минус!!!

//Получение компоненты склонения ФИО 
&НаСервереБезКонтекста
Функция ПодключитьКомпоненту()

ИмяКомпоненты =  "ОбщийМакет.КомпонентаСклоненияФИО";
Если Не ПодключитьВнешнююКомпоненту(ИмяКомпоненты, "МояКомпонентаСклоненияФИО", ТипВнешнейКомпоненты.Native) Тогда
  ВызватьИсключение НСтр("ru = 'Ошибка подключения внешней компоненты.'");
КонецЕсли;

Возврат Новый("AddIn.МояКомпонентаСклоненияФИО.CNameDecl");

КонецФункции


// Функция склоняет переданую фразу через подключение к штатной Функции "Просклонять" и компоненте "КомпонентаСклоненияФИО" 
//   Падеж, в который необходимо поставить ФИО.
//   1 - Именительный
//   2 - Родительный
//   3 - Дательный
//   4 - Винительный
//   5 - Творительный
//   6 - Предложный
&НаСервере
Функция СклонятьНаСервере ()
	КомпонентаСклоненияФИО = ПодключитьКомпоненту();
	ФИОСотрудника = Сотрудники; 
	УниверсальныеМеханизмы.Просклонять(КомпонентаСклоненияФИО, ФИОСотрудника, 3,Неопределено, ФИОСотрудника);  
	Возврат ФИОСотрудника;
КонецФункции

Показать

3. RailMen 828 12.10.13 00:55 Сейчас в теме

Текст в студию.
Без текста - кот в мешке.

4. spy-83 199 12.10.13 08:24 Сейчас в теме

с текстом здесь http://infostart.ru/public/14478/

6. evoo 8 14.10.13 04:23 Сейчас в теме

(4) spy-83, что-то не вижу текста у вас..

5. evoo 8 14.10.13 04:21 Сейчас в теме

Столкнулась с задачей, нужно было просклонять ФИО в нескольких падежах. На просторах интернета предлагается часто вариант подключения внешней библиотеки NameDecl.dll.

НО, в ЗУП есть собственная компонента склонения и даже есть общая функция, которая работает с помощью подключения этой компоненты.

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

7. Yashazz 4796 14.10.13 13:51 Сейчас в теме

Если кому с текстом, то вот: http://infostart.ru/public/16470/ - во всех падежах.
А ещё можно поискать по автору Jurer (у меня сеть подтормаживает, щас не найду), там сильно сделано и лаконично.

8. Nuuq 76 23.10.13 10:51 Сейчас в теме

Вот выдранный из дельфи на 1С77, этот для 1С82. Так же этот алгоритм видел еще где-то

Скрытый текст
// Функция для склонения одного слова!!! // z1 - само слово // z2 - номер падежа // z3 - пол // z4 - 0 - как существительное, 1-склонять как фамилию, 2-имя, 3-отчество // // // 1 - именительный // 2 - родительный // 3 - дательный // 4 - винительный // 5 - творительный // 6 - предложный Function ПадежС(z1,Знач z2=2,Знач z3="",z4=0) Экспорт z5 = Find(z1,"-"); z6 = ?(z5=0,"","-"+ПадежС(Mid(z1,z5+1,StrLen(z1)-z5+1),z2,z3,z4)); z1 = НРег(?(z5=0,z1,Left(z1,z5-1))); zc = Max(z2,-z2); zf = "";// исключения if zf = "" Then z7 = Right(z1,3);z8=Right(z7,2);z9=Right(z8,1); z5 = StrLen(z1); za = Find("ая ия ел ок яц ий па да ца ша ба та га ка на ма ха",z8); zb = Find("аеёийоуэюяжнгхкчшщ",Left(z7,1)); zd = ?(za=4,5,Find("айяь",z9)); zd = ?((zc=1)or(z9=".")or((z4=2)и(Find("оиеу"+?(z3="ч","","бвгджзклмнпрстфхцчшщъ"),z9)>0))or((z4=1)и(Find("мия мяэ лия кия жая лея шлы",z7)>0))or((z4=2)и(Find("ьжэ",z7)>0)),9,?((zd=4)и(z3="ч"),2,?(z4=1,?(Find("оеиую",z9)+Find("их ых аа еа ёа иа оа уа ыа эа юа яа",z8)>0,9,?(z3<>"ч",?(za=1,7,?(z9="а",?((za>18)и(z7<>"ина"),1,6),9)),?(((Find("ой ый",z8)>0)и(z5>4)и(Find("опой вбой",Right(z1,4))=0))or((zb>10)и(za=16)),8,zd))),zd))); ze = Find("лец нёк вей бей дец пец мец нец рец вец аец иец ыец бер",z7); zf = ?((zd = 8)и(zc<>5),?((zb>15)or(Find("жий ний",z7)>0),"е","о"),?(z1="лев","ьв",?((Find("аеёийоуэюя",Mid(z1,z5-3 ,1))=0)и((zb>11)or(zb=0))и(ze<>49),"",?(za=7,"л",?(za=10,"к",?(za=13,"йц",?(ze=0,"",?(ze<16,"ь"+?(ze=1,"ц",?(ze=5,"к","")),?(ze<41,"ц",?(ze<53,"йц","р")))))))))); zf = ?((zd = 9)or((z4 = 3)и(Right(z1,1)="ы")),z1,Left(z1,z5-?((zd>6)or(zf<>""),2,?(zd>0,1,0)))+zf+СокрП(Mid("а у а "+?((Find("ич ыш нц эц",z8)>0)и(Найти("кмь",Left(z7,1))=0),"е",?( (Find("ов ин ев", z8)>0)и(z4=1) ,"ы","о"))+"ме "+?(Find("гжкхш",Left(z8,1))>0,"и","ы")+" е у "+?(z8="ца","е","о")+"йе я ю я ем"+?(za=16,"и","е")+" и е ю ейе и и ь ьюи и и ю ейи ойойу ойойойойуюойойгомуго"+?((zf="е")or(za=16)or((zb>12)и(zb<16)),"и","ы")+"мм",10zd+2zc-3,2))); EndIf; Return ?("" = z1, "", ?(z4 > 0, ВРег(Left(zf, 1))+?((z2 < 0)и(z4 > 1), ".", Mid(zf, 2)), zf) + z6); EndFunction // Функция для склонения ФИО!!! // z1 - фамилия имя отчество например Железняков Юрий Юрьевич // z2 - Падеж ( по умолчанию = 2 - родительный) // 2 - родительный ( нет кого? ) Железнякова Юрия Юрьевича // 3 - дательный ( кому? ) Железнякову Юрию Юрьевичу // 4 - винительный ( вижу кого? ) Железнякова Юрия Юрьевича // 5 - творительный ( кем? ) Железняковым Юрием Юрьевичем // 6 - предложный ( о ком? ) Железнякове Юрии Юрьевиче // Если задать Z2 меньше 0, то на выходе получим от -1=Железняков Ю. Ю. до -6=Железнякове Ю. Ю. // z3 - параметр Пол может не указываться, но при наличии фамилий с // инициалами точное определение пола невозможно, поэтому предлагается задавать пол этим // параметром 1 - мужской 2 - женский // ДЛЯ СКЛОНЕНИЯ ПРОФЕССИЙ ИСПОЛЬЗУЙТЕ ФУНКЦИЮ ПАДЕЖП И БУДЕТ ВАМ СЧАСТЬЕ! // --------------------------------------------------------------------------------------- // Бибик Галушка Цой Николайчик Наталия Петровна Герценберг Кривошей Капица-Метелица // Если Падеж(Фио ,1 ,3), то на выходе получим Фамилия Имя Отчество и т.д. // Если Падеж(Фио ,1 ,3,"1" ), то Фамилия // Если Падеж(Фио ,1 ,3,"2" ), то Имя // Если Падеж(Фио ,1 ,3,"3" ), то Отчество // Если Падеж(Фио, 1 ,3,"12" ), то Фамилия Имя // Если Падеж(Фио, 1 ,3,"23" ), то Имя Отчество // Если Падеж(Фио,-1 ,3,"231" ),то И. О. Фамилия // Если Падеж(Фио,-1 ,3,"23" ), то И. О. Function Падеж(Знач z1,z2=2,z3=3,Знач z4="123",z5=1) Экспорт z1=СокрЛП(z1); Возврат СокрЛП(?(z5<4,Падеж(СокрЛП(СтрЗаменить(Сред(z1,Найти(z1+" "," ")+1),".",". ")),z2,z3,СтрЗаменить(z4,z5,ПадежС(Лев(z1,Найти(z1+" "," ")-1),z2,Сред("ча"+НРег(Прав(z1,1)),z3,1),z5)+" "),z5+1),z4)); EndFunction // Функция для склонения только первого слова предложения!!! Function ПадежП(Знач z1,Знач z2,z3=0, ВНижнийРегистр=0) Экспорт z1=СокрЛП(z1); z1=СокрЛП(z1);z4=Найти(z1+" "," ")+1;z5=Лев(z1,z4-2);z6=Прав(z5,2); z7=?((Найти("ая ий ый",z6)>0)и(Найти("ющий нный",Сред(z1,z4-5,4))=0)и(z3=0),"1",""); Рез=?((z6="ая")или(Прав(z6,1)="а"),ПадежС(z5,z2,z7,1)+" "+ПадежС(Сред(z1,z4),z2),ПадежС(z5,z2,"ч",1)+?((z6="ий")и(Найти(z1," ")=0),""," "+?(z7="1",ПадежП(Сред(z1,z4),z2,Число(z7)),Сред(z1,z4)))); Возврат ?(ВНижнийРегистр=1,НРег(Рез),Рез); EndFunction

Скрытый текст

// Функция для склонения одного слова!!!
// z1 - само слово
// z2 - номер падежа
// z3 - пол
// z4 - 0 - как существительное, 1-склонять как фамилию, 2-имя, 3-отчество
//
//
// 1 - именительный
// 2 - родительный
// 3 - дательный
// 4 - винительный
// 5 - творительный
// 6 - предложный
Function ПадежС(z1,Знач z2=2,Знач z3="*",z4=0) Экспорт
z5 = Find(z1,"-");
z6 = ?(z5=0,"","-"+ПадежС(Mid(z1,z5+1,StrLen(z1)-z5+1),z2,z3,z4));
z1 = НРег(?(z5=0,z1,Left(z1,z5-1)));
zc = Max(z2,-z2);
zf = "";// исключения
if zf = "" Then
z7 = Right(z1,3);z8=Right(z7,2);z9=Right(z8,1);
z5 = StrLen(z1);
za = Find("ая ия ел ок яц ий па да ца ша ба та га ка на ма ха",z8);
zb = Find("аеёийоуэюяжнгхкчшщ",Left(z7,1));
zd = ?(za=4,5,Find("айяь",z9));
zd = ?((zc=1)or(z9=".")or((z4=2)и(Find("оиеу"+?(z3="ч","","бвгджзклмнпрстфхцчшщъ"),z9)>0))or((z4=1)и(Find("мия мяэ лия кия жая лея шлы",z7)>0))or((z4=2)и(Find("ьжэ",z7)>0)),9,?((zd=4)и(z3="ч"),2,?(z4=1,?(Find("оеиую",z9)+Find("их ых аа еа ёа иа оа уа ыа эа юа яа",z8)>0,9,?(z3<>"ч",?(za=1,7,?(z9="а",?((za>18)и(z7<>"ина"),1,6),9)),?(((Find("ой ый",z8)>0)и(z5>4)и(Find("опой вбой",Right(z1,4))=0))or((zb>10)и(za=16)),8,zd))),zd)));
ze = Find("лец нёк вей бей дец пец мец нец рец вец аец иец ыец бер",z7);
zf = ?((zd = 8)и(zc<>5),?((zb>15)or(Find("жий ний",z7)>0),"е","о"),?(z1="лев","ьв",?((Find("аеёийоуэюя",Mid(z1,z5-3 ,1))=0)и((zb>11)or(zb=0))и(ze<>49),"",?(za=7,"л",?(za=10,"к",?(za=13,"йц",?(ze=0,"",?(ze<16,"ь"+?(ze=1,"ц",?(ze=5,"к","")),?(ze<41,"ц",?(ze<53,"йц","р"))))))))));
zf = ?((zd = 9)or((z4 = 3)и(Right(z1,1)="ы")),z1,Left(z1,z5-?((zd>6)or(zf<>""),2,?(zd>0,1,0)))+zf+СокрП(Mid("а у а "+?((Find("ич ыш нц эц",z8)>0)и(Найти("кмь",Left(z7,1))=0),"е",?( (Find("ов ин ев", z8)>0)и(z4=1) ,"ы","о"))+"ме "+?(Find("гжкхш",Left(z8,1))>0,"и","ы")+" е у "+?(z8="ца","е","о")+"йе я ю я ем"+?(za=16,"и","е")+" и е ю ейе и и ь ьюи и и ю ейи ойойу ойойойойуюойойгомуго"+?((zf="е")or(za=16)or((zb>12)и(zb<16)),"и","ы")+"мм",10*zd+2*zc-3,2)));
EndIf;
Return ?("" = z1, "", ?(z4 > 0, ВРег(Left(zf, 1))+?((z2 < 0)и(z4 > 1), ".", Mid(zf, 2)), zf) + z6);
EndFunction
// Функция для склонения ФИО!!!
// z1 - фамилия имя отчество например Железняков Юрий Юрьевич
// z2 - Падеж ( по умолчанию = 2 - родительный)
// 2 - родительный ( нет кого? ) Железнякова Юрия Юрьевича
// 3 - дательный ( кому? ) Железнякову Юрию Юрьевичу
// 4 - винительный ( вижу кого? ) Железнякова Юрия Юрьевича
// 5 - творительный ( кем? ) Железняковым Юрием Юрьевичем
// 6 - предложный ( о ком? ) Железнякове Юрии Юрьевиче
// Если задать Z2 меньше 0, то на выходе получим от -1=Железняков Ю. Ю. до -6=Железнякове Ю. Ю.
// z3 - параметр Пол может не указываться, но при наличии фамилий с
// инициалами точное определение пола невозможно, поэтому предлагается задавать пол этим
// параметром 1 - мужской 2 - женский
// ДЛЯ СКЛОНЕНИЯ ПРОФЕССИЙ ИСПОЛЬЗУЙТЕ ФУНКЦИЮ ПАДЕЖП И БУДЕТ ВАМ СЧАСТЬЕ!
// ---------------------------------------------------------------------------------------
// Бибик Галушка Цой Николайчик Наталия Петровна Герценберг Кривошей Капица-Метелица
// Если Падеж(Фио ,1 ,3), то на выходе получим Фамилия Имя Отчество и т.д.
// Если Падеж(Фио ,1 ,3,"1" ), то Фамилия
// Если Падеж(Фио ,1 ,3,"2" ), то Имя
// Если Падеж(Фио ,1 ,3,"3" ), то Отчество
// Если Падеж(Фио, 1 ,3,"12" ), то Фамилия Имя
// Если Падеж(Фио, 1 ,3,"23" ), то Имя Отчество
// Если Падеж(Фио,-1 ,3,"231" ),то И. О. Фамилия
// Если Падеж(Фио,-1 ,3,"23" ), то И. О.
Function Падеж(Знач z1,z2=2,z3=3,Знач z4="123",z5=1) Экспорт

z1=СокрЛП(z1);
Возврат СокрЛП(?(z5<4,Падеж(СокрЛП(СтрЗаменить(Сред(z1,Найти(z1+" "," ")+1),".",". ")),z2,z3,СтрЗаменить(z4,z5,ПадежС(Лев(z1,Найти(z1+" "," ")-1),z2,Сред("ча"+НРег(Прав(z1,1)),z3,1),z5)+" "),z5+1),z4));

EndFunction
// Функция для склонения только первого слова предложения!!!
Function ПадежП(Знач z1,Знач z2,z3=0, ВНижнийРегистр=0) Экспорт

z1=СокрЛП(z1);
z1=СокрЛП(z1);z4=Найти(z1+" "," ")+1;z5=Лев(z1,z4-2);z6=Прав(z5,2);
z7=?((Найти("ая ий ый",z6)>0)и(Найти("ющий нный",Сред(z1,z4-5,4))=0)и(z3=0),"1","*");
Рез=?((z6="ая")или(Прав(z6,1)="а"),ПадежС(z5,z2,z7,1)+" "+ПадежС(Сред(z1,z4),z2),ПадежС(z5,z2,"ч",1)+?((z6="ий")и(Найти(z1," ")=0),""," "+?(z7="1",ПадежП(Сред(z1,z4),z2,Число(z7)),Сред(z1,z4))));
Возврат ?(ВНижнийРегистр=1,НРег(Рез),Рез);

EndFunction

У меня данный алгоритм успешно склоняет ФИО для печати некоторых документов в УТ 10.3