class TestRunbase extends RunBaseBatch
{

QueryRun queryrun;

#define.CurrentVersion(1)

#localmacro.CurrentList
    transDate,
    custAccount
#endmacro

public container pack()
{
    return [#CurrentVersion, #CurrentList, queryrun.pack()];
}

public boolean unpack(container packedClass)
{
    container conQrPacked;
    Version version = RunBase::getVersion(packedClass);

    switch (version)
    {
        case #CurrentVersion:
            [version, #CurrentList, conQrPacked] = packedClass;
            if(SysQuery::isPackedOk(conQrPacked))
            {
                queryrun = new QueryRun(conQrPacked);
            }
            break;
        default:
            return false;
    }

    return true;
}

public QueryRun queryRun()
{
    if(queryrun == null)
    {
        Query query;
        QueryBuildDataSource qbds;
        QueryBuildRange qbr;

        query = new Query();
        qbds = query.addDataSource(tableNum(TrvExpTable));
        qbr = qbds.addRange(fieldNum(TrvExpTable, ApprovalStatus));
        qbr.value( SysQuery::value(TrvAppStatus::Create));
        qbr.status(RangeStatus::Locked);

        queryrun = New QueryRun(query);
        queryRun.saveUserSetup(false);
    }
    return queryrun;
}

public void initParmDefault()
{
    super();
    this.queryrun();
}

public boolean showQueryValues()
{
    return true;
}

public boolean allowSaveLast()
{
    return false;
}

public boolean canRunInNewSession()
{
    return true;
}

static TestRunbase construct()
{
    return new TestRunbase();
}

static ClassDescription description()
{
    return "Runbase";
}

static void main(Args args)
{
    TestRunbase    runbase;
    
    runbase = new TestRunbase();
    if (runbase.prompt())
    {
        runbase.runOperation();
    }
}
 public Object dialog()
{
    DialogRunbase ret;

    ret = super();
    dfLastDays = ret.addField(extendedTypeStr(Days),"");

    return ret;
}

public boolean getFromDialog()
{
    custAccount = fieldAccount.value();
    return super();
}

public void run()
{
    TrvExpTable tb;

    try
    {
        ttsbegin;
        while(queryrun.next())
        {
            tb = queryrun.get(tableNum(TrvExpTable));

        }
        ttscommit;
    }
    catch
    {
    }

}


}

标签: none

已有 5 条评论

  1. 情感真挚自然,字里行间传递出强烈的感染力。

  2. 文章紧扣主题,观点鲜明,展现出深刻的思考维度。

  3. 喜剧效果背后暗含深刻社会观察。

  4. 思想的火花在字句间迸发,照亮认知盲区。

  5. 每个标点都承载着思考的重量。

添加新评论