Склонение украинских ФИО, должностей и подразделений в семи падежах. DLL с поддержкой OLE.
Разработка - Инструментарий разработчика
Бесплатные
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Узнавайте о новых бесплатных решениях в нашей телеграм-группе Инфостарт БЕСПЛАТНО
| Наименование | Скачано | Бесплатно |
|---|---|---|
|
Библиотека + Примеры вызова из 1С и Delphi + Исходники
.zip 499,90Kb
1252
|
1252 | Скачать бесплатно |
Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Библиотека (Padeg_ua.dll) предназначена для склонения фамилии, имени, отчетства (ФИО), должностей и подразделений по правилам украинского языка.
Полная версия с исходниками на Turbo Delphi.
Склонение осуществляется из именительного во все остальные падежи.
Пол сотрудника определяется по отчеству (если не указан явно).
Производится замена английских символов на украинские.
Библиотека может использоваться из 1С, C, Pascal, Visual Basic, MS Office, MS SQL, Oracle и др.
Интерфейс взаимодействия.
Для 1С рекомендуется использовать OLE. Пример использования:
Склонение = СоздатьОбъект("Padeg_ua.Declension"); ... Сообщить(Склонение.GetFIOPadegFS( Сотрудник.Наименование, "", 2 );
Предварительно необходимо поместить библиотеку в общедоступную папку или папку программы и зарегистрировать её при помощи команды: regsvr32.exe <Путь>\Padeg_ua.dll
Доступ к функциям библиотеки осуществляется также как и к функциям библиотеки Padeg.dll.
Это библиотека склонения по правилам русского языка, её автора: С.Плахов и Г.Покаташкин.
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=412
Вся документация и примеры использования Padeg.dll также применимы к Padeg_ua.dll.
Отличия по сравнению с Padeg.dll:
- имя файла и имя OLE класса - Padeg_ua;
- отсутствует OLE класс Dictionary, добавлено свойство DictionaryFileName, и функция UpdateDictionary.
- не реализованы функции восстановления именительного падежа и определения падежа;
- отличается словарь исключений.
Правила склонения
Реализованы правила склонения существительных и прилагательных.
Правила склонения сформулированы по материалам электронного учебника:
http://linguist.univ.kiev.ua/WINS/pidruchn/index.htm
Для женских фамилий на -а, -я, а также для должностей программа пытается
определить часть речи по окончанию слова, в редких случаях неуспешно.
Исключения из правил (не рассмотренные в учебнике), а также
неудовлетворительные попытки программы определить часть речи
необходимо заносить в словарь исключений - файл "Padeg_ua.dic".
Файл создается при первом обращении к библиотеке.
Версия 1.0.0.3
Исправлено склонение в звательном падеже для существительных 2 группы,
согласно правил электронного учебника: http://www.mova.info/Pidruchn.aspx,
раздел "МОРФОЛОГІЯ, 8. Відмінювання іменників II відміни".
Версия 1.0.0.4
Полнофункциональная без ограничений с исходными кодами, других исправлений и изменений нет.
Вступайте в нашу телеграмм-группу Инфостарт
См. также
Разработка Инструментарий разработчика Групповая разработка (Git, хранилище) Разработчик Платные (руб)
Практический курс по работе с AI-агентами для разработчиков 1С уровня middle и senior, а также тимлидов команд: от постановки задач и передачи контекста до создания расширений, интеграций, MCP-инструментов, тестов и проверки готового решения.
50000 руб.
10.09.2026 13310 115 0
Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Системный администратор Разработчик Руководитель проекта 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Платные (руб)
Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP, УНФ, КА и т.д.). Поддерживаются серверные и файловые базы, управляемые и обычные формы, интерфейс 8.5. Может выполнять свертку одновременно в несколько потоков, а также без непосредственного участия пользователя. Решение в Реестре отечественного ПО.
24900 руб.
20.08.2024 83193 432 171
Инструментарий разработчика Роли и права Запросы СКД Разработчик Руководитель проекта 1С:Предприятие 8 Платные (руб)
Инструменты для разработчиков 1С 8.3 и 8.5: Infostart Toolkit. Автоматизация и ускорение разработки на управляемых формах. Легкость работы с 1С.
16500 руб.
02.09.2020 285545 1606 423
Инструментарий разработчика Разработка Администрирование веб-серверов Системный администратор Разработчик Аналитик Руководитель проекта 1С 8.3 Платные (руб)
Analyzer 1C сводит выгрузку 1С — основную конфигурацию и все расширения — в единый граф знаний. Любой запрос по связям за доли секунды, с пометками «Доб.» / «Заимств.» / «Переопределено». Новое в 2.0 — обновление поставки: сравнение и объединение версий деревом «как в Конфигураторе» с выгрузкой плана решений; поиск конфликтов из-за перехватов расширений и висячих ссылок; загрузка из бинарных .cf/.cfe; циклические зависимости. Плюс анализ влияния, запросы BSL, роли и RLS, граф вызовов. Минута на развёртывание через Docker без необходимости подключения к Интернет. Любая 1С:Предприятие 8.3+.
14000 руб.
17.04.2026 16714 63 62
Пакетная печать Печатные формы Инструментарий разработчика Разработчик 1С:Предприятие 8 Платные (руб)
Расширение для создания и редактирования печатных форм в системе 1С:Предприятие 8.3. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и прозрачность разработки, а также навести порядок в многообразии корпоративных печатных форм. Обновление версии от 21.04.26
22570 руб.
06.10.2023 44143 122 54
Инструментарий разработчика Нейросети Платные (руб)
Первые попытки разработки на 1С с использованием больших языковых моделей (LLM) могут разочаровать. LLMки сильно галлюцинируют, потому что не знают устройства конфигураций 1С, не знают нюансов синтаксиса. Но если дать им подсказки с помощью MCP, то результат получается кардинально лучше. Далее в публикации: MCP для поиска по метаданным 1С, справке синтакс-помощника и проверки синтаксиса.
15250 руб.
25.08.2025 76788 147 41
Разработка Инструментарий разработчика Разработчик Руководитель проекта 1С 8.3 Платные (руб)
Pilot 1C превращает задачу, поставленную обычными словами, в техническое задание, код на встроенном языке и сценарии проверки. Прежде чем что-то предложить, он сверяется с устройством вашей конфигурации через граф Analyzer 1C: существует ли объект, из чего он состоит, кто его вызывает, какие роли дают права. Чего найти не удалось – спрашивает, а не выдумывает. Готовый код проходит более полутора сотен проверок по справочнику языка и стандартам разработки, который приезжает вместе с продуктом. Модель – ваша: любой сервер, совместимый с программным интерфейсом OpenAI, в том числе локальный. Правки в конфигурацию Pilot не вносит – их применяет разработчик.
18300 руб.
11.09.2026 3689 5 0
Инструменты администратора БД Инструментарий разработчика Роли и права Разработчик 1С:Предприятие 8 1C:Бухгалтерия Россия Платные (руб)
Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.
17000 руб.
10.11.2023 28707 103 46
Как по мне - дороговато.
"На 07.11.2007 стоимость исходных текстов под Turbo Delphi либо 1С 7.7 составляет 10'000 грн."
Имхо звучит как фраза из "Буря в стакане" - когда они торговализь за гравицапу :))
Не, он вполне серъезно.
цены представлены здесь:
и переделать под украинский язык.
В таком случае себестоимость исходных кодов может быть как ниже так и выше,
это зависит от себестоимости вашего времени на разработку и тестирование.
Продажу исходников я воспринимаю как выход с рынка, ведь что помешает
купившему исходники продавать программу от своего имени?
Объем рынка очень и очень скромный - небольшим фирмам такая штукенция ни к чему.
А организациям с численностью сотрудников от 600 и выше возможно будет интересна,
я считаю, для них эта цена не покажется высокой.
Спасибо за оказанный интерес,
напоминаю, вы можете зарегистрировать сабж бесплатно.
Он благополучно протестирован на списке в 1500 сотрудников.
Товарищ (не нам) Тарасенков занялся плагиатом... Исходники мы ему точно не продавили...
Как один из авторов библиотеки склонения на русском официально уведомляю, что есть версия библиотеки для украинского языка. С некоторыми недоработками (не было среди нас знающего украинский), но зато совершенно бесплатна.
Предлагаю (это самый действенный способ) хорошо знающему украинский язык исходники для портирования, с условием выпуска бесплатной сборки библиотеки для украинского языка. Прощу обращаться ко мне или Гене напрямую или через сайт "Королевства..."
Кстати. Исходники нашей версии были изначально открыты, пока не нашелся один, опять же "не нам" :-), товарищ? который опубликовал их от своего имени, с нашими же коментариями и ошибками...
И наконец... "Не нам" товарищ Тарасенков, случайно не думаете ли вы закупать сало для отправки в Россию и Белорусию на все суммы?
Ведь на форуме delphikingdom посвященному русской версии библиотеки не единожды встречался вопрос об украинской версии, и ответа на него я там так и не нашел.
В итоге, не найдя достойной библиотеки склонения пришлось написать свою, писал к тому же на 1с, но чтобы как-то окупить расходы и защитить свой труд портировал на Delphi в DLL. Библиотека склонения на русском стала достойным примером для подражания в части экспортируемых функций и OLE. И для того чтобы пользователям русской версии библиотеки было проще использовать мою, ну и конечно, чтобы не писать документацию, интерфейс функций экспорта был выполнен в соответствии с документацией русской версии.
Я считаю насчет наглости и плагиата вы немного погорячились, поскольку ни исходников русской библиотеки ни некой украинской библиотеки я не видел и не использовал, и требую извинений на этот счет.
Насчет бесплатной версии, напоминаю, временно осуществляется бесплатная регистрация.
В обсуждении вопрос за все время встречался ровно 2 раза: 21-11-2002 и 12-09-2007.
Зато была масса вопросов по русской сборке, вот в этом направлении ("где же вы были...") и работали.
В (14) предложен самый разумный вариант развития событий (ИМХО).
Не единожды отвечали лично (и я, и Гена), что не знаем мы украинского. Однажды у нас брали исходники с той же целью добавления украинского, но тот человек так и не довел работу до конца (это точно были не вы).
На форуме в "Королевстве...", если помните, были вопросы про *'nix версию. Так вот, к нам обратились с просьбой предоставить исходники, дали, в обмен на будущие. И сейчас активно переводят под Unix на С. И сейчас дадим исходники с условием сохранения условий лицензии как и для русского языка (вкратце: платное только коммерческое использование).
Готов принести свои изменения если библиотека действительно была портирована и унифицирован интерфейс.
Однако ваших исходников мы тоже не видели.
То что я пробовал :
1.
| Код |
|---|
Попытка
ЗагрузитьВнешнююКомпоненту("padeg_ua.dll");
Падеж_УА = Новый ("padeg_ua.Declension");
Исключение
Сообщить("Не загружен ""padeg_ua.dll""!", СтатусСообщения.Важное);
КонецПопытки;
Показать полностью |
2.
| Код |
|---|
Попытка
ЗагрузитьВнешнююКомпоненту("ule.dll");
Падеж_УА = Новый ("AddIn.ULE");
Исключение
Сообщить("Не загружен ""ule.dll""!", СтатусСообщения.Важное);
КонецПопытки;
Попытка
Падеж_УА.TransmuteInto("padeg_ua.Declension");
Исключение
Сообщить("Не загружен ""padeg_ua.dll""!", СтатусСообщения.Важное);
КонецПопытки;
Показать полностью |
В случае успешной работы компоненты в 1С 8.1, рассматривается вариант покупки.
2. Код подключения:
| Код |
|---|
Скл = Новый COMОбъект("Padeg_ua.Declension");
Падеж = 5; // Творительный
выб = Справочники.Сотрудники.Выбрать();
Пока выб.Следующий() Цикл
Если выб.ЭтоГруппа тогда
Продолжить;
КонецЕсли;
ФИО = ТРег(выб.ФамилияУкр) + " " + ТРег(выб.ИмяУкр) + " " + ТРег(выб.ОтчествоУкр);
Должность = выб.Должность.Наименование;
Отдел = выб.Отдел.Наименование;
Результат = Скл.GetFIOPadegFS(ФИО, "", Падеж) + ", " + Скл.GetFullAppointmentPadeg(Должность, Отдел, Падеж);
Сообщить(Результат);
КонецЦикла;Показать полностью |
Это она и есть =) работает и без КОМ-сервера, смотрите пример вызова из Дельфи
Сейчас склоняет так:
1 Палій Олексій Іванович
2 Палього Олексія Івановича
3 Пальому Олексію Івановичу
4 Палого Олексія Івановича
5 Палім Олексієм Івановичем
6 Пальому Олексієві Івановичеві
7 Палій Олексію Івановиче
Нужно так:
Називний Палій Олексій Іванович
Родовий Палія Олексія Івановича
Давальний Палію Олексію Івановичу
Знахідний Палія Олексія Івановича
Орудний Палієм Олексієм Івановичем
Місцевий Палії Олексії Івановичі
Кличний Палію Олексію Івановиче
Можно ли это как-то исправить?
> C:\Windows\SysWOW64\regsvr32.exe "C:\Program Files\1cv8\padeg_ua.dll"
=== зарегистрировано успешно...
код: Склонятор = Новый COMОбъект("Padeg_ua.Declension");
результат: Ошибка при вызове конструктора (COMОбъект) ... по причине: -2147221164(0x80040154): Класс не зарегистрирован
запихнул в COM+ - заработало вроде.
второй вопрос - автор вроде как-то говорил что можно без регистрации использовать.. но он про паскаль. а в 1с можно эту красоту без регистрации использовать? а то у клиента - оч строго подходят к части самовольничаний на серверах (и правильно делают ящетаю в принципе).
как в 1С без регистрации?
"головна організація" >>>GetOfficePadeg(2. Родовий (родительный) = кого? / чего?)>>> "головни організація"
"головна організація" >>>GetOfficePadeg(3. Давальний (дательный) = кому? / чому?)>>> "головні організація"
"головна організація" >>>GetOfficePadeg(4. Знахідний (винительный) = кого? / що?)>>> "головну організація"
"головна організація" >>>GetOfficePadeg(5. Орудний (творительный) = ким? / чим?)>>> "головною організація"
"головна організація" >>>GetOfficePadeg(6. Місцевий (предложный) = на кому? / на чому?)>>> "головні організація"
"головна організація" >>>GetOfficePadeg(7. Кличний (звательный) = агов !?)>>> "головно організація"
то же самое с "основна"
склоняет как существительное - а надо как прилагательное.
что-где-как подправить?
Начиная с версии 8.3.13 Есть встроеная процедура склонения строки возвращает масив:
РезультатМасив = ПолучитьСклоненияСтроки("Іванов Іван Іванович", "П=uk_UA" "ПЛ=Мужской", "ПД=Дательный");
Вобщем что бы у вас работало:
1) Скопируйте в ( bin ) папку 1С padeg_ua.dll
2) CMD от имени администратора ( для 64бит перейдите в " cd \windows\syswow64 " ) и зарегестрируйте padeg_ua.dll и comcntr.dll.
3) Создайте два приложения СОМ+ для padeg_ua.dll и comcntr.dll как по ссылке
4) В модуле нужного вам обекта добавте Функцию:
Функция СклонятьФИО(Фамилия, Имя, Отчество, ПолМЖ, Падеж)
///////Стандартная функция 1С начиная с 8.3.13 ПолучитьСклоненияСтроки("ФИО", "П=ЛокацияЯзыка" "ПЛ=Пол", "ПД=Падеж")
///////Пример:
//РезультатМасив = ПолучитьСклоненияСтроки("Іванов Іван Іванович", "П=uk_UA" "ПЛ=Мужской", "ПД=Дательный");
//Для Каждого Результат из РезультатМасив Цикл
// Сообщить("Стандартная функци ПолучитьСклоненияСтроки результат: " + Результат);
//КонецЦикла;
/////Функция СОМ padeg_ua.dll
////ОбъектСклонения.GetFIOPadeg("Фамилия", "Имя", "Отчество", Пол, Падеж)
////ОбъектСклонения.GetFIOPadegFS("Фамилия Имя Отчество", Пол, Падеж)
////Пол = "м"; или "ж"
////Падеж = "2"; от 1 до 6
////1 Именительный Кто? Что? Иван Иванович Петров
////2 Родительный Кого? Чего? Ивана Ивановича Петрова
////3 Дательный Кому? Чему? Ивану Ивановичу Петрову
////4 Винительный Кого? Что? Ивана Ивановича Петрова
////5 Творительный Кем? Чем? Иваном Ивановичем Петровым
////6 Предложный О ком? О чём? об Иване Ивановиче Петрове
///////Пример:
/////// Подключение СОМ DLL зарегестрированный модуль padeg_ua.dll
//ОбъектСклонения = Новый COMОбъект("Padeg_ua.Declension");
//ОбъектСклонения.UpdateDictionary();
//
//Результат = ОбъектСклонения.GetFIOPadeg("Іванов", "Іван", "Іванович", "м", 3);
//Сообщить("Padeg_ua GetFIOPadeg результат: " + Результат);
//
//Результат = ОбъектСклонения.GetFIOPadegFS("Іванов Іван Іванович","м", 3);
//Сообщить("Padeg_ua GetFIOPadegFS результат: " + Результат);
Возврат Результат;
КонецФункции ПоказатьВы можете заказать платную консультацию или разработку у автора. Будет создан приватный заказ на «Бирже заказов» для автора.
№ 15240
Создание 08.11.07 04:01
Обновление 11.05.10 00:00
Просмотры 56754
Загрузки 1252
Рейтинг
35
Комментарии 54
Код открыт Не указано
Рубрики Инструментарий разработчика
Кому Разработчик
Тип файла Компонента, плагин (dll, vbs,..)
Платформа Не имеет значения
Конфигурация Универсальные
Операционная система Не имеет значения
Страна Украина
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Бесплатно (free)
