项目随笔

1.       Form设置焦点。

在Form数据源下有一个StartPosition属性可以设置当Form打开时焦点落在第一行或最后一行First,last.

AllowCheck,AllowEdit,AllowCreate,AllowDelete可以分别设置在控件，数据源，表上，一般用代码控制控件上的可编辑性，如果打开Form时就不让编辑可以设置在数据源上，如果是保存后不让编辑可以设置在表上。

InsertAtEnd,设置是否在光标移动到空白行时自动创建新的一行。

InsertIfEmpty,设置是否在表没数据时显示空白或空行。

2.       Form排序设置。

在数据源的Init方法中(excutequery()中super()之前)添加如下代码：

 

 

QueryBuildDataSource queryBuildDataSource; super(); queryBuildDataSource = this.query().dataSourceTable(tableNum(TestFormQuery)); queryBuildDataSource.orderMode(OrderMode::OrderBy); queryBuildDataSource.addSortField(fieldNum(TestFormQuery,Name),SortOrder::Descending);

TestFormQuery：当前数据源表名;

OrderMode：排序模式；orderby，groupby;

SortOrder：升序，降序；ASC,DESC;

也可以在此处修改这个query。

3.       临时表用法。

构造好临时表数据后用：临时表数据源名.settmpdata(tmpTable);可以把数据传入临时表。

如果要在其他地方用临时表数据必须先声明另一个临时表，在用settmpdata()把数据传入，在进行操作不要直接使用临时表数据源名。普通表也一样。

4.       当前数据源下数据取法。

如果要使用当前数据源上数据我们可以用以下方法来获取。

InventTransferParmLine checkInventTransferParmLine; ; for(checkInventTransferParmLine = InventTransferParmLine_ds.getFirst() ? InventTransferParmLine_ds.getFirst() :InventTransferParmLine; checkInventTransferParmLine ;checkInventTransferParmLine = InventTransferParmLine_ds.getNext()) { if(!this.checkLoadQty(checkInventTransferParmLine)) { info("@LDS85"); return; } } //也可以用此方法获取被选择数据源的数据。 InventTransferParmLine checkInventTransferParmLine; ; for(checkInventTransferParmLine = InventTransferParmLine_ds.getFirst(true) ? InventTransferParmLine_ds.getFirst(true) :InventTransferParmLine; checkInventTransferParmLine ;checkInventTransferParmLine = InventTransferParmLine_ds.getNext()) { if(!this.checkLoadQty(checkInventTransferParmLine)) { info("@LDS85"); return; } }

5.       自动过账方法。

参考Salesfromletter中的update.

6.       跨公司查询方法

AX中有两个方法changeCompany()方法和crossCompany()是用来跨公司查询数据的。

changecompany('dat') { while select testFormQuery1 { info(testFormQuery1.Name); } } //查询dat公司的数据 while select crosscompany testFormQuery { info(testFormQuery.Name); } //查询所有公司的数据 也可以指定具体公司来查询 static void TestChangeCompany(Args _args) { TestFormQuery testFormQuery; Container c = ['huam','dat'] ; while select crosscompany: c testFormQuery { info(testFormQuery.Name); } } //查询huam和dat公司的所有数据，在使用changecompany之前最好清空下表 如testFormQuery = null;