Как проверить, что можно вызвать оператор next на таблице?

[mazzy]

1. Как проверить, что можно вызвать оператор next на таблице?
2. Как избежать выпадения в дебаггер?

вопросы относятся к любой версии аксапты.

Код:

static void Job13(Args _args)
{
    CustTrans   ct1;
    CustTrans   ct2;

    // let's assume that method 'one' search a record
    select ct1; // where ct1.AccountNum == 'someAccount'
    ct2.data(ct1.data()); // or ct2.data(ct1);

    // contract postcondition
    Debug::assert(ct1.RecId != 0);
    Debug::assert(ct2.RecId == ct1.RecId);

    //////////////////////////////////

    // let's assume that method 'two' accepts a custTrans record as parameter
    Debug::assert(ct2.RecId != 0);
    try
    {
        // Questions:
        // 1. How to check that 'next' can be used?
        // 2. How to suppress a debugger?
        next ct2;
    }
    catch
    {
        Warning('catch it!');
    }
}

пара скриншотов на ax2009 (в остальных версиях поведение такое же).

[Stitch_MS]

Как вариант, вместо

ct2.data(ct1.data());

написать

select ct2 where ct2.RecId == ct1.RecId

[SRF]

Не знаю поможет ли это вам, но в AX 2012 методы возвращают разные значения

info(strFmt("%1 %2", ct2.found(), ct1.found()));

[mazzy]

Цитата:

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

...написать...

вопрос не в том "как написать"
вопрос как проверить что именно передает уже написанный код.

Цитата:

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

Не знаю поможет ли это вам, но в AX 2012 методы возвращают разные значения

info(strFmt("%1 %2", ct2.found(), ct1.found()));

опа. в 2012 действительно добавили методы.
и этот, похоже, то что надо.

а в предыдущих версиях как?

[sukhanchik]

Глупый вопрос, но конструкция

if (ct2)
{
    next ct2;
}

не прокатывает? Или я чего-то не понял в задаваемом вопросе?

[Logger]

Не прокатывает.

[sukhanchik]

Понял, спасибо. Я просто очень редко пользовался этой конструкцией и поэтому на такие особенности еще не успел наткнуться

[mazzy]

Цитата:

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

не прокатывает?

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

Debug::assert(ct2.RecId != 0);

чтобы показать какие предусловия выполняются в данном месте.

[Dreadlock]

Я делал всегда так, начиная с Ах3.0..Ах2012 и у меня работало:

static void nextCursor(Args _args)
{
    SalesTable salesTable;
    
    select noFetch salesTable
        where salesTable.RecId != 5637159589;
    
    next salesTable;
    
    do
    {
        info(strFmt('Sales id is %1', salesTable.SalesId));
        
        if (salesTable)
        {
            next salesTable;  
        }        
    }
    while (salesTable);
    
    info('Done');
}

В моем окружении, в той компании в которой я проверял Job, только один заказ с RecId == 5637159589

[dmn]

На 2009 вот так перестал ругаться и вываливаться в отладчик. И recId вроде как одинаков у обоих курсоров.

ct2.data(ct1.data()); // or ct2.data(ct1);
ct2.reread();

Правда, вот это

next ct1

отрабатывает, а после

next ct2

ct2.recId == 0

[DSPIC]

DEL

[-DocSerzh-]

AX 2012 6.3.3000.111
на строке
next ct2
в debug не выходит, DAX сваливается в дамп и пытается отправиться в MS...

[Владимир Максимов]

У меня получилось обойтись без ошибок так

       ct2.reread();
        next ct2;