Skip to main content

Create Organization hierarchy Chart in axapta

These are method to create organization hierarchy chart in Axapta


 public class FormRun extends ObjectRun  
 {  
 CCFormTreeDatasource treeDatasource;  
 }  
 void InsertinTemp()  
 {  
 TmpOrganizationChart2 TmpOrganizationChart2_1;  
 _OrganizationChart2 _OrganizationChart2_1;  
 ;  
 /*hile select _OrganizationChart2_1  
 {  
 while select forupdate TmpOrganizationChart2_1 where TmpOrganizationChart2_1.WareHouseCode==_OrganizationChart2_1.WareHouseCode  
 {  
 TmpOrganizationChart2_1.delete();  
 }  
 }*/  
 Delete_from TmpOrganizationChart2_1;  
 While select _OrganizationChart2_1  
 {  
 TmpOrganizationChart2_1.WareHouseCode=_OrganizationChart2_1.WareHouseCode;  
 TmpOrganizationChart2_1.ParentWareHouseCode=_OrganizationChart2_1.ParentWareHouseCode;  
 TmpOrganizationChart2_1.Office_type=_OrganizationChart2_1.Office_type;  
 TmpOrganizationChart2_1.Name=InventLocation::find(_OrganizationChart2_1.WareHouseCode).Name;  
 TmpOrganizationChart2_1.insert();  
 }  
 }  
 public void init()  
 {  
 super();  
 // this.query().dataSourceNo(1).clearDynalinks();  
 element.InsertinTemp();  
 }  
 int task(int p1)  
 {  
 int ret;  
 ;  
 ret = super(p1);  
 if (p1 == 288) // Enter  
 element.exit();  
 Return ret;  
 }  
 public void run()  
 {  
 FormControl hostControl;  
 ;  
 super();  
 // initialize tree  
 this.InitTree();  
 // if this form was called as lookup, then expand tree at value of calling host control  
 hostControl = element.selectTarget();  
 if (hostControl)  
 this.ExpandAndSelect( hostControl.valueStr() );  
 }  
 void exit()  
 {  
 ;  
 // on exit, return data of currently selected node  
 element.closeSelect(treedatasource.selectedData());  
 }  
 int ExpandAndSelectRec(str 10 ChildId)  
 {  
 int node;  
 Irrigation_OrganizationChart2 table;  
 str IdTree;  
 ;  
 // recursively search for parent Ids to be expanded first  
 select firstonly table where table.WareHouseCode == ChildId;  
 if (table) {  
 node = this.ExpandAndSelectRec(table.ParentWareHouseCode);  
 // expand found node  
 tree.expand(node, FormTreeExpand::EXPAND);  
 // search for my node starting from parent  
 IdTree = tree.getItem(node).data();  
 while (ChildId != IdTree)  
 {  
 node = tree.getNextVisible(node);  
 IdTree = tree.getItem(node).data();  
 }  
 } else {  
 // if no parent was found, then we reached the root node  
 node = tree.getRoot();  
 }  
 // select and return found node  
 tree.select(node);  
 return node;  
 }  
 void ExpandAndSelect(str ChildId)  
 {  
 tree.lockWindowUpdate(true);  
 this.ExpandAndSelectRec(ChildId);  
 tree.lockWindowUpdate(false);  
 }  
 void InitTree()  
 {  
 treeDatasource = new CCFormTreeDatasource(TmpOrganizationChart2_DS,tree,  
 fieldnum(TmpOrganizationChart2,WarehouseCode),  
 fieldnum(TmpOrganizationChart2,ParentWarehouseCode),  
 fieldnum(TmpOrganizationChart2,Name),  
 true, false  
 );  
 treeDatasource.initRoot("Organization",'',0);  
 }  
 //Methods under treeview tabpage  
 public void pageActivated()  
 {  
 ;  
 this.ViewTreeView();  
 super();  
 }  
 public int mouseDblClick(int _x, int _y, int _button, boolean _Ctrl, boolean _Shift)  
 {  
 int ret;  
 ret = super(_x, _y, _button, _Ctrl, _Shift);  
 return ret;  
 }  
 public int mouseUp(int _x, int _y, int _button, boolean _Ctrl, boolean _Shift)  
 {  
 int ret;  
 ret = super(_x, _y, _button, _Ctrl, _Shift);  
 return ret;  
 }  
 Methods under Tree  
 boolean expanding(int idx, FormTreeExpand action, anytype data)  
 {  
 boolean ret;  
 ;  
 ret = super(idx, action, data);  
 treeDatasource.expanding(idx, action, data); // expand node  
 Return ret;  
 }  
 public void selectionChanged(FormTreeItem _OldItem, FormTreeItem _NewItem, FormTreeSelect _how)  
 {  
 super(_OldItem, _NewItem, _how);  
 }  

Popular posts from this blog

Code to get Invoice settlement data for customer in ax 2012

This is simple Code to get Invoice settlement amount data for customer payment in ax 2012. This data is after posting of data. select sum(SettleAmountCur) from custSettlement where custSettlement.TransRecId == custtrans.RecId If you want get settlement amount before posting than you can refer spectrans table.The table SpecTrans contains all the transactions marked for settlement for payment journal. while select spectrans join custtransopen join custtrans where spectrans.SpecCompany == ledgerjournaltrans.DataAreaId && spectrans.SpecTableId == ledgerjournaltrans.TableId && spectrans.SpecRecId == ledgerjournaltrans.RecId && spectrans.RefCompany == custtranssopen.DataAreaId && spectrans.RefTableId == custtranssopen.TableId && spectrans.RefRecId == custtranssopen.RecId && custtransopen.RefRecId == custtrans.RecId && custtransopen.AccountNum == custtrans.AccountNum { info...

Cancel Deliver Remainder through X++ (Sales Order ) DAX

 To Cancel Deliver Remainder through X++ you can use below code sample. Thanks. static void _CancelDeliverRemainder_Sales(Args _args) {     SalesLine SalesLine = SalesLine::find('SO0013', true);     ;           if (SalesLine)     {         // Set remaining inventory Qty to zero         SalesLine.RemainInventPhysical  = 0;           // Set remaining physical Qty to zero         SalesLine.RemainSalesPhysical   = 0;                                   // We have to cancel the SalesLine                  SalesLine.PurchStatus           = PurchStatus::Canceled;                    SalesLine.update();         ...

Add Miscellaneous Charges to a Purchase Order in MSD Axapta

Add Miscellaneous Charges to a Purchase Order To add miscellaneous charges to a purchase order, follow these steps: 1. Click Accounts payable > Purchase Order Details. 2. Select a purchase order and then click Posting > Invoice. 3. Enter or select an invoice. 4. Select which miscellaneous charges transactions to add, change, or delete: a. To add, change, or delete miscellaneous charges transactions for the invoice header, click Setup > Misc. charges on the Overview tab. b. To add, change, or delete miscellaneous charges transactions for an invoice line, click the Lines tab, and then click Misc. charges. c. To add, change, or delete miscellaneous charges for the invoice header for a summary invoice that is selected on the Overview tab, click the Purchases tab, and then click Setup > Misc. charges. 5. In the Misc. charges transactions form, enter the miscellaneous charge from the invoice that you received from your vendor. 6. If necessary, you can click ...