Возможность редактирования наименования патента. УНФ3

В УНФ3 почему-то нельзя редактировать наименование патента. Исправляем это недоразумение, добавив в форму элемента справочника патентов небольшой код расширением:

&НаКлиенте
&Вместо("ПередЗаписью")
Процедура плюш_ПередЗаписью(Отказ, ПараметрыЗаписи)
	
	ТекНаименование = Объект.Наименование;
	ПродолжитьВызов(Отказ, ПараметрыЗаписи);
	Если СокрЛП(ТекНаименование) <> "" Тогда
		Объект.Наименование = ТекНаименование;  
	КонецЕсли;
	
КонецПроцедуры     

&НаСервере
Процедура плюш_ПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка)

	Привязка = Элементы.НомерПатента;
	
	
	Элемент = Элементы.Вставить("плюш_Наименование", Тип("ПолеФормы"), Привязка.Родитель, Привязка);
    Элемент.Вид = ВидПоляФормы.ПолеВвода;
    Элемент.ПутьКДанным = "Объект.Наименование";

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

Появляется поле Наименование, которое мы можем редактировать:

Если не ввести наименование, то только при создании патента оно сгенерируется автоматически.

Задача возникла, т.к. бухгалтеру было удобнее со своим форматом наименования патента. Это же наименование потом с обменом приходит и в Бухгалтерию.

Среда: УНФ 3.0.5.145 Объем: 0.5 час

fixin

Программирую на 1С с 1999 года. В 1С просто Гений. В 2020 году ушел из офиса на вольные хлеба фриланса. Принимаю заказы.

Читайте также:

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *