1С 7.x : Создание и запись нового элемента справочника

 &НаКлиенте

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

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

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



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

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

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

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



 

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

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

        КонецЕсли;



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

 



&НаСервере

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



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



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

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

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

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

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

        Попытка

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

                Возврат 1;

        Исключение

                Возврат 0;

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



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

 //Пример 1

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

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

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

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



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

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

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

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

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

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



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

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



//Пример 2

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

//или так:

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

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

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

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

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

   

  //Пример 1

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

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

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

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

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

// итак далее

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

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

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



//Пример 2

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

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

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

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

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