1С Форум

СКРИПТ - Краткое ФИО

Администратор

Сообщений: 2833 Регистрация: 28.08.2013

07.11.2016 21:42:36

В последних релизах большинства конфигураций, разработчики убрали поле содержащее краткое ФИО клиентов, или ответственных, или других элементов справочников содержащих персональные данные людей.

Представляем вашему вниманию готовый скрипт для программы "Мастер печати документов по шаблонам", которые формирует из полного ФИО краткое.
Просто скопируйте его и внесите небольшую корректировку.
Вместо текста "Параметры.Документ_Контрагент" укажите название Параметра которое содержит полное ФИО у вас в 1С.

////////////////////////////////////////////////////////////
Результат = Параметры.Документ_Контрагент;

тмп = Результат;
Поз = Найти(тмп, " ");
Если Поз>0 Тогда
Фам = СокрЛП(Лев(тмп, Поз));
тмп = Сред(тмп, Поз + 1);
Поз = Найти(тмп, " ");
Если Поз=0 Тогда
Имя = тмп;
Отч = "";
Иначе
Имя = СокрЛП(Лев(тмп, Поз));
Отч = Сред(тмп, Поз + 1);
КонецЕсли;

Результат = Фам;
Если ЗначениеЗаполнено(Имя) Тогда
Результат = Результат + " " + Лев(Имя, 1) + ".";
Если ЗначениеЗаполнено(Отч) Тогда
Результат = Результат + Лев(Отч, 1) + ".";
КонецЕсли;
КонецЕсли;
КонецЕсли;
////////////////////////////////////////////////////////////

INXXSS Пользователь Сообщений: 29 Регистрация: 22.05.2016	#2 3.7037 08.11.2016 05:50:15 Добрый день! Спасибо, проверил, работает!

Александр Школьник Пользователь Сообщений: 1 Регистрация: 01.04.2019	#3 0 03.04.2019 15:53:15 Здравствуйте! Скрипт отличный, все работает. НО в Украине сейчас нужно писать вот так - И.О. Фамилия. Если можно, сделайте, пожалуйста еще такой скрипт. Заранее благодарен.

Администратор

Сообщений: 2833 Регистрация: 28.08.2013

04.04.2019 06:27:40

Цитата
Александр Школьник написал: НО в Украине сейчас нужно писать вот так - И.О. Фамилия. Если можно, сделайте, пожалуйста еще такой скрипт.

Вот, пожалуйста, скрипт для вывода И.О. Фамилия

Код

////////////////////////////////////////////////////////////
Результат = Параметры.Документ_Контрагент;

тмп = Результат;
Поз = Найти(тмп, " ");
Если Поз>0 Тогда
   Фам = СокрЛП(Лев(тмп, Поз));
   тмп = Сред(тмп, Поз + 1);
   Поз = Найти(тмп, " ");
   Если Поз=0 Тогда
       Имя = тмп; 
       Отч = "";
   Иначе
       Имя = СокрЛП(Лев(тмп, Поз));
       Отч = Сред(тмп, Поз + 1);
   КонецЕсли;
   
   Результат = Фам;
   Если ЗначениеЗаполнено(Имя) Тогда
       
       Если ЗначениеЗаполнено(Отч) Тогда
           Результат = Лев(Имя, 1) + "." + Лев(Отч, 1) + ". " + Результат;
       Иначе
           Результат = Лев(Имя, 1) + ". " + Результат;
       КонецЕсли;

   КонецЕсли;
КонецЕсли;
////////////////////////////////////////////////////////////

Читают тему (гостей: 1)

ПОСЛЕДНИЕ СООБЩЕНИЯ

АРХИВ ТП - БОНЛИОН - Бонусная система для 1С - Возможность вашей доработки решения Бонлион	Администратор 06.05.26 9:58
ЭКСЕЛОН - Загрузка в 1С из EXCEL - Не открывает файлы	Администратор 13.04.26 16:24
АВОШОП - Программа выгружает на Авито нулевые позиции номенклатуры	Администратор 13.04.26 16:22
ЭКСЕЛОН - Загрузка в 1С из EXCEL - Получение программы Загрузки в виде Расширения конфигурации	Администратор 11.03.26 15:13
ЭКСЕЛОН - Загрузка в 1С из EXCEL - Поехало левое меню и вопрос по правам доступа	Станислав Макаров 29.01.26 18:49
АВОШОП - Настройка АВОШОП	Администратор 24.01.26 9:15
ЭКСЕЛОН - Загрузка в 1С из EXCEL - Проставляется не правильный склад.	Администратор 23.01.26 14:53
ЭКСЕЛОН - Загрузка в 1С из EXCEL - Автозагрузка	Администратор 19.01.26 10:32
Комментарии к статьям - Мастер загрузки из Excel в 1С - номенклатура, цены, документы	Администратор 12.01.26 14:57
ЭКСЕЛОН - Загрузка в 1С из EXCEL - Вопросы-ответы по разработке "Загрузка из Excel в 1с"	Александр Двоскин 12.01.26 9:04
Другие продукты - Доработки в АльфаАвто6	Администратор 07.01.26 14:49
ЭКСЕЛОН - Загрузка в 1С из EXCEL - При загрузки номенклатуры не прописывается вид и цены не прикрепляются	Администратор 07.01.26 14:48
Комментарии к статьям - Чистка базы 1С. Удаление "не удаляемых объектов"	Максим Синицин 21.12.25 13:24
ЭКСЕЛОН - Загрузка в 1С из EXCEL - При загрузке групп не отображаются группы номенклатуры	Администратор 15.12.25 6:51
ЭКСПОТОР - Выгрузка номенклатуры из 1С - Выгрузка и соответственно загрузка состава наборов	Администратор 05.12.25 11:39

Сейчас на форуме (гостей: 17)

Всего зарегистрированных пользователей: 3130

Приняло участие в обсуждении: 458

Всего тем: 1027

Всего сообщений: 7035