Получить Инициалы ФИО ут 11

☑

0 sqr4

27.02.19

✎

09:52

Никак не найду функцию которая это делает, народ может кто быстро вспомнит

1 sqr4

27.02.19

✎

09:52

ой Инициалы Фамилия

2 sqr4

27.02.19

✎

09:57

Я буду доооооолго гнать велосипед.

Функция ИнициалыФамилия(Знач ФамилияИмяОтчество) Экспорт

    Если ТипЗнч(ФамилияИмяОтчество) = Тип("Строка") Тогда
        ФамилияИмяОтчество = ФизическиеЛицаКлиентСервер.ЧастиИмени(ФамилияИмяОтчество);
    КонецЕсли;

    Фамилия = ФамилияИмяОтчество.Фамилия;
    Имя = ФамилияИмяОтчество.Имя;
    Отчество = ФамилияИмяОтчество.Отчество;

    Если ПустаяСтрока(Имя) Тогда
        Возврат Фамилия;
    КонецЕсли;

    Если ПустаяСтрока(Отчество) Тогда
        Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("%1. %2", Лев(Имя, 1), Фамилия);
    КонецЕсли;

    Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("%1.%2 %3",  Лев(Имя, 1), Лев(Отчество, 1), Фамилия);

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

3 Вафель

27.02.19

✎

10:16

есть еще функция, которая по ссылке на физлицо такое выводит

4 sqr4

27.02.19

✎

10:22

(3) Это я наговнокодил, а можешь текст скинуть

5 yzimin

27.02.19

✎

10:38

УТ 11.4 ошибка при печати ПКО

6 sqr4

27.02.19

✎

13:34

ФизическиеЛицаУТ.ФамилияИнициалыФизЛица(Выборка.Кассир, Выборка.ДатаДокумента);
А мне надо Инициалы - Фамилия, а тут Фамилия инициалы, про эту я знаю, через глобальный по "Инициалы" нашел