Alfasith AX

Alfasith AX
اللَّهُمَّ انْفَعْنِي بِمَا عَلَّمْتَنِي، وَعَلِّمْنِي مَا يَنْفَعُنِي، وَزِدْنِي عِلْمًا

Tuesday, June 24, 2014

Job to assign the user role to all user in that instance in Dynamic AX

Hi,

static void AssignUserRights(Args _arg)
{
   SecurityRole        role;
    SecurityUserRole    userRole;
    boolean             added;
    UserInfo            userInfo;
    ;

    select role where role.Name == "Accountant";
    while select userInfo
    {
        select * from userRole
            where userRole.SecurityRole == role.RecId &&
                userRole.User == userInfo.id;
            if (!userRole || (userRole.AssignmentStatus != RoleAssignmentStatus::Enabled))
        {
            info(strFmt('Role %1 added to the user %2 successfully.', role.Name, userInfo.id));

            userRole.User = userInfo.id;
            userRole.SecurityRole = role.RecId;
            userRole.AssignmentMode = RoleAssignmentMode::Manual;
            userRole.AssignmentStatus = RoleAssignmentStatus::Enabled;
            SecuritySegregationOfDuties::assignUserToRole(userRole, null);
        }
        else
        {
            warning(strFmt('skipping – Role %1 to the user %2.', role.Name, userInfo.id));
        }
    }
    pause;
}

}

Thursday, June 19, 2014

Issue of refresh in form automatically record points to first potion in X++

Hi,
// use below code in datasource refresh of field modified or depends on your requirement
public void refresh()
{
    int i;
    //Alfasith to retain the cursor position by getting the position and setting the position
        i = dnSalaryCalculationTrans_ds.getposition();
  //  info(int2str(i));
   if(i != 1)  // Declare the k & m as int in global declaration
        m = i;
    if(!(k == m && k == i))
        k = m;
    if(k)
    {
        dnSalaryCalculationTrans_ds.research(); // Data source that I used
        dnSalaryCalculationTrans_ds.refresh();
        dnSalaryCalculationTrans_ds.setposition(k);        
    }
    super();
}

Regards,

SQL code to upate one Legal entity banner to all the legal entity in D365

 Hi, update companyimage set  companyimage.Image  = companyimageA.Image  from  ( select Image from companyimage where dataAreaid = 'USF...