Коллеги, что вы думаете о данном коде?

[MikeR]

Этот табличный метод

static void updateParent(InventoryGuidInvoice inventoryGuidInvoice)
{
    InventoryGuid           current, parent;
    InventoryGuidInvoice    parentDistr;
    InvGuid                 InvGuid;
    ;

    InvGuid = inventoryGuidInvoice.InvGUID;

    ttsbegin;
    WHILE(TRUE)
    {
        SELECT FIRSTONLY current WHERE current.InvGuid == InvGUID;
        InvGUID = current.ParentInvGUID;

        SELECT FIRSTONLY parent WHERE current.ParentInvGUID == parent.InvGUID;

        if(parent)
        {
            //parentDistr.disableCache();
            SELECT FIRSTONLY
            FORUPDATE parentDistr
            WHERE parentDistr.InvGUID == InvGUID &&
                parentDistr.TransRecId == inventoryGuidInvoice.TransRecId
                //...........
                && parentDistr.JuridicalPersonId == inventoryGuidInvoice.JuridicalPersonId;

            if(parentDistr)
            {
                parentDistr.AMOUNTCUR += inventoryGuidInvoice.AmountCur;//слияние к предку
                //.......
                parentDistr.Update();
            }
            else
            {
                parentDistr.data(InventoryGuidInvoice);
                parentDistr.InvGUID = parent.InvGUID;
                parentDistr.insert();
            }
        }
        else
        {
            break;
        }

        current.clear();
    }
    ttscommit;
}

[ice]

а что вас в нем смущает? код пробегает по цепочке "вверх" и что то апдейтит или создает. Оформление конечно страдает

[MikeR]

Вы тоже так пишите?
Я хочу услышать мнения коллег, насколько так вообще корректно писать.
Или может у меня одного глаз замылился.

[ZVV]

Цитата:

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

Вы тоже так пишите?
Я хочу услышать мнения коллег, насколько так вообще корректно писать.
Или может у меня одного глаз замылился.

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

OFFTOP: не знал, что PL\SQL Formatter можно к Х++ прикрутить...

[samolalex]

Если не касаться оформления, а именно верхних регистров SQL-операторов (лично для меня это непривычно), то while(true) в сочетании с break'ом - это очень "плохой тон", мягко говоря, в программировании в целом (не говоря уже о табличном методе в Ax), о чем, кстати, упоминал в своей книге "Совершенный код" Стив Макконнелл.
ИМХО, следует все же изучить связи таблиц и перестроить данный запрос на while select в сочетании с join'ом, пусть даже с внутренним select'ом.
Даже вложенный while не так бьет по глазам, как while(true), хотя это тоже не есть хорошо.

[MikeR]

Коллеги, вы не поверите, но суть в том, что цикл вообще не нужен.

WHILE(TRUE)

это стоит для того, что бы просто "запустить" выполнение.
Я подумал, что это очевидно.....

[gl00mie]

Слов нет, одни эмоции Вспомнились комментарии в ководстве к одному "шедевру":

Цитата:

Буааууеееееееееее! Ааааа! Глаза кровоточат!

Честно минут 15 тупил, пытаясь понять глубокий смысл этого кода и заодно - такой схемы данных. Что тут еще скажешь... "Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете" (с) Стив Макконнелл

[samolalex]

Цитата:

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

Коллеги, вы не поверите, но суть в том, что цикл вообще не нужен.

WHILE(TRUE)

это стоит для того, что бы просто "запустить" выполнение.
Я подумал, что это очевидно.....

Кстати, да. О чем и говорит firstonly. А теперь и мне стало интересно, зачем так было сделано - "запускать выполнение" таким образом?

[ZVV]

Цитата:

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

Коллеги, вы не поверите, но суть в том, что цикл вообще не нужен.

WHILE(TRUE)

это стоит для того, что бы просто "запустить" выполнение.
Я подумал, что это очевидно.....

Так ли?
Он нужен для того что бы запускать и следующие итерации тоже, а не только первую.
Цикл будет выполнятся, кока не закончится дерево (не будет парента) и сработает брэйк.
Ну собственно такая эмуляция рекурсии...

[oip]

Цитата:

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

Коллеги, вы не поверите, но суть в том, что цикл вообще не нужен.

WHILE(TRUE)

это стоит для того, что бы просто "запустить" выполнение.
Я подумал, что это очевидно.....

Почему? По-моему, это такой обход дерева. И без "while true" работать не будет. При каждой итерации меняется InvGUID и цикл прервется только тогда, когда не найдется parent. И "while true" при таком написании кода очень даже нужен. Понятно, что код можно переписать иначе.

[MikeR]

Собственно да, человек запускает перебор (чтобы более корректно было), но в других местах это вообще не требуется.
Используется конструкция

while select forupdate ... {}

что само по себе плохо, так как более корректно

while select
{
	ttsbegin;
	select forupdate 
	ttscommit;
}

То есть делаем маленькие транзакции.

[MikeR]

Кстати, а действительно кто-нибудь пишет рекурсию через

while (true)

в Dynamics Ax?

[MikeR]

Цитата:

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

Понятно, что код можно переписать иначе.

Да дело в том, что не для всех это понятно.

[oip]

Цитата:

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

Кстати, а действительно кто-нибудь пишет рекурсию через

while (true)

в Dynamics Ax?

Да, в АОТе должно быть полно примеров. Например, в классе ReqCalc.

[samolalex]

ИМХО, рекурсию лучше организовывать через отдельно написанную функцию внутри метода.

[AndyD]

Цитата:

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

Собственно да, человек запускает перебор (чтобы более корректно было), но в других местах это вообще не требуется.
Используется конструкция

while select forupdate ... {}

что само по себе плохо, так как более корректно

while select
{
	ttsbegin;
	select forupdate 
	ttscommit;
}

То есть делаем маленькие транзакции.

Что значит более корректно?
Вы хотите поломать целостность данных?

[ZVV]

Цитата:

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

Собственно да, человек запускает перебор (чтобы более корректно было), но в других местах это вообще не требуется.
Используется конструкция

while select forupdate ... {}

что само по себе плохо, так как более корректно

while select
{
	ttsbegin;
	select forupdate 
	ttscommit;
}

То есть делаем маленькие транзакции.

Сомнительное утверждение... (по крайней мере без контекста )

[MikeR]

Цитата:

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

Да, в АОТе должно быть полно примеров. Например, в классе ReqCalc.

Олег, там используется перебор коллекции

while (mi.....more())

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

[MikeR]

Цитата:

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

Что значит более корректно?
Вы хотите поломать целостность данных?

table		t1,t2;
ttsbegin;
while select t1
{
	
	select forupdate t2 where t2.recid == t1.RecId;
	.....
	t2.update(); 
	
}
ttscommit;

[oip]

Цитата:

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

Олег, там используется перебор коллекции

while (mi.....more())

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

Ок. BOMDesignerCtrl\canMoveNode

    while (true)
    {
        if (bomTableMove.RecId == bomTableDrop.RecId)
        {
            dropParent          = tree.getParent(curParent);
            bomTableDropParent  = node2BOMTable.lookup(dropParent);
            return bomTableMoveParent.RecId != bomTableDropParent.RecId || dropParent == rootId;
        }
        else
        {
            curParent = tree.getParent(curParent);
            if (curParent == rootId)
                return true;
            bomTableDrop = node2BOMTable.lookup(curParent);
        }
    }