|
0
Barbos520
14.06.13
✎
16:56
|
Как записать в подчиненный справочник 1с 8
делаю обработку:
через оле подключаюсь к семерке и вытягиваю данные. все данные есть.
создаю нового контрагента, но не могу присвоить значение Владелец
&НаСервере
Функция НаСервереСоздатьКонтрагента(Код,Наименование,ВидЛица,Инн,Кпп,Мэйл,ГлавВрач,Категория,БанковскийСчетПоУмолчанию);
СпрКон = Справочники.Контрагенты;
СпрСинхКон=Справочники.СинхронизацияКонтрагентов;
СпрБС=Справочники.БанковскиеСчета;
Найдено=СпрСинхКон.НайтиПоРеквизиту("КодСемеркиТорг",Код);
Если Найдено=СпрСинхКон.ПустаяСсылка() Тогда
НовСинхКон=СпрСинхКон.СоздатьЭлемент();
НовСинхКон.КодСемеркиТорг=Код;
НовСинхКон.Записать();
//контрагент
НовКон=СпрКон.СоздатьЭлемент();
НовКон.Наименование = Наименование;
НовКон.НаименованиеПолное=Наименование;
Если ВидЛица="ЮрЛица" Тогда
НовКон.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ЮрЛицо;
НовКон.ИНН=Инн;
НовКон.КПП=кпп;
КонецЕсли;
Если ВидЛица="СвоиЮрЛица" Тогда
НовКон.ЮрФизЛицо=Перечисления.ЮрФизЛицо.Собственное;
НовКон.ИНН=Инн;
НовКон.КПП=кпп;
КонецЕсли;
Если ВидЛица="ФизЛица" Тогда
НовКон.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ФизЛицо;
НовКон.ИНН=Инн;
КонецЕсли;
НовКон.НаименованиеПолное=Наименование;
НовКон.АдресЭП=Мэйл;
НовКон.ГлавВрач=ГлавВрач;
НовКон.Категория=Категория;
НовКон.Записать();
Сссылка=НовКон.ЭтотОбъект;
КонецЕсли;
НовБС=СпрБС.СоздатьЭлемент();
НовБС.Владелец= ??????????
НовБС.Наименование="1";
НовБС.Записать();
//писать();
КонецФункции
|
|
