Tuesday, January 26, 2016

Inter company Posting GL With Ledger Dimension

// Inter company Posting GL With Ledger Dimension

// Issue : Inter company Journal not retrieving Dimension while posting IC Ledger

update code

Class--> LedgerJournalTransUpdate
Method--> updateInterCompany
Line Number --> 61

//interCompanyTrans.parmLedgerDimension(DimensionDefaultingService::serviceCreateLedgerDimension(defaultAccount));

interCompanyTrans.parmLedgerDimension(DimensionDefaultingService::serviceMergeLedgerDimensions(defaultAccount,_ledgerJournalTrans.LedgerDimension)); 

/// customize

//interCompanyTrans.parmLedgerDimension(DimensionDefaultingService::serviceCreateLedgerDimension(defaultAccount));
       
        if(_ledgerJournalTrans.AmountCurDebit > 0)
        {
            select firstOnly journalTrans
                where journalTrans.JournalNum == _ledgerJournalTrans.JournalNum
                    && journalTrans.Company == curext()
                    && journalTrans.AmountCurCredit > 0;
            if(journalTrans.AccountType == LedgerJournalACType::Ledger)
            {               
interCompanyTrans.parmLedgerDimension(DimensionDefaultingService::serviceMergeLedgerDimensions(defaultAccount, journalTrans.LedgerDimension));
            }
            else if(journalTrans.AccountType != LedgerJournalACType::Ledger)
            {               
interCompanyTrans.parmLedgerDimension(DimensionDefaultingService::serviceCreateLedgerDimension(defaultAccount, journalTrans.DefaultDimension));
            }
        }
        else if(_ledgerJournalTrans.AmountCurCredit > 0)
        {
            select firstOnly journalTrans
                where journalTrans.JournalNum == _ledgerJournalTrans.JournalNum
                    && journalTrans.Company == curext()
                    && journalTrans.AmountCurDebit > 0;
            if(journalTrans.AccountType == LedgerJournalACType::Ledger)
            {               
interCompanyTrans.parmLedgerDimension(DimensionDefaultingService::serviceMergeLedgerDimensions(defaultAccount, journalTrans.LedgerDimension));
            }
            else if(journalTrans.AccountType != LedgerJournalACType::Ledger)
            {               
interCompanyTrans.parmLedgerDimension(DimensionDefaultingService::serviceCreateLedgerDimension(defaultAccount, journalTrans.DefaultDimension));
            }
        }
//End Code



No comments:

Post a Comment

Search hierarchy for a match (TableALLGroup) X++

  Table1 ppt;  select firstonly ppt  order ItemCode, ItemRelation, AccountCode, AccountRelation where      (ppt.ItemCode == TableGroupAll::T...