Edit метод

[Red Stranger]

Доброго всем времени суток!

Я пишу edit-метод на форме. Во время выполнения метода вызывается ttsbegin. После того как выходим из ttsbegin, edit-метод начинает выполняться 2-й раз.В результате вся наработка работает криво.

Всем заранее спасибо.

[George Nordic]

Цитата:

Изначально опубликовано Red Stranger
Я пишу edit-метод на форме.

Сразу вопрос: а почему не на таблице?

[Red Stranger]

Цитата:

Сразу вопрос: а почему не на таблице?

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

[mazzy]

Цитата:

Изначально опубликовано Red Stranger
Во время выполнения метода вызывается ttsbegin.

edit-метод может работать в две стороны - для редактирования и для правки.
В каком разделе edit-метода вы ставите ttsbegin?
в разделе, который правит, или в разделе, который показывает.
Обратите внимание на параметр set

[Wamr]

Цитата:

Во время выполнения метода вызывается ttsbegin

Дык, может ttscommit добавить?

[Red Stranger]

Цитата:

Дык, может ttscommit добавить?

Да стоит позже ttscommit.

2mazzy

я вызываю начало транзакции(собственно как и ее завершение) в блоке, котоорый отрабатывает когда set == true.

[George Nordic]

Цитата:

Изначально опубликовано Red Stranger
Потому что нельзя добавить таблицу в ДС, т.к. начинает криво работать весь проект.

Не понял. Что, НИ ОДНУ таблицу нельзя в датасорс добавить???? Забавный у вас проект, дайте две.

edit - метод можно написать на любой таблице, ему по фигу, что вы другие таблицы им будете корячить.

С Уважением,
Георгий

[Red Stranger]

Все разобрался я с двойным вызовом метода.

Теперь встала другая проблема.
Метод отрабатвает на форме(PurchTable) и после его завершения становиться невозможным переход по строкам закупки.

PHP код:

edit FreeText GetFactorySerial(boolean set, FreeText Txt = FactorySerial.text() )
{
    InventSerial    inventSerial;

    Dialog dialog = new Dialog("×òî íåîáõîäèìî ñäåëàòü");
    FreeText        ret = "";
    ;
    if (set)
    {
        dialog.addText("Ñîçäàòü âíóòðåííèé íîìåð?");
        if( dialog.run() )
        {
            select firstfast inventSerial
                where inventSerial.FactorySerial == Txt;
            if( inventSerial.RecId != 0 )
            {
               setprefix(funcname());
                throw error(strfmt("Çàâîäñêîé íîìåð %1 óæå åñòü â ñèñòåìå",Txt));
            }


            ret = Txt;
             if( PurchLine.RecId != 0 )
            {
                 ttsbegin;

                select forupdate firstonly inventDim
                    where inventDim.inventDimId == purchLine.InventDimId;
                 select firstonly inventSerial
                    where (inventSerial.InventSerialId == inventDim.inventSerialId)&&(inventSerial.ItemId == PurchLine.ItemId);

                if (InventSerial)
                {
                     select forupdate firstonly inventSerial
                        where (inventSerial.InventSerialId == inventDim.inventSerialId)&&(inventSerial.ItemId == PurchLine.ItemId);

                    inventSerial.InventSerialId =  inventSerial.InventSerialNum(PurchLine.ItemId);
                    inventSerial.FactorySerial  =  Txt;
                    inventDim.inventSerialId    =  inventSerial.InventSerialId;

                    inventDim.update();
                    inventSerial.update();
                }
                else
                {
                    inventSerial.InventSerialId =  inventSerial.InventSerialNum(PurchLine.ItemId);
                    inventSerial.FactorySerial  =  Txt;
                    inventSerial.ItemId         =  PurchLine.ItemId;

                    inventDim.inventSerialId    =  inventSerial.InventSerialId;

                    inventSerial.insert();
                    inventDim.update();
                }

                ttscommit;
            }
            else
            {
                ttsbegin;

                select forupdate firstonly inventDim
                    where inventDim.inventDimId == purchLine.InventDimId;

                inventSerial.ItemId         = PurchLine.ItemId;
                inventSerial.InventSerialId = inventSerial.InventSerialNum(PurchLine.ItemId);
                inventSerial.FactorySerial  =  Txt;

                inventDim.inventSerialId    = inventSerial.InventSerialId;

                inventSerial.insert();
                inventDim.update();

                ttscommit;
            }

        }
        else
        {
            ret = "";
        }

        return ret;
    }
    else
    {
        select firstonly inventSerial
            where (inventSerial.InventSerialId == inventDim.inventSerialId)&&(inventSerial.ItemId == PurchLine.ItemId);

        return inventSerial.FactorySerial;
    }

} 


[George Nordic]

Мда... брр-р-р.
Ничего удивительного.
Лихо вы InventDim корячите.
Там проблема. Ищите или связанный номер и меняйте его, или создавайте новую аналитику.

Честно говоря, немного странновато.. Мне кажется, что
1) Есть способ проще
2) Часть логики, особенно по изменения сер. номера, я бы вынес на таблицу.
3) Какой-то перегруженный метод. Не есть хорошо.
Надо что-то типа:

PHP код:

edit FreeText GetFactorySerial(boolean set, FreeText Txt = FactorySerial.text() )
{
    Dialog          dialog = new Dialog("dfgdfgdfg");
    Description ret = "";
    ;
    if (set)
    {
        dialog.addText("trgrdtdrthdfh");

        if( dialog.run() )
        {
            InventDim::changeSerial();
        }
        else
        {
            throw error("отменено юзером");
        }
    }
    else
    {
        select firstonly inventSerial
            where inventSerial.InventSerialId == inventDim.inventSerialId
                  && inventSerial.ItemId == PurchLine.ItemId;

        return inventSerial.FactorySerial;
    }
} 


[Red Stranger]

Всем спасибо за помощь, особенно George Nordic, но проблема решилась без переписывания. После манипуляций с курсорами надо было просто добавить.

PHP код:

        PurchTable_ds.reReadLines(); 


И все.