Запрос по данным полученным с Grid

[r2d2]

Добрый день. На форме есть Grid, в нем есть поля, "имя таблицы", "Имя поля" и "ссылка". Необходимо выбрать из указанной таблицы все записи по ссылке. Создал кнопку на форме а дальше ступор, не совсем представляю, что делать. Пробовал следующее:

void clicked()
{
    
    str  strTableName;
    tableid id;
    str s;



    LedgerTrans LedgerTrans;

    Query query;
    QueryRun qr;
    QueryBuildDataSource qbd;
    QueryBuildRange qbr;
    QueryRun    queryrun    ;
    N_FindVoucher N_FindVoucher;
    str strRecid;


    DictTable dt;
    DictField dictField;
    Dictionary            dictionary;
    tableName         tableName;
    ;

    breakpoint;




   query = new Query();
    // получим id таблицы
    id = sFindVoucher.RefTableId;
    qbd = query.addDataSource(id);


    strRecid = "Recid";

   dt = new DictTable(id);


    tableName = dictionary.tableName(Id);

    qbr = qbd.addRange(FieldNum(sFindVoucher, Recid));
    qbr.value("==" + int2str(sFindVoucher.RefRecId));
    QueryRun = new QueryRun(query);

     while(queryrun.next())
    {
         //вычисления
    }

}

однако на строке qbr = qbd.addRange(FieldNum(sFindVoucher, Recid)); ошибка,что такой таблицы не существует. Опыта разработки в axapta нет, поэтому прошу помоч, как лучше реализовать задачу?

[S.Kuskov]

Цитата:

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

на строке qbr = qbd.addRange(FieldNum(sFindVoucher, Recid)); ошибка,что такой таблицы не существует.

У вас sFindVoucher - это не имя таблицы, которую вы хотите фильтровать.Вам нужно использовать переменную id, содержащую TableId таблицы, на которую указана ссылка.

//FieldNum(sFindVoucher, Recid)
fieldname2id(sFindVoucher.RefTableId, 'Recid')

[TasmanianDevil]

Для любой таблицы код поля RecId в ней - постоянен.
Можно смело пользовать

fieldnum(Common, RecId)

[r2d2]

Всем спасибо за ответы. Еще один небольшой вопрос, данный алгоритм в цикле выполняет запрос к разным таблицам, поэтому при присчваивании результата запроса в переменную происходит ошибка :

qres = queryrun_.get(id);

Пробовал присваивать null? но не помогло. Как обойти?

[S.Kuskov]

Какого типа переменная qres?

Common qres;

[r2d2]

теперь Common, спасибо.

[r2d2]

теперь выдает синтаксическую ошибку, "Таблица не содержит это поле". Почему возникает ошибка понятно, но как обойти ее?

common qres;
...
qres = queryrun_.get(id);
...
qres.dimension8 = AccountNum;

[S.Kuskov]

Как вы определяете нужно вам поле dimension8? У него во всех таблицах будет такое имя? Для обращения к произвольному полю нужно знать его FieldId, и тогда можно будет написать так

qres.(FieldId)

Получить значение поля по TableId, FieldId, RecId

[r2d2]

Нужно именно dimension[8], имя в таблицах одно и то же. Удалось получать данное поле и заполнять переменную, однако в таблице значение не проставляется, что здесь может быть неправильно.

void clicked()
{

    str  strTableName;
    tableid id;
    str s;



    LedgerTrans LedgerTrans;
    Common              tmpTable;
    Query query;
    QueryRun qr;
    QueryBuildDataSource qbd;
    QueryBuildRange qbr;
    QueryRun    queryrun_    ;
    Common qres, myanytype;
    N_FindVoucher N_FindVoucher;
    int64 recId;
    str strRecid;
    fieldId fieldid,accnameid;
    anyType ret,accname;


    DictTable dt;
    DictField dictField;

    //N_FindVoucher sFindVoucher;

    Dictionary            dictionary;

    tableName         tableName;
    VendTable    VendTable;
    //enum    type;
    ;

    breakpoint;

    //получим вставляемые данные
    Select firstonly  VendTable
                WHERE VendTable.AccountNum == "ПСчП002642";
    if (VendTable.AccountNum)

    {
         while Select sFindVoucher
            {
               query = new Query();
                // получим id таблицы
                //id = tableName2Id(strTableName);
                //передадим id в запрос
                id = sFindVoucher.RefTableId;
                qbd = query.addDataSource(id);
                qbd.update(true);
                //strRecid = "Recid";
                recId = fieldname2id(id, 'RecId');
                qbr = qbd.addRange(recId);
                qbr.value(int642Str(sFindVoucher.RefRecId));

                QueryRun_ = new QueryRun(query);
               // QueryRun.prompt();


                 while(queryrun_.next())
                {
                    //qres = typeId2ExtendedTypeId(qres);
                    qres = queryrun_.get(id);



                        if (qres != null)
                        {
                            fieldid = fieldName2Id(id,"dimension[8]");
                            ret = qres.(fieldid);
                            accnameid = fieldName2Id(id,"accountnum");
                            accname = qres.(accnameid);
                             if (ret == "" && accname == "91.2.2.02"  || accname == "91.2.2.01")
                             {
                                  if (qres.validateWrite())
                                    {
                                        ttsbegin;
                                        ret = VendTable.AccountNum;
                                        qres.update();
                                        ttscommit;
                                    }
                            }
                        }

                }
            }
        }
}

[S.Kuskov]

// ret = VendTable.AccountNum;
qres.(fieldid) = VendTable.AccountNum;

И ещё посмотрите тему Common.update()

[r2d2]

Все работает, однако при попытке установки значения в один из журналов выдает следующее сообщение: "Журнал был разнесен и, следовательно, не является открытым." Судя по тексту журанл заблокирован для редактирования, однако вручную можно установить значение любого поля. Существует ли возможность программно обойти данную ситуацию?

[TasmanianDevil]

Сколько вешать граммов ?! ©

Обойти - это что значит ?
Пролетать такие журналы без обработки или выполнять действие, но чтоб ошибок не выдавало ?

P.S. Курсы по разработке посещались какие ?

[r2d2]

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

[TasmanianDevil]

Нет опасений накосорезить неслабо ?
Какой смысл менять счет в разнесенном журнале при наличии соотв. модульных проводок по этому счету ?
Какая вообще задача стоит ?

[r2d2]

Задача заключается в заполнении аналитики в проводках. В свое время забыли ввести контрагента, теперь необходимо заполнить. накосорезить не страшно ибо все на тестовой базе выполняется.

[TasmanianDevil]

Дерзайте.
doUpdate() вместо update() Вам в помощь.