Есть следующий код
Док = СоздатьОбъект("Документ.тб_ОснованиеРЛ");
УдалитьСтроки();
Док.ВыбратьДокументы(НачалоПериода,КонецПериода);
Пока Док.ПолучитьДокумент()>0  Цикл
ТекДок = Док.ТекущийДокумент();
Если ТекДок.Проект = Проект Тогда
 НоваяСтрока();
 НомерДокумента = ТекДок.НомерДок;
 НаименованиеОрг = ТекДок.Контрагент;
 ТекДок.ДокумОснование.ВыбратьСтроки();
 Пока ТекДок.ДокумОснование.ПолучитьСтроку()>0 Цикл
   Если ТекДок.ДокумОснование.Номенклатура.Свойство2 =    
     Перечисление.тбит_ВидыСвойствНоменклатуры.Автоуслуги Тогда
    А = А + ТекДок.ДокумОснование.Сумма;
   КонецЕсли;
 КонецЦикла;
КонецЕсли;
КонецЦикла;

в этом месте

Пока ТекДок.ДокумОснование.ПолучитьСтроку()>0 Цикл
   Если ТекДок.ДокумОснование.Номенклатура.Свойство2 =    
     Перечисление.тбит_ВидыСвойствНоменклатуры.Автоуслуги Тогда
    А = А + ТекДок.ДокумОснование.Сумма;
   КонецЕсли;
 КонецЦикла;
Идет зацикливание. Хотя в документе одна строка.В отладчике получаю следующее:
ТекДок.ДокумОснование.количествострок() = 1
ТекДок.ДокумОснование.ПолучитьСтроку() = 1
ТекДок.ДокумОснование = Реализация  СТ00000005 (24.01.12)
В чем может быть ошибка?

потому что не переходишь на следующий элемент.

Разве цикл не предусматривает переход?

как перейти?

(1) ???

(0) сделай черным запросом - красивее, быстрее... без глюков со сбоем выборок )

Может "ДокумОснование" в отдельную переменную выделить?
Вдруг поможет?

ВыбратьСтроки через две точки не очень красиво, имхо

а у тебя точно  ТекДок.ДокумОснование<>ТекДок ??

(5) +

(5)+1

ДокументОснование = СоздатьОбъект("Реализация");
ДокументОснование = ТекДок.ДокумОснование;
так?

ДокОс = ТекДок.ДокумОснование;

(10)
 ДокОсн = ТекДок.ДокумОснование;
 ДокОсн.ВыбратьСтроки();
 Пока ДокОсн.ПолучитьСтроку()>0 Цикл
   Если ДокОсн.Номенклатура.Свойство2 =    
     Перечисление.тбит_ВидыСвойствНоменклатуры.Автоуслуги Тогда
    А = А + ДокОсн.Сумма;
   КонецЕсли;
 КонецЦикла;

Выборка строк из документа-основания без проверки наличия документа-основания может привести к падению с ошибкой. А то, что обращение идет через две точки - не влияет.

Уверен, что есть зацикливание?

да
, в документе одна строка, а он идет по циклу, получает эту одну строку и дальше в цикл

(14) В отладчике проверял?

да

пробуй (12)

(16) А у документов из переменной "Док" не одно и тоже основание?

(13) попробовал такой код - исправду зацикливает:
//*******************************************
Процедура Сформировать()
   
   НачалоПериода=Дата("01.01.2012");
   КонецПериода=Дата("02.01.2012");
   
   Док = СоздатьОбъект("Документ.Реализация");
   Док.ВыбратьДокументы(НачалоПериода,КонецПериода);
   Пока Док.ПолучитьДокумент()>0  Цикл
       Сообщить("*********"+СокрЛ(Док.ТекущийДокумент())+"*********");
       Если ПустоеЗначение(Док.ДокОснование)=0 Тогда
           ТекДок = Док.ТекущийДокумент();
           ТекДок.ДокОснование.ВыбратьСтроки();
           Пока ТекДок.ДокОснование.ПолучитьСтроку()>0 Цикл
               Сообщить("--"+СокрЛ(ТекДок.ДокОснование.Номенклатура));
           КонецЦикла;
       КонецЕсли;    
   КонецЦикла;
   
КонецПроцедуры

+(19) а такой работает на Ура:

//*******************************************
Процедура Сформировать()
   
   НачалоПериода=Дата("01.01.2012");
   КонецПериода=Дата("02.01.2012");
   
   Док = СоздатьОбъект("Документ.Реализация");
   Док.ВыбратьДокументы(НачалоПериода,КонецПериода);
   Пока Док.ПолучитьДокумент()>0  Цикл
       Сообщить("*********"+СокрЛ(Док.ТекущийДокумент())+"*********");
       Если ПустоеЗначение(Док.ДокОснование)=0 Тогда
           ТекДок = Док.ДокОснование;
           ТекДок.ВыбратьСтроки();
           Пока ТекДок.ПолучитьСтроку()>0 Цикл
               Сообщить("--"+СокрЛ(ТекДок.Номенклатура));
           КонецЦикла;
       КонецЕсли;    
   КонецЦикла;
   
КонецПроцедуры

(20) ч.т.д.

(21) разница в "ТекДок = Док.ДокОснование;", см.(5)

помогло через переменную

спасибо за помощь!

(22) чтд = что и требовалось доказать. см (6), (12)

(25) чтд = что я делаю не так?
я расшифровал именно так