Понимаю, что глупый вопрос. Но очень давно в 1с7 не писал, все забыл.

Текст такой:

Док.ВыбратьПоЗначению(, , "Выставка", ВыставкаТекущая);
Пока Док.ПолучитьДокумент() > 0 Цикл

ТекДок = Док.ТекущийДокумент();  
Записывать = 1;
ТекДок.Выбратьстроки();
Пока ТекДок.ПолучитьСтроку()=1 Цикл            
  Если ТекДок.РезультатЭкспертизы = РезультатЭкспертизы Тогда
  Сообщить (" В документе " + ТекДок.НомерПоКаталогу + " уже есть результат экспертизы " + РезультатЭкспертизы);
  Записывать = 0;
  Прервать;
  КонецЕсли;
КонецЦикла; // по строкам
                   
Если Записывать = 1 Тогда  // добавляем результат, если такого еще нет
  ТекДок.НоваяСтрока();    
  РезультатЭкспертизы = РезультатЭкспертизы;
КонецЕсли;

КонецЦикла; // по докам

На строке

ТекДок.НоваяСтрока();    
выдает ошибку:

{Обработка.СформироватьСписокДляРинга.Форма.Модуль(45)}: Не выбран документ!

Чего ей надо, я же написал
ТекДок = Док.ТекущийДокумент();  
Строки перебирает правильно, но писать новую не хочет хоть убей.

Что я делаю не так?

РезультатЭкспертизы = РезультатЭкспертизы;
Это 5!

>>РезультатЭкспертизы = РезультатЭкспертизы;

Это пять-)

(1)Опередил:-))

(0)'Док' как определяется?

не о том речь. Д.б.
ТекДок.РезультатЭкспертизы = РезультатЭкспертизы;
Но до этогоне доходит все равно, стопорится на предыдущей сроке.

(0) что-то не договариваешь

(4)   Док = СоздатьОбъект("Документ");

Если Записывать = 1 Тогда  // добавляем результат, если такого еще нет

  //ТекДок.НоваяСтрока();    
  //РезультатЭкспертизы = РезультатЭкспертизы;
  ТД = СоздатьОбъект("Документ.ВидДокумента");
  ТД.НайтиДокумент(ТекДок);
  ТД.НоваяСтрока();
  ТД.РезультатЭкспертизым = РезультатЭкспертизы;
  ТД.Записать();
КонецЕсли;

(8) Сработало! Спасибо огромное! Срочно надо крошечный отчетик накропать, а я все забыл, такую мелочь и то не могу...