Помогите с кодом (ax 2009)

[SuperStar88]

Переписал так, без промежуточного буфера, всё равно долго

ttsbegin;
    while select forupdate rowQuota
    {
        monthDiff = intvNo(rowQuota.DateTo, rowQuota.DateFrom, IntvScale::Month);
        dayDiff = intvNo(rowQuota.DateTo, rowQuota.DateFrom, IntvScale::Day);

        if(rowQuota.UsagePeriod <= monthDiff && dayDiff > 0)
        {
            do
            {
                rowQuota.DateFrom = dateMthFwd(rowQuota.DateFrom, rowQuota.UsagePeriod);
                rowQuota.DatePotreb = rowQuota.DateFrom;
                rowQuota.insert();

                monthDiff = intvNo(rowQuota.DateTo, rowQuota.DateFrom, IntvScale::Month);
                dayDiff = intvNo(rowQuota.DateTo, rowQuota.DateFrom, IntvScale::Day);
            }
            while(rowQuota.UsagePeriod <= monthDiff && dayDiff > 0);
        }
    }
ttscommit;

[terraByteG]

Цитата:

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

Переписал так, без промежуточного буфера, всё равно долго

Для начала, объясните, чего именно вы хотите добиться?
Там точно должен быть insert, а не update.

ПС: Долго? Так цикл в цикле.
Одна переменная для селекта и инсерта - жестоко...