Показать сообщение отдельно
Старый 14.04.2008, 17:32   #250  
belugin is offline
belugin
Участник
Аватар для belugin
Сотрудники Microsoft Dynamics
Лучший по профессии 2017
Лучший по профессии 2015
Лучший по профессии 2014
Лучший по профессии 2011
Лучший по профессии 2009
 
4,622 / 2925 (107) +++++++++
Регистрация: 16.01.2004
Записей в блоге: 5
\Forms\Tabax\Designs\Design\[Group:toolbar]\ButtonpenApplObjBut\Methods\clicked

Добавление обработки диалогов в стрелочке вверх
X++:
    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));
        }
    }