Передать Параметр в запрос по 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.ТекущийЭлемент.Наименование;
КонецЦикла;
Подключение = База.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.ТекущийЭлемент.Наименование;
КонецЦикла;