Показаны сообщения с ярлыком COMConnector. Показать все сообщения
Показаны сообщения с ярлыком COMConnector. Показать все сообщения

среда, 19 марта 2014 г.

Пример ЗначениеВСтрокуВнутр и Описание типов для com соединения

ЗначениеВСтрокуВнутр:

ТЗ_Строка = СоединениеС1С_.ValueToStringInternal(Запрос.Выполнить().Выгрузить());

НашаТз = ЗначениеИзСтрокиВнутр(ТЗ_Строка);

Описание типов:
ОписаниеТиповКомНом = СоединениеС1С_.NewObject("ОписаниеТипов", "СправочникСсылка.Номенклатура");

понедельник, 25 ноября 2013 г.

Поиск элемента по Уникальному идентификатору в базе источнике

Мы находится в УТ, подключаемся к УПП:

МассивКа = СоединениеС1С_.NewObject("Массив");
    Для каждого стр Из Партнеры Цикл
        Партнер = стр;
        УиУт = строка(Партнер.УникальныйИдентификатор());
        УиУпп = СоединениеС1С_.NewObject("УникальныйИдентификатор",УиУт);
        КаУпп = СоединениеС1С_.Справочники.Контрагенты.ПолучитьСсылку(УиУпп);
        Если Найти(СоединениеС1С_.string(КаУпп),"<Объект не найден>")=0 Тогда
            МассивКа.Добавить(КаУпп);
        КонецЕсли;

четверг, 21 ноября 2013 г.

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

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


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

вторник, 8 октября 2013 г.

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

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

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

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

вторник, 21 августа 2012 г.

1с 8.2 подключение к 1с 8 по COM

Попытка
        Состояние("Выполняется подключение к 1С база  ...");

        cntr    = Новый COMObject("V82.COMConnector");//Для базы 1с 8.1 - "V81.COMConnector"
        Usr        = "ИмяПользователя";
        Pwd        = "Пароль";
//Вариант SQL базы приемника:
        СтрокаСоединения = "Srvr=""buh"";Ref=""ИмяБазы"";"+?(ПустаяСтрока(Usr),"","Usr = """+Usr+""";") +?(ПустаяСтрока(Pwd),"","Pwd = """+Pwd+""";");
//Вариант файловой базы;
        //СтрокаСоединения = СокрЛП("File=""D:\DATA\BUH\1CV8\КА"";")+?(ПустаяСтрока(Usr),"","Usr = """+Usr+""";") +?(ПустаяСтрока(Pwd),"","Pwd = """+Pwd+""";");
        СоединениеС1С_ = cntr.Connect(СтрокаСоединения);   
        Возврат Истина;
    Исключение
        Сообщить_(ОписаниеОшибки());
        Возврат Ложь;
    КонецПопытки;