Автозаполнение наименования справочника из разных реквизитов

Форум Программирование Общие вопросы программирования (Dev)

1. user2094225 12.09.24 14:53 Сейчас в теме

Здравствуйте! Есть Справочник "Клиенты", в котором есть реквизиты Фамилия, Имя, Отчество. Как сделать, чтобы при заполнении полей Фамилия, имя и отчество, автоматически заполнялось поле Наименование как Фамилия + Имя + Отчество?

По теме из базы знаний

Найденные решения

2. electr1chka 12.09.24 15:09 Сейчас в теме

(1) В события каждого из этого полей ПриИзменении() добавить проверку заполнены ли все поля, после чего сформировать строку Наименования сложив строки.

5. electr1chka 13.09.24 08:16 Сейчас в теме

(3)

&НаСервере
Процедура ЗаполнитьНаименованиеНаСервере()

	Если ЗначениеЗаполнено(Объект.Фамилия)
		И ЗначениеЗаполнено(Объект.Имя)
		И ЗначениеЗаполнено(Объект.Отчество) Тогда

		Объект.Наименование = СтрШаблон("%1 %2 %3", Объект.Фамилия, Объект.Имя, Объект.Отчество);

	Иначе

		Объект.Наименование = "";

	КонецЕсли;

КонецПроцедуры

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

	ЗаполнитьНаименованиеНаСервере();	

КонецПроцедуры

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

	ЗаполнитьНаименованиеНаСервере();	

КонецПроцедуры

&НаКлиенте
Процедура ОтчествоПриИзменении(Элемент)

	ЗаполнитьНаименованиеНаСервере();	

КонецПроцедуры

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. electr1chka 12.09.24 15:09 Сейчас в теме

3. user2094225 12.09.24 17:23 Сейчас в теме

(2) как это кодом выполнить?

4. YA_2013447737 12.09.24 18:10 Сейчас в теме

(3) в процедуре при изменении выполняешь сперва проверку если значение заполнено, а после
наименование = объект.фамилия + объект.имя + фамилия.отчество

5. electr1chka 13.09.24 08:16 Сейчас в теме

(3)

&НаСервере
Процедура ЗаполнитьНаименованиеНаСервере()

	Если ЗначениеЗаполнено(Объект.Фамилия)
		И ЗначениеЗаполнено(Объект.Имя)
		И ЗначениеЗаполнено(Объект.Отчество) Тогда

		Объект.Наименование = СтрШаблон("%1 %2 %3", Объект.Фамилия, Объект.Имя, Объект.Отчество);

	Иначе

		Объект.Наименование = "";

	КонецЕсли;

КонецПроцедуры

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

	ЗаполнитьНаименованиеНаСервере();	

КонецПроцедуры

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

	ЗаполнитьНаименованиеНаСервере();	

КонецПроцедуры

&НаКлиенте
Процедура ОтчествоПриИзменении(Элемент)

	ЗаполнитьНаименованиеНаСервере();	

КонецПроцедуры

Показать

Оставьте свое сообщение

E-mail: