Вход | Регистрация


1С:Предприятие ::

Метки: 

Не цепляет договор контрагента

Я
   Verzeragna
 
11.04.14 - 11:28
БП 2.0 (2.0.55.7).

При вводе начальных остатков почему-то не цепляет договор контрагента.

Вот код:
Для Каждого Стр Из Загрузка Цикл
    ВводОстатков=Документы.ВводНачальныхОстатков.СоздатьДокумент();
    Организация=УправлениеПользователями.ПолучитьЗначениеПоУмолчанию( глЗначениеПеременной( "глТекущийПользователь"), 
"ОсновнаяОрганизация");
     Ответственный = глЗначениеПеременной("глТекущийПользователь");
    ВводОстатков.РазделУчета=Перечисления.РазделыУчетаДляВводаОстатков.РасчетыСПокупателямиИЗаказчиками;
    ВводОстатков.Ответственный = Ответственный; 
    ВводОстатков.Организация= Организация;
    ВводОстатков.Дата=ТекущаяДата();
    ТаблЧасть = ВводОстатков.РасчетыСКонтрагентами.Добавить();
    ТаблЧасть.СчетУчета=Счет.Ссылка;
        Контрагент1=Справочники.Контрагенты.НайтиПоКоду(Стр.ИдентификационныйНомер,"Ложь", Папка);
    ТаблЧасть.ДоговорКонтрагента=Контрагент1.ОсновнойДоговорКонтрагента.Ссылка;
    //Создание локумента расчетов с контрагентами

            ДокРасчетов=Документы.ДокументРасчетовСКонтрагентом.СоздатьДокумент();
            Контр=Справочники.Контрагенты.НайтиПоКоду(Стр.ИдентификационныйНомер,"Ложь", Папка);
            ДокРасчетов.Дата=ТекущаяДата();
            ДокРасчетов.Организация=УправлениеПользователями.ПолучитьЗначениеПоУмолчанию( глЗначениеПеременной( "глТекущийПользователь"), 
"ОсновнаяОрганизация");
            ДокРасчетов.Контрагент=Контр.Ссылка;
            ДокРасчетов.ДоговорКонтрагента=Контрагент1.ОсновнойДоговорКонтрагента.Ссылка;
            ДокРасчетов.Записать();
            Сообщить("Документ расчетов создан") ;
    ТаблЧасть.Документ=ДокРасчетов.Ссылка;
    Контрагент=Справочники.Контрагенты.НайтиПоКоду(Стр.ИдентификационныйНомер,"Ложь", Папка);
    ТаблЧасть.Контрагент=Контрагент.Ссылка;
    ТаблЧасть.Сумма=Стр.Сумма;
    Валюта=Справочники.Валюты.НайтиПоНаименованию("RUR", "Ложь");
    ТаблЧасть.Валюта=Валюта.Ссылка;
    ТаблЧасть.ВалютнаяСумма=Стр.Сумма;
    ТаблЧасть.КурсВзаиморасчетов=1;
    ТаблЧасть.СуммаНУ=Стр.Сумма;
    ВводОстатков.ОтражатьВБухгалтерскомУчете= Истина; 
    ВводОстатков.ОтражатьВНалоговомУчете= Истина;
ВводОстатков.ОтражатьВНалоговомУчете= Истина;
     ВводОстатков.ОтражатьПоСпециальнымРегистрам=Истина;
    ВводОстатков.Записать();

Подскажите плиз в чем дело?
 
  Рекламное место пустует
   ifso
 
1 - 11.04.14 - 11:30
(0) договора - они такие скучные (
   ale-sarin
 
2 - 11.04.14 - 11:30
Может основной договор от другой организации?
   Verzeragna
 
3 - 11.04.14 - 11:32
Организация одна
   ale-sarin
 
4 - 11.04.14 - 11:32
отладчик что говорит?
   ale-sarin
 
5 - 11.04.14 - 11:33
может и нет у контрагента основного договора...
   Verzeragna
 
6 - 11.04.14 - 11:34
Договор в справочнике Договоры контрагентов есть. Если посмотреть Контрагента в справочнике Контрагенты на вкладке Счета и Договоры, то договор там тоже есть. Но зацепить его оттуда не получается.
   ale-sarin
 
7 - 11.04.14 - 11:35
(6) А кто Вам сказал что он основной?
   Verzeragna
 
8 - 11.04.14 - 11:39
А разве единственный не значит основной?
   ale-sarin
 
9 - 11.04.14 - 11:39
(8) нет
   Godofsin
 
10 - 11.04.14 - 11:40
(8) Внезвпно, да? ))))
 
  Рекламное место пустует
   Verzeragna
 
11 - 11.04.14 - 11:40
А где посмотреть основной он или нет?
   Godofsin
 
12 - 11.04.14 - 11:41
Если НЕ ЗначениеЗаполнено(Контрагент.ОсновнойДоговор) тогда
   ale-sarin
 
13 - 11.04.14 - 11:41
(11) Вы внимательней посмотрите на список договоров в контрагенте. И на кнопочки у этого списка.
   Verzeragna
 
14 - 11.04.14 - 11:43
Спасибо! Разобрался!
   Verzeragna
 
15 - 11.04.14 - 12:40
А программно назначить договор основным возможно?
   ale-sarin
 
16 - 11.04.14 - 12:41
(15) Можно.
ОсновнойДоговорКонтрагента - это реквизит Контрагента.
   Verzeragna
 
17 - 11.04.14 - 12:46
Это я знаю. А вот никак не могу разобраться как договор основным сделать.
   ale-sarin
 
18 - 11.04.14 - 12:47
(17) Вы не знаете как изменить реквизит у элемента справочника?
   Verzeragna
 
19 - 11.04.14 - 12:52
Что на что менять?
   ale-sarin
 
20 - 11.04.14 - 12:55
(19) Найти контрагентов, у которых основной договор - пустая ссылка, и записать в этот реквизит первый договор этого контрагента.
   Verzeragna
 
21 - 11.04.14 - 13:08
Если Контрагент.ОсновнойДоговорКонтрагента.Пустая() Тогда        Контрагент.ОсновнойДоговорКонтрагента.Ссылка=НовыйОбъект.Ссылка;
            КонецЕсли;

Так?
   Verzeragna
 
22 - 11.04.14 - 13:09
Ошибка
{Форма.Форма.Форма(19)}: Поле объекта недоступно для записи (Ссылка)
            Контрагент.ОсновнойДоговорКонтрагента.Ссылка=НовыйОбъект.Ссылка;
   Verzeragna
 
23 - 11.04.14 - 13:10
У меня щас моск взорвется)
   Verzeragna
 
24 - 11.04.14 - 13:15
Попробовал через ПолучитьОбъект, такая же ошибка
   ale-sarin
 
25 - 11.04.14 - 13:19
Если Контрагент.ОсновнойДоговорКонтрагента.Пустая() Тогда   
  КонтрОбъект = Контрагент.ПОлучитьОбъект();
  КонтрОбъект.ОсновнойДоговорКонтрагента=НовыйОбъект.Ссылка;
КонтрОбъект.Записать();
КонецЕсли;


Как-то так. Если НовыйОбъект - это договор.
   Godofsin
 
26 - 11.04.14 - 13:20
.Ссылка убери
   Verzeragna
 
27 - 11.04.14 - 13:24
(25) договор не делается основным
   ale-sarin
 
28 - 11.04.14 - 13:25
(27) Что такое "Контрагент" и "НовыйОбъект".
   Verzeragna
 
29 - 11.04.14 - 13:31
Контрагент-контрагент.
НовыйОбъект-договор контрагента
   Verzeragna
 
30 - 11.04.14 - 13:33
ВСЕ ЗАРАБОТАЛО!!!!!!! УРАААААААААА!!!!!!!!!!!!!!
   Verzeragna
 
31 - 11.04.14 - 13:34
Всем ОГРОМНОЕ СПАСИБО!!!!!!!!!!!
   Verzeragna
 
32 - 11.04.14 - 13:37
Особенно ale-sarin!!!!



Список тем форума
Рекламное место пустует   Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует