Имя: Пароль:
IT
Админ
Запрос из БП 3.0 в 1С 7.7 - не работает запрос по выборке доков
,
0 Gal4onok
 
10.09.13
14:48
Пробую настроить рабочую обработку (в конфе 8,2) под БП 3.0.
Обычное приложение запуска платформы и под пользователем. База 7.7 подключается. Запрос выполняется, но данных в нем нет.Ошибок не вылетает.
Процедура ОсновныеДействияФормыПодключиться(Кнопка)
    
        
База     = Новый COMОбъект("V77.Application");
    
БазаОткрыта = База.Initialize(База.RMTrade,"", "NO_SPLASH_SHOW");
    
Если НЕ БазаОткрыта Тогда
        
   Сообщить("Не удалось открыть базу!");
   Сообщить(ОписаниеОшибки());
Иначе
   Сообщить("База открыта");
КонецЕсли;

КонецПроцедуры
ТекстЗапроса =
    "//{{ЗАПРОС(Сформировать)
    |Период с '"+Формат(НачПериода, "ДФ=dd.MM.yy")+"' по '"+Формат(КонПериода, "ДФ=dd.MM.yy")+"';
    |Обрабатывать НеПомеченныеНаУдаление;
    |ТекущийДокумент = Документ.ПоступлениеУслуг.ТекущийДокумент;
    |ДатаДок = Документ.ПоступлениеУслуг.ДатаДок;
    |НомерДок = Документ.ПоступлениеУслуг.НомерДок;
    |ФирмаИНН = Документ.ПоступлениеУслуг.Фирма.ИНН;
    |Клиент = Документ.ПоступлениеУслуг.Клиент;
    |СуммаДок = Документ.ПоступлениеУслуг.Сумма;
    |Функция Сумма = Сумма(СуммаДок);
    |Группировка ТекущийДокумент без групп;
    |Условие(СокрЛП(ФирмаИНН)="""+СокрЛП(Орг77.ИНН)+""");
    |"
    ;

    Запрос = База.CreateObject("Запрос");
    Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
        Сообщить("Запрос по документам не выполнен!!");
        Возврат;
    КонецЕсли;
    
    Пока Запрос.Группировка(1) = 1 Цикл
...................
КонеЦЦикла
1 Зойч
 
10.09.13
14:49
а если в 77 запустить?
2 пипец
 
10.09.13
14:51
простой выборкой не ?
3 Gal4onok
 
10.09.13
14:51
а мне в 8ку надо
4 Gal4onok
 
10.09.13
14:51
(2) долго, много доков
5 пипец
 
10.09.13
14:56
http://infostart.ru/public/168249/
http://1c.moy.su/publ/ole/vzaimodejstvie_cherez_ole/52-1-0-141
ЗЫ ОЛЕ - ваще крайне тормазнутая шняга
6 Gal4onok
 
10.09.13
15:00
ну вот если не заработает, завтра буду через текстовик писать
7 Gal4onok
 
10.09.13
15:04
(5) для 8.2 писалось из них, спасибо. в БП 3.0 не работает
8 dk
 
10.09.13
15:15
>Группировка ТекущийДокумент без групп
сурово
--
имхо с условиями проблема или с датами, если вообще подключается конечно
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.