Запрос из БП 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
ЗЫ ОЛЕ - ваще крайне тормазнутая шняга
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
>Группировка ТекущийДокумент без групп
сурово
--
имхо с условиями проблема или с датами, если вообще подключается конечно
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.