Сообщения

Сообщения за июль, 2018

1С: ФИО Подписанта, Простой способ сократить ФИО в подписи.

Как совсем не опытный програмист 1С, я очень долго искал способ как просто сократить Фамилия Имя Отчество до Фамилия И. О. или И. О. Фамилия для одной печатной формы, и на мое удевление в интернете ничего готового не встретил, пришлось собирать целую "солянку" коментариев и советов в что то работающее, и выполняющее такую простую функцию. Поэтому оставляю ее здесь, работающую и со всеми  возможными коментариями.  Из исходных данных: ФамилияИО - это строка получаемая из запроса и разделенная пробелами. МассивСлов = Новый Массив ;       ФИО = СтрЗаменить ( ФамилияИО , " " , Символы.ПС );   // Разделяем имеющую строку на отдельные слова       // Создаем цикл для обхода массива полученных слов     Для к = 1 По СтрЧислоСтрок ( ФИО ) Цикл         СтрФИО = СтрПолучитьСтроку ( ФИО, к ) ;         Если НЕ ПустаяСтрока ( СтрФИО ) Тогда               МассивСлов.Добавить ( СтрФИО );         КонецЕсли;         КонецЦикла;     ФИОПодписуемого = МассивСлов [ 0