[ANN] Tabax 0.1 -- панель задач для Axapta

[belugin]

\Forms\Tabax\Designs\Design\[Group:toolbar]\ButtonpenApplObjBut\Methods\clicked

Добавление обработки диалогов в стрелочке вверх

    str getCallerPath()
    {
        switch (true)
        {
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(SysSetupFormRun)):
                return #formsPath+'\\'+caller.name();
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(RunBase)):
                return #classesPath+'\\'+classId2Name(classIdGet(caller.runBase()));
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(DialogRunBase)):
                return #classesPath + '\\' + classId2Name(classIdGet(caller.runBase()));
            // ================== вот тута ==================================
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(Dialog)):
                return #classesPath + '\\' + classId2Name(classIdGet(caller.caller()));
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(ReportRun)):
                return #reportsPath + '\\' + caller.name();
            case SysdictClass::isEqualOrSuperClass(classidget(caller), classNum(QueryRun)):
                return #queriesPath + '\\' + caller.name();
            default:
                return #classesPath + '\\' + classId2Name(classIdGet(caller));
        }
    }