Имя: Пароль:
1C
1С v8
При конвертации - Объект не найден
,
0 DoubleLena
 
20.12.12
17:33
Добрый день!
Помогите, пожалуйста, не могу разобраться с проблемой.
Создала правила конвертации из 1с 7 ТиС в 1с ууп. В ПКО Контрагента в обработчике После загрузки осуществляется поиск договора и если договор найден, то записывает его как основной договор в Объект,  а если не найден - создает новый договор. и в итоге при создании договора ругается на владельца и устанавливает  его как Объект не найден, хотя сам контрагент записывается без ошибок. При повторной загрузке контрагента, в договоре устанавливается Владелец без ошибок.
1 vicof
 
20.12.12
17:35
Без фотки не получится
2 Alex S D
 
20.12.12
17:36
я знаю ответ. фотка будет?)
3 Wobland
 
20.12.12
17:36
а если два найдено?
4 Wobland
 
20.12.12
17:37
пригодится, не?

   Если КоличествоДоговоров=1 Тогда
       Объект.ДоговорКонтрагента=Результат[0].Ссылка;
   ИначеЕсли КоличествоДоговоров=0 Тогда
       НовыйДоговор=Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
       НовыйДоговор.Наименование="Основной договор";
       НовыйДоговор.ВидДоговора=Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком;
       НовыйДоговор.Организация=Объект.Организация;
       НовыйДоговор.Владелец=Объект.Контрагент;
       НовыйДоговор.ВалютаВзаиморасчетов=ОбщегоНазначенияБПВызовСервераПовтИсп.ПолучитьВалютуРегламентированногоУчета();
       НовыйДоговор.Комментарий="Создан автоматически при конвертации данных";
       НовыйДоговор.Записать();
       Объект.ДоговорКонтрагента=НовыйДоговор.Ссылка;
   Иначе
       Объект.ДоговорКонтрагента=Справочники.ДоговорыКонтрагентов.ПустаяСсылка();
   КонецЕсли;
   Объект.Комментарий=Объект.Комментарий+?(ПустаяСтрока(Объект.Комментарий), "", Символы.ПС)+"договор был изменён при конвертации данных";
5 DoubleLena
 
20.12.12
17:38
А фотку чего надо?
6 Wobland
 
20.12.12
17:38
(5) ДвойнойЛены. можно одинарную
7 Alex S D
 
20.12.12
17:42
(5) фотку девушки
8 kosts
 
20.12.12
17:46
(4) Сдается мне, что нужно как-то так НовыйДоговор.Владелец=Объект.ПолучитьСсылкуНового();
9 Wobland
 
20.12.12
17:49
(8) ну у меня-то рабоатет. я в это верю по крайней мере ;)
10 DoubleLena
 
20.12.12
17:58
(4) При создании договора таким образом выдает ошибку.
11 Wobland
 
20.12.12
17:59
(10) фото не найдено?
12 DoubleLena
 
20.12.12
18:01
фото не будет.
13 Alex S D
 
20.12.12
18:02
закрывайте)
14 vicof
 
20.12.12
18:02
(12) Нет ножек - нет мультиков
15 Wobland
 
20.12.12
18:04
(12) это антигуманно!
16 kosts
 
20.12.12
18:04
(12) Точно ничего не подскажут, если код не покажете.
Телепатические способности барахлят.
17 DoubleLena
 
20.12.12
18:04
(13) Я надеюсь, что остались еще люди, которые готовы помочь.
18 DoubleLena
 
20.12.12
18:04
(16) код чего именно?
19 vicof
 
20.12.12
18:05
(18) Код фотки, двоичный
20 kosts
 
20.12.12
18:05
(18) Создания договоров.
(19) Не помешает
21 vicof
 
20.12.12
18:05
Помочь готовы все, но боятся быть кинутыми на фотку.
22 Alex S D
 
20.12.12
18:07
(21) ну ее не будет в любом случае..
23 vicof
 
20.12.12
18:08
(22) тогда (14)
24 kosts
 
20.12.12
18:10
(12) Все кто помогает девушкам без фотки, могут быть забанены - традиция такая...
25 1C_Patriot
 
20.12.12
18:12
Прошу прошения за спам в чужой ветки. Уважаемые форумчане взгляните мне в личку, я там фотку выложил.
26 Wobland
 
20.12.12
18:13
27 Alex S D
 
20.12.12
18:22
(25)че хотел то
28 DoubleLena
 
20.12.12
18:31
(26) не получается у меня ничего(((
29 vicof
 
20.12.12
18:37
(28) Ха-ха-ха! Смирись, женщина и поставь фотку!
30 DoubleLena
 
20.12.12
18:38
злые все
31 Wobland
 
20.12.12
18:53
чужой код показали, свой код попросили, идею дали. а она тут ерепенится
32 zippygrill
 
20.12.12
18:53
(30) всего лишь нужно фото добавит в личке.
33 DoubleLena
 
20.12.12
20:04
вот мой код:
34 DoubleLena
 
20.12.12
20:04
Если Объект.ЭтоГруппа = Ложь Тогда
   ДоговорКонтрагентаПоиск = Справочники.ДоговорыКонтрагентов.НайтиПоНаименованию("Договор USD",,,Объект.Ссылка);
       Если Не ДоговорКонтрагентаПоиск = неопределено Тогда
            Объект.ОсновнойДоговорКонтрагента =  ДоговорКонтрагентаПоиск;
        иначе
            НовыйДоговор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
            НовыйДоговор.Владелец = Объект;
            НовыйДоговор.Наименованеи = "Договор USD";
            НовыйДоговор.Валюта = Справочники.Валюты.НайтиПоКоду("840");
            новыйДоговор.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
            НовыйДоговор.ВедениеВзаиморасчетов = Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоЗаказам;
            НовыйДоговор.ВидУсловийДоговора =  Перечисления.ВидыУсловийДоговоровВзаиморасчетов.БезДополнительныхУсловий;
            НовыйДоговор.Организация = Справочники.Организации.НайтиПоКоду("00004");
            НовыйДоговор.Записать();
            Объект.ОсновнойДоговорКонтрагента =  НовыйДоговор;
       КонецЕсли;
   КонецЕсли;
35 Wobland
 
20.12.12
20:07
>ДоговорКонтрагентаПоиск = неопределено
будет неопределено только в одном случае: если возьмёшь и присвоишь туда неопределено. в другую ветку ты никогда не попадала, даже очепятку не заметила

есть ещё пара моментов
36 kosts
 
20.12.12
20:09
НовыйДоговор.Владелец = Объект.Ссылка;
37 Wobland
 
20.12.12
20:11
и на (3) я хочу ответ
38 Wobland
 
20.12.12
20:11
а на (6) - обязательно
39 DoubleLena
 
20.12.12
20:11
из синтаксиса
найтипонаименованию()
Возвращаемое значение:

Тип: СправочникСсылка.<Имя справочника>; Неопределено.
40 Wobland
 
20.12.12
20:17
(39) уговорила, бывает неопределено. продолжай чтение
41 Mafoni
 
20.12.12
20:31
Без фото не взлетит!
42 DoubleLena
 
20.12.12
20:32
Всем спасибо за помощь.
(35) Тут все верно написано, надо было сравнивать не с неопределено. Спасибо
43 Wobland
 
20.12.12
20:33
(42) с тебя (3) и (6)
44 Alex S D
 
20.12.12
20:36
(43) тебя поимели)
45 Wobland
 
20.12.12
20:37
(44) она сама себя поимеет
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.