ОчиститьСообщения();
ТабличноеПоле_СписокДокументов.Очистить();
Инд                = 0;
Док                = СерверOLE.СоздатьОбъект("Документ");
  Док.ВыбратьДокументы(НачалоДня(НачПериода),КонецДня(КонПериода));
   ТекНомер            = 0;

такая ошибка.
{Обработка.ЗагрузкаСГТ.Форма.Форма.Форма(313)}: Значение не является значением объектного типа (СоздатьОбъект)
   Док                = СерверOLE.СоздатьОбъект("Документ");

не создается документ.

это ты к 7-ке подключаешься??

Процедура КоманднаяПанель2ПолучитьСписокДокументов(Кнопка)
   
   ОчиститьСообщения();
   ТабличноеПоле_СписокДокументов.Очистить();
   Инд                = 0;
   Док                = СерверOLE.СоздатьОбъект("Документ");
   Док.ВыбратьДокументы(НачалоДня(НачПериода),КонецДня(КонПериода));
   ТекНомер            = 0;
   Пока Док.ПолучитьДокумент() = 1 Цикл          
       
       Если Док.ПометкаУдаления() = 1 Тогда
           Продолжить;
       КонецЕсли;
       Если СписокВидов77.НайтиПоЗначению(Док.Вид()) = Неопределено Тогда
           Продолжить;
       КонецЕсли;
       Если Найти(Док.Комментарий,"ИТ") = 0 Тогда
           Продолжить;            
       КонецЕсли;                          
               
       ДВид                                = СокрП(Док.Вид());  
       Инд                                = Инд + 1;
       СпДокументов.Добавить(Док.НомерДок, Док.Вид()+" "+Док.НомерДок+" ("+Док.ДатаДок+")", 1);
       НоваяСтрокаСпискаДоков = ТабличноеПоле_СписокДокументов.Добавить();
       ТекНомер                            = ТекНомер + 1;
       Состояние("" + ТекНомер + " - " + Док.Вид() + " " +Док.НомерДок + " (" + Док.ДатаДок + ")");  
       НоваяСтрокаСпискаДоков.Отбор        = Истина;
       НоваяСтрокаСпискаДоков.Документ        = Док.ТекущийДокумент();
       НоваяСтрокаСпискаДоков.ВидДокумента = Док.Вид();
       НоваяСтрокаСпискаДоков.Номер        = Док.НомерДок;
       НоваяСтрокаСпискаДоков.Дата         = Док.ДатаДок;    
//        ЭлементыФормы.Надпись4.Заголовок    = ТекНомер;
       ЭлементыФормы.ОсновныеДействияФормы.Кнопки.ОсновныеДействияФормыВыгрузить.Доступность = Истина;
       ОбработкаПрерыванияПользователя();
       
   КонецЦикла;
   
КонецПроцедуры

вот полностью код кнопки, ага к 7ке

Попробуй по буржуйски CreateObject

да пробовал уже, гуглил сию проблему

а ты точно подключился??

да, уверен

А расшифровать-то не хочешь?
Не Документ, а Документ.ПКО, например.

не то (

Посмотри в отладчике, какое значение содержит СерверOLE в момент перехода к строке:
Док = СерверOLE.СоздатьОбъект("Документ");

Не определено

ап мож сталкивался кто

(10) Это значит, ты не подключился.

иб бухи загружается нормально


   ServerOLE        = Новый COMObject("V77.Application");
   СерверОткрыт    = ServerOLE.Initialize(ServerOLE.RMTrade,"/D"    + СокрЛП(КаталогИБ)
   + ?(МонопольныйРежим," /M","")
   + ?(ПустаяСтрока(ПользовательИБ) = 0," /N"+СокрЛП(ПользовательИБ),"")
   + ?(ПустаяСтрока(ПарольИБ) = 0," /P"+СокрЛП(ПарольИБ),"")
   , "");
   Если СерверОткрыт Тогда
       ФлагОткрытияБухи = 1;
       ЭлементыФормы.КоманднаяПанель2.Кнопки.ОтметитьВсе.Доступность        = Истина;
       ЭлементыФормы.КоманднаяПанель2.Кнопки.СнятьПометки.Доступность        = Истина;
       ЭлементыФормы.ОсновныеДействияФормы.Кнопки.ОткрытьИБ.Доступность    = Ложь;
       ЭлементыФормы.ОсновныеДействияФормы.Кнопки.ЗакрытьИБ.Доступность    = Истина;
       ЭлементыФормы.ОсновныеДействияФормы.Кнопки.ОсновныеДействияФормыВыгрузить.Доступность = Истина;
       ЭлементыФормы.КоманднаяПанель2.Кнопки.ПолучитьСписокДокументов.Доступность    = Истина;
       Предупреждение("Соединение установлено!");
   Иначе                                                            
       Предупреждение("OLE сервер не запущен, проверьте параметры.");
       Возврат;
   КонецЕсли; //СерверОткрыт

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

(13) Переменная видима, там, где используется?