Узнать тип метаданных, получить перечисление

Узнать тип объекта (справочник, документ, перечисление...), можно используя функцию "XMLТипЗнч".

//Если СоединениеС1С_.Справочники.ТипВсеСсылки().СодержитТип(СоединениеС1С_.ТипЗнч(Источник)) Тогда
    Если Найти(СоединениеС1С_.XMLТипЗнч(источник).TypeName,"CatalogRef")>0 Тогда
       

Получить полный список родителей ссылки запросом 1с 8.х

1с Запрос пример:

Получим родителей:

Запрос = СоединениеС1С_.NewObject("Запрос");
    Запрос.Текст =
    "
    |ВЫБРАТЬ
    |    Номенклатура.Ссылка КАК Ссылка,
    |    Номенклатура.Родитель
    |ИЗ
    |    Справочник.Номенклатура КАК Номенклатура
    |ГДЕ
    |    Номенклатура.Ссылка = &МояСсылка
    |ИТОГИ ПО
    |    Ссылка ИЕРАРХИЯ    |";
   
    Запрос.УстановитьПараметр("МояСсылка", Номенклатура);
   

Запрос из 1с 8.2 к 1с 7.7 по Ole

Передать Параметр в запрос по Ole я так и не смог.

Подключение = База.Initialize(База.RMTrade , "/dC:\ТестУправленка77" + " /N" + СокрЛП(Пользователь77)  + " /P"  + СокрЛП(Пароль77) ,"NO_SPLASH_WINDOW");   

    Если Подключение=Ложь Тогда
        Сообщить(ОписаниеОшибки());
        Сообщить("Не удалось выполнить подключение к 1с 7.7, возможно база 1с 7.7 нуждается в запуске в монопольном режиме!");
        Ошибка=Истина;
    КонецЕсли;

Пример чтения Excel из 1с 8

Примерный программный код:

Попытка
        Эксель = Новый COMОбъект("Excel.Application");
    Исключение
        Сообщить(ОписаниеОшибки());       
    КонецПопытки;

  
    Книга   = Эксель.Workbooks.Open(Файл);
   
    Лист                = Книга.Worksheets(1);
    ActiveCell          = Лист.Cells(1,1).SpecialCells(11);
    КоличествоСтрок     = ActiveCell.Row;
    //КоличествоКолонок = ActiveCell.Column;
   
    для сч = 1 по КоличествоСтрок Цикл
        Код =  Лист.Cells(сч,  3).Value;
        Если Код=Неопределено Тогда
            Продолжить;
        КонецЕсли;
        Если Лист.Cells(сч,  4).Value = Неопределено Тогда
            КолОст = 0;
        Иначе
            КолОст =  Число(Лист.Cells(сч,  4).Value);
        КонецЕсли;
       
        Если Лист.Cells(сч,  5).Value = Неопределено Тогда
            Кол = КолОст;
        Иначе
            Кол =  число(Лист.Cells(сч,  5).Value);
        КонецЕсли;
       
        Если Кол = Неопределено Тогда
            Продолжить;
        КонецЕсли;
                       
    КонецЦикла;
  
    Книга.Close(Ложь);
    Эксель.quit();