To display mainacc and posting profile account in General ledger

-
To display 
 mainaccount(10037-COM-ADMIN-G-CR 3…CRANE-Iran) and Accountnumber(10037) of Ledger  
Customeraccount(CUST0009) and posting profile of Customer(10501) of Customer   Vendoraccount(F0003) and posting profile of vendor(20201) of Vendor
 BankAccounnt(Loan) and posting profile of Bank(10023) of Bank
 Fixed assets(COMHRD-00006) and posting profile of Fixed assets(12410) of Fixed assets

display str 20  mainAccDisplay()
{
    Name                nameFind;
    MainAccountNum      mainaccountdisplay;

    switch(this.AccountType)
    {
        case LedgerJournalACType::Cust :
            mainaccountdisplay = this.mainAccFind(this.AccountType,this.LedgerDimension);
            break;
        case LedgerJournalACType::Vend :
            mainaccountdisplay = this.mainAccFind(this.AccountType,this.LedgerDimension);
            break;
        case LedgerJournalACType::Bank :
            mainaccountdisplay = this.mainAccFind(this.AccountType,this.LedgerDimension);
            break;
        case LedgerJournalACType::FixedAssets :
            mainaccountdisplay = this.mainAccFind(this.AccountType,this.LedgerDimension);
            break;
        case LedgerJournalACType::Ledger :
            mainaccountdisplay = this.mainAccFind(this.AccountType,this.LedgerDimension);
            break;
    }

    return  mainaccountdisplay;
}


-------------------------

public MainAccountNum mainAccFind(LedgerJournalACType _accountType,DimensionDynamicAccount _dimensionDynamicAccount)
{
    DimensionAttributeValueCombination  ledgerDimension,ledgerDimensionmainacc;
    CustTable                           custtable;
    VendTable                           vendTable;
    AssetTable                          assetTable;
    CustLedgerAccounts                  custledgeraccounts;
    VendLedgerAccounts                  vendledgeraccounts;
    AssetLedgerAccounts                 assetledgeraccounts;
    MainAccount                         mainaccount;
    MainAccountNum                      mainaccountnum;
    VendParameters                      vendParameters;
    CustParameters                      custParameters;
    AssetParameters                     assetParameters;


    select ledgerDimension where ledgerDimension.RecId == _dimensionDynamicAccount;
    if(_dimensionDynamicAccount != 0)
    {
    switch(_accountType)
    {
        case LedgerJournalACType::Cust:
            //customer posting profile - start
            select custParameters;
            select custtable where custtable.AccountNum ==  ledgerDimension.DisplayValue;
            while select custledgeraccounts
                where custledgeraccounts.PostingProfile == CustLedger::find(custParameters.PostingProfile).PostingProfile
            {
                if(custledgeraccounts.AccountCode == TableGroupAll::Table)
                {
                    if(custledgeraccounts.Num == custtable.AccountNum)
                    {
                        select ledgerDimensionmainacc join mainaccount
                            where ledgerDimensionmainacc.RecId == custledgeraccounts.SummaryLedgerDimension
                            && ledgerDimensionmainacc.MainAccount == mainaccount.RecId;
                        mainaccountnum = mainaccount.MainAccountId;
                        //info(strFmt("%1",mainaccount.MainAccountId));
                        break;
                    }
                }
                else if(custledgeraccounts.AccountCode == TableGroupAll::GroupId)
                {
                    if(custledgeraccounts.Num == custtable.CustGroup)
                    {
                        select ledgerDimensionmainacc join mainaccount
                            where ledgerDimensionmainacc.RecId == custledgeraccounts.SummaryLedgerDimension
                            && ledgerDimensionmainacc.MainAccount == mainaccount.RecId;
                        mainaccountnum = mainaccount.MainAccountId;
                        //info(strFmt("%1",mainaccount.MainAccountId));
                        break;
                    }
                }
                else if(custledgeraccounts.AccountCode == TableGroupAll::All)
                {
                    select ledgerDimensionmainacc join mainaccount
                        where ledgerDimensionmainacc.RecId == custledgeraccounts.SummaryLedgerDimension
                        && ledgerDimensionmainacc.MainAccount == mainaccount.RecId;
                    mainaccountnum = mainaccount.MainAccountId;
                    //info(strFmt("%1",mainaccount.MainAccountId));
                }
            }
            break;
            //customer posting profile - end

        case LedgerJournalACType::Vend:
            //Vend posting profile - start
            select vendParameters;
            select vendTable where vendTable.AccountNum ==  ledgerDimension.DisplayValue;
            while select vendledgeraccounts
                where vendledgeraccounts.PostingProfile == VendLedger::find(vendParameters.PostingProfile).PostingProfile
            {
                if(vendledgeraccounts.AccountCode == TableGroupAll::Table)
                {
                    if(vendledgeraccounts.Num == vendTable.AccountNum)
                    {
                        select ledgerDimensionmainacc join mainaccount
                            where ledgerDimensionmainacc.RecId == vendledgeraccounts.SummaryLedgerDimension
                            && ledgerDimensionmainacc.MainAccount == mainaccount.RecId;
                        mainaccountnum = mainaccount.MainAccountId;
                        //info(strFmt("%1",mainaccount.MainAccountId));
                        break;
                    }
                }
                else if(vendledgeraccounts.AccountCode == TableGroupAll::GroupId)
                {
                    if(vendledgeraccounts.Num == vendTable.VendGroup)
                    {
                        select ledgerDimensionmainacc join mainaccount
                            where ledgerDimensionmainacc.RecId == vendledgeraccounts.SummaryLedgerDimension
                            && ledgerDimensionmainacc.MainAccount == mainaccount.RecId;
                        mainaccountnum = mainaccount.MainAccountId;
                        //info(strFmt("%1",mainaccount.MainAccountId));
                        break;
                    }
                }
                else if(vendledgeraccounts.AccountCode == TableGroupAll::All)
                {
                    select ledgerDimensionmainacc join mainaccount
                        where ledgerDimensionmainacc.RecId == vendledgeraccounts.SummaryLedgerDimension
                        && ledgerDimensionmainacc.MainAccount == mainaccount.RecId;
                    mainaccountnum = mainaccount.MainAccountId;
                    //info(strFmt("%1",mainaccount.MainAccountId));
                }
            }
            break;
            //Vend posting profile - end
        case LedgerJournalACType::Bank:
            //Bank posting profile - start
            select ledgerDimensionmainacc join mainaccount
            where ledgerDimensionmainacc.RecId == BankAccountTable::find(DimensionStorage::ledgerDimension2AccountNum(_dimensionDynamicAccount)).LedgerDimension
            && ledgerDimensionmainacc.MainAccount == mainaccount.RecId;
            mainaccountnum = mainaccount.MainAccountId;
            break;
            //Bank posting profile - end

        case LedgerJournalACType::FixedAssets:
            //FixedAsset posting profile - start
            select assetParameters;
            select assetTable where assetTable.AssetId ==  ledgerDimension.DisplayValue;
            while select assetledgeraccounts
                where assetledgeraccounts.PostingProfile == AssetLedger::find(assetParameters.PostingProfile).PostingProfile
            {
                if(assetledgeraccounts.AccountCode == TableGroupAll::Table)
                {
                    if(assetledgeraccounts.AccountRelation == assetTable.AssetId)
                    {
                        select ledgerDimensionmainacc join mainaccount
                            where ledgerDimensionmainacc.RecId == assetledgeraccounts.LedgerDimension
                            && ledgerDimensionmainacc.MainAccount == mainaccount.RecId;
                        mainaccountnum = mainaccount.MainAccountId;
                        //info(strFmt("%1",mainaccount.MainAccountId));
                        break;
                    }
                }
                else if(assetledgeraccounts.AccountCode == TableGroupAll::GroupId)
                {
                    if(assetledgeraccounts.AccountRelation == assetTable.AssetGroup)
                    {
                        select ledgerDimensionmainacc join mainaccount
                            where ledgerDimensionmainacc.RecId == assetledgeraccounts.LedgerDimension
                            && ledgerDimensionmainacc.MainAccount == mainaccount.RecId;
                        mainaccountnum = mainaccount.MainAccountId;
                        //info(strFmt("%1",mainaccount.MainAccountId));
                        break;
                    }
                }
                else if(assetledgeraccounts.AccountCode == TableGroupAll::All)
                {
                    select ledgerDimensionmainacc join mainaccount
                        where ledgerDimensionmainacc.RecId == assetledgeraccounts.LedgerDimension
                        && ledgerDimensionmainacc.MainAccount == mainaccount.RecId;
                    mainaccountnum = mainaccount.MainAccountId;
                    //info(strFmt("%1",mainaccount.MainAccountId));
                }
            }
            break;
            //FixedAsset posting profile - end

            case LedgerJournalACType::Ledger:
                //Ledger posting profile - start

                select ledgerDimensionmainacc join mainaccount
                        where ledgerDimensionmainacc.RecId == _dimensionDynamicAccount
                        && ledgerDimensionmainacc.MainAccount == mainaccount.RecId;
                    mainaccountnum = mainaccount.MainAccountId;

                //Ledger posting profile - end


    }
    }

    return mainaccountnum;
}

Comments

Post a Comment

Popular posts from this blog

Getting Workflow Approvers In Dynamics AX (AX 2012)

-
Getting Workflow Approvers In Dynamics AX (AX 2012) Posted by  kamaukihonge  on  June 27, 2014 Posted in:  Development ,  Workflows . Leave a comment UNDERSTANDING THE LOGIC ABOUT WORKFLOW APPROVALS To start with, you need to understand how the workflow approvals are processed in Dynamics AX. There are three tables that we will use WorkflowTrackingStatusTable WorkflowTrackingTable WorkflowTrackingCommentTable This three tables can be used to get the approvers names, Approval Dates and Approval Comment, HOW THE TABLES RELATE TO EACH OTHER WorkflowTrackingStatusTable relates to using the field WorkflowTrackingStatusTable in WorkflowTrackingTable and RecId in WorkflowTrackingStatusTable Simple X++ select Statement WorkflowTrackingStatusTable _status; WorkflowTrackingTable _tracking; select  *  from  _tracking  where  _tracking.WorkflowTrackingStatusTable ==  _status.RecId ; WorkflowTr...
Read more

Creating a numbersequence in form level in ax 2012

-
Image
Creating a numbersequence in form level in ax 2012: Overview Number sequences are unique identifiers that can be associated with a master record so that they can be individually distinguished. They can be either formatted as alpha-numeric strings or simply as numbers. Microsoft Dynamics AX 2012 provides an easy to implement framework to generate custom number sequences. Scenario As part of this tutorial, a custom number sequence will be generated for the Customer Groups setup form ( Accounts receivable  à  Setup  à  Customers  à  Customer groups ) Steps First create a new  Extended Data Type (EDT) . Open  AOT  à Data Dictionary  à  Extended Data Types Right Click on  Extended Data Types  and create a new EDT  NumSeqDemoCustGroupNum  of type  String Set the properties as shown below Now go to  AOT  à  Classes  and open the  NumberSeqModuleCustomer  clas...
Read more

AX 2012 R3 Line by line invoicing the sales order using X++ code

-
AX 2012 R3 Line by line invoicing the sales order using X++ code static void RB_PostSalesInvoice(Args _args) {     SalesTable salesTable;     SalesFormLetter salesFormLetter;     Query query;     QueryRun queryRun;     QueryBuildDataSource qbds;     salesTable = SalesTable::find('20001');     query = new Query(QueryStr(SalesUpdatePackingSlip));     qbds = query.dataSourceTable(tableNum(SalesLine));     // Build query range to find those lines which needs to be posted.     qbds.addRange(fieldNum(SalesLine, SalesId)).value('20001');     qbds.addRange(fieldNum(SalesLine, SalesStatus)).value(queryValue(SalesStatus::Backorder));     qbds.addRange(fieldNum(SalesLine, itemId)).value('V12_IF');     queryRun = new queryRun(query);     salesFormLetter = SalesFormLetter::construct(DocumentStatus::Invoice);     salesFormLetter.chooseLinesQue...
Read more