forUpdate перед ttsbegin

[ax_mct]

Вы так программируете?

while select forUpdate myTable
{
    ttsBegin;
    myTable.MyField = 'something';
    myTable.update();
    ttsCommit;
}

Я очень часто вижу такой стиль. Лично мне он как то неприятен.
Потратил сегодня вечер анализируя это так как пакистанец (неплохой программист с Mерседесом) написал именно так. Внешней TTS нет.

void update()
{
    SalesTable  salesTable;
    SalesLine   salesLine;
    ;

    Global::startLengthyOperation();
    while select forupdate salesTable
    {
        select firstonly forupdate salesLine
        where salesLine.SalesId == salesTable.SalesId   &&
              salesLine.LineNum == 1;

        if (salesLine.RecId != 0)
        {
            salesLine.SalesForecastPricingManager = MultiRepTable::getSalesForecastPricingManager(
                                                                        salesLine.ItemId,
                                                                        salesTable);
            ttsbegin;
            salesLine.doUpdate();
            salesTable.SalesForecastPricingManager = salesLine.SalesForecastPricingManager;
            salesTable.doUpdate();
            ttscommit;
        }

    }
    Global::endLengthyOperation();
}