template runbaseBatch
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
{
}
}
}
情感真挚自然,字里行间传递出强烈的感染力。
文章紧扣主题,观点鲜明,展现出深刻的思考维度。
喜剧效果背后暗含深刻社会观察。
思想的火花在字句间迸发,照亮认知盲区。
每个标点都承载着思考的重量。