Как узнать, что форма открыта через "Перейти к форме основной таблицы"?

[mazzy]

ax2009 и другие классические аксапты.

я в методе init добавил вызов метода, который правит query И вызывает executeQuery
сама форма работает хорошо.

но кнопка "Перейти к форме основной таблицы" не позиционируется на нужную запись, а показывает все записи нового запроса.

Как узнать, что форма открыта через "Перейти к форме основной таблицы"?

[raz]

element.args().caller()?

[sukhanchik]

Цитата:

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

Как узнать, что форма открыта через "Перейти к форме основной таблицы"?

В общем случае никак. Ведь метод jumpRef перекрыть может каждый разработчик и написать там абсолютно любой код, в т.ч. вызвать форму без указания caller и прочих атрибутов.
Но если говорить про ядро, то есть же методы args,caller(), args.record(), args.lookupField(), args.lookupValue() - которые содержат осмысленные значения. Еще появился метод args.lookupRecord().
Соответственно, можно проанализировать эти методы на наличие заполненных значений и на основе этого сделать вывод о том, что форма была вызвана ядром через "Переход к основной таблице".

[Logger]

Можно еще посмотреть стек вызовов вызовом xSession::xppCallStack()
При обычном открытии там что-то типа

(C)\Forms\MyForm\Methods\init
(C)\Classes\SysSetupFormRun\init

А если переход к основной таблице, то что-то типа такого

(C)\Forms\MyForm\Methods\init
(C)\Classes\SysSetupFormRun\init
(C)\Classes\FormDataObject\jumpRef
(C)\Classes\FormStringControl\jumpRef
(C)\Classes\FormRun\Task
(C)\Classes\SysSetupFormRun\Task
(C)\Classes\FormStringControl\Context

[mazzy]

Цитата:

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

element.args().caller()?

а разве caller заполняется только для jumpRef?
хотя мысль хорошая, а не сломались ли и остальные случаи с заполненным caller. И что это за случаи.

Спасибо. Продуктивная мысль.

Цитата:

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

Можно еще посмотреть стек вызовов вызовом xSession::xppCallStack()
При обычном открытии там что-то типа

(C)\Forms\MyForm\Methods\init
(C)\Classes\SysSetupFormRun\init

А если переход к основной таблице, то что-то типа такого

(C)\Forms\MyForm\Methods\init
(C)\Classes\SysSetupFormRun\init
(C)\Classes\FormDataObject\jumpRef
(C)\Classes\FormStringControl\jumpRef
(C)\Classes\FormRun\Task
(C)\Classes\SysSetupFormRun\Task
(C)\Classes\FormStringControl\Context

угу. я думал об этом. но такой способ мне категорически не нравится - SysSetupFormRun может быть правлен. Диггером, например. или TaskRecorder'ом. Или еще чем аналогичным

[Logger]

Цитата:

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

угу. я думал об этом. но такой способ мне категорически не нравится - SysSetupFormRun может быть правлен. Диггером, например. или TaskRecorder'ом. Или еще чем аналогичным

Мне он тоже не очень нравится, но если ничего лучше не придумают, то думаю что можно. Опять же можно закладываться не на весь стек вызовов, а, например, поискать в глубину на 2-4 метода, есть ли в стеке метод с именем JumpRef и все. Тогда наследник SysSetupFormRun не повлияет.

[mazzy]

Цитата:

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

Как узнать, что форма открыта через "Перейти к форме основной таблицы"?

может быть, тогда стоит переформулировать вопрос:

я должен модифицировать запрос на форме - включить/выключить childDatasource с existJoin, изменить Range в зависимости от переключателя на форме, который переключает пользователь (вот хотят они. причем обосновано)

как лучше это сделать так, чтобы не сломать остальную функциональность аксапты?

[sukhanchik]

Цитата:

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

как лучше это сделать так, чтобы не сломать остальную функциональность аксапты?

Поделюсь опытом, как это делал я.
Вариант 1. Стандартная форма, нестандартный вызов. Например, вызываем форму InventTrans из своей формы, в которой есть строки с номенклатурами. В этом случае в своей форме в методе jumRef пишем что-то типа

    Args                 args;
    Query                query;
    QueryBuildDataSource qbds;
    ;
    query = new Query();
    qbds = query.addDataSource(tableNum(InventTransOrigin));
    qbds.addRange(fieldNum(InventTransOrigin, InventTransId)).value(queryValue(_inventTransId));
    args = new Args();
    args.initialQuery(InitialQueryParameter::createByQuery(query));
    MenuFunction::runClient(menuitemDisplayStr(InventTrans), MenuItemType::Display, true, args);

Класс InitialQueryParameter появился в АХ с тех пор, как появилось Избранное и стало возможно в избранном менять запрос. Т.е. с 4.0

Для некоторых случаев есть уже готовые методы типа

InventJournalFormTable::jumpRefReferenceId(inventJournalTable.JournalId);

Еще есть вариант (если нужно чего-то сделать с датасорсами) - написать код по аналогии с формой SysTableBrowser, там достучаться до датасорса и уже с ним чего-то делать

Вариант 2. Стандартная / малоизмененная форма, свой вызов. Добавили новое поле в форму CustTable и хотим по нему сделать свой переход. Тогда есть 2 решения - либо как в Варианте 1, либо на init формы / датасорса уже открываемой формы анализировать методы класса Args: caller / lookupField / record / lookupValue, которые уж несложно заполнить из jumpRef-а вызываемой формы

[DSPIC]

public void init()
{
    super();
    
    info(strFmt("%1 %2 %3", element.args().lookupTable(), element.args().lookupField(),  element.args().lookupValue()));
}

Если в этих методах что-то валяется, то очень вероятно это был JumpRef.

[mazzy]

element.args().caller() - хорошая мысль. но очень грубо
element.args().lookup*() - прекрасно. спасибо.

но я пошел уже другим путем и отрефакторил.
принцип по которому я пошел:

1. я не добавляю свой датасорса в форму. что делает модификацию сильно легче - один edit-метод на форме + 1 контрол на форме
2. я использую тот факт, что после super() в инициализации есть только Query, а QueryRun == null
3. я работаю только с queryrun().query(), использую research(). И никогда сам не вызываю executeQuery(), который пересоздает queryRun из АОТ
4. в частности, я добавляю свой датасорс только после того, как пользователь выбрал какой-то пункт в переключателе
5. я отрефакторил код и трактую отсутствие моего датасорса как вполне валидное состояние "Все записи"

получился вот такой код:

protected static MdmViewMode get(FormDataSource fdsMain, TableId shadowTableId)
{
    MdmViewMode             ret;

    EnumId                  enumId      = enumnum(MdmType);
    QueryRun                qr          = fdsMain ? fdsMain.queryRun() : null;
    QueryBuildDataSource    qbds        = qr      ? qr.query().dataSourceTable(shadowTableId, 1) : null;
    SysDictField            field       = qbds    ? SysDictTable::fieldWithEnum(qbds.table(), enumId) : null;
    QueryBuildRange         qbr         = field   ? qbds.findRange(field.id()) : null;
    str                     rangeValue  = qbr     ? qbr.value() : '';
    ;

    if( !qbds || !qbds.enabled() )
    {
        ret = MdmViewMode::All;
    }
    else if( qbds && qbds.joinMode() == JoinMode::NoExistsJoin && rangeValue == SysQuery::value(MdmEnumViewMode::completed()) )
    {
        ret = MdmViewMode::InProcess;
    }
    else if( qbds && qbds.joinMode() == JoinMode::NoExistsJoin && rangeValue == SysQuery::value(MdmType::StopProcessing) )
    {
        ret = MdmViewMode::Active;
    }
    else if( qbds && qbds.joinMode() == JoinMode::ExistsJoin && rangeValue == SysQuery::value(MdmType::StopProcessing) )
    {
        ret = MdmViewMode::Stopped;
    }
    else if( qbds && qbds.joinMode() == JoinMode::ExistsJoin && rangeValue == SysQuery::value(MdmType::Error) )
    {
        ret = MdmViewMode::Error;
    }
    else
    {
        ret = MdmViewMode::UserDefined;
    }

    return ret;
}

// предполагаем, что в запросе только один range по полю mdmType
protected static boolean set(
    FormDataSource  fdsMain,
    TableId         shadowTableId,
    MdmViewMode     viewMode)
{
    EnumId                  enumId      = enumnum(MdmType);
    QueryRun                qr          = fdsMain ? fdsMain.queryRun() : null;
    QueryBuildDataSource    qbds        = qr      ? SysQuery::findOrCreateDataSource(qr.query(), shadowTableId, fdsMain.table()) : null;
    SysDictField            field       = qbds    ? SysDictTable::fieldWithEnum(qbds.table(), enumId) : null;
    str                     rangeValue;
    ;

    if( qbds && field )
    {
        startLengthyOperation();

        switch( viewMode )
        {
            case MdmViewMode::UserDefined:
                qbds.enabled(true);
                qbds.relations(true);
                qbds.joinMode(JoinMode::InnerJoin);
                rangeValue = SysQuery::valueUnlimited();
                break;

            case MdmViewMode::All:
                qbds.enabled(false);
                qbds.relations(true);
                qbds.joinMode(JoinMode::ExistsJoin);
                rangeValue = SysQuery::valueUnlimited();
                break;

            case MdmViewMode::InProcess:
                qbds.enabled(true);
                qbds.relations(true);
                qbds.joinMode(JoinMode::NoExistsJoin);
                rangeValue = SysQuery::value(MdmEnumViewMode::completed());
                break;

            case MdmViewMode::Active:
                qbds.enabled(true);
                qbds.relations(true);
                qbds.joinMode(JoinMode::NoExistsJoin);
                rangeValue = SysQuery::value(MdmType::StopProcessing);
                break;

            case MdmViewMode::Stopped:
                qbds.enabled(true);
                qbds.relations(true);
                qbds.joinMode(JoinMode::ExistsJoin);
                rangeValue = SysQuery::value(MdmType::StopProcessing);
                break;

            case MdmViewMode::Error:
                qbds.enabled(true);
                qbds.relations(true);
                qbds.joinMode(JoinMode::ExistsJoin);
                rangeValue = SysQuery::value(MdmType::Error);
                break;

            default:
                throw error(Error::unsupportedEnum(funcname(), viewMode));
        }

        qbds.fetchMode(QueryFetchMode::One2One);
        qbds.firstOnly(true);

        SysQuery::findOrCreateRange(qbds, field.id()).value(rangeValue);

        fdsMain.research();

        endLengthyOperation();
        return true;
    }

    return false;
}

таким образом я совсем не вмешиваюсь в работу формы до тех пор, пока пользователь не жамкнет переключатель. после того, как жамкнет, в queryrun формы будет добавлен датасорс.

до жамка:


после жамка:


спасибо за советы и помощь.

[Raven Melancholic]

А смена типа соединения отрабатывает? Вроде бы раньше не работало.
Имею ввиду вот это:

qbds.joinMode(JoinMode::InnerJoin);

Понятно, что при первом использовании

SysQuery::findOrCreateDataSource(...)

то есть, когда сработает часть Create, то установка типа соединения будет работать.
А вот последующие вызовы, когда ужа работает часть Find насколько помню, не работали - на существующем датасорсе не удавалось сменить тип связи.

[mazzy]

Цитата:

Сообщение от Raven Melancholic

А смена типа соединения отрабатывает? Вроде бы раньше не работало.

хороший вопрос. судя по поведению - работает. ax2009, ax2012
а вот как оно там внутре... надо посмотреть.

[Logger]

Цитата:

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

а вот как оно там внутре...

а внутре у ней неонка ...

[TasmanianDevil]

Цитата:

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

никогда сам не вызываю executeQuery(), который пересоздает
queryRun из АОТ

Я таки уже и дико извиняюсь, что влезаю в дискуссию, но оно не из AOT, а из текущего экземпляра query() источника данных текущего экземпляра формы создается с учетом уже сделанных ранее на этом query() изменений - в противном случае тупо не работали бы фильтры (которые делают через query() источника данных, как например фильтры по разнесенности,неразнесенности в журнальном фреймворке)
К томе же реализация фильтров через queryRun().query() - не самый лучший вариант.
Кто мешает пользователю в такой форме поиграться с запросом и вызвать стандартными средствами executeQuery(), похоронив все созданное непосильным трудом в queryRun().query() ?

[mazzy]

Цитата:

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

Я таки уже и дико извиняюсь, что влезаю в дискуссию, но оно не из AOT, а из текущего экземпляра query() источника данных

угу. я там вообще коряво сформулировал. но править уже нет желаения.

Цитата:

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

К томе же реализация фильтров через queryRun().query() - не самый лучший вариант.
Кто мешает пользователю в такой форме поиграться с запросом и вызвать стандартными средствами executeQuery(), похоронив все созданное непосильным трудом в queryRun().query() ?

Именно! никто не мешает пользователю поиграться. В том числе и я не мешаю.

если пользователь "сломает" мои фильтры,
то метод get вернет MdmViewMode::UserDefined
для моего кода это вполне штатная ситуация.

Именно с queryRun!
Это самый лучший вариант.

[mazzy]

Цитата:

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

Как узнать, что форма открыта через "Перейти к форме основной таблицы"?

args.refField()