Как то так,но не правельно по моему,подскажите как правельней:
   Если ВыбДокумент.ПометкаУдаления() = 0 Тогда
       Если НайтиДок.НайтиДокумент(ВыбДокумент)=1 Тогда
           НайтиДок.ВыбратьДокументы();
           Пока НайтиДок.ПолучитьДокумент() = 1 Цикл  
               
           Для Счетчик=1 По Метаданные.Документ() Цикл
               АнализДок = Метаданные.Документ(Счетчик);
           Для СчетчикВложенный =1 По АнализДок.ВводимыеНаОснованииДокументы.Количество() Цикл

ТиС

правИльнее ВыбратьПодчиненные()

НайтиДок = Реализация,хочу получить все документы подченными нему

ВыбратьПодчиненныеДокументы(<?>,,)
SelectChildDocs(<?>,,)
Синтаксис:
ВыбратьПодчиненныеДокументы(<Дата1>,<Дата2>,<Докум

(1)Если ТиС, то смотри как сделана Функция глНайтиСчетФактуру() и допили под себя.

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

Если Основание.ВыбратьПодчиненные(,,НайтиДок)=1 Тогда
{\\SQL3\USERS\SHAMSUTDINOV\1С\7.7\ПОМЕТКАУДАЛЕНИЯ.ERT(14)}: Поле агрегатного объекта не обнаружено (ВыбратьПодчиненные)

это песец. Копипастить не умеешь?

так тоже:
  НайтиДок  = СоздатьОбъект("Документ.Реализация");
   Основание = СоздатьОбъект("Документ");
   
   Если ВыбДокумент.ПометкаУдаления() = 0 Тогда
       Если НайтиДок.НайтиДокумент(ВыбДокумент)=1 Тогда
           НайтиДок.ВыбратьДокументы();

           Пока НайтиДок.ПолучитьДокумент() = 1 Цикл  

               Если Основание.ВыбратьПодчиненные(,,НайтиДок)=1 Тогда
                   Пока Основание.ПолучитьДокумент() = 1 Цикл
                       Сообщить(Основание.ТекущийДокумент());
                   КонецЦикла;
               КонецЕсли;    
          КонецЦикла;

           
       КонецЕсли;
       
   КонецЕсли;

(6) правильно, что не взлетает. нет такого метода...

(8)Зачем с процедурами паришься? Придумай сразу нужный тебе метод.

да в парился надо ВыбратьПодчиненныеДокументы

(11) и вообще, нафига тебе заморочки с НайтиДок? работай сразу с ВыбДокумент ...Если Если Если :)

+12 и дату его используй, нафига тебе искать во всем диапазоне?
Основание.ВыбратьПодчиненные(ВыбДокумент.ДатаДок,,ВыбДокумент)