Example of Fetch Method in Axapta

This is sample code for fetch method for Ax reports. In this code you can get idea that how to add or find range on report ,How to add data source for table in report,how to user queryrun on report.

How to send data to table to show on report and how to execute section on report.
 public boolean fetch()  
 {  
 boolean ret;  
 // ret = super();  
 _Test _Test1;  
 QueryBuildDataSource qbds;  
 QueryBuildRange TestId2;  
 Query q = new Query();  
 int i;  
 str stri;  
 str rowid;  
 TestId testid1,oldtestid;  
 ;  
 q = this.query();  
 /* qbds = q.dataSourceTable(tablenum(_Question));  
 qbds.addRange(fieldnum(_Question,TestId));  
 TestId2=qbds.findRange(fieldnum(_Question,TestId));  
 queryRun = new queryRun(q);*/  
 qbds = q.dataSourceTable(tablenum(_Test));  
 qbds.addRange(fieldnum(_Test,TestId));  
 TestId2=qbds.findRange(fieldnum(_Test,TestId));  
 queryRun = new queryRun(q);  
 oldtestid="";  
 while (queryRun.next())  
 {  
 // _question = queryRun.get(tablenum(_Question));  
 _Test1 = queryRun.get(tablenum(_Test));  
 while select * from _question where _question.TestID == _Test1.TestID  
 {  
 testid1=_question.TestID;  
 // if(oldtestid!=testid1 && oldtestid!="")  
 // {  
 // element.newPage();  
 // }  
 if(_question.ControlId == 1)  
 {  
 Select * from _testresult Where _testresult.QId == _question.QId && _testresult.TestId==_question.TestID ;  
 // Answer.executeSection();  
 element.send(_question);  
 element.send(_testresult);  
 }  
 if (_question.ControlId == 10)  
 {  
 _testresult.Text = ""; //Add by on 09/09/08  
 element.send(_question);  
 while select * from _testcolumn where _testcolumn.QId == _question.QId && _testcolumn.TestId==_question.TestID  
 {  
 Column.executeSection();  
 // i=1;  
 // select from _testgridresult group by _testgridresult.row where _testgridresult.QId == _testcolumn.QId  
 // rowid='1';  
 while select * from _testgridresult where _testgridresult.QId == _testcolumn.QId && _testgridresult.TestId==_testgridresult.TestId //order by _testgridresult.Column asc  
 {  
 if (rowid != _testgridresult.Row)  
 {  
 if (rowid != "")  
 {  
 ColumnData.executeSection();  
 for (i=0; i<16; i++) { col[i] = ""; } str_srno=""; } } rowid=_testgridresult.Row; str_srno=rowid; col[str2num(_testgridresult.Column)] = _testgridresult.Text; } ColumnData.executeSection(); for (i=0; i<16; i++) { col[i] = ""; } str_srno=""; // if (select * from _testgridresult where _testgridresult.QId == _testcolumn.QId) // { // ColumnData.executeSection(); // } } } // oldtestid=testid1; } element.newPage(); } return true; // return ret; }