Лукап, отображающий список полей определённой таблицы

[Poleax]

По аналогии с выше приведенным постом tricky, я сделал для себя выпадающий список (Lookup) для всех полей таблицы не являющимися системными:
Результат:

1. В \Data Dictionary\Base Enums\SysPickListType добавить элемент, назовем его к примеру FieldsUsersLabels (Пользовательские поля с названием)
2. В классе создадим метод \Classes\Global\pickFieldUserLabel
   

   static int pickFieldUserLabel(tableId tableId)
   {
       Object  formRun;
       Args    args;
       ;
       args = new Args(formstr(SysPick));
       args.parm(strRFix(int2str(SysPickListType::FieldsUsersLabels),2)+int2str(tableId));
       formRun = classfactory.formRunClass(args);
       formRun.init();
       formRun.run();
       formRun.wait();
       if (formRun.selection())
           return formRun.selection();
       return 0;
   }

3. В класс создадим метод \Classes\sysPickList\fillFieldsUserLabesMap:
   

   public static client container fillFieldsUserLabesMap(str _argsParm)
   {
       TmpSysTableField    tmpSysTableField;
       DictTable           dictTable       = new DictTable(str2int(_argsParm));
       Map                 map             = new Map(Types::Integer, Types::String);
       
       //Variables
       DictField               dictField;
       SysDimension            dim;
       str                     num = '';
       
       ;
       if (dictTable &&
           dictTable.rights() > AccessType::NoAccess)
       {
           tmpSysTableField = TmpSysTableField::findTableFields(tmpSysTableField, dictTable.id());
   
           while select tmpSysTableField
           {
               dictField  = new dictField(dictTable.id(), tmpSysTableField.ExtendedFieldId);
               
               if(!dictField.isSystem())
               {
                   if(tmpSysTableField.FieldName LIKE "*Dimension*")
                       num = "[" + int2str(enum2int(str2Enum(dim, tmpSysTableField.FieldLabel)) + 1) + "]";
                   else
                       num = "";
                       
                   map.insert(tmpSysTableField.ExtendedFieldId, tmpSysTableField.FieldName + num + " (" + tmpSysTableField.FieldLabel + ")" );
               }
           }
       }
       return map.pack();
   }

4. В методе init этого же класса добавить примерно такие строки (в блоке switch(sysPickListType)):
   

           case SysPickListType::FieldsUsersLabels :
               imageRes    = #imageField;
               caption     = "Пользовательские поля с названием";
               designWidth = #designLargeWidth;
               if (!map)
               {
                   map = Map::create(sysPickList::fillFieldsUserLabesMap(parmTxt));
               }
               break;

5. Вызываем метод:
   

   Global::pickFieldUserLabel(tableNum(CustTable));

Для примера можно выбрать форму для изучения \Forms\PBATreeTable.

Пример Lookup метода:

void lookup()
{
    fieldId id;
//AnyUserTable  - таблица куда сохраняем поле
    ;

    id = pickFieldUserLabel(tableNum(CustTable));

    if (! id)
        return;

    AnyUserTable.FieldName = fieldid2name(tableNum(CustTable),id);

    AnyUserTable_ds.refresh();
}

P.S. Спасибо tricky , за хороший пост.

[lev]

ну и в дагонку методам pick (может кому пригодится )..
в своё время нужны были методы, которые вываливают список EDT, Forms и MainMenu.
т.к. в стандарте таковых не нашел добавил следующие методы в класс Global:

Ax3.0 sp3

1. список EDT:

static int pickExtDataTypes()
{
    Object      formRun;
    container   names;
    int         i;
    Dictionary  dict = new Dictionary();
    DictType    dictType;
    #ResAppl
    ;

    formRun = classFactory.createPicklist();
    formRun.init();

    for (i=1; i <= dict.typeCnt(); i++)
    {
        dictType = new DictType(dict.typeCnt2Id(i));

        names   += dictType.name();
    }

    formRun.choices(names, #ImageEDT);
    formRun.caption("EDT");
    formRun.run();
    formRun.wait();

    if (formRun.choice())
    {
        return dict.typeName2Id(formRun.choice());
    }

    return 0;
}

2. Список форм.

static FormName pickForms()
{
    Object      formRun;
    container   names;
    TreeNode    treeNode;
    TreeNode    treeNodeChild;
    #ResAppl
    #AOT
    ;

    treeNode        = TreeNode::findNode(#FormsPath);
    treeNodeChild   = treeNode.AOTfirstChild();

    formRun = classFactory.createPicklist();
    formRun.init();

    while (treeNodeChild)
    {
        names   += treeNodeChild.treeNodeName();

        treeNodeChild = treeNodeChild.AOTnextSibling();
    }

    formRun.choices(names, #ImageForm);
    formRun.caption("Forms");
    formRun.run();
    formRun.wait();

    if (formRun.choice())
    {
        return formRun.choice();
    }

    return '';
}

3. Список пунктов главного меню

static MenuName pickMenusMain()
{
    Object      formRun;
    container   names;
    TreeNode    treeNode;
    TreeNode    treeNodeChild;
    SysDictMenu dictMenu;
    #ResAppl
    #AOT
    #Admin
    ;

    treeNode        = TreeNode::findNode(#MenusPath + '\\' + #MainMenu);
    treeNodeChild   = treeNode.AOTfirstChild();

    formRun = classFactory.createPicklist();
    formRun.init();

    while (treeNodeChild)
    {
        dictMenu    = SysDictMenu::newMenuName(#MainMenu + '\\' + treeNodeChild.treeNodeName());
        names      += dictMenu.label();

        treeNodeChild = treeNodeChild.AOTnextSibling();
    }

    formRun.choices(names, #ImageMenuMain);
    formRun.caption("MainMenu");
    formRun.run();
    formRun.wait();

    if (formRun.choice())
    {
        return formRun.choice();
    }

    return '';
}