static void CreateMethodOnRunTime(Args _args){ #AOT ; //路径故意复杂一些,主要是让你体会怎么调用不同的控件。 infolog.findNode(#FormsPath + "//fm_ModifySourceCodeOnrunTime//Designs//Design//[Group:Group]//"+ "[Tab:Tab]//[TabPage:TabPage1]//StringEdit:StringEdit//Methods").AOTadd("LookUP"); infolo Read More
posted @ 2009-04-26 12:21 Fandy Xie Views(149) Comments(0) Diggs(0) Edit
//有几个Ax开头的class值得我们研究一下,下面就是调用AxSalesTable和AxSalesLine来创建销售单的例子。static void main(Args args){ AxSalesTable axSalesTable; AxSalesLine axSalesLine; ; // 建立销售单头 axSalesTable = new AxSalesTable(); axSalesTable.purchOrderFormNum('CUSTPONUM'); axSalesTable.custAccount('4000'); axSalesTable. Read More
posted @ 2009-04-26 12:21 Fandy Xie Views(232) Comments(0) Diggs(0) Edit
static void CreateFieldMethod(Args _args) { TreeNode tn1,tnAddr, methodsNode; MemberFunction memberFunction; str source; ; tn1 = infolog.findNode("//Forms//Address//Data Sources//Address//Fields//AddrRecId"); tnAddr = infolog.findNode( "//Forms//Address" ); methodsNode = tn1.AOTf Read More
posted @ 2009-04-26 12:20 Fandy Xie Views(167) Comments(0) Diggs(0) Edit
static void CreateFieldMethod(Args _args){ #AOT ; infolog.findNode("forms").AOTadd('fm_DynamicForm'); infolog.findNode("forms//fm_DynamicForm").AOTsave(); infolog.findNode("forms//fm_DynamicForm//Designs//Design").AOTadd('[StringEdit:se]'); infolog.findN Read More
posted @ 2009-04-26 12:20 Fandy Xie Views(117) Comments(0) Diggs(0) Edit
static void loopFieldsInTable(Args _args){ dictTable dt; int numberOfFields; int fieldId; int i; ; dt = new dictTable(tableNum(CustTable)); //name of table info(dt.name()); numberOfFields = dt.fieldCnt(); info(int2str(numberOfFields)); for (i = 1; i <= numberOfFields; i++) { fieldId = dt.f... Read More
posted @ 2009-04-26 12:19 Fandy Xie Views(225) Comments(0) Diggs(0) Edit
static void AddExtendedDataTtyp(Args _args){ UtilIdElements uie; XInfo XInfo = new XInfo(); TreeNode TNode; TreeNode DNode; str Extname='MyExt'; str Props = "PROPERTIES/n" + " Name #AXUStr35/n" + " Label #/n" + " HelpText #/n" + " FormHelp #/n&quo Read More
posted @ 2009-04-26 12:18 Fandy Xie Views(168) Comments(0) Diggs(0) Edit
Args ArgList = new Args(reportStr(My_Report));ReportRun My_Report = new ReportRun (ArgList);;My_Report.design().caption('My Report');My_Report.query().interactive(false);My_Report.query().dataSourceNo(1).range(1).value('AA');//对报表里的数据源传递参数。若无,则可以不要。My_Report.run(); Read More
posted @ 2009-04-26 12:16 Fandy Xie Views(184) Comments(0) Diggs(0) Edit
int ret,j,i;DictTable dictTable;DictField DictField;str curFieldName;;dictTable = new DictTable(tableNum(yourTableName));i=dictTable.fieldCnt()-11;//这里系统会包括表的其他11个父类字段,所以减去11for (j=1;j<=i;j++){ DictField=new DictField(dictTable.id(),dictTable.fieldCnt2Id(j)); curFieldName=DictField.name(); if(cur Read More
posted @ 2009-04-26 12:16 Fandy Xie Views(93) Comments(0) Diggs(0) Edit
static void ChangeTableProperties(Args _args){ xInfo xInfo = new xInfo(); treeNode node = xInfo.rootNode().AOTfindChild("Data Dictionary"); treeNode childNode; treenodeIterator nodeIterator; str properties; str tables; str newLable = "Change label"; ; node = node.AOTfindChild(&qu Read More
posted @ 2009-04-26 12:15 Fandy Xie Views(230) Comments(0) Diggs(0) Edit
怎样用winapi查找文件本文传自:http://spaces.msn.com/AxGeek/ 本例中使用到很多Axapta高级技巧,比如函数的嵌套等,值得大家揣摩。例子中使用到的三个函数解释:fileExists(_name) 若存在文件,则返回 true folderExists(_name) 若存在文件夹或文件,则返回true。 pathExists(_name) 若存在文件夹,则返回true; static void FindFile(Args _args){ #File FileName fullFileName(FileName _path, FileName _fileName) Read More
posted @ 2009-04-26 12:14 Fandy Xie Views(234) Comments(0) Diggs(0) Edit