Имя: Пароль:
1C
1С v8
Автозаполнение табличной части документа из реквизитов справочника
0 strarina
 
05.06.23
15:56
Здравствуйте. Необходимо в табличную часть документа добавить автозаполнение. У меня есть документ "Заказы", и в нём есть Табличная часть "ДопУслуги" с реквизитами "Наименование", "Цена", необходимо, чтобы при заполнении(выборе) "Наименования" автоматически заполнялась "Цена" из справочника "ДопУслуги". Я связала этот же справочник с другим документом и другими реквизитами (задача стояла та же, только не в табличной части) - вот код, как его преобразовать для автозаполнения табличной части?

&НаСервере
Процедура МаркаМодельТСПриИзмененииНаСервере()
    ЗаполнитьЗначенияСвойств(Объект, Объект.МаркаМодельТС, "РегистрационныйЗнак,Цена");
КонецПроцедуры

&НаКлиенте
Процедура МаркаМодельТСПриИзменении(Элемент)
    МаркаМодельТСПриИзмененииНаСервере();
КонецПроцедуры
1 asady
 
05.06.23
16:13
(0)
&НаСервере
Процедура МаркаМодельТСПриИзмененииНаСервере()
    Рекв = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Объект.МаркаМодельТС, "РегистрационныйЗнак,Цена");
    ЗаполнитьЗначенияСвойств(Объект, Рекв);
КонецПроцедуры
2 azernot
 
05.06.23
16:29
(0) Вам поможет конструкция Элементы.ДопУслуги.ТекущиеДанные

Что-то типа такого:

&НаКлиенте
Процедура НаименованиеПриИзменении(Элемент)
    ТекущаяСтрока = Элементы.ДопУслуги.ТекущиеДанные;
    НаименованиеПриИзмененииНаСервере(ТекущаяСтрока);
КонецПроцедуры

&НаСервере
Процедура НаименованиеПриИзмененииНаСервере(СтрокаТЧ)
    РеквизитыДопУслуг = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(СтрокаТЧ.Наименование, "Цена");
    ЗаполнитьЗначенияСвойств(СтрокаТЧ, РеквизитыДопУслуг);
КонецПроцедуры
3 mikecool
 
05.06.23
16:31
(0) определись - то ли наименование меняется, то ли маркамодель