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 Цикл
...................
КонеЦЦикла
|
|