Settle invoices in D365fo x++

Settle invoices in  D365fo x++

Code: 

public static void settleInvoices(CustAccount _customer, InvoiceId _oldInvoice, InvoiceId _newInvoice)
    {
        CustTable           custTable;
        CustTransOpen       invCustTransOpen, payCustTransOpen;
        CustTrans           invCustTrans, payCustTrans;

        custTable = CustTable::find(_customer);
        
        try
        {
            //for invoice
            select firstonly invCustTrans
            where invCustTrans.AccountNum == custTable.AccountNum
            &&  invCustTrans.TransType      == LedgerTransType::Sales
            && invCustTrans.Invoice == _oldInvoice

            join    invCustTransOpen
            where   invCustTransOpen.RefRecId    == invCustTrans.RecId;

            //for payment
            select firstonly payCustTrans
            where payCustTrans.AccountNum == custTable.AccountNum
            &&  payCustTrans.TransType == LedgerTransType::Sales
            && payCustTrans.Invoice == _newInvoice

            join    payCustTransOpen
            where   payCustTransOpen.RefRecId == payCustTrans.RecId;

            //ttsbegin;

            //Mark for settlement
            SpecTransExecutionContext   specTransExecutionContext = SpecTransExecutionContext::newFromSource(custTable);
            SpecTransManager            specTransManager          = SpecTransManager::newFromSpec(specTransExecutionContext.parmSpecContext());
            Amount                      settleAmount              = payCustTrans.AmountCur;

            if(settleAmount < 0)
            {
                settleAmount              = -1 * payCustTrans.AmountCur;
            }

            if(settleAmount > invCustTrans.AmountCur)
            {
                settleAmount = invCustTrans.AmountCur;
            }

            specTransManager.insert(invCustTransOpen.dataAreaId, invCustTransOpen.TableId, invCustTransOpen.RecId, settleAmount, invCustTrans.CurrencyCode);
            specTransManager.insert(payCustTransOpen.dataAreaId, payCustTransOpen.TableId, payCustTransOpen.RecId, -settleAmount, payCustTrans.CurrencyCode);

            
            //ttscommit;

            if(CustTrans::settleTransaction(specTransExecutionContext, CustTransSettleTransactionParameters::construct()))
            {
                info(strFmt("Settlement completed for Invoice %1, against %2, Amount %3", invCustTrans.Invoice, payCustTrans.Invoice, settleAmount));
            }
        }
        catch
        {
            error(infolog.text(infologLine()));
            error("Settlement failed.");
        }
    }

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