Не берется значение контрола

[Sada]

Доброго времени суток, уважаемые Дамы и Господа!
Вот какая ситуация...
У формы есть датасоурс. На форме создал свой контрол(перечислимый тип) и edit методом из InventParameters вставляю значение в этот контрол при открытии формы. Затем, после нажатия кнопки ОК в CloseOK вставляю значение контрола в датасоурс. При открытии формы мой контрол показывает то, что надо. Но при нажатии ОК дебугер показывает что мой контрол имеет значенеие "". Соответственно ничего в датасоурс не вставляется. Если же просто поставить (ручками) курсор на контрол или поставить другое значение(выбрать тоже), то все отрабатывает нормально. Поскажите как быть и в чём проблема. Setfocus() и Gotfocus() в ините формы не срабатывают (но если и заставить так насильно вставлять курсор в мой контрол, то это крайний случай, ибо сее не желательно)...

Заранее всем благодарен.

С уважением - Sada...

[Andrew Besedin]

Привет!

Значение из ComboBoxа можно получить через метод selection().

[Sada]

Цитата:

Сообщение от Andrew Besedin

Привет!

Значение из ComboBoxа можно получить через метод selection().

Так и получаю. Просто фишка в том, что если контрол не был активен, то значение не берется

[Andrew Besedin]

Напиши код едит-метода, плиз. Мне кажется, собака порылась там

[Sada]

PHP код:

edit CurrentShift CurrentShift (boolean _set, CurrentShift _txt)
{
    InventParameters    InventParameters;
    ;
    InventParameters = InventParameters::find();
        if(_set)
        {
            tmp_curshift = _txt;
            return _txt;        }
        else
        {
            if(!tmp_curshift)
                return InventParameters.CurrentShift;
            else
                return tmp_curshift;
        }
} 


Форма вызывается 2 раза, поэтому пришлось вот так вот извратиться.tmp_curshift
объявлена в ClassDeclaration. Скорее всего проблема связана с тем что не вызывается Edit метод. НО КАКИМ образом, её Богу ума не прилажу...

[George Nordic]

Вопрос: а ГДЕ этот эдит метод написан? Попробуй перенести его на датасорс.
И еще: не пробовал в ините после супера проинициализровать переменную? Все равно пусто?

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

[AndyD]

А зачем вам что-то брать из контрола?
Вызовите этот метод со значением _set=false да и все.

PS Это уже замечание к реализации метода - InventParameters у вас используется только в одной ветке из трех, а ищите вы это значение в любом случае.

[Sada]

Цитата:

Сообщение от George Nordic

Попробуй перенести его на датасорс.
И еще: не пробовал в ините после супера проинициализровать переменную? Все равно пусто?

И так и так пусто ((((((((((

[Sada]

Цитата:

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

А зачем вам что-то брать из контрола?
Вызовите этот метод со значением _set=false да и все.
.

Не понял...

[AndyD]

Ваш метод на датасоурсе? Надо вызывать так

    Object o;
    ;
    o = []; // InventTable_ds
    [] = o.CurrentShift(false, "");

Хотя, на самом деле, надо инициализировать, например, в Init формы

    InventParameters    InventParameters;
    ;
    ...
    InventParameters = InventParameters::find();
    tmp_curshift = InventParameters.CurrentShift;
    ...

Ваш edit-метод поменять на

edit CurrentShift CurrentShift (boolean _set, CurrentShift _txt)
{
    InventParameters    InventParameters;
    ;
        if(_set)
        {
            if (!_txt)
            {
                // если вам необходимо, чтобы значение было установлено всегда
                InventParameters = InventParameters::find();
                tmp_curshift = InventParameters.CurrentShift;
            }
            else
                tmp_curshift = _txt;
        }
        return tmp_curshift;
}

И при закрытии формы читать tmp_curshift

[George Nordic]

Sada! Ну, едрены пассатижи!

Лови форму: все работает.

Георгий

[Sada]

Цитата:

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

И при закрытии формы читать tmp_curshift

Удар по моему самомнению ниже пояса . Вы абсолютно правы. Как я сразу не допер. Спасибо огромное всем!!! (а AndyD - респект +1 )

С уваженеим - Sada...