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