УТ 11.4 программно заполнить свойство

1С v8

naïve

23.04.21

✎

15:11

Всем доброго дня. Есть свойство в Ут 11.4 (Дополнительные реквизиты). Как программно найти свойство нужное у необходимой номенклатуры и добавить в него занчение? Может примеры есть?

1 lubitelxml

23.04.21

✎

15:13

(0) справа от темы есть буква "Я" - можешь не благодарить ))

2 Kassern

23.04.21

✎

15:14

(0) это же обычная табличная часть, добавляй нужное значение для свойства

3 acht

23.04.21

✎

15:15

(0) https://its.1c.ru/db/bsp313doc#content:1765:hdoc

4 программистище

23.04.21

✎

15:18

Ну примерно вот так:

                ДопРекв = ОбъектНоменклатуры.ДополнительныеРеквизиты;
                МассивДР = ДопРекв.НайтиСтроки(Новый Структура("Свойство", СтрокаТЗ.Свойство));
                НовыйДР = Неопределено;
                Если Не МассивДР.Количество() = 0 Тогда
                    НовыйДР = МассивДР[0];
                Иначе
                    Если ВходитВНаборДР(ОбъектНоменклатуры.ВидНоменклатуры.НаборСвойств, СтрокаТЗ.Свойство) Тогда
                        НовыйДР = ДопРекв.Добавить();
                        НовыйДР.Свойство = СтрокаТЗ.Свойство;
                    КонецЕсли;
                КонецЕсли;
                Если Не НовыйДР = Неопределено Тогда
                    МенеджерСправочника = Справочники.ЗначенияСвойствОбъектов;
                    Если СокрЛП(СтрЗамена) = "" Тогда
                        ИскомоеЗначениеСвойства = МенеджерСправочника.НайтиПоНаименованию("не заполнено", Истина,, СтрокаТЗ.Свойство);
                    Иначе
                        ИскомоеЗначениеСвойства = МенеджерСправочника.НайтиПоНаименованию(СтрЗамена, Истина,, СтрокаТЗ.Свойство);
                    КонецЕсли;
                    Если ИскомоеЗначениеСвойства.Пустая() Тогда
                        ИскомоеЗначениеСвойства = МенеджерСправочника.СоздатьЭлемент();
                        ИскомоеЗначениеСвойства.Владелец = СтрокаТЗ.Свойство;
                        ИскомоеЗначениеСвойства.Наименование = СтрЗамена;
                        Попытка
                            ИскомоеЗначениеСвойства.Записать();
                        Исключение
                            Сообщить(ОписаниеОшибки());
                        КонецПопытки;
                    КонецЕсли;
                    НовыйДР.Значение = ИскомоеЗначениеСвойства;
                    НовыйДР.ТекстоваяСтрока = ИскомоеЗначениеСвойства;
                КонецЕсли;

где ВходитВНаборДР(

&НаСервере
Функция ВходитВНаборДР(НаборСвойств, СвойствоНабора)
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    НаборыДополнительныхРеквизитовИСведенийДополнительныеРеквизиты.Ссылка
                   |ИЗ
                   |    Справочник.НаборыДополнительныхРеквизитовИСведений.ДополнительныеРеквизиты КАК НаборыДополнительныхРеквизитовИСведенийДополнительныеРеквизиты
                   |ГДЕ
                   |    НаборыДополнительныхРеквизитовИСведенийДополнительныеРеквизиты.Ссылка = &Ссылка
                   |    И НаборыДополнительныхРеквизитовИСведенийДополнительныеРеквизиты.Свойство = &Свойство";
    Запрос.УстановитьПараметр("Ссылка", НаборСвойств);
    Запрос.УстановитьПараметр("Свойство", СвойствоНабора);
    Возврат Не Запрос.Выполнить().Пустой();
КонецФункции

5 Garykom

гуру

23.04.21

✎

15:19

(4) сложновато
ты случаем не из китая?

6 kobzon2

23.04.21

✎

15:30





&НаСервере

Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)



СвойствоДопРеквизита=ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("НазваниеНашегоДопРеквизита"); 

ДопРеквизит=ТекущийОбъект.ДополнительныеРеквизиты.Найти(СвойствоДопРеквизита, "Свойство");



Если ДопРеквизит=Неопределено Тогда        

        

мНовыйРеквизит = ТекущийОбъект.ДополнительныеРеквизиты.Добавить();

мНовыйРеквизит.Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("НазваниеНашегоДопРеквизита");

мНовыйРеквизит.Значение = 123456789;



Иначе

ДопРеквизит.Значение = 123456789; 

КонецЕсли;



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