Справочник контрагенты и все, все, все...

[ITShef]

Добрый день! Я не профи в программирование 1С, но по воле случая приходтся слазить с Delphi и садиться на 1С. И вот у меня проблема такая:

Есть справочник контрагентов, ему подчинены справочник Банковских Счетов, Справочник договоров.

Добавить контрагента программно - труда не составляет, а как мне добавить программно этому контрагенту банковские реквизиты, с учетом того, что от банка известен только БИК. Также сразу становится проблема, что справочнику банковских счетов подчинен справочник банков.

Помогите, Плиз! Без разницы что является источником данных, Мне нужно просто добавить контрагента СО всеми реквизитами, Банки, договра и т.д.

[Vit1501]

Сначала придется создать все элементы подчиненных справочников( при этом поле владелец указываем ссылку на контрагента), а потом созданному контрагенту присваивать ссылки на созданные элементы

[ITShef]

Элементы все создал, вот с ссылками на владельцев и траблы. Скиньте плиз исходничек как именно это все связать. Важна именно последовательность от и до

[Slin]

СправочникОбъект1.Владелец = Справочник2;

// Справочник 1 подчинен справочнику 2

[Slin]

Сначала создаешь элемент справочника владельца.
Затем создаешь все дочерние элементы.
Во время создания, до записи объекта, присваиваешь свойству "Владелец" ссылку на элемент справочника-владельца.
Записываешь объект.

[ITShef]

Ща попробую, о результате сообщу

[ITShef]

Все, запутался окончательно:


Док = Справочники.Контрагенты.СоздатьЭлемент();
Юр = Перечисления.ЮрФизЛицо.ЮрЛицо;
Док.Наименование = "Test";
Док.ЮрФизЛицо = Юр;
Док.НаименованиеПолное = "вввввввввввв";
Док.Записать();

Вал = Справочники.Валюты.НайтиПоКоду("643");
ББанк = Справочники.Банки.НайтиПоРеквизиту("КоррСчет","30101810100000000185");

БКонтр = Справочники.БанковскиеСчета.СоздатьЭлемент();
БКонтр.НомерСчета = "40702810600000000999";
БКонтр.ВидСчета = "Расчетный";
БКонтр.ВалютаДенежныхСредств = Вал;
БКонтр.Банк = ББанк;
БКонтр.Владелец = Справочники.Контрагенты;
БКонтр.Записать();

Исправьте, плиз

[skyther]

вместо: БКонтр.Владелец = Справочники.Контрагенты;
должно быть: БКонтр.Владелец = Док;

и ББанк хорошобы проверить на пустую ссылку

[skyther]

извиняюсь, должно быть: Док.Ссылка

[ITShef]

Ура, спасибо!
Я до этого побовал писать Док, это первый еще мой вариант.... а Вот .ссылка. В этом и весь косяк

Спасибо огромнейшее, с виня виртуальное пивА