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