Имя: Пароль:
1C
1С v8
v8: Как сделать Договор основным
0 Dzhos
 
11.07.14
09:52
Сделал внешнюю обработку которые заполняет договоры по контрагенту.

Выборка = Справочники.Контрагенты.Выбрать(ИмяГруппу);
    Пока Выборка.Следующий() Цикл
            Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(Выборка.Наименование, Истина, ГруппаКонтрагент);
        
            Если не Контрагент.Пустая() Тогда
            НовыйДоговор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
            НовыйДоговор.Наименование = НазваниеДоговора;
            НовыйДоговор.Организация = Организация;
            НовыйДоговор.ВалютаВзаиморасчетов = Валюта;
            НовыйДоговор.ВидДоговора  = ВидДоговора;
            НовыйДоговор.Родитель = ГруппаКонтрагент;
            НовыйДоговор.Владелец = Контрагент;
            НовыйДоговор.ВедениеВзаиморасчетов = ВедениеВзаиморасчетов;
            НовыйДоговор.Записать();
            КонецЕсли;
        КонецЦикла;

как теперь сделать его основным документом?

На форме есть кнопка "Установить Основным"
может до нее достучаться ?
если да то как?
1 Wobland
 
11.07.14
09:53
нет. присвоить что-нибудь в реквизит у контрагента
2 Wobland
 
11.07.14
09:54
>Справочники.Контрагенты.НайтиПоНаименованию(Выборка.Наименование
и больше никогда так не делай. девушки засмеют
3 Maxus43
 
11.07.14
09:54
>>На форме есть кнопка "Установить Основным"
ну если посомтришь что она делает - будет понятно
4 Wobland
 
11.07.14
09:55
(3) вот ты меня сейчас убил. я никогда внутрь не смотрел
5 Maxus43
 
11.07.14
09:57
(4) ну ты то догадался. Не у всех 6-е чувство встроено по умолчанию.
Для особо одарённых - только посмотреть
6 Dzhos
 
11.07.14
09:57
А как?(2)
7 Wobland
 
11.07.14
09:58
(6) Выборка.Ссылка
8 Dzhos
 
11.07.14
10:04
Нашел Реквизит у Контрагента "ОсновнойДоговорКонтрагента"

как теперь его присвоит к новому договору?
9 Wobland
 
11.07.14
10:04
(8) двумями палочками
10 Dzhos
 
11.07.14
10:05
да вы что?(9)
11 Dzhos
 
11.07.14
10:05
аххаха
12 Dzhos
 
11.07.14
10:09
ЭлементыФормы.Договоры.ТекущиеДанные.Ссылка = ОсновнойДоговорКонтрагента
13 Dzhos
 
11.07.14
10:09
Вот так вот сделано на кнопке
а как сделать это в моем случае ?(12)
14 Maxus43
 
11.07.14
10:18
ОсновнойДоговорКонтрагента = ТвойДоговор;
15 hhhh
 
11.07.14
10:36
(13) КонтрагентОбъект = Контрагент.ПолучитьОБъект();
     КонтрагентОбъект.ОсновнойДоговорКонтрагента = НовыйДоговор.Ссылка;
     КонтрагентОбъект.Записать();
16 Dzhos
 
11.07.14
11:01
(15)
близки к истине)
Код ошибку не выдает
но и основным договором делать его не хочет
17 Wobland
 
11.07.14
11:29
(16) ну ты уж поднатужься
18 hhhh
 
11.07.14
12:03
(16) как понял, что не хочет. Надеюсь обновление форм которые на экране настроил? Хотя бы раз в 20 секунд?
19 Рэйв
 
11.07.14
12:09
пятница неистребима!:-)
20 тшл
 
11.07.14
12:10
(16) Пятница.
21 Dzhos
 
11.07.14
12:12
Все ребята, получилось )
Проблема была в том что я присваивал реквизит ранее не записав НовыйДоговор

КонтрагентОбъект.ОсновнойДоговорКонтрагента = НовыйДоговор.Ссылка;

всем удачных выходных =)
22 Wobland
 
11.07.14
12:14
ой, да не стоит благодарности
23 Dzhos
 
11.07.14
12:14
Спасибо (17) (15) (3)