Как программно добавить реквизит справочника

Реквизит уже добавлен в ручную. Как обратиться к этому реквизиту, чтобы добавить его значение?

Объект.ДополнительныеРекивзиты.<Как соcлаться на реквизит с именем «ExternalId»?>

(3) я тебе уже написал.

УправлениеСвойствами.ЗаписатьСвойстваУОбъекта()

Через точку обращаться нельзя, это не реквизит. Это строка табличной части ДополнительныеРеквизиты. В запросе надо обращаться туда. Вне запросов делай через БСП

Для начала тебе надо почитать про то, что такое вообще дополнительные реквизиты. Заодно что такое ПланыВидовХарактеристик и как с ними работать.

Затем, тебе надо понять твою задачу.

Затем, тебе надо понять как работать с БСП.

Я тебе в третий раз пишу — установить значение, задача, которую ты написал в (0) делается через УправлениеСвойствами.ЗаписатьСвойстваУОбъекта(). Это метод БСП, который именно для этого написан. Он тебе и нужен и правильнее всего им и воспользоваться.

Что у тебя в строках табличной части ты можешь посмотреть в конфигураторе. Какие там значения — тем же запросом «ВЫБРАТЬ * ИЗ МойДокумент.ДополнительныеРеквизиты КАК МойДокумент ГДЕ МойДокумент.Ссылка = &СсылкаНаДокумент»

В БСП и так все функции задукоментированы, достаточно перейти в модуль и там всё предельно ясно описано:

// Записывает дополнительные реквизиты и сведения владельцу свойств.

// Изменения происходят в транзакции.

//

// Параметры:

//  ВладелецСвойств — Ссылка — например, СправочникСсылка.Номенклатура, ДокументСсылка.ЗаказПокупателя и т.д.

//  ТаблицаСвойствИЗначений — ТаблицаЗначений — с колонками:

//    * Свойство — ПланВидовХарактеристикСсылка.ДополнительныеРеквизитыИСведения — свойство владельца.

//    * Значение — Произвольный — любое значение, допустимое для свойства (указано в элементе свойства).

//

Процедура ЗаписатьСвойстваУОбъекта(ВладелецСвойств, ТаблицаСвойствИЗначений) Экспорт

Изучи всё это, попробуй, что не получится — напиши.

(16) БСП = Библиотека Стандартных Подсистем, и во все (какие мне известно) типовые тиражные решения от 1с и франчей она входит. Сам механизм дополнительных реквизитов и сведений — это стандартная подсистема из этой библиотеки. То есть это есть в любой современной конфигурации на БСП.

>> Зачем тогда о ней вообще упоминать

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

>>Мне что теперь использовать соответствующую процедуру

Да. Это самый правильный вариант решения задачи из (0). Не надо изобретать велосипедов, надо вдумчиво посмотреть как работает уже существующий и правильно крутануть педаль.

(17) Спасибо! Попробовал вот такой вариант:

        МассивСтруктур = Новый Массив;

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

    S = Новый Структура(«Свойство, Значение»,Z,»123456789″);     

    МассивСтруктур.Добавить(S);

    УправлениеСвойствами.ЗаписатьСвойстваУОбъекта(NewCounterparty,МассивСтруктур);

Но на последней строке получаю ошибку:

Ошибка при вызове метода контекста (Заблокировать)

{ОбщийМодуль.УправлениеСвойствами.Модуль(1175)}:Блокировка.Заблокировать();

по причине:

Неверный тип значения: Справочник.Контрагенты.Ссылка

Никак не пойму почему. Вроде в отладчики структура правильная…

(18) Сделай точку на останова на функции, посмотри что передаёшь в NewCounterparty.

Не совсем понял что у тебя за версия БСП, почему массив структур? В моей таблицу значений надо.

Если не поможет — попробуй остановку по ошибке (отладка — остановка по ошибке…). Там посмотри что у тебя вообще передаётся во ВладелецСвойств. И дальше через стек вызовов сможешь отследить. Чёт думается что ты пустую ссылку кидаешь или ещё что-то непотребное.

Ещё два совета — не используй короткие перменные типа Z и S даже в таких случаях. В 1с это не принято, если перебираешься к нам — избавляйся от этой привычки.

ПВХ лучше искать по полю «имя», оно уникально. В режиме предприятия это в самом низу будет. Там по умолчанию добавляется УИД, но ты сам можешь задать как тебе надо.

( (19) Получилось ! Спасибо за помощь!

Как Вы и предположили передавал в NewCounterparty не ссылку, а объект.

Подскажите, как узнать используемую в конфигурации версию БСП?

Мой гений дарит вам, ггг (запоздало):

&НаСервере

Функция СоздатьДопРеквизитНаСервере(НаборСвойствСтрокой, ИдентификаторРеквизита, НаименованиеРеквизита, ТипЗначения = Неопределено, Многострочный = 0) Экспорт

    УстановитьПривилегированныйРежим(Истина);

    
    //включим константу использования

    Если Не Константы.ИспользоватьДополнительныеРеквизитыИСведения.Получить() Тогда

        Константы.ИспользоватьДополнительныеРеквизитыИСведения.Установить(Истина);

    КонецЕсли;

    
    //попробуем найти реквизит по наименованию

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

    ДопРеквизитСсылка = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоРеквизиту(«Имя», ИдентификаторРеквизита);

    Если НЕ ЗначениеЗаполнено(ДопРеквизитСсылка) Тогда

        //если не нашли реквизит — будем его создавать

        ДопРеквизитОбъект = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.СоздатьЭлемент();

        ДопРеквизитОбъект.Заголовок = НаименованиеРеквизита;

        ДопРеквизитОбъект.НаборСвойств = Справочники.НаборыДополнительныхРеквизитовИСведений[НаборСвойствСтрокой]; //.Справочник_Контрагенты;

        Если ТипЗначения = Неопределено Тогда

            ТипЗначения = Новый ОписаниеТипов(«Строка»,,,,Новый КвалификаторыСтроки(250));

        КонецЕсли;

        ДопРеквизитОбъект.ТипЗначения = ТипЗначения; //

        ДопРеквизитОбъект.Наименование = ДопРеквизитОбъект.Заголовок + » («+ДопРеквизитОбъект.НаборСвойств+»)»;

        ДопРеквизитОбъект.Виден = Истина;

        ДопРеквизитОбъект.Доступен = Истина;

        ДопРеквизитОбъект.МногострочноеПолеВвода = Многострочный;

        ДопРеквизитОбъект.ДополнительныеЗначенияИспользуются = Истина;

        //зададим имя нового реквизита

        ДопРеквизитОбъект.Имя = ИдентификаторРеквизита; //»filap_»+СтрЗаменить(ИмяРеквизита,» «,»»);

        ДопРеквизитОбъект.Записать();

        ДопРеквизитСсылка = ДопРеквизитОбъект.Ссылка;        

    КонецЕсли;

    
    //добавим наш реквизит в набор дополнительных реквизитов контрагента

    НаборДополнительныхРеквизитовКонтрагента = Справочники.НаборыДополнительныхРеквизитовИСведений[НаборСвойствСтрокой].ПолучитьОбъект(); //Справочник_Контрагенты

    Если НаборДополнительныхРеквизитовКонтрагента.ДополнительныеРеквизиты.Найти(ДопРеквизитСсылка, «Свойство») = Неопределено Тогда

        //добавим реквизит в набор

        Стр = НаборДополнительныхРеквизитовКонтрагента.ДополнительныеРеквизиты.Добавить();

        Стр.Свойство = ДопРеквизитСсылка;

        НаборДополнительныхРеквизитовКонтрагента.Записать();

    КонецЕсли;

    
    Возврат  ДопРеквизитСсылка;

КонецФункции

Примеры вызова:

&НаСервере

Функция  ДатьЗначениеДопРеквизитаНаСервере(Ссылка, ИдентификаторРеквизита, НаименованиеРеквизита, ТипЗначения = Неопределено, Многострочный = 0) Экспорт

    Если ТипЗнч(Ссылка) = Тип(«СправочникСсылка.Контрагенты») Тогда

        НаборСвойствСтрокой = «Справочник_Контрагенты»;

    ИначеЕсли ТипЗнч(Ссылка) = Тип(«СправочникСсылка.Партнеры») Тогда

        НаборСвойствСтрокой = «Справочник_Партнеры_Общие»;

    ИначеЕсли ТипЗнч(Ссылка) = Тип(«СправочникСсылка.ДоговорыКонтрагентов») Тогда

        НаборСвойствСтрокой = «Справочник_ДоговорыКонтрагентов»;

    ИначеЕсли ТипЗнч(Ссылка) = Тип(«ДокументСсылка.ЗаказКлиента») Тогда

        НаборСвойствСтрокой = «Документ_ЗаказКлиента»;

    Иначе

        Возврат Неопределено;

    КонецЕсли;

    УстановитьПривилегированныйРежим(Истина);

    Реквизит = СоздатьДопРеквизитНаСервере(НаборСвойствСтрокой, ИдентификаторРеквизита, НаименованиеРеквизита, ТипЗначения, Многострочный);

    ИскСтрока = Ссылка.ДополнительныеРеквизиты.Найти(Реквизит, «Свойство»);

    Если ИскСтрока = Неопределено Тогда

        Возврат Неопределено;

    КонецЕсли;

    Возврат ИскСтрока.Значение;

КонецФункции

    ДанныеДоговора.Вставить(«ПодписантКлиентаФИО»,  ДатьЗначениеДопРеквизитаНаСервере(Договор, «Договор_ПодписантКлиентаФИО», «Подписант клиента ФИО», ТипСтрока250));

    ДанныеДоговора.Вставить(«ПодписантКлиентаДолжность»,  ДатьЗначениеДопРеквизитаНаСервере(Договор, «Договор_ПодписантКлиентаДолжность», «Подписант клиента должность», ТипСтрока250));

    ДанныеДоговора.Вставить(«ОГРН»,  ДатьЗначениеДопРеквизитаНаСервере(ДанныеДоговора.Партнер, «Партнер_ОГРН», «ОГРН», ТипСтрока250));

    ДанныеДоговора.Вставить(«ДействующийНаОсновании»,  ДатьЗначениеДопРеквизитаНаСервере(ДанныеДоговора.Партнер, «Партнер_ДействующийНаОсновании», «Действующий на основании», ТипСтрока250));

    ТипСтрока250 = Новый ОписаниеТипов(«Строка»,,,,Новый КвалификаторыСтроки(250));

    
    ДанныеДоговора.Вставить(«ПодписантКлиентаФИО»,  ДатьЗначениеДопРеквизитаНаСервере(Договор, «Договор_ПодписантКлиентаФИО», «Подписант клиента ФИО», ТипСтрока250));

    ДанныеДоговора.Вставить(«ПодписантКлиентаДолжность»,  ДатьЗначениеДопРеквизитаНаСервере(Договор, «Договор_ПодписантКлиентаДолжность», «Подписант клиента должность», ТипСтрока250));

    ДанныеДоговора.Вставить(«ОГРН»,  ДатьЗначениеДопРеквизитаНаСервере(ДанныеДоговора.Партнер, «Партнер_ОГРН», «ОГРН», ТипСтрока250));

    ДанныеДоговора.Вставить(«ДействующийНаОсновании»,  ДатьЗначениеДопРеквизитаНаСервере(ДанныеДоговора.Партнер, «Партнер_ДействующийНаОсновании», «Действующий на основании», ТипСтрока250));

(21) Пожалуйста

>>Подскажите, как узнать используемую в конфигурации версию БСП?

В режиме предприятия посмотреть регистр сведений «Версии подсистем»

У меня, например, СтандартныеПодсистемы версии 3.1.5.385

(22) Кыш! Не порти нам человека своей гггениальностью))

Гений 1С

27 — 04.07.22 — 22:13

 +16 

 &НаКлиенте

Процедура ПоКнопкеНовыйКонтрагент(Команда)

       // Вставить содержимое обработчика.

        Перем НовыйКонтрагент;


        НовыйКонтрагент = Новый Структура("Наименование, ПолноеНаименование, ИНН");

        НовыйКонтрагент.Наименование = "РиК ООО";

        НовыйКонтрагент.ПолноеНаименование = "ООО Рога и копыта"; 

        НовыйКонтрагент.ИНН =  "123456789012";


 
        Если СоздатьНовогоКонтрагента(НовыйКонтрагент) = 0 Тогда

                Сообщить("Не удалось создать нового контрагента");

        КонецЕсли;


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

 

&НаСервере

Функция СоздатьНовогоКонтрагента(СтруктураСправочника)


        Перем НовыйКонтрагент,СпрПользователи;


        СпрКонтрагенты = Справочники.Контрагенты;

        НовыйКонтрагент = СпрКонтрагенты.СоздатьЭлемент();

        НовыйКонтрагент.Наименование = СтруктураСправочника.Наименование;

        НовыйКонтрагент.ПолноеНаименование = СтруктураСправочника.ПолноеНаименование; 

        НовыйКонтрагент.ИНН = СтруктураСправочника.ИНН;

        Попытка

                НовыйКонтрагент.Записать();

                Возврат 1;

        Исключение

                Возврат 0;

        КонецПопытки;


КонецФункции    

Код 1C v 8.х

 //Пример 1

НовыйЭлемент = Справочники.Контрагенты.СоздатьЭлемент(); 

НовыйЭлемент.Наименование = "ООО Березка"; 

// Установить другие реквизиты.  

НовыйЭлемент.Записать(); 


НовыйЭлемент = Справочники.Банки.СоздатьЭлемент(); 

// Получить ссылку на группу, в которой будет находиться новый элемент. 

Родитель = Справочники.Банки.НайтиПоКоду("000000001"); 

НовыйЭлемент.Наименование = "ВТБ"; 

НовыйЭлемент.Код = "000000011"; 

НовыйЭлемент.Родитель = Родитель; 


// Установить другие реквизиты.  

НовыйЭлемент.Записать(); 


//Пример 2

СпрСотр = Справочники.Сотрудники;

//или так:

//СпрСотр = Справочники["Сотрудники"]

НовЭл = СпрСотр.СоздатьЭлемент();

НовЭл.Наименование = "Иванов Иван Иванович";

НовЭл.Оклад = 100;

НовЭл.Записать();

Код 1C v 7.x

  //Пример 1

//создаваться будет прямо в корне справочника

спр = создатьОбъект("Справочник.Контрагенты");

спр.Новый();

спр.Наименование = "ООО Березка";

спр.УстановитьНовыйКод();

// итак далее

//спр.Реквизит1="......"

//спр.Реквизит2="......"

спр.Записать(); 


//Пример 2

СпрСотр = СоздатьОбъект("Справочник.Сотрудники"); 	

СпрСотр.Новый();

СпрСотр.Наименование = "Иванов Иван Иванович";

СпрСотр.Оклад = 100;

СпрСотр.Записать();

Поле = Элементы.Добавить(«ТестовыйРеквизит», Тип(«ПолеФормы»), Элементы.ГруппаРеквизиты);
//»ТестовыйРеквизит» — Название реквизита (Метаданные)
//Тип(«ПолеФормы») — тип добавляемого объекта
//Элементы.ГруппаРеквизиты — группа куда добавляем наш реквизит
Поле.ПутьКДанным = «Объект.ТестовыйРеквизит»;//Обязательно надо указывать путь к данным, иначе поле не отобразится на форме
Поле.Вид = ВидПоляФормы.ПолеВвода; //Указываем что это поле ввода
//Все свойства созданного элемента «Поле» можно глянуть при отладке, там все как в свойствах

Чтобы вставить нужный нам реквизит перед каким либо уже существующим реквизитом нужно использовать параметр «Вставить()» . Четвертым параметром этого метода и будет являть тот реквизит перед которым мы будем вставлять наш реквизит.

Поле = Элементы.Вставить(«ТестовыйРеквизит», Тип(«ПолеФормы»),Элементы.ГруппаРеквизиты,Элементы.СтранаПроисхождения);
//Элементы.СтранаПроисхождения — реквизит перед которым вставляем
Поле.ПутьКДанным = «Объект.ТестовыйРеквизит»;
Поле.Вид = ВидПоляФормы.ПолеВвода; 

Программное добавление поля ввода на форму:

Листинг:

//Программное создание реквизита на форме
Массив = Новый Массив;
Массив.Добавить(Новый РеквизитФормы(«Статус», Новый ОписаниеТипов(«Строка»)));
ИзменитьРеквизиты(Массив);  //Изменяем массив содержащий реквизиты формы

//Теперь добавим созданный нам реквизит на форму уже изученным способом программно
Поле = Элементы.Вставить(«Статус», Тип(«ПолеФормы»),Элементы.ГруппаРеквизиты,Элементы.СтранаПроисхождения);
Поле.ПутьКДанным = «Статус»;
Поле.Вид = ВидПоляФормы.ПолеВвода;

Чтобы подключить событие к созданному полю нужно создать процедуру и подключить ее к полю:

*Процедура команды обязательно должна выполняться в директиве компиляции «&НаКлиенте»

Добавление команды на форму программно: 

НашаКоманда = Команды.Добавить(«НашаКоманда»);
НашаКоманда.Действие = «НашаКомандаПроцедура»;  //Указываем имя процедуры на клиенте 
//которую будет вызывать команда
Кнопка = Элементы.Вставить(«НашаКоманда», Тип(«КнопкаФормы»));
Кнопка.ИмяКоманды = «НашаКоманда»;
Кнопка.Вид = ВидКнопкиФормы.ОбычнаяКнопка;