Не выходит из цикла while select {...}

[MaxHammer]

Приветствую. Есть следующий код.

public void UpdateVariableParms()
{
    real saleLineAmount;
    real priceUnit;
    real qty;

    SalesLineVariableParms saleLineVarParam;

    PriceVariableParms::construct().run(this);

    saleLineAmount  = this.LineAmount;

    select * from saleLineVarParam
                where saleLineVarParam.SalesLineRef == this.RecId;


    while select saleLineVarParam
    {

        if(saleLineVarParam.MinCharge == true)
        {
            saleLineAmount += saleLineVarParam.Charge;
        }
        else if(saleLineVarParam.PriceAs == PriceAs::Surcharge)
        {
            saleLineAmount += saleLineVarParam.Price;
        }
        else if(saleLineVarParam.PriceAs == PriceAs::ByItem)
        {
            priceUnit += saleLineVarParam.Price;
        }
     ttsBegin;
        this.LineAmount = saleLineAmount;
        this.PriceUnit = priceUnit;
        this.update();
    ttsCommit;
    }

}

Не могу выйти из цикла while select salesLineVarParam. В таблице SalesLineVariableParms проверял есть только одна запись удовлетврояющая моему условию. В чем конкретно ошибка? Заранее спасибо за ответ.

[S.Kuskov]

Цитата:

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

В таблице SalesLineVariableParms проверял есть только одна запись удовлетврояющая моему условию.

Какому условию? Этому?

saleLineVarParam.SalesLineRef == this.RecId

У вас смешалось два подхода.
Конструкция while select никак не использует предыдущую выборку курсора. Всегда формируется новая выборка. Поэтому вам нужно использовать
либо while без select . При этом передвигать курсор при помощи инструкции next:

select * from saleLineVarParam
where saleLineVarParam.SalesLineRef == this.RecId;

while (saleLineVarParam)
{
    ...
    next saleLineVarParam;
}

либо while select в комбинации c where без предварительного select:

while select saleLineVarParam
where saleLineVarParam.SalesLineRef == this.RecId
{
    ...
}

Второй вариант более предпочтителен.

[MaxHammer]

while select saleLineVarParam
        where saleLineVarParam.SalesLineRef == this.RecId
    {

        if(saleLineVarParam.MinCharge == true)
        {
            saleLineAmount += saleLineVarParam.Charge;
        }
        else if(saleLineVarParam.PriceAs == PriceAs::Surcharge)
        {
            saleLineAmount += saleLineVarParam.Price;
        }
        else if(saleLineVarParam.PriceAs == PriceAs::ByItem)
        {
            priceUnit += saleLineVarParam.Price;
        }
     ttsBegin;
        this.LineAmount = saleLineAmount;
        this.PriceUnit = priceUnit;
        this.update();
    ttsCommit;
    }

доходит до конца цикла и снова возвращается в начало while.

[S.Kuskov]

Как предположение, this.update() внутри себя не вставляет ли новых строк в saleLineVarParam?

В качестве трассировки добавьте внутрь цикла

info(strfmt("%1", saleLineVarParam.RecId));

[user_ax]

Цитата:

Сообщение от S.Kuskov

Как предположение, this.update() внутри себя не вставляет ли новых строк в saleLineVarParam?

Так ведь ttsbegin\ttscommit внутри цикла, значит транзакция совершается успешно.

Автор, по условию точно 1 запись? в this есть данные? Может оно по пустоте ищет?
Можете выше сделать запрос

select count(RecId) from saleLineVarParam
        where saleLineVarParam.SalesLineRef == this.RecId

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

[S.Kuskov]

Цитата:

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

Так ведь ttsbegin\ttscommit внутри цикла, значит транзакция совершается успешно.

А я и не говорил, что цикл зависает/вылетает на том месте. Я хотел указать на следующее. Если внутри цикла по таблице в эту же самую таблицу вставлять записи, удовлетворяющие условию цикла, то вполне себе возможно получить зацикливание.

[MaxHammer]

Я использовал метод doUpdate(), кажется все ок. Буду еще проверять позже.

Спасибо за помощь!