пятница, 13 сентября 2013 г.

Запрос из 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 нуждается в запуске в монопольном режиме!");
        Ошибка=Истина;
    КонецЕсли;



Запрос77 = База.CreateObject("Запрос");
    ТекстЗапроса =
                    "//{{ЗАПРОС(Сформировать)
                    |Обрабатывать НеПомеченныеНаУдаление;
                    |ТекущийЭлемент = Справочник.Контрагенты.ТекущийЭлемент;
                    |Наименование = Справочник.Контрагенты.Наименование;
                    |Код = Справочник.Контрагенты.Код;
                    |ИНН = Справочник.Контрагенты.ИНН;
                    |Группировка ТекущийЭлемент упорядочить по ТекущийЭлемент.Наименование без групп;                   
                    |";
                   
                    Если Запрос77.Выполнить(ТекстЗапроса)=0 Тогда
                        Предупреждение("Ошибка в запросе1 77");
                        Возврат
                    КонецЕсли;

    пока Запрос77.Группировка(1)=1 Цикл    
        Нов = ТзКа.Добавить();
        Нов.ссылка = Запрос77.ТекущийЭлемент;
        Нов.Имя = Запрос77.ТекущийЭлемент.Наименование;
    КонецЦикла;