Delphi запрос в 1с что не так?

Question

[Xvir43]

Помогите пожалуйста выполнить запрос, делаю так:

Var
   doc:olevariant;
   QResult:olevariant;
   sel_res,res: variant;
begin
 
  //Проверяем, существует ли соединение с 1Cv8
  if YesLinkToVariant(s1C8_ole) then
     begin
 
     doc:=s1C8_ole.NewObject('Запрос');
      doc.text:='ВЫБРАТЬ ЗаказПокупателяТовары.Номенклатура КАК Номенклатура, ПРЕДСТАВЛЕНИЕ(ЗаказПокупателяТовары.Номенклатура), ЗаказПокупателяТовары.Количество КАК Количество ИЗ Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары'+
       ' ГДЕ ЗаказПокупателяТовары.Ссылка.ДатаОтгрузки >= &НачалоПериода И ЗаказПокупателяТовары.Ссылка.ДатаОтгрузки <= &КонецПериода И ЗаказПокупателяТовары.Ссылка.ПометкаУдаления = &ПометкаУдаления; ';
       doc.УстановитьПараметр('НачалоПериода',StrToDate('28.03.2018'));
        doc.УстановитьПараметр('КонецПериода',StrToDate('30.03.2018'));
        doc.УстановитьПараметр('ПометкаУдаления','ложь');
 
       sel_res :=doc.Выполнить();
       res:=sel_res.Выбрать();
 
        try
       while res.Следующий() do
    begin
       Memo1.Lines.Add( String(res.Номенклатура));
      // (sel_res.Количество);
 
 
    end;
 
        except
          on E: Exception do ShowMessage('Ошибка:  while Choose.Next() do:'+E.ClassName+':'+E.Message);
        end;
  end
  else begin
     ShowMessage('Сначала нужно установить соединение с 1Cv8 !');
  end;
end;

все выполняется без ошибок ,но цикл не работает дельфи его пропускает.
как будто пустой результат.

что не так?

Процедура Отчет(ТабДок, КонецПериода, НачалоПериода, ПометкаУдаления) Экспорт
    //{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ(Отчет)
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
 
    Макет = ВнешнийОтчетОбъект.ПолучитьМакет("Отчет");
    Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ
    |   ЗаказПокупателяВозвраты.Номенклатура КАК Номенклатура,
    |   ПРЕДСТАВЛЕНИЕ(ЗаказПокупателяВозвраты.Номенклатура),
    |   ЗаказПокупателяВозвраты.Количество КАК Количество
    |ИЗ
    |   Документ.ЗаказПокупателя.Возвраты КАК ЗаказПокупателяВозвраты
    |ГДЕ
    |   ЗаказПокупателяВозвраты.Ссылка.ПометкаУдаления = &ПометкаУдаления
    |   И ЗаказПокупателяВозвраты.Ссылка.ВозвратНаличными = &ВозвратНаличными
    |   И ЗаказПокупателяВозвраты.Ссылка.ДатаОтгрузки >= &НачалоПериода
    |   И ЗаказПокупателяВозвраты.Ссылка.ДатаОтгрузки <= &КонецПериода";
 
    Запрос.УстановитьПараметр("КонецПериода", КонецПериода);
    Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода);
    Запрос.УстановитьПараметр("ПометкаУдаления", ложь);
    Запрос.УстановитьПараметр("ВозвратНаличными", ложь);
 
    ИтоговаяТаблица = Запрос.Выполнить().Выгрузить();
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ
    |   ЗаказПокупателяТовары.Номенклатура КАК Номенклатура,
    |   ПРЕДСТАВЛЕНИЕ(ЗаказПокупателяТовары.Номенклатура),
    |   ЗаказПокупателяТовары.Количество КАК Количество
    |ИЗ
    |   Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары
    |ГДЕ
    |    ЗаказПокупателяТовары.Ссылка.ДатаОтгрузки >= &НачалоПериода
    |   И ЗаказПокупателяТовары.Ссылка.ДатаОтгрузки <= &КонецПериода
    |   И ЗаказПокупателяТовары.Ссылка.ПометкаУдаления = &ПометкаУдаления";
 
    Запрос.УстановитьПараметр("КонецПериода", КонецПериода);
    Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода);
    Запрос.УстановитьПараметр("ПометкаУдаления", ложь);
 
 
    Результат=Запрос.Выполнить().Выбрать();
    Пока Результат.Следующий() Цикл
        НоваяСтрока=ИтоговаяТаблица.Добавить();
        НоваяСтрока.Номенклатура=Результат.Номенклатура;
        НоваяСтрока.Количество=Результат.Количество;
         
    КонецЦикла;

вот рабочая процедура с 1с

Answer 1

[Константин Нагибович]

Вы значение параметра ПометкаУдаления как строку передаете?
В данном случае, можно сразу в запросе писать

ПометкаУдаления = Ложь

Comments

[Xvir43]

В 1с коде все нормально срабатывает и выдает отчет, мне надо эти данные в delphi получить.

[Константин Нагибович]

Xvir43,
В 1С

Запрос.УстановитьПараметр("ПометкаУдаления", ложь);

В Делфи

doc.УстановитьПараметр('ПометкаУдаления','ложь');

Разницу видите?

[Xvir43]

Константин Нагибович, doc:=s1C8_ole.NewObject('Запрос');
doc.text:='ВЫБРАТЬ ЗаказПокупателяТовары.Номенклатура КАК Номенклатура, '+
'ПРЕДСТАВЛЕНИЕ(ЗаказПокупателяТовары.Номенклатура), '+
'ЗаказПокупателяТовары.Количество КАК Количество ' +
'ИЗ'+
' Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары '+
' ГДЕ '+
'ЗаказПокупателяТовары.Ссылка.ДатаОтгрузки >= &НачалоПериода '+
'И ЗаказПокупателяТовары.Ссылка.ДатаОтгрузки <= &КонецПериода '+
'И ЗаказПокупателяТовары.Ссылка.ПометкаУдаления = Ложь';

doc.УстановитьПараметр('НачалоПериода',StrToDate('28.03.2018'));
doc.УстановитьПараметр('КонецПериода',StrToDate('30.03.2018'));
//doc.УстановитьПараметр('ПометкаУдаления',false);
та же самая ошибка при выводе номенклатуры дает Exception class EVariantTypeCastError with message 'Could not convert variant of type (Dispatch) into type (OleStr)

[Константин Нагибович]

Xvir43, может с датами какая-то сложность?

[Xvir43]

Константин Нагибович, какова вида они должны быть в 1с? 01.01.2001 00:00:00 такого?

Answer 2

[Дмитрий Кинаш]

Константин Нагибович правильно написал: проблема с вашим параметром ПометкаУдаления! Вы вместо FALSE передаете какой-то левый литерал строкового типа. Или передавайте правильное булевое значение, или в запросе напишите "ГДЕ НЕ ЗаказПокупателяВозвраты.Ссылка.ПометкаУдаления"

Comments

[Xvir43]

doc.УстановитьПараметр('ПометкаУдаления',false); сделал так, теперь заходит в цикл но выдает ошибку типов
Memo1.Lines.Add( string(sel_res.Номенклатура)); ругается на это вот так:
Exception class EVariantTypeCastError with message 'Could not convert variant of type (Dispatch) into type (OleStr)'.

[Константин Нагибович]

Xvir43, сделайте условие сразу в тексте запроса, как я предлагал выше.

[Дмитрий Кинаш]

Константин Нагибович, нет. Присмотрись к ошибке - ругается на попытку преобразования типов.

Xvir43, в 1С попытка приведения к строке ссылочных данных обрабатывается на уровне платформы, которая делает запрос к БД и получает представление для нужно ссылки (может быть переопределено в менеджере требуемых метаданных).

Вам для Делфи нужно немного исправить запрос - задайте псевдоним для второго поля ПРЕДСТАВЛЕНИЕ(ЗаказПокупателяТовары.Номенклатура), как вариант НоменклатураСтрокой. Далее уже в вашем коде пишите Memo1.Lines.Add( String(res.НоменклатураСтрокой)).

doc.text:='ВЫБРАТЬ ЗаказПокупателяТовары.Номенклатура КАК Номенклатура, ПРЕДСТАВЛЕНИЕ(ЗаказПокупателяТовары.Номенклатура) КАК НоменклатураСтрокой, ЗаказПокупателяТовары.Количество КАК Количество ИЗ Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары'+
       ' ГДЕ ЗаказПокупателяТовары.Ссылка.ДатаОтгрузки >= &НачалоПериода И ЗаказПокупателяТовары.Ссылка.ДатаОтгрузки <= &КонецПериода И ЗаказПокупателяТовары.Ссылка.ПометкаУдаления = &ПометкаУдаления; ';