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

11.10.13

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

Скачать файл

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

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

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

склонение

+3 –

См. также

INFOSTART TEAMLEAD&CIO EVENT, 24-25 февраля 2025 г., Москва

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

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

55000 руб.

28.08.2024 4181 568 0

INFOSTART A&PM EVENT, 29-31 мая 2025 г., Санкт-Петербург

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

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

39600 руб.

28.08.2024 6970 123 0

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

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

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

2000 руб.

06.02.2024 1896 83 0

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

Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Системный администратор Программист Руководитель проекта Платформа 1С v8.3 Россия Платные (руб)

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

8400 руб.

20.08.2024 12807 99 46

102

1C:Предприятие для программистов: Запросы и отчеты. Онлайн-интенсив.

1С-программирование Программист Стажер Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Онлайн-курс предусматривает углубленное изучение языка запросов и возможностей системы компоновки данных, которые понадобятся при разработке отчетов, работающих на платформе “1С:Предприятие”.

3750 руб.

04.10.2023 7899 18 1

126

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

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

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

28000 руб.

04.12.2023 8395 0 0

INFOSTART TECH EVENT 2024

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

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

5500 руб.

06.12.2023 13529 59 0

375

Интеграция 1С и маркетплейсов: Wildberries, Яндекс Маркет, СберМегаМаркет (FBO, FBS)

Маркетплейсы Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Оптовая торговля, дистрибуция, логистика Ювелирная промышленность и торговля Фармацевтика, аптеки Легкая промышленность, мода и одежда Пищевая промышленность Бухгалтерский учет Налоговый учет Управленческий учет Платные (руб)

Модуль интеграции 1С с маркетплейсами: Wildberries, Яндекс Маркет, СберМегаМаркет. Синхронизация заказов и остатков, поддержка FBO и FBS для УТ 11, КА, ERP, УНФ

39900 руб.

17.07.2023 12298 57 20

Комментарии

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

Свернуть все

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 4801 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