Версия для печати темы (https://pro1c.org.ua/index.php?showtopic=9897)

Автор: Talkman 22.11.12, 11:18

Доброе время суток. Помогите пожалуйста найти ошибку и скажите что делаю не так...

ДокР = СоздатьОбъект("Документ");
...
Пока ПустаяСтрока(Файл)=0 Цикл
Если ДокР.НайтиПоНомеру(Прав(Строчка,СтрДлина(Строчка)-1),Дата(док.ПолучитьАтрибут("date_doc")),"РасходнаяНакладная") = 1 Тогда
     Сообщить("Найдена РН под номером "+ДокР.НомерДок); 
      Ок = 1;
иначе
    Cообщить("!!!!!!!!!!!!  Не найдена РасходняНакладная под номером "+Прав(Строчка,СтрДлина(Строчка)-1)+" с датой "+Дата(док.ПолучитьАтрибут("date_doc")));
КонецЕсли;
Если Ок = 1 Тогда
     Если Флаг = 1 Тогда
    ДокР.СостОтгр = Ошибка; 
    ДокР.Записать();
     иначе
    ДокР.СостОтгр = "Ок";
    ДокР.Записать();
     КонецЕсли;
иначе    
     Сообщить("Что то не то. Не могу найти файл "+Прав(Строчка,СтрДлина(Строчка)-1));
КонецЕсли;
                ДокР = ПолучитьПустоеЗначение("Документ");
КонецЦикла;

Ошибка на второй итерации при попытке найти документ по номеру.

Автор: alex040269 22.11.12, 11:23

попробуйте так:

Пока ПустаяСтрока(Файл)=0 Цикл
     ДокР = СоздатьОбъект("Документ");

Автор: Talkman 22.11.12, 11:32

Работает. На сколько я понял нелья юзать НайтиПоНомеру() если уже выбран другой документ?

Автор: Ardi 22.11.12, 14:23

Это разные типы объектов.

1. Выборка документов.
2. ДокументСсылка

Автор: Cthulhu 22.11.12, 17:25

за "СоздатьОбъект" в теле цикла - убивать на месте.
Достаточно просто выкинуть (или закомментировать - если выкидывать жалко, или хочется видеть памятники своим ошибкам) строку

ДокР = ПолучитьПустоеЗначение("Документ");