Ошибка while next - DAX: Программирование

niktata · 19.02.2009, 15:24

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

X++:

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 · 19.02.2009, 15:31

Цитата:

X++:

    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()?
не хватает операторных скобок после

X++:

if (SebestCheckbox.value() == 0)

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

Didukh84 · 19.02.2009, 15:34

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

niktata · 19.02.2009, 16:07

X++:

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

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

X++:

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

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

ZVV · 19.02.2009, 16:14

[QUOTE=niktata;191029]

X++:

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

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

По-прежнему вижу то же самое...

А items - это что, DS на форме?

ZVV · 19.02.2009, 16:32

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

X++:

tmpLocal.setTmpData(items);

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

niktata · 20.02.2009, 11:21

ZVV: Я в итоге так и сделал

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

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

ZVV · 20.02.2009, 11:29

Цитата:

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

ZVV: Я в итоге так и сделал

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

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

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

niktata · 20.02.2009, 11:39

Цитата:

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

Сделал именно так, как Вы советовали.

Цитата:

И вообще делать селект по датасорсу это неправильно как-то по смыслу, в моём понимании...

Как же тогда делать?

ZVV · 20.02.2009, 11:59

Цитата:

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

Сделал именно так, как Вы советовали.

Не, вы не правильно поняли мой вопрос, Вы писали, что "Уже не раз делал таким способом и не испытывал никаких проблем." Вот я и спросил "Делали так именно с временной таблицей в ДС и next? "

Цитата:

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

Как же тогда делать?

Делать нужно так как вы уже переделали по моему совету.

Всё уже ОК - так проблем быть не должно. Имеется ввиду делать селект прямо по переменной-датасорсу логически неверно...

**Aleksey_M** · 20.02.2009, 13:39

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

niktata · 20.02.2009, 15:18

ZVV: теперь все на своих местах

спасибо!
Aleksey_M: ok ;-)

Похожие темы
Тема	Автор	Раздел	Ответов	Посл. сообщение
Dynamics AX: Microsoft - The Next Big ERP Innovator	Blog bot	DAX Blogs	2	02.04.2009 18:55
axStart: Please keep the AOT reports in Dynamics AX next release alive	Blog bot	DAX Blogs	2	13.12.2008 12:18
Ошибка при выполнении queryRun.next()	Poleax	DAX: Программирование	6	23.07.2008 18:49
ProductiveGap: Analysis: CRM Is Microsoft's Next Billion-Dollar Baby	Blog bot	DAX Blogs	0	28.10.2006 18:14
Русская локализация Axapta 3 ?	SlavaK	DAX: Администрирование	59	01.07.2003 22:38