Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
14 дек 2024, 10:33

Выполнить запрос через OLE (Delphi)

Автор Doomych, 18 фев 2015, 10:00

0 Пользователей и 1 гость просматривают эту тему.

Doomych

1С:Предприятие 8.3 (типовая конфигурация; Бухгалтерия предприятия, редакция 3.0)

Хочу из своей программы (Delphi) получить результаты запроса. Делаю так (код упрощен):
function TCashServices.GetBankStatement(): boolean;
var
  queryStr: string;
  query: OleVariant;
  queryResult: OleVariant;
  querySelection: OleVariant;
begin
  queryStr := 'ВЫБРАТЬ СписаниеСРасчетногоСчета.Ссылка ' +
    'ИЗ Документ.СписаниеСРасчетногоСчета КАК СписаниеСРасчетногоСчета ' +
    'ГДЕ СписаниеСРасчетногоСчета.ВидОперации = &ВидОперации ' +
    'И СписаниеСРасчетногоСчета.Дата >= ДАТАВРЕМЯ(2015, 2, 1)';

  query := Ole1C.Запрос; // Method 'Запрос' not supported by automation object
  query.Текст := queryStr;
  query.УстановитьПараметр('ВидОперации', Ole1C.Перечисления.ВидыОперацийРКО.ВозвратПокупателю);

  queryResult := query.Выполнить();
  querySelection := queryResult.Выбрать();

  while querySelection.Следующий() do
  begin
    ...
  end;
end;

Падаю на "query := Ole1C.Запрос;" с сообщением, что метода "Запрос" нет. Вполне возможно. А как надо правильно?

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск