Ошибка while next

[niktata]

Добрый день! Делаю выгрузку в excel одного отчета. Код вылетает на next items с ошибкой: "Ошибка времени выполнения: В данном контексте команду NEXT выполнить нельзя. Возможные причины: буфер инициализирован на сервере, не вызван запрос SELECT, SELECT вызван, но строк не найдено, или данные переданы с помощью метода DATA. Ошибка, как я понял, вылетает на последней строке. Таблица items не пустая.
Код прилагается:

void clicked()
{
    Query                       query;
    QueryBuildDataSource        qbds;
    QueryRun                    qr;
    ELT_BomItemsExplodeCalcTKP  ds;
    //===Variables (for Excel export)=============================//
    comExcelDocument_RU     excelDoc;
    ParseBuffer             text;
    Str                     buffer;
    int i;
    //===changeKeyBoard================================================//
    void changeKeyBoardLanguageRussia() // Перевод раскладки клавиатуры на русский язык (символы в буфере обмена)
    {
        dll dll = new dll("user32");
        dllFunction dllFunction = new dllFunction(dll, "LoadKeyboardLayoutA");
        #define.KLF_ACTIVATE(1)
        ;
        dllFunction.arg(ExtTypes::String, ExtTypes::DWord);
        dllFunction.returns(ExtTypes::DWord);
        dllFunction.call("00000419", #KLF_ACTIVATE); // - русский язык
        //dllFunction.call("00000409", #KLF_ACTIVATE); // - англ. язык
    }
    //=================================================================//
    ;
    super();

    buffer   = "";
    text     = new ParseBuffer("");
    changeKeyBoardLanguageRussia();
    excelDoc = new comExcelDocument_RU();
    excelDoc.newFile(#ReportTemplatePath_RU + 'ELT_BomCalcTKP.xlt',false);

//    query = new Query(items_DS.query());
//    qbds = query.dataSourceNo(1);
//    qbds.addSortField(FieldNum(ELT_BomItemsExplodeCalcTKP, RecId));
//    qbds.orderMode(OrderMode::OrderBy);
//     qr = new QueryRun(query);

    if (SebestCheckbox.value() == 0)
        select items order by RecID ASC where items.RecId;
    else
        select
            items
                order by RecID ASC
                where items.ItemType == ItemType::BOM
                   || items.StopExplode == NoYes::Yes;

    while (items)
    //while (qr.next())
    {
        //ds = qr.getNo(1);
        buffer = items.ItemId                                                      + '\t' +
                 items.ItemName                                                    + '\t' +
                 num2str(items.BOMQty,4,2,2,0)                                     + '\t' +
                 items.UnitID                                                      + '\t' +
                 num2str(items.PurchPrice,4,2,2,0)                                 + '\t' +
                 items.PurchCurrencyCode                                           + '\t' +
                 num2str(items.CurrAmount,4,2,2,0)                                 + '\t';
                 //items.CurrAmountCode                                              + '\t';

        switch (items.PurchCurrencyCode)
        {
            case 'RUR' :  buffer += "=G" + int2Str(2+i) + '\t'; break;
            case 'EUR' :  buffer += "=G" + int2Str(2+i)+'*$N$1' + '\t'; break;
            case 'USD' :  buffer += "=G" + int2Str(2+i)+'*$N$2' + '\t'; break;
        }

        buffer += int2str(items.LevelBom) + '\t' +
                  items.BomItemId + '\t' +
                  date2str(items.TransDate,123,2,2,2,2,2) + '\n';

        text.appendText(buffer);

        i++;

        next items;
    }

    if(buffer == "")
        text.appendText("Ошибка! \n");

    excelDoc.insertText("A2", text,1);
    text.setText(num2str(Euro,4,2,2,0));
    excelDoc.insertText("N1", text,1);
    text.setText(num2str(USD,4,2,2,0));
    excelDoc.insertText("N2", text,1);
    excelDoc.visible(true);
}

Пробовал делать через QueryRun, но не разобрался, как делать выборку из датасурса формы. Датасурсом является временная таблица.

[ZVV]

Цитата:

    if (SebestCheckbox.value() == 0)
        select items order by RecID ASC where items.RecId;
    
                order by RecID 
                where items.ItemType == ItemType::
                   || items.StopExplode == NoYes::Yes;

Интересный код, наверное что-то не так скопировали...
А вообще, ну а если SebestCheckbox.value() != 0?
То откуда по вашему должен делаться next()?
не хватает операторных скобок после

if (SebestCheckbox.value() == 0)

на всё остальное...

[Didukh84]

Привет. А почему не заменить
while (items)
....
next items;
на
while select items
{
...
}

[niktata]

 ,  -   ...
 ,    [I]SebestCheckbox.value() != 0[/I]?

Скопировал все верно. Редактор на форуме неправильно обработал знаки комментария /* и */ я их заменил на //

[COLOR=blue][COLOR=Black].     [/COLOR]
while[/COLOR] (items)
....
next items;
 
[COLOR=blue]while[/COLOR] select items
{
  ...
}

Потому что если галочка SebestCheckbox отмечена, то одна выборка, иначе другая.

[ZVV]

[QUOTE=niktata;191029]

 ,  -   ...
 ,    [I]SebestCheckbox.value() != 0[/I]?

Скопировал все верно. Редактор на форуме неправильно обработал знаки комментария /* и */ я их заменил на //

По-прежнему вижу то же самое...
А items - это что, DS на форме?

[ZVV]

Вообщем, покорырялся, да - есть такая проблема именно с next.
Делайте вот как:
Обьявите локальную переменную (tmpLocal) той временной таблицы, которая у вас в датасорсе,
Сделайте ей

tmpLocal.setTmpData(items);

и далее стройте свои запросы к переменной tmpLocal.
Так всё будет нормально...

[niktata]

ZVV: Я в итоге так и сделал Спасибо за подсказку! Интересно все-таки, почему next ему так не нравился. Уже не раз делал таким способом и не испытывал никаких проблем.

Вставить код так и не удается. Каждый раз теряются строки.

[ZVV]

Цитата:

Сообщение от niktata

ZVV: Я в итоге так и сделал Спасибо за подсказку! Интересно все-таки, почему next ему так не нравился. Уже не раз делал таким способом и не испытывал никаких проблем.

Делали так именно с временной таблицей в ДС и next?

У меня в простейшём случае такая же ошибка как и вас была. Причина в том, что последний while (items) (после последнего next, точнее, который уже не должен ничего найти) всё равно возвращает Тру, а следующий next выдаёт указанную ошибку... Причём это именно когда по ДС. А вот while select отрабатывает нормально.
Примите это как фичу. И вообще делать селект по датасорсу это неправильно как-то по смыслу, в моём понимании...

[Aleksey_M]

niktata
Прошу извинить, была ошибка в отображении тега xpp. Сейчас исправлено.

[niktata]

ZVV: теперь все на своих местах спасибо!
Aleksey_M: ok ;-)