Фамилия Имя Отчество переделать в Фамилия И.О.

[Денис Медведев]

Помогите написать команду в справочнике "Сотрудники" что бы из реквизитов "Фамилия" "Имя" "Отчество" в реквизите "Наименование" получилось Фамилия И.О. автоматически при заполнении БД

[Alexbis]

Например вот так -

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

&НаКлиенте
Процедура ФамилияПриИзменении(Элемент)
   ФамилияПриИзмененииНаСервере();
КонецПроцедуры

[bsn-chita]

Например вот так -

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

&НаКлиенте
Процедура ФамилияПриИзменении(Элемент)
   ФамилияПриИзмененииНаСервере();
КонецПроцедуры

Не надо переходить на сервер и делать РеквизитФормыВЗначение. Все можно сделать прямо на клиенте.

Код Выделить Развернуть


Объект.Наименование = ТРег(СокрЛП(Объект.Фамилия)) + " " + ВРег(Лев(Объект.Имя,1)) + "." + ВРег(Лев(Объект.Отчество,1)) + ".";


[Поиск родных]

Надо штатными средствами типовой конфигурации сделать в пользовательском режиме? или у Вас самописная и  обязательно курочить код конфигурации?
Если штатными, то для ответа надо знать наименование и версию конфигурации

[Alexbis]

Зачем же код курочить, есть для этого расширение - там можно сделать свой справочник...