Добрый день! Передо мной стоит задача, просклонять ФИО и в необходимом месте, оставить только фамилию и инициалы. Функцию по склонению ФИО я нашла
http://manual1c.ru/sklonenie-familii-imeni-i-otchestva-po-padezham/
, но она пока работать не хочет,а вот как имена усекать я пока не разобралась. Подскажите мне пожалуйста, в правильном ли направлении я иду, может там все намного сложнее или проще?

(0) В ЗУПе есть наглядный пример.

(0) ИМХО, лучшее решение здесь: http://www.superjur.narod.ru/padeg.htm

В ЗУПе есть усечение инициалов?

Я слышала, что там на ПКО есть такая функция

глФамилияИнициалыФизлица(...) ищи в ОМ

В ЗУПе? Функция ОбщегоНазначения.ФамилияИнициалыФизЛица()

Понятно, значит буду ждать пока доступ в ЗУП дадут, мне к сожалению только УТ дали

(7)Наркоман? :) Скачать же можно.. ты ведь не юзать его будешь.. скачал.. поставил... нашёл что нужно, удалил..

(0) Склонение понятно, а усечение это типа Людк, Васьк, Петьк?

Может и наркоман, мне самой интересно попробовать руками, я только начина программировать в 1с, поэтому все пытаюсь писать сама

Андрюха, да-да, именно

(11) Последнюю гласную "усекай" тогда

Да мне же надо одни инициалы оставить

ЗуП есть склонение ФИО там в печатных формах это используется ...

Вот, я и жду доступа туда

(13) Тогда первые символы у имени и фамилии

(8) Чисто формально - это нарушение авторских прав.

(0) В ЗУПе (да и не только) есть функция ПросклонятьФамилиюИмяОтчество... ТС, проверь свою конфигурацию глобальным поиском на слово "Просклонять" - может и у тебя оно есть.

Попробую

... а "Людк" всё-таки было бы прикольней

Было бы)
Глобальный поиск ничего не нашел

Хотя когда в коде пишу просклонять,подсказку выдает

кстати как склонять должности
например - "в лице (генеральный директор) (пупкин василилй васильевич) ..."  ФИО склоняется функцией а вот должность корректно как просклонять?

В УТ, УправлениеКонтактнойИнформацией.ФамилияИнициалыФизЛица

(22)Просклонять вроде работает для любых фраз до 3х слов

(20) Печалька :) Ну тогда установи компоненту NameDecl.dll и использую на здоровье :)

PS: v8: Тонкий клиент, подключение ВК NameDecl.dll(Склонение)

(22) Функция в (2) склоняет и должности :)

(24) неа склоняет неправильно :)

Вот код который написала

&НаКлиенте
Процедура Просклонять1(Команда)
   
Просклонять();    


КонецПроцедуры


Функция Просклонять()
Попытка

// Загружаем внешнюю компоненту
ЗагрузитьВнешнююКомпоненту("NameDecl.dll");
Объект = Новый("AddIn.NameDeclension");

Исключение

Сообщить("Ошибка загрузки внешней компоненты для склонения ФИО! Функции склонения будут недоступны!" + ОписаниеОшибки());

КонецПопытки;
// Определяем ФИО, которые надо просклонять


ФИО1 = ФИОПолное;

// Задаем требуемый падеж
Падеж = 2;

// Получаем результат склонения
Результат = Объект.Просклонять(ФИО1, Падеж);

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

Я там пока еще не правильно похоже обратилась к реквизиту формы ФИОПолное

+(27) предположу что функция незаточена под склонение прилагательных например просклоняйте должность "супер крутой главначпупс"

Да мне должности не надо пока, она у меня простое ФИО склонять не хочет

&НаКлиенте
Процедура Просклонять1(Команда)
СтрокаФИО=ФИОПолное;
Падеж=2;

Просклонять(СтрокаФИО,Падеж);    


КонецПроцедуры


&НаСервере
Функция Просклонять(СтрокаФИО,Падеж)
    Результат = "";
   
    ПутьККомпоненте = КаталогПрограммы()+ "NameDecl.dll";
    NameDecl = "AddIn.NameDeclension";
    Попытка
       
        Если ПодключитьВнешнююКомпоненту(ПутьККомпоненте,NameDecl)ТОгда
                        Результат = NameDecl.Просклонять(СтрокаФИО,Падеж);
           
       КонецЕсли;
    Исключение
        Сообщить("Не удалось загрузить внешнюю компаненту по причине: "+ОписаниеОшибки());
    КонецПопытки;
    Возврат Результат;
КонецФункции



Вот так тоже не работает, выскакивает на сообщение("Не удалось загрузить внешнюю компаненту по причине: "+ОписаниеОшибки());

(30) +1 ФИО сотрудников из бывших братских республик склоняются неверно.

А как мне организовать хотя бы склонение фамилии Иванов?

(34) Блин, я тебе ещё в (2) дал правильный ответ. Склоняет всё правильно, усекает как надо, склоняет профессии и должности.

+(35) И никаких внешних компонент не нужно.

Ладно попробую скачаю попробую

ой, ну все зациклилась

А будет ли формально честно, если я кусок кода оттуда возьму?

(39) Ну раз автор выложил свой код в свободный доступ, думаю, что да. И, кстати, он тут иногда проскакивает, покличь, может, отзовётся :))

Попробую, я просто туда заглянула и не поняла ничего((((

в (2) ВРИО в должности не склоняет ;(

milan,а можете для совсем начинающего программиста объяснить как адаптировать этот код под мой случай, я как поняла Вы уже с ним работали

(43) Карась вставляем текст в модуль и вызываем функцию Падеж(), параметры все описаны

а в z1 мы обрабатываемую строку вставляем?

и если мне нужен только родительный падеж, то получается там много лишнего кода

Просто у меня как происходит, я ввожу в реквизит например "Иванов Иван Иванович"
и он пока выводит тоже самое

а все поняла

Я боюсь этот код для меня не подойдет,у меня ФИО забито в одно поле(

(49) так разбей его на несколько полей!

Не могу, требования заранее установленые(

(31) какие требования?

(52) - (51)

+ Ты не можешь догадаться как разложить строку на подстроку?

Не могу, опыта в этом деле 4 недели(

(54)

Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",") Экспорт
   МассивСтрок = Новый Массив();
   
   Если НЕ ЗначениеЗаполнено(Стр) тогда
       Возврат МассивСтрок;    
   КонецЕсли;
   
   Если Разделитель = " " Тогда
       Стр = СокрЛП(Стр);
       Пока 1=1 Цикл
           Поз = Найти(Стр,Разделитель);
           Если Поз=0 Тогда
               МассивСтрок.Добавить( СОКРЛП(Стр) );
               Возврат МассивСтрок;
           КонецЕсли;
           МассивСтрок.Добавить(СОКРЛП(Лев(Стр,Поз-1)));
           Стр = СокрЛ(Сред(Стр,Поз));
       КонецЦикла;
   Иначе
       ДлинаРазделителя = СтрДлина(Разделитель);
       Пока 1=1 Цикл
           Поз = Найти(Стр,Разделитель);
           Если Поз=0 Тогда
               МассивСтрок.Добавить(СОКРЛП(Стр));
               Возврат МассивСтрок;
           КонецЕсли;
           МассивСтрок.Добавить(СОКРЛП(Лев(Стр,Поз-1)));
           Стр = Сред(Стр,Поз+ДлинаРазделителя);
       КонецЦикла;
   КонецЕсли;      
КонецФункции // глРазложить

(55) передаещь в функция строку "ФИО" и раздельтель " ", на выходе получаешь массив слов "Ф","И","О", а дальше уже склоняй.

+ Правда та функция склонения, что ты пользуешься и так должна воспринимать ФИО (там даже соответствующие параметры есть).

Спасибо буду пробовать, но думаю в моем случает, следует повозиться еще с получением компоненты, она оказалась у меня просто не установлена.

но эта функция мне очень поможет в работе с усечением инициалов

(57) на ту компоненту много ругались - говорят глючит периодически. Хотя сам сильно ее не тестил

(58) это стандартная функция в 1С. В том же ЗУПе могла ее взять.

Ну я попробую, может поможет
я то вот здесь работающий код нашла
v8: Тонкий клиент, подключение ВК NameDecl.dll(Склонение)

А где мне ее в ЗУПе найти не подскажете?

Вот так эту функцию используем?

Процедура Инициалы(Команда)
   
   Стр=ФИОПолное;
   РазложитьСтрокуВМассивПодстрок(Стр);
   ФИОРодительный=Лев(Стр,1);
   
   
КонецПроцедуры

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

(63) и что по твоему делает вот это:

Стр=ФИОПолное;
   РазложитьСтрокуВМассивПодстрок(Стр);
   ФИОРодительный=Лев(Стр,1);

???

Ну я пока ее еще не дописала, там надо будет обработать результат функции и потом пропускать через Лев

Мне главное разбит строку на три слова

Но эта функция этого не делает

(67) видимо ты "очень начинающий 1С-нег"... а посмотреть на параметры функции и то, что она возвращает??? не, никак???

ой,это я упустила, спасибо

А про очень начинающего программиста Вы правы, я этого не отрицаю, но я готова учиться

Вот кстати такой вопрос, компоненту я у нас все таки нашла код записала
Функция Просклонять2(СтрокаФИО,Падеж)        
// Определяем имя внешней компоненты


    Результат = "";
    ПутьККомпоненте = " C:/Program Files (x86)/1cv82/8.2.15.289/bin/NameDecl.dll";
   
   Перем1 = "AddIn.NameDeclension";
    Попытка
       Если ПодключитьВнешнююКомпоненту(ПутьККомпоненте, Перем1)ТОгда
           Результат =  Перем1.Просклонять(СтрокаФИО,Падеж);
       КонецЕсли;
    Исключение
        Сообщить("Не удалось загрузить внешнюю компаненту по причине: "+ОписаниеОшибки());
    КонецПопытки;
    Возврат Результат;

КонецФункции
а он ее не находит, в отладчике выпадает на сообщение об ошибке все равно