AX中RunbaseReport类用来运行一个报表,它可以定义一些参数,在弹出对话框的时候设置这些参数,以列出工单为例,先看看不考虑从其他form点击纪录带入参数的时候如何实现这个报表。下图是所用到的几个对象:
菜单项TestProdReport指向类TestProdReport,下面是类TestProdReport的代码:
class TestProdReport extends RunbaseReport { NoYesId showOnlyOpen; DialogField dfShowOnlyOpen; #define.CurrentVersion(0) #localmacro.CurrentList showOnlyOpen #endmacro } static void main(Args args) { TestProdReport prodReport = new TestProdReport(); ; if (prodReport.prompt()) prodReport.run(); } public identifiername lastValueElementName() { return reportStr(TestProdReport); } public NoYes parmShowOnlyOpen(NoYes _showOnlyOpen = showOnlyOpen) { showOnlyOpen = _showOnlyOpen; return showOnlyOpen; } public Object dialog(DialogRunbase dialog, boolean forceOnClient) { DialogRunbase ret; ; ret = super(dialog, forceOnClient); dfshowOnlyOpen = ret.addFieldValue(typeid(NoYesId),showOnlyOpen,"Show only open orders"); return ret; } public boolean getFromDialog() { boolean ret; ret = super(); showOnlyOpen = dfShowOnlyOpen.value(); return ret; } public container pack() { return [#CurrentVersion, #CurrentList] + [super()]; } public boolean unpack(container packedClass) { container base; boolean ret; Integer version = RunBase::getVersion(packedClass); boolean dummy; switch (version) { case #CurrentVersion: [version, #CurrentList, base] = packedClass; ret = super(base); break; default: ret = false; } return ret; }
报表TestProdReport的代码:
public class ReportRun extends ObjectRun { TestProdReport testProdReport; } public void init() { ; testProdReport = this.args().caller(); super(); } public boolean send(Common _cursor, int _level=1, boolean _triggerOffBody=TRUE, boolean _newPageBeforeBody=FALSE) { boolean ret; ProdTable _prodTable; ; if(_cursor.TableId==tablenum(ProdTable)) { _prodTable = _cursor; if(testProdReport.parmShowOnlyOpen() && _prodTable.ProdStatus==ProdStatus::Completed) return true; } ret = super(_cursor, _level, _triggerOffBody, _newPageBeforeBody); return ret; }
这里我们是在报表的Send函数判断工单状态根据条件过滤掉已关闭的工单,这不是最好的办法,因为Query仍会查询出所有的工单纪录,在一定程度上影响性能,更好的办法是重载fetch方法,在fetch方法中获取报表的query,在query中根据条件加入对ProdStatus的过滤条件,再由Query创建QueryRun,运行QueryRun获取ProdTable纪录Send,这里就不再演示了。
现在的问题是如果把TestProdReport菜单项添加到ProdTable form中,在ProdTable form上点击这个菜单只显示当前ProdTable纪录到报表该如何来做呢?
首先在TestProdReport类定义中添加变量来纪录form中的当前纪录:
ProdTable prodTable;
添加parmXXX函数来传入这条ProdTable纪录:
public ProdTable parmProdTable(ProdTable _prodTable = prodTable) { ; prodTable = _prodTable; return prodTable; }
添加函数initFromArgs来从传入的Args初始化这条纪录:
private void initFromArgs(Args args) { ; if ( args && args.dataset()) { switch(args.dataset()) { case(tablenum(ProdTable)) : this.parmProdTable(args.record()); break; default: } this.makeReportRun(); //创建ReportRun对象 this.initQueryRun(); //初始化Report的QueryRun,必须是手工调用,正常运行报表是不会调用这个函数的,它调用后面的initQuery } }
添加initQuery函数来初始化Query,initQuery函数会被initQueryRun()调用,在这里我们根据传入的ProdTable纪录根据主键工单号ProdId来过滤:
public Query initQuery() { QueryBuildDataSource queryBuildDataSource; QueryBuildRange queryBuildRange; Query query; ; query = super(); queryBuildDataSource = query.dataSourceTable(tablenum(ProdTable)); if (!queryBuildDataSource) queryBuildDataSource = query.addDataSource(Tablenum(ProdTable)); queryBuildRange = queryBuildDataSource.findRange(fieldnum(ProdTable, ProdId)); if (!queryBuildRange) queryBuildRange = queryBuildDataSource.addRange(fieldnum(ProdTable, ProdId)); if (prodTable) queryBuildRange.value(prodTable.ProdId);//根据工单号来筛选 return query; }
最后修改main函数,调用initFromArgs来初始化就可以了:
static void main(Args args) { TestProdReport prodReport = new TestProdReport(); ; prodReport.getLast(); prodReport.initFromArgs(args); if (prodReport.prompt()) prodReport.run(); }
注意这里在调用initFromArgs函数之前调用了一次getLast(),如果不在这里调用一次getLast(),后面的prompt()会在内部调用一次getLast(),把上一次pack的query读入,显示出来的对话框中看到的是上一次的内容,也就把initFromArgs()创建的Query的给覆盖了,所以这里先调用一次getLast(),prompt()会看到这个函数已经调用过了就不再调用了,所以这行是必须的。当前纪录的工单号相应的会出现在对话框中的过滤选项内:
以上就是如何在报表中根据form的当前纪录来过滤的实现办法。这里还要说一个runbaseReport的initParmDefault()函数,它是在第一次运行报表时会被调用,一旦有pack/unpack成功之后就不会在调用,在这里可以针对报表的第一次运行做一些初始化的工作,针对我们的这个报表是不需要的。
再把我们的这个例子扩展开,如果说在ProdTable form中选中了多条纪录,要在报表上打印出这多条纪录又该怎么办呢?
我们调用传入纪录的isFormDataSource()来判断是否来自于form的DataSource,如果是则使用common.Datasource()方法获得formDataSource,再使用formDatasource.getFirst(true)、formDatasource.getNext()轮询获取选中纪录的主键,然后设置到Query的Range中就可以了。基本结构是一样的,这里就不再演示了,下面的链接可以下载这个演示的project,从AXAPTA 3.0系统导出:https://files.cnblogs.com/duanshuiliu/TestProdReport.zip