Как Из Фио Сделать Сокрфио

Тема в разделе "1C и всё что с ней связано", создана пользователем Nikolon, 11 май 2012.

Статус темы:
Закрыта.
  1. Nikolon

    Nikolon Гость

    Например чтобы Борисов Алексей Григорьевич стал Борисов А. Г.
    Конфигурация ЗУП 2.5.50.1
    Суть проблемы: Дорабатываю документ ДоговорНаВыполнениеРаботСФизЛицом, если в документе на форме заполнить все поля, появитсяя кнопка печать, нажав которую распечатывается договор подряда, в который подстовляются все данные по сотруднику и организации, уже все сделал, осталось в конце на подпись вывести сокращенное фио...
    Есть идентификатор в макете [СотрудникНаименование]
    Макет.Параметры.СотрудникНаименование = Сотрудник \\ С формы документа поле сотрудник =)
     
  2. Allexei

    Allexei Well-Known Member

    Регистрация:
    2 май 2008
    Сообщения:
    322
    Симпатии:
    0
    Разбиваем Строку Фамилия Имя Отчество на 3 строки (см. строка с разделителем)
    и формируем новую строку как Фамилия + Лев(Имя,1)+ Лев(Отчество,1)
     
  3. Дайнеко

    Дайнеко Well-Known Member
    1C Team

    Регистрация:
    19 ноя 2009
    Сообщения:
    951
    Симпатии:
    0
    Скорее всего объект "Сотрудник" это спр-к, и он содержит отдельные поля Имя, Отчество. А полное имя хранится в наименовании.
     
  4. Allexei

    Allexei Well-Known Member

    Регистрация:
    2 май 2008
    Сообщения:
    322
    Симпатии:
    0
    Тогда смысл вопроса?Или автор не знает как работать со строками? ;)
     
  5. unknown181538

    unknown181538 НеГуру
    1C Team

    Регистрация:
    28 дек 2008
    Сообщения:
    1.418
    Симпатии:
    0
    Они правда хранятся в регистре сведений.
     
  6. Nikolon

    Nikolon Гость

    Функция ПолучитьСокрФИО(Дата,ФЛ) Экспорт

    Перем СокрФИО;
    Запрос = Новый Запрос();
    Запрос.Текст = "ВЫБРАТЬ
    | ФИОФизЛицСрезПоследних.Фамилия,
    | ФИОФизЛицСрезПоследних.Имя,
    | ФИОФизЛицСрезПоследних.Отчество
    |ИЗ
    | РегистрСведений.ФИОФизЛиц.СрезПоследних(&Дата, ФизЛицо = &ФЛ) КАК ФИОФизЛицСрезПоследних";


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

    Возврат СокрФИО;
    КонецФункции
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей