vendor invoice creation in D365fo x++

vendor invoice creation in D365fo x++

public class DSAQMVendInvoiceUtill
{

    public static void  main(Args _args)
    {
        System.Exception ex;
        try 
        {
            CustInvoiceTable CustInvoiceTable = _args.record();
            if(!CustParameters::find().DSAQMJournalName)
            {
                throw Error("Journal name must be filled in AR parameters");
            }
            if(CustInvoiceTable)
            {
                LedgerJournalTable LedgerJournalTable = DSAQMVendInvoiceUtill::createHeader(CustInvoiceTable);
                if(LedgerJournalTable)
                {
                    DSAQMVendInvoiceUtill::createLines(CustInvoiceTable, LedgerJournalTable);
                }

                LedgerJournalCheckPost jourCheckPost = ledgerJournalCheckPost::newLedgerJournalTable(LedgerJournalTable, NoYes::Yes, NoYes::Yes);
                if (jourCheckPost.validate())
                {
                    jourCheckPost.run();
                }

                info(strFmt("%1 created successfully!", LedgerJournalTable.JournalNum));
            }
        }
        catch(ex)
        {

        }
    }

    public static LedgerJournalTable createHeader(CustInvoiceTable _custInvoiceTable)
    {
        
        LedgerJournalTable  journalTable;
        JournalTableData    journalTableData;
        LedgerJournalName ledgerJournalName =   LedgerJournalName::find(CustParameters::find().DSAQMJournalName);
        journalTable.initFromLedgerJournalName(ledgerJournalName.JournalName);
        journalTableData                    =   JournalTableData::newTable(journalTable);
        journalTable.JournalNum             =   journalTableData.nextJournalId();
        journalTable.DSAQMInvoiceId         =   _custInvoiceTable.InvoiceId;
        journalTable.CurrencyCode           =   _custInvoiceTable.CurrencyCode;
        journalTable.Name                   =   _custInvoiceTable.Description;
        journalTable.NameInEnglish          =   _custInvoiceTable.Description;
        journalTable.ALF_NameInArabic       =   _custInvoiceTable.ArabicDescription;
        journalTable.WorkflowApprovalStatus =   LedgerJournalWFApprovalStatus::Approved;
        if (journalTable.validateWrite())
        {
            journalTable.insert();
        }

        return journalTable;
    }

    public static void  createLines(CustInvoiceTable _custInvoiceTable, LedgerJournalTable  _ledgerJournalTable)
    {
        LedgerJournalTrans journalTrans;
        CustInvoiceLine CustInvoiceLine;
        while select CustInvoiceLine
        where CustInvoiceLine.ParentRecId == _custInvoiceTable.RecId
        {
            DimensionAttributeValueCombination vendDim;
            select  vendDim where vendDim.DisplayValue ==  _custInvoiceTable.DSAQMVendAccount;
            NumberSeq numberSeq                 =   NumberSeq::newGetVoucherFromId(_ledgerJournalTable.NumberSequenceTable, true);
            journalTrans.JournalNum             =   _ledgerJournalTable.JournalNum;
            journalTrans.Voucher                =   numberSeq.voucher();
            journalTrans.Invoice                =   _custInvoiceTable.InvoiceId;
            journalTrans.Txt                    =   CustInvoiceLine.Description;
            journalTrans.ALF_TxtInArabic        =   CustInvoiceLine.ALF_DescriptionInArabic;
            journalTrans.DocumentDate           =   today();
            journalTrans.TransDate              =   _custInvoiceTable.InvoiceDate;
            journalTrans.TransactionType        =   LedgerTransType::Vend;
            journalTrans.CurrencyCode           =   _custInvoiceTable.CurrencyCode;
            journalTrans.AmountCurDebit         =   abs(CustInvoiceLine.AmountCur);
            journalTrans.AmountCurCredit        =   0.00;
            journalTrans.Payment                =   _custInvoiceTable.Payment;
            journalTrans.TaxItemGroup           =   _custInvoiceTable.DSAQMTaxItemGroup;
            journalTrans.TaxGroup               =   CustParameters::find().DSAQMTaxGroup;
            journalTrans.BankAccountId          =   _custInvoiceTable.ALF_CompanyBankAccountId;
            
            journalTrans.ExchRate               =   DSAQMVendInvoiceUtill::CurrentExchangeRate(Ledger::accountingCurrency(CompanyInfo::current()), journalTrans.CurrencyCode, journalTrans.TransDate);
            journalTrans.Approved               =   NoYes::Yes;
            journalTrans.Approver               =   HcmWorkerLookup::currentWorker();
            journalTrans.AccountType            =   LedgerJournalACType::Vend;
            journalTrans.LedgerDimension        =   vendDim.RecId;
            journalTrans.OffsetAccountType      =   LedgerJournalACType::Ledger;
            journalTrans.OffsetLedgerDimension  =   LedgerDimensionFacade::serviceCreateLedgerDimension(CustInvoiceLine.LedgerDimension, CustInvoiceLine.DefaultDimension);
            journalTrans.DefaultDimension       =   CustInvoiceLine.DefaultDimension;
            journalTrans.OffsetDefaultDimension =   CustInvoiceLine.DefaultDimension;
        
            journalTrans.insert();
            numberSeq.used();
        }
    }

    public static real CurrentExchangeRate(CurrencyCode fromCurrency, CurrencyCode toCurrency, TransDate transDate)
    {
        if(fromCurrency == toCurrency)
        {
            return 100;
        }

        ExchangeRateCurrencyPair exchangeRateCurrencyPair;
        select firstonly exchangeRateCurrencyPair
        where exchangeRateCurrencyPair.ExchangeRateType == Ledger::find(Ledger::current()).DefaultExchangeRateType
        &&  exchangeRateCurrencyPair.FromCurrencyCode == fromCurrency
        &&  exchangeRateCurrencyPair.ToCurrencyCode   == toCurrency;
        return exchangeRate::findByDate(exchangeRateCurrencyPair.RecId, transDate).ExchangeRate;
    }

}

Comments

Post a Comment

Popular posts from this blog

D365FO – AX – X++ –Refresh, Reread, Research, and ExecuteQuery

 D365FO – AX – X++ – Tutorial: Choosing Between Refresh, Reread, Research, and ExecuteQuery X++ developers often face challenges with the four datasource methods—refresh, reread, research, and executeQuery—in Dynamics 365 Finance and Operations (D365FO). Regardless of their seniority in AX, developers frequently make mistakes in the sequence of calling these methods. To address this, I've created a brief hands-on tutorial illustrating the typical use cases for each method. I've organized the methods based on their impact on the displayed grid rows. 1. Common Mistakes: Developers often incorrectly call two of these methods in the following order: - formDataSource.refresh() followed by formDataSource.research(), or - formDataSource.reread() followed by formDataSource.research(), or - formDataSource.research() followed by formDataSource.executeQuery(), or - formDataSource.research() followed by formDataSource.refresh() / formDataSource.reread(). These sequences are either entirely...
Read more

Create Inventory Journal through Code in D365FO X++

 Create Inventory Journal through Code in D365FO X++ Code:  internal final class Cls_FPS_MOVJRNL {     /// <summary>     /// Class entry point. The system will call this method when a designated menu      /// is selected or when execution starts and this class is set as the startup class.     /// </summary>     /// <param name = "_args">The specified arguments.</param>     public static void main(Args _args)     {         CBLFPS_StkAdjTbl       CBLFPS_StkAdjTbl;         ttsbegin;             // Create journal table             InventJournalTable inventJournalTable = Cls_FPS_MOVJRNL::createJournalTable();                          // Initialize journal trans             ...
Read more

SalesLine Reservation in D365fo x++

SalesLine Reservation in D365fo x++ SQL: /// <summary> /// reserve sales line /// </summary> /// <param name = "_salesline">SalesLine</param> public static void reserveSalesLine(SalesLine _salesline) { InventBatch inventBatch; InventSum inventSum; SalesLine salesLine; InventDim inventDim; InventTable inventTable; int daysLeftforExpiry = 0; int shelflife; int rule = 0; int acceptedPR = 0; Qty qtyReserve = 0; Qty saleLineQty = 0; DSAPickingRulePerId pickingrule; boolean qtyReservedCheck = false; salesLine = _salesline; pickingrule = _salesline.salesTable().DSAPickingRule; if(pickingrule == '') { warning("Picking rule is not available on sales order for reservation."); } else { ...
Read more