create ledgerdimension from mainaccount in ax2012

 in AX 2012   only whereas d365fo ,we have ledgerdimensionfacade is there


//SIG_22435_BudgetsInAXByCostCentre - 19- Sep -2023 - Hreddy

public  LedgerDimensionDefaultAccount getDefaultAccountFromMainAccountRecId(MainAccountRecId _mainAccountRecId)

{



    recId                   dimAttributeId;

    DimensionAttributeValue dimAttributeValue;

    int                     segmentIndex;

    str                     newValue;



    /*DimensionAttributeValue mainAcctDimAttrValue;

    DimensionStorage        dimStorage;

    MainAccount             mainAccount;

    container               result;

    DimAttributeMainAccount attrMainAcc;

    // Empty account is a zero ledger dimension


    if (!_mainAccountRecId)

    {

        return 0;

    }


    result = DimensionCache::getValue(DimensionCacheScope::DimensionStorageInstance, [funcName(), _mainAccountRecId]);


    if (result == conNull())

    {

        dimStorage = DimensionStorage::construct(1, LedgerDimensionType::DefaultAccount);

        dimStorage.addAccountStructure(DimensionHierarchy::getHierarchyIdByHierarchyType(DimensionHierarchyType::DefaultAccount));

        mainAccount = MainAccount::find(_mainAccountRecId);


        select attrMainAcc where attrMainAcc.Value == mainAccount.MainAccountId;


        mainAcctDimAttrValue = DimensionAttributeValue::findByDimensionAttributeAndEntityInst(DimensionAttribute::getMainAccountDimensionAttribute(),attrMainAcc.key, false, true);

        dimStorage.setSegment(1, DimensionStorageSegment::constructFromValue(mainAccount.MainAccountId, mainAcctDimAttrValue));

        result = [dimStorage.saveAsDefaultAccount()];


        DimensionCache::insertValue(DimensionCacheScope::DimensionStorageInstance, [funcName(), _mainAccountRecId], result);

    }

    return conPeek(result, 1);*/


    //mainAccount = MainAccount::find(_mainAccountRecId);


    BudgetLineGrid_BudgetSegmentedEntry.loadSegments();


        dimAttributeId = DimensionAttribute::getMainAccountDimensionAttribute();

        newValue = MainAccount::find(_mainAccountRecId).MainAccountId;


        if (strlen(newValue) > 0)

        {

            // First assume string is a record value

            dimAttributeValue = DimensionAttributeValue::findByDimensionAttributeAndValueNoError(

                DimensionAttribute::find(dimAttributeId),

                newValue,

                false,

                true);

        }


    budgetLedgerDimensionController.sigSegmentValueChanged(1, dimAttributeValue, newValue);


    BudgetLineGrid_BudgetSegmentedEntry.modified();


    return 0;

}


Comments

Post a Comment

Popular posts from this blog

Get voucher transactions,settlement , and other details from customer , invocie other posted transactions via GJentry and subledger entry

   //From here the code is common for all posted transactions if Project invoice one then we need to join with projinvoicejour instead of vendinvoicejour like this way GeneralJournalAccountEntry accEntry; SubledgerVoucherGeneralJournalEntry subGjEntry ;  LedgerDimensionPreviewTmp   ledgerDimensionPreviewTmpLocal; while select maxof(GeneralJournalEntry) from  subGjEntry                         where subGjEntry.AccountingDate == vendInvoiceJour.InvoiceDate                         &&     subGjEntry.Voucher ==  vendInvoiceJour.LedgerVoucher                          join sum(TransactionCurrencyAmount),LedgerDimension,maxof(Text),maxof(IsCredit) from   accEntry group by accEntry.LedgerDimension                         where accEntry.GeneralJournalEntry  == subGjEntry.GeneralJournalEntry                         &&  accEntry.PostingType != LedgerPostingType::VendBalance                         &&  accEntry.PostingType != LedgerPostingType::InterunitCredit              
Read more

Logistics address, postal address, address phone fax contact information

// Find primary address by roles  LogisticsPostalAddress postalAddr;  postalAddr = DirParty::findPostalAddressByRole(DirPartyTable::find(companyInfo::find().PartyNumber).RecId,LogisticsLocationRoleType::Invoice); Get Description/ name of location LogisticsLocation::find(postalAddrInvoice.Location).Description // Find contact information (Generic one) DirPartyContactInfoView contactInfoView; contactInfoView = DirPartyContactInfoView::find(partyRecId, _location); // Find primary address by roles regardless primary or not public  LogisticsPostalAddress getPostalAddressByType(DirPartyRecId _party, LogisticsLocationRoleType _type)     {         DirPartyLocation        partyLocation;         DirPartyLocationRole    partyLocationRole;         LogisticsLocation       location;         LogisticsLocationRole   locationRole;         LogisticsPostalAddress  postalAddress;         select firstonly postalAddress         exists join location             where location.RecId == postalAddress.Location
Read more

Get Ledger journal transactions payment marked invoices for posted and non posted

// Code from customer payment journal report --CustPaymentJournalDP     private LedgerJournalTable ledgerJournalTable;     private LedgerJournalTable tmpLedgerJournalTable;     private LedgerJournalTrans ledgerJournalTrans;     private LedgerJournalTrans tmpLedgerJournalTrans;     private CustTrans tmpCustTrans;     private CustTrans custTrans;     private CustTransOpen custTransOpen;     private CustSettlement custSettlement;     private SpecTrans specTrans;     private LedgerJournalId lastJournalNum;     private AccountNum lastAccountNum;     private Amount sumPaymSettleAmountCur;     private CustPaymentJournalTmp custPaymentJournalTmp;     private RecId ledgerJournalTransRecId;     private Query query;  while (qr.next())         {             tmpLedgerJournalTable = qr.get(tmpLedgerJournalTable.TableId);             this.insertDataFromLedgerJournalTable();             tmpLedgerJournalTrans = qr.get(tmpLedgerJournalTrans.TableId);             this.insertDataFromLedgerJournalTrans();
Read more