Навигация
Написать сообщение
Лента дневников
Лента комментариев
Ленты пользователя:
Комментарии в дневнике
Комментарии автора
RSS
Навигация
Написать сообщение
Лента дневников
Лента комментариев
Ленты пользователя:
Комментарии в дневнике
Комментарии автора
RSS
Я считаю, что все они одинаковые, сначала мне Такском больше понравился, а потом и там...
При СБИС++Programada, Январь, всем спасибо!
При СБИС++
Нашла ВЫХОД! На его месте кнопка "Перейти к расширениям" Что за расширения - не...
Я про оффлайн тоже грущу, но онлайном давно начала пользоваться, потому как понятно...
При СБИС++Спасибо, Январь. Именно в правом верхнем углу не нашла выход. Привыкла к оффлайн версии...
При СБИС++Ну вот куда то захотелось излить печаль бухгалтерскую. Клерк - самое подходящее место
При СБИС++Удивительное восприятие. Меня наоборот бесит, что шрифт крупный, и мало информации на...
При СБИС++и каким боком мы тут к СБИСУ?.. Вопрос риторический. Давненько не было Вас видно.
При СБИС++Сравните шрифт от ненужный мне ретейлов и от необходимых для меня данных и простите...
При СБИС++Майский лайфхак 2024 года:
Прежде, чем сохранять титульный лист и...
Линейный ШК на бланках - это рудимент "старых" (очень старых) бланков.
Это был...
Да, только ФНС отказывается принимать свой же собственный "новый" формат.
Уже не в...
//************************************************** ****************************
// глФамилияИмяОтчество(Объект,Фамилия,Имя,Отчество)
//
// Параметры:
// Объект - элемент справочника Сотрудники или Строка
// Фамилия - в этот параметр будет записана фамилия сотрудника
// Имя - в этот параметр будет записано имя сотрудника
// Отчество - в этот параметр будет записано отчество сотрудника
//
// Возвращаемое значение:
// фамилия и инициалы сотрудника
//
// Описание:
// разбирает "наименование" сотрудника по Фамилия, Имя, Отчество
// и возвращает фамилию и инициалы сотрудника
//
Функция глФамилияИмяОтчество(Объект,Фамилия="",Имя="",Отчество="") Экспорт
Если ТипЗначения(Объект)=2 Тогда
ФИО = глРазделить(СокрЛП(Объект),",");
Иначе
ФИО = глРазделить(СокрЛП(Объект.Наименование),",");
КонецЕсли;
ФИО = глРазложить(ФИО," ");
Фамилия = ""; Имя = ""; Отчество = "";
Если ФИО.РазмерСписка() > 0 Тогда
Фамилия = ФИО.ПолучитьЗначение(1);
Если ФИО.РазмерСписка() > 1 Тогда
Имя = ФИО.ПолучитьЗначение(2);
Если ФИО.РазмерСписка() > 2 Тогда
// а вот отчество бывает и не из одного слова
Для Сч = 3 По ФИО.РазмерСписка() Цикл
Отчество = Отчество + ФИО.ПолучитьЗначение(Сч) + " ";
КонецЦикла;
Если ПустоеЗНачение(Отчество) = 0 Тогда
Отчество = Лев(Отчество,СтрДлина(Отчество)-1);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Возврат Фамилия+?(ПустоеЗначение(Имя)=0," "+Лев(Имя,1)+"."+?(ПустоеЗначение(Отчество)=0,Лев(Отчество,1)+".",""),"")
КонецФункции // глФамилияИмяОтчество