• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

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

  • Автор темы Nikolon
  • Дата начала
Статус
Закрыто для дальнейших ответов.
N

Nikolon

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

Allexei

Разбиваем Строку Фамилия Имя Отчество на 3 строки (см. строка с разделителем)
и формируем новую строку как Фамилия + Лев(Имя,1)+ Лев(Отчество,1)
 
Д

Дайнеко

Разбиваем Строку Фамилия Имя Отчество на 3 строки (см. строка с разделителем)
Скорее всего объект "Сотрудник" это спр-к, и он содержит отдельные поля Имя, Отчество. А полное имя хранится в наименовании.
 
N

Nikolon

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

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


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

Возврат СокрФИО;
КонецФункции
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!