textChange на форме. Как изменить текст?

[dech]

Всем добрый день. На форме есть поле типа Range. Нужно из выпадающего списка выбирать значение, оно добавляется к уже существующим в этом поле. Решил улучшить, чтобы между значениями автоматически проставлялась запятая. Перекрыл методы lookup() и textChange() на элементе ppoSlitters. На диалогах RunBase все отлично работает, а вот на форме не хочет, чего-то не хватает. Не подскажите, чего я мог упустить?

public class FormRun extends ObjectRun
{
    Range                   ppoSlittersBeforeLookup;
}

public void lookup()
{
    SysTableLookup  tableLookup;
    Query           query = new Query();
    ;

    tableLookup = SysTableLookup::newParameters(tableNum(WrkCtrTable), this);
    tableLookup.addLookupfield(fieldNum(WrkCtrTable, WrkCtrId));
    tableLookup.addLookupfield(fieldNum(WrkCtrTable, WrkCtrGroupId));
    tableLookup.addLookupfield(fieldNum(WrkCtrTable, Name));

    query.addDataSource(tablenum(WrkCtrTable));

    tableLookup.parmQuery(query);
    tableLookup.performFormLookup();

    ppoSlittersBeforeLookup = this.text();
}

public void textChange()
{
    str                 text;
    int                 pos;
    ;

    if (ppoSlittersBeforeLookup)
    {
        text = this.text();
        if (text)
        {
            pos = strscan(text, ppoSlittersBeforeLookup, 1, strlen(text));
            if (pos)
            {
                text = strins(text, ',', pos + strlen(ppoSlittersBeforeLookup));
            }
            this.text(text); // <-- этот метод почему-то не отрабатывает на форме, но в диалоге все ок
            this.setSelection(strlen(text), strlen(text));
        }
        ppoSlittersBeforeLookup = '';
    }
}

[Deepoint]

Попробуйте перекрыть modified у поля и там пропишите element.redraw();

public boolean modified()
{
    boolean ret;
    ;
    ret = super();  
    element.redraw();
    return ret;
}

[dech]

К сожалению, это не то, что мне надо. Я в комментарии указал место, которое не работает. В итоге текст становится пустой строкой и при перерисовке используется уже пустая строка.

[Player1]

А если не this.text(Text), а прям контрол указать ppoSlitters.text(Text) ?

PS: и я super() не увидел в textChange()

[dech]

Цитата:

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

А если не this.text(Text), а прям контрол указать ppoSlitters.text(Text) ?

PS: и я super() не увидел в textChange()

То же самое поведение.
PS: super() здесь не нужен, и даже если его воткнуть, ничего не изменится.

[honest]

Попробуйте добавить в lookup-метод строку this.replaceOnLookup(false).

[dech]

Цитата:

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

Попробуйте добавить в lookup-метод строку this.replaceOnLookup(false).

Это учтено изначально и прописано в свойствах элемента.

[dech]

Ребята, очень срочно нужен ответ, у кого есть свободное время, поэкспериментируйте, пожалуйста! Может это баг аксапты? Версия AX 4.0.

[S.Kuskov]

У вас контрол с источником данных не связан? Может быть изменить значение не только в контроле но и в связанном поле источника данных?

[db]

сделал ваш пример на форме - один контрол на дизайне и всё. dax2009 ru8 fp19. запятые подставляются. работает в общем
контрол не связан с источником данных
что то вы недоговариваете или всё несколько сложнее

кстати текст из контрола правильнее получать через valueStr(). text() может вернуть пусто или не всё - зависит от видимости или активности контрола

проверьте связанность с ds
проверьте не прыгает ли куда нибудь фокус
напишите valueStr вместо text() там где получаете текущее значение

[dech]

Контрол связан с источником данных. Локальная переменная text принимает верные значения. А через метод valueStr() вроде бы можно только вернуть значение, но не записать... К сожалению DEV-база временно не доступна, как будет возможность - я проверю.

[user_ax]

Сделал у себя - в переменную ppoSlittersBeforeLookup ничего не добавляется, получается пустой.

[Romb]

Добрый день.
Не помню точных подробностей, но помню что метод контрола pasteText() выручал.

[Deepoint]

Получилось сделать, с небольшим допилом. Если, вдруг, кому захочется руками вводить рабочие центры.
Методы формы.

public class FormRun extends ObjectRun
{
     Range                   ppoSlittersBeforeLookup;
     boolean                 lookup;
}
public void init()
{
    super();
    lookup = false;
}

Методы контрола.

public boolean modified()
{
    boolean ret;

    ret = super();

    this.textChange();

    element.redraw();

    lookup = false;

    return ret;
}

public void textChange()
{
    str                 text;
    int                 pos;
    ;

    if (ppoSlittersBeforeLookup && lookup)
    {
        text = this.text();
        text = text + ",";

        ppoSlittersBeforeLookup = text + ppoSlittersBeforeLookup;

        this.text(ppoSlittersBeforeLookup);

        ppoSlittersBeforeLookup = '';
    }
    else
    {
        ppoSlittersBeforeLookup = this.text();
    }
}
public void lookup()
{
    SysTableLookup  tableLookup;
    Query           query = new Query();
    ;
    lookup = true;
    tableLookup = SysTableLookup::newParameters(tableNum(WrkCtrTable), this);
    tableLookup.addLookupfield(fieldNum(WrkCtrTable, WrkCtrId));
    tableLookup.addLookupfield(fieldNum(WrkCtrTable, WrkCtrGroupId));
    tableLookup.addLookupfield(fieldNum(WrkCtrTable, Name));

    query.addDataSource(tablenum(WrkCtrTable));

    tableLookup.parmQuery(query);
    tableLookup.performFormLookup();

    ppoSlittersBeforeLookup = this.text();

}