Skip to main content

Credit Note [Dynamics AX] using X++

This post will help to create credit note for a sales order based on the invent lot id. All the invoices raised for a particular sales line – Lot Id will be raised back as a credit note.
Information on Credit Note:
A credit note or credit memorandum (memo) is a commercial document issued by a seller to a buyer. The seller usually issues a Credit Memo for the same or lower amount than the invoice, and then repays the money to the buyer or sets it off against a balance due from other transactions
Below Code will help to create credit note for all the invoices raised against the sales line -lot id.
Please note: This code can be customized as per your requirements. This is just a template to help creating credit note using X++ code. Please test the code before use.
static void SR_CreateCreditNote_Sales(Args _args)
{
// Coded by Sreenath Reddy
CustInvoiceTrans custInvoiceTrans;
Dialog dialog = new Dialog(“Create credit note – for sales.”);
DialogField dfInventTransId;
SalesCopying salesCopying;
TmpFrmVirtual tmpFrmVirtualHeader;
TmpFrmVirtual tmpFrmVirtualLines;
boolean isCreditNoteCreated;
SalesId salesId;
SysInfoAction_FormRun SysInfoAction;
void loadTmpVirtualTableAndCreateCN(CustInvoiceTrans _custInvoiceTrans)
{
tmpFrmVirtualLines.TableNum = _custInvoiceTrans.TableId;
tmpFrmVirtualLines.RecordNo = _custInvoiceTrans.RecId;
tmpFrmVirtualLines.Id = _custInvoiceTrans.SalesId;
tmpFrmVirtualLines.LineNum = _custInvoiceTrans.LineNum;
tmpFrmVirtualLines.TransDate = _custInvoiceTrans.InvoiceDate;
tmpFrmVirtualLines.Qty = _custInvoiceTrans.Qty;
tmpFrmVirtualLines.write();
salesCopying = SalesCopying::construct(SalesPurchCopy::CreditNoteLines);
salesCopying.initParameters(salesTable::find(_custInvoiceTrans.SalesId, true),
tmpFrmVirtualLines,
tmpFrmVirtualHeader,
1,
true,
false,
true,
true,
false);
salesCopying.copy();
}
;
dfInventTransId = dialog.addField(typeid(InventTransId), “Lot id”, “Inventory transaction identifier/Lot id”);
dialog.addText(“This snippet will help to create credit notes for all the invoices raised for the lot id of salesLine”);
if (dialog.run())
{
salesId = CustInvoiceTrans::findInventTransid(dfInventTransId.value()).SalesId;
if (!salesId)
{
throw error (“Select only sales order – reference type.”);
}
while select custInvoiceTrans where custInvoiceTrans.InventTransId == dfInventTransId.value()
{
// Load the custinvoiceTrans details in to tmpFrmVirtualLines buffer
isCreditNoteCreated = true;
loadTmpVirtualTableAndCreateCN(custInvoiceTrans);
}
}
if (isCreditNoteCreated)
{
sysInfoAction = SysInfoAction_FormRun::newFormnameDesc(formstr(SalesTable), “show credit note”);
sysInfoAction.parmCallerBuffer(SalesTable::find(salesId));
info(strfmt(“Credit notes created succesfully for the SalesOrder %1 and for lotId %2″, salesId, dfInventTransId.value()),”,sysInfoAction);
}
}
Labels:

Popular posts from this blog

Mark All for Open Cust Trans and Open Vend Trans

We have situations where there are lots of open transactions that need to be settled against each other. This can be the case if auto settlement is turned off. One solution is to add a "Mark All" button to the custOpenTrans or vendOpenTrans forms. This button "checks" the mark checkbox on every line. The user can then uncheck several lines if needed and Update to settle the lines. The code below is an example of what we used on the open vendor transaction screen. The code is very similar on the AR side. One note: I used vendTable.AccountNum in the code below. That should be generalized to work with any buffer that is passed into the open trans form. void customMarkAll() { VendTransOpen localVendTransOpen; VendTrans localVendTrans; container conSum; int linesProcessed; ; //show wait cursor startLengthyOperation(); element.lock(); //remove all prior markings specOffsetVoucher.deleteSpe...
Read more

Print Report in Microsoft Dynamics AX 2009 through X++

I am trying to print sales confirmation report on a button click which I have added on Sales Order Detail form in Microsoft Dynamics AX 2009. On click event of that button, I have written following code: void clicked() {     Args                args;     ReportRun           reportRun;     SalesFormLetter     salesFormLetter;     PrintJobSettings    printJobSettings;     CustConfirmJour     custConfirmJour;     RecordSortedList    list                = new RecordSortedList(55);     SalesTable          salesTableUpdate;     ;     SELEC...
Read more

Creating Free Text Invoice through X++ code

Job: Calling class from job to run the class public void freeTextInvoicePostTestJob() { Dialog dialog; DialogField dlgCustAcc; DialogGroup dialogPeriodLengthGroup, dialogPeriodLengthGroup1; DialogField dlgLedgerAcc; ; dialog = new Dialog("Free-Text Invoice"); dialogPeriodLengthGroup1 = dialog.addGroup('Cust Table'); dlgCustAcc = dialog.addField(typeid(CustAccount)); dialogPeriodLengthGroup = dialog.addGroup('Ledger Table'); dlgLedgerAcc = dialog.addField(typeid(LedgerAccount)); if(dialog.run()) { if(dlgCustAcc.value() && dlgLedgerAcc.value() != '') FreeTxtInvoiceCreatePost::main(dlgCustAcc.value(), dlgLedgerAcc.value()); else throw error(strfmt("Either CustAccount or LedgerAccount info is missing.")); } } Class: Which creates the free text invoice class FreeTxtInvoiceCreatePost { } static void main(CustAccount _custAccount, LedgerAccount _ledgerAccount) { CustInvoiceTable custInvoiceTable; ...
Read more