Как сделать полное ФИО в 1С 7.7
Попросили меня сделать в 1С 7.7, чтобы в отчетах и всяких формах отображалось полное ФИО, а не сокращенное. Хоть я и совсем не 1С программист разобрался в коде и делюсь с Вами. Заходим в базу через конфигуратор и открывает нашу конфигурацию, далее правой кнопкой открываем глобальный модуль и через поиск находим ФИО, далее смотрим код и комментируем ненужное.
Функция глФИО(Сотрудник, ВидФИО=0) Экспорт
Перем ПолноеИмя, Фамилия, ИмяОтчество, Имя, Отчество;
Перем ПозицияПервогоПробела, ПозицияВторогоПробела;
ПолноеИмя = СокрЛП(Сотрудник);
Если ПустоеЗначение(ПолноеИмя)=0 Тогда
ПозицияПервогоПробела = Найти(ПолноеИмя, » «);
Если ПозицияПервогоПробела = 0 Тогда
Возврат ПолноеИмя;
Иначе
// changed by EvilZipik
Возврат ПолноеИмя;
// Фамилия = Лев(ПолноеИмя, ПозицияПервогоПробела);
// ИмяОтчество = Сред(ПолноеИмя, ПозицияПервогоПробела+1);
// ИмяОтчество = СокрЛ(ИмяОтчество);
// Имя = Лев(ИмяОтчество, 1)+».»;
// ПозицияВторогоПробела = Найти(ИмяОтчество, » «);
// Если ПозицияВторогоПробела = 0 Тогда
// Если ВидФИО=0 Тогда
// Возврат Фамилия+Имя;
// Иначе
// Возврат Имя+» «+Фамилия;
// КонецЕсли;
// Иначе
// Отчество = Сред(ИмяОтчество, ПозицияВторогоПробела+1);
// Отчество = СокрЛ(Отчество);
// Отчество = Лев(Отчество, 1)+».»;
// Если ВидФИО=0 Тогда
// Возврат Фамилия+Имя+Отчество;
// Иначе
// Возврат Имя+Отчество+» «+Фамилия ;
// КонецЕсли;
// КонецЕсли;
КонецЕсли;
Иначе
Возврат «»;
КонецЕсли;
КонецФункции
///////////////////////////////////////////////////////////////////////////
Все после этого во всех возможных формах и отчетах будет только полное ФИО руководитеял и главного бухгалтера.