Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 17:38

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

Автор ITShef, 15 авг 2010, 13:04

0 Пользователей и 1 гость просматривают эту тему.

ITShef

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

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

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

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

Vit1501

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

ITShef

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

Slin

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

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

Slin

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

ITShef

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

ITShef

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


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

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

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

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

skyther

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

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

skyther

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

ITShef

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

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

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск