Как сделать полное ФИО в 1С 7.7

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

Функция глФИО(Сотрудник, ВидФИО=0) Экспорт

Перем ПолноеИмя, Фамилия, ИмяОтчество, Имя, Отчество;
Перем ПозицияПервогоПробела, ПозицияВторогоПробела;
ПолноеИмя = СокрЛП(Сотрудник);
Если ПустоеЗначение(ПолноеИмя)=0 Тогда

ПозицияПервогоПробела = Найти(ПолноеИмя, » «);
Если ПозицияПервогоПробела = 0 Тогда
Возврат ПолноеИмя;
Иначе
// changed by EvilZipik
Возврат ПолноеИмя;
//    Фамилия = Лев(ПолноеИмя, ПозицияПервогоПробела);
//    ИмяОтчество = Сред(ПолноеИмя, ПозицияПервогоПробела+1);
//    ИмяОтчество = СокрЛ(ИмяОтчество);
//    Имя = Лев(ИмяОтчество, 1)+».»;

//    ПозицияВторогоПробела = Найти(ИмяОтчество, » «);
//    Если ПозицияВторогоПробела = 0 Тогда
//        Если ВидФИО=0 Тогда
//            Возврат Фамилия+Имя;
//        Иначе
//            Возврат Имя+» «+Фамилия;
//        КонецЕсли;
//    Иначе
//        Отчество = Сред(ИмяОтчество, ПозицияВторогоПробела+1);
//        Отчество = СокрЛ(Отчество);
//        Отчество = Лев(Отчество, 1)+».»;
//        Если ВидФИО=0 Тогда
//            Возврат Фамилия+Имя+Отчество;
//        Иначе
//            Возврат Имя+Отчество+» «+Фамилия ;
//        КонецЕсли;
//    КонецЕсли;
КонецЕсли;
Иначе
Возврат «»;
КонецЕсли;
КонецФункции
///////////////////////////////////////////////////////////////////////////

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

Прокомментировать

XHTML: Вы можете использовать эти тэги для форматирования текста: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>