Имя: Пароль:
1C
1С v8
Помогите с запросом Com-соединение
0 isabel_morley
 
20.09.11
22:50
Нужно составить запрос к 7.7 из 8.2.Выгрузить контрагенты и их договоры
ТекстЗапроса =
       "//{{ЗАПРОС(Сформировать)
       |Обрабатывать НеПомеченныеНаУдаление;
       |Контрагент = Справочник.Контрагенты.ТекущийЭлемент;
       |Договор= Справочник.Договоры.ТекущийЭлемент;
       |Служебный = Справочник.Контрагенты.Служебный;
       |Группировка Контрагент упорядочить по Контрагент.Код без групп;
       |Группировка Договор;
       |Условие(Служебный = 0);
       |"//}}ЗАПРОС
       ;
       // Если ошибка в запросе, то выход из процедуры
       Если Запрос.выполнить(ТекстЗапроса) = 0 Тогда
           Возврат;
       КонецЕсли;
       
       
       Пока Запрос.Группировка("Контрагент") = 1 Цикл
       {Справочник.Контрагенты.Форма.ФормаСписка.Форма(116)}: Метод объекта не обнаружен (Группировка)
       Пока Запрос.Группировка("Контрагент") = 1 Цикл

Подскажите решение пожалуйста
1 Asmody
 
20.09.11
23:11
ничего не понял. где запрос? кто к кому подключается?  на какой платформе должен выполниться код?
2 sapphire
 
20.09.11
23:14
(0) Витя в (1) имеет ввиду, де представленного Вами кода крайне недостаточно :)))
(1) Привет, дорогой! :))))
3 isabel_morley
 
20.09.11
23:57
1)

   Попытка
       V7 = НОВЫЙ COMОбъект("V77.Application");
       текПользователь = "Новый1";
       текПароль       = "";
       Открыта=  V7.Initialize(V7.RMTrade,"/d"+"C:\TanuSHa\work\скч\"+" /N"+текПользователь+" /P"+текПароль,"NO_SPLASH_SHOW") ;
       
   Исключение
       Предупреждение("Ошибка открытия базы!!!");
       Сообщить(ОписаниеОшибки());
       Возврат;
   КонецПопытки;
   
   Если Открыта Тогда
       Сообщить("Подключились к 1с 7.7");
       //Запрос = v7.CreateObject("запрос");
       ВрмСправочник = v7.EvalExpr("СоздатьОбъект(""Справочник.Контрагенты"")");
       ВрмСправочникДоговоры=V7.EvalExpr("СоздатьОбъект(""Справочник.Договоры"")");
       запрос= v7.EvalExpr("СоздатьОбъект(""Запрос"")");
   
   //========    
   //Смотрим новых контрагентов
   //========================
       ТекстЗапроса =
       "//{{ЗАПРОС(Сформировать)
       |Обрабатывать НеПомеченныеНаУдаление;
       |Контрагент = Справочник.Контрагенты.ТекущийЭлемент;
       |ОсновнойДоговор= Справочник.Договоры.ТекущийЭлемент;
       |Служебный = Справочник.Контрагенты.Служебный;
       |Группировка Контрагент упорядочить по Контрагент.Код без групп;
       |Группировка ОсновнойДоговор;
       |Условие(Служебный = 0);
       |"//}}ЗАПРОС
       ;
       // Если ошибка в запросе, то выход из процедуры
       Если Запрос.выполнить(ТекстЗапроса) = 0 Тогда
           Возврат;
       КонецЕсли;
       
       
       Пока Запрос.Группировка("Контрагент") = 1 Цикл
4 isabel_morley
 
20.09.11
23:59
1) из 8.2 к 7.7.
при одной группировке нормально работал (я пробовала отбирать контрагентов и их основной договор), а сейчас хочу достать контрагентов и все их договора
соответственно, первая группировка по контрагенту,а вторая по договору
5 isabel_morley
 
21.09.11
10:27
актуально
6 isabel_morley
 
21.09.11
11:01
запрос сам косячный
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс