Цитата(XBrut @ 16.03.12, 19:51)

    Если ЕстьПодключение<>0 Тогда
        Сообщить("База открыта");
        СписокПриемник = СоздатьОбъект("СписокЗначений");
        СписокИсточник = ОЛЕ.CreateObject("СписокЗначений");
        СписокИсточник.Установить("НачДата", НачДата);
        СписокИсточник.Установить("КонДата", КонДата);
        СписокИсточник.Установить("Номер", Строка(СокрЛП(СпрАвто.Код))); //эта строка НЕ передается через ОЛЕ

        Сообщить(СписокИсточник.Получить("НачДата"));
        Сообщить(СписокИсточник.Получить("КонДата"));
        Сообщить(СписокИсточник.Получить("Номер")); //здесь сообщает правильный Номер
        
    Иначе
        Сообщить("Не могу открыть базу " + Путь);
        ОЛЕ = 0;
        Возврат;
    КонецЕсли;


ИмяФайла = ОЛЕ.КаталогИБ()+"ExtForms\История Авто внешний.ert";
ОЛЕ.ОткрытьФормуМодально("Отчет", СписокИсточник, ИмяФайла); //запускается отчет и не находит строку - номер (значение пустое)

новСпрОк.НайтиЭлемент(текОК); 
Если новСпрОк.Код <> КодОК Тогда 
     новСпрОк.Код = КодОК;  
     новСпрОк.Записать();  

    спрОК.ИспользоватьВладельца(текАвтоМ);//тек. элемент Справочника-Владельца
    спрОК.ВключатьПодчиненные(1);
    ЕстьВыборка = спрОК.ВыбратьЭлементы();

    Если ЕстьВыборка = 0 Тогда //нет подчиненных элементов - ТУТ ВСЕ НОРМАЛЬНО
        //новый подчиненный справочник ОК
        спрОК.Новый();
        спрОК.Код = КодОК; //из ДБФ
        спрОК.Записать();
        //запись Справочника-Владельца
        спрАвтоМ.Записать();
    ИначеЕсли ЕстьВыборка = 1 Тогда //уже есть подчиненные элементы - А ВОТ ЗДЕСЬ ПРОБЛЕМА
        Пока спрОК.ПолучитьЭлемент(1) = 1 Цикл //ОШИБКА - НЕ ВЫБРАН ЭЛЕМЕНТ!
          текОК = спрОК.ТекущийЭлемент();
          спрОК.НайтиЭлемент(текОК);
          Если спрОК.Код <> КодОК Тогда
           спрОК.Новый();
           спрОК.Код = КодОК;
           спрОК.Записать();
           //запись Справочника-Владельца
           спрАвтоМ.Записать();
          КонецЕсли;
         КонецЦикла;
    КонецЕсли;