Skip to main content

How to Assign one user rights to other user by code in MSD axapta

Image
By
You can try following code in Job or you can apply in form controls event.

 UserGroupList UsergroupList1,UsergroupList2;  
 UserId FromUserId, ToUserId;  
 ;  
 FromUserId = 'usr1';  
 ToUserId = 'usr2' ;  
 delete_from UsergroupList1  
 where UsergroupList1.UserId == ToUserId;  
 while select UsergroupList1 where UsergroupList1.userId == FromUserId  
 {  
 info(strfmt('Group assigned: %1',UsergroupList1.groupId));  
 select forupdate UsergroupList2 where UsergroupList2.userID == ToUserId && UsergroupList2.GroupId == UsergroupList1.GroupId;  
 if(!UsergroupList2)  
 {  
 UsergroupList2.UserId = ToUserId;  
 UsergroupList2.GroupId = UsergroupList1.GroupId;  
 UsergroupList2.insert();  
 }  
 }  
 info(strfmt('Permissions changed for %1',ToUserId));

Labels:

Popular posts from this blog

Code to get Invoice settlement data for customer in ax 2012

By
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...
Read more

Code to get customer Primary Address in Ax 2012

By
Below Code to get customer Primary Address in Ax 2012. CustTable custTable_P; DirPartyTable dirPartyTable_P; DirPartyLocation dirPartyLocation_P; DirPartyLocationRole dirPartyLocationRole_P; LogisticsLocation logisticsLocation_P; LogisticsLocationRole logisticsLocationRole_P; LogisticsPostalAddress logisticsPostalAddress_P; LogisticsPostalAddress primaryAddress_P; while select custTable_P where custTable_P.AccountNum =='ED_01029' join dirPartyTable_P where dirPartyTable_P.RecId == custTable_P.Party join dirPartyLocation_P where dirPartyLocation_P.Party == custTable_P.Party && dirPartyLocation_P.IsPrimary==NoYes::Yes join dirPartyLocationRole_P where dirPartyLocationRole_P.PartyLocation == dirPartyLocation_P.RecId join logisticsLocationRole_P where logisticsLocationRole_P.RecId == dirPartyLocationRole...
Post a Comment
Read more

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

By
 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();         ...
Post a Comment
Read more