Main account and dimension relation in AX

Hi,

static void AlfasithMainAccDimRel(Args _args)

{
    MainAccount     mainAccount;
    DimensionAttributeValueCombination  dimensionAttributeValueCombination;

    select mainAccount where mainAccount.MainAccountId == "140250"
                        &&  mainAccount.LedgerChartOfAccounts == LedgerChartOfAccounts::current();

     select dimensionAttributeValueCombination where dimensionAttributeValueCombination.MainAccount == mainAccount.RecId;
    print dimensionAttributeValueCombination.RecId ;

    pause;
}

Regards,

Worker and his financial dimension relation in AX

Hi,

static void ListOutAllWorkerWithDim(Args _args)
{
    Counter                                               i;
    HcmWorker                           hcmWorker;
    HcmEmployment                       hcmEmployment;
    while select hcmWorker   //=   HcmWorker::findByPersonnelNumber('000173');
    {
     hcmEmployment = hcmEmployment::find(hcmWorker.recid);//.DefaultDimension != 0
    if(hcmEmployment.DefaultDimension)
        info (int642str(hcmEmployment.DefaultDimension) +'--'+  hcmWorker.PersonnelNumber);
    }
    //hcmEmployment   =   HcmEmployment::find(hcmWorker.recid);
}

Regards,