Ошибка при установке значения атрибута контекста приоритет

В спр.Контрагенты добавлен реквизит «Ключ» — строка, 25символов. Надо загрузить контрагентов из Эксель. В Эксель они попали из другой программы, которая является наиболее приоритетной, чем та, в которую загружать будем. Поэтому при загрузке, надо предусмотреть несколько условий:

анализируем Ключ: Ключ не совпал

анализируем ИНН: ИНН совпал

анализируем КПП: КПП совпал

В таком случае, надо заполнить Ключ и все остальные заполненные поля данными из файла (Кроме ИНН и КПП, т.к. они совпали).

Выходит ошибка:

Ошибка при установке значения атрибута контекста (ЮрФизЛицо): Реквизит недоступен для группы

ОбъектКА.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо;

по причине:

Реквизит недоступен для группы

Вот мой код:

Ексель = новый COMОбъект(«Excel.Application»);

   
   Для ТекНомер = 1 По КоличествоСтраниц Цикл

       для н= 1 по   ВсегоКоличестовСтрок -1 цикл

           Ключ = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки).Value;

           Ключ = СтрЗаменить(Ключ, Символы.НПП, «»);                   //убрала пробел как разделитель

           
           КодКА = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки +1).Value;

           КодКА = СтрЗаменить(КодКА, Символы.НПП, «»);                    

           
           ИНН = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки +2).Value;

           ИНН = СтрЗаменить(ИНН, Символы.НПП, «»);                      

           
           КПП = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки +3).Value;

           КПП = СтрЗаменить(КПП, Символы.НПП, «»);                      

           
           ЮРФЛ = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки +4).Value;

           Название = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки +5).Value;

           // …….

           
           // Ищем контрагента в справочнике по реквизиту      

           КА = Справочники.Контрагенты.НайтиПоРеквизиту(«Ключ»,Ключ);

           Если КА.Пустая() Тогда                              //не нашли с таким ключом  

               
               Если не ИНН = «» Тогда                              //ИНН не пустое в файле

                   КА = Справочники.Контрагенты;

                   СсылкаКА = КА.НайтиПоРеквизиту(«ИНН»,ИНН);

                   Если НЕ СсылкаКА.Пустая() Тогда                 //нашли такой ИНН

                       
                       Если не КПП = «» Тогда                          //КПП не пустое в файле

                           СсылкаКА = КА.НайтиПоРеквизиту(«КПП»,КПП);

                           Если Не СсылкаКА.Пустая() Тогда             //нашли такое КПП

                               
                               ОбъектКА = СсылкаКА.ПолучитьОбъект();

                               
                               // вставила это условие и все равно ошибка вылетает

                               Если ОбъектКА.ЭтоГруппа Тогда         //если элемент это группа

                                   Сообщить(ОбъектКА + » — является группой!!! Пропускаем его…»);

                                   Продолжить;

                               Иначе

                                   
                                   ОбъектКА.Ключ = Ключ;

                                   
                                   //ИНН не берем, т.к. он совпал

                                   //КПП не берем, т.к. он совпал

                                   //Код не меняем, т.к. в базе уже введен код

                                   
                                   Если не ЮРФЛ = «» Тогда               //если значение «ЮРФЛ» в файле заполнено

                                       Если СокрЛП(ЮРФЛ) = «Юридическое лицо» Тогда      

                                           ОбъектКА.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо;

                                       ИначеЕсли СокрЛП(ЮРФЛ) = «Физическое лицо» Тогда  

                                           ОбъектКА.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо;

                                       КонецЕсли;

                                   Иначе

                                       Сообщить («ЮЛ/ФЛ для контрагента » + Название + » в файле не заполнен!»);

                                   КонецЕсли;

                                   
                                   Если не Название = «» Тогда

                                       ОбъектКА.Наименование =  Название;

                                   КонецЕсли;

                                   
                                   // …                                    

                                   ОбъектКА.Записать();

                                   
                               КонецЕсли;  //если элемент это группа

                           Иначе // не нашли такое КПП

                           КонецЕсли;  //нашли такое КПП

                       КонецЕсли;  //КПП не пустое в файле

                   КонецЕсли;          //нашли такой ИНН

               КонецЕсли;  //ИНН не пустое в файле

           КонецЕсли;  //не нашли с таким ключом  

       КонецЦикла;

   КонецЦикла;

(2) Так я и поставила условие в (0):

Если ОбъектКА.ЭтоГруппа Тогда         //если элемент это группа

                                   Сообщить(ОбъектКА + » — является группой!!! Пропускаем его…»);
                                   Продолжить;
                               Иначе

СсылкаКА = КА.НайтиПоРеквизиту(«ИНН»,ИНН);

                   Если НЕ СсылкаКА.Пустая() Тогда                 //нашли такой ИНН

                       
                       Если не КПП = «» Тогда                          //КПП не пустое в файле

//////////////////////////

Если СсылкаКА.КПП=КПП Тогда

///////////////////////////

вместо вот этого:

                           СсылкаКА = КА.НайтиПоРеквизиту(«КПП»,КПП);

                           Если Не СсылкаКА.Пустая() Тогда             //нашли такое КПП

(21)

ВЫБРАТЬ

   Ссылка

ИЗ

   Справочник.Контрагенты КАК Контрагенты

ГДЕ

   Контрагенты.ИНН = &ИНН

   И Контрагенты.КПП = &КПП

(21)Ну не так там и слоно, хотя я бы запросом без соединений и попробовала, что-то вроде

   Запрос.Текст =

   «ВЫБРАТЬ

   |    Контрагенты.Ссылка,

   |    Контрагенты.Представление

   |ИЗ

   |    Справочник.Контрагенты КАК Контрагенты

   |ГДЕ

   |    Контрагенты.ИНН = &ИНН

   |    И Контрагенты.КПП = &КПП»;

   Запрос.УстановитьПараметр(«ИНН», ИНН);

   Запрос.УстановитьПараметр(«КПП», КПП);

   Результат = Запрос.Выполнить();

   ВыборкаДетали = Результат.Выбрать();

ЕстьКонтрагент=0;

   Пока ВыборкаДетали.Следующий() Цикл

ЕстьКонтрагент=1;

СсылкаКА=ВыборкаДетали.ссылка;

ОбъектКА=СсылкаКА.ПолучитьОбъект();

//пиши тут что надо

   КонецЦикла;

Если ЕстьКонтрагент=0 Тогда

//НЕТ с таким ИНН и КПП

КонецЕсли;

Для ТекНомер = 1 По КоличествоСтраниц Цикл

       для н= 1 по   ВсегоКоличестовСтрок -1 цикл

           Ключ = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки).Value;

           Ключ = СтрЗаменить(Ключ, Символы.НПП, «»);                   //убрала пробел как разделитель

           
           КодКА = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки +1).Value;

           КодКА = СтрЗаменить(КодКА, Символы.НПП, «»);                    

           
           ИНН = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки +2).Value;

           ИНН = СтрЗаменить(ИНН, Символы.НПП, «»);                      

           
           КПП = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки +3).Value;

           КПП = СтрЗаменить(КПП, Символы.НПП, «»);                      

           
           ЮРФЛ = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки +4).Value;

           Название = Ексель.Sheets(ТекНомер).Cells(Строки,Колонки +5).Value;

           // …….

 Запрос=Новый Запрос;

и вот сюда.

Подскажите еще, пожалуйста, два момента:

1) Нужен вначале анализ на реквизит Ключ. Если такого ключа нет в базе, то идет запрос как в (23) и тогда этот Ключ тоже надо вбить в базу.

2) В запросе (23) я найду контрагентов, которых:
или нет с таким как в файле ИНН и КПП
или есть с таким как в файле ИНН и КПП.
Т.е. это случаи или полного совпадения или полного несовпадения. А как мне тогда найти тех, у кого ИНН совпадает, а КПП из базы или не совпадает или вообще не заполнено (в этом случае, приоритет у КПП из файла, его надо вбить).

+(27) На мой первый вопрос из (27):
Я так полагаю, что должно быть что-то вроде:

КА = Справочники.Контрагенты.НайтиПоРеквизиту(«КодSAP»,КодСап);
Если КА.Пустая() Тогда     //не нашли с таким ключом
Запрос=Новый Запрос;
…
СсылкаКА=ВыборкаДетали.ссылка;
ОбъектКА=СсылкаКА.ПолучитьОбъект();
…
Иначе //нашли с таким ключом
КонецЕсли;

Но как тогда дальше связать Ключ, ИНН и КПП? Не знаю, понятно ли я изложила свою мысль…

Запрос один и тот же почти: для Ключа

  «ВЫБРАТЬ

   |    Контрагенты.Ссылка,

   |    Контрагенты.Представление

   |ИЗ

   |    Справочник.Контрагенты КАК Контрагенты

   |ГДЕ

   |    Контрагенты.Ключ = &Ключ»;

   Запрос.УстановитьПараметр(«Ключ», Ключ);

нашла есть ли кто с таким ключом. Если нету ищем по какой-то логике. Если есть что делаем? Как вариант проверяем, совпадает ли у найденного ИНН и КПП. Если не совпадают что делаем? Перезаписываем, спрашиваем?

По вопросу ИНН и КПП. Не нашли с ИНН и КПП какими нужно. Что делаем? Ищем сначала по ИНН (запрос по аналогии сделаете, надеюсь). не нашли никого, по КПП искать бессмысленно дальше (все кто в одной налоговой имеют один и тот же КПП за редким исключением). Нашли нескольких с одним ИНН. Перебираем. У контрагента КПП не пустое и не совпадает с нашим. Что делаем? Варианты — проверяем наименование или еще что, спрашиваем у пользователя, идем дальше. У контрагента КПП пустое. Что делаем? Варианты — заполняем своим кпп, спрашиваем у пользователя, идем дальше. Короче, вы на бумажке алгоритм составьте для начала и решите что делать, а инструмент вот он.

(29) Никто не претендует на оригинальность. Пусть хоть как-то с мертвой точки сдвинется, к тому же все равно, как правило, вмешательство пользователей потребуетя в принятие решения. А ваша временная таблица убьет автора К тому же Ваш запрос из (15) не решает ее задачу, а для единичного прогона не сильно оптимален.

Шапокляк

33 — 28.05.10 — 16:51

1. добрый день.

   Программно создаю документ.
   ДокументОбъект = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
   ДокументОбъект.Дата = ТекущаяДата();

   Выдает ошибку: Ошибка при установке значения атрибута контекста (Дата) по причине «Документ не выбран». Что это значит ?

   — Объединение сообщений, 16 июл 2014 —

   конфигурация УТ для Украины 2.3.18.1

2. 
   

   Offline

   alexburn
   Модераторы
   Команда форума
   Модератор

   Регистрация:

   5 янв 2009

   Сообщения:

   15.150

   Симпатии:

   560

   Баллы:

   204

   Где создаете? На сервере, на клиенте ?

3. обычное приложение, на сервер выходит

4. 
   

   Offline

   alexburn
   Модераторы
   Команда форума
   Модератор

   Регистрация:

   5 янв 2009

   Сообщения:

   15.150

   Симпатии:

   560

   Баллы:

   204

   Реквизит точно Дата? отладчиком пользоваться можете?

5. да, реквизит дата, с типом дата, это стандартынй реквизит документа. Если вычислить выражение ДокументОбъект.Дата то показывает значение 01010001000000 тип дата

   — Объединение сообщений, 16 июл 2014 —

   ТекущаяДата() 16.07.2014 11:50:11 Дата

   ДокументОбъект.Дата 01.01.0001 0:00:00 Дата

6. 
   

   Offline

   alexburn
   Модераторы
   Команда форума
   Модератор

   Регистрация:

   5 янв 2009

   Сообщения:

   15.150

   Симпатии:

   560

   Баллы:

   204

   У меня все создается нормально…

8. 
   

   Offline

   alexburn
   Модераторы
   Команда форума
   Модератор

   Регистрация:

   5 янв 2009

   Сообщения:

   15.150

   Симпатии:

   560

   Баллы:

   204

   Точно на сервере создаете? Отладчиком пройдитесь

9. 
   

   Offline

   shurikvz
   Модераторы
   Команда форума
   Модератор

   Регистрация:

   1 окт 2009

   Сообщения:

   8.547

   Симпатии:

   344

   Баллы:

   104

   1) это весь код?
   2) Переменную ДокументОбъект переименуйте во что нибудь другое.

10. я пытался создать документ рту с модуля формы «чек ккм» , перенес все в общий модуль, и все ок ) спасибо )