Skip to main content

Notifications

Announcements

No record found.

News and Announcements icon
Community site session details

Community site session details

Session Id :
Dynamics 365 Community / Forums / Finance | Project Operations, Human Resources, ... / Find the Journal numbe...
Finance | Project Operations, Human Resources, ...
Answered

Find the Journal number against Vendor account number using X++ code

(0) ShareShare
ReportReport
Posted on by Keerthikeyan. k 10

Hi Guys,

I have been learning the MS Dynamics AX 2012 for the past few days and am having difficulty in getting the Journal number against the Vendor account number using the X++ code. It would be really great if you can find a possible solution so that I can improve myself.

Thanks in Advance,

KK.

  • Verified answer
    Martin Dráb Profile Picture
    Martin Dráb 231,939 Most Valuable Professional on at
    RE: Find the Journal number against Vendor account number using X++ code

    First of all, let me simplify your code by removing unused variables (which are almost all), split code to methods etc. Then I'll post it in the right way: with Insert > Code. This will prevent the duplicate line spacing, it adds line numbers (so we can easily refer to lines of code) and so on.

    public void vendInvoice1()
{
	VendAccount vendAccount = this.promptVendAccount();

	this.showLastInvoicePurchLine(vendAccount);
	this.showVendInvoiceJour(vendAccount);
	this.showLedgerJour(vendAccount);
	this.showPurchTable('10P029245');
}


private VendAccount promptVendAccount()
{
	Dialog dialog = new Dialog("Vendor Details");
	DialogField vendAccountField = dialog.addField(extendedTypeStr(VendAccount), "Vendor Id : ");    

	dialog.run();
	return vendAccountField.value();
}

private void showLastInvoicePurchLine(VendAccount _vendAccunt)
{
	PurchLine purchLine;

	select firstonly purchLine
		order by CreatedDateTime desc
		where purchLine.PurchStatus == PurchStatus::Invoiced
           && purchLine.VendAccount == vendAccount;

	info(strFmt("VendAccount : %1 -- PurchId : %2 -- PurchStatus : %3", purchLine.VendAccount, purchLine.PurchId, purchLine.PurchStatus));
}

private void showVendInvoiceJour(VendAccount _vendAccunt)
{
	VendTrans vendTrans;
	VendInvoiceJour vendInvoiceJour;

	select vendTrans
		where vendTrans.AccountNum == vendAccount
		join vendInvoiceJour
			where vendInvoiceJour.LedgerVoucher == vendTrans.Voucher;

	info(strFmt("VoucherNum : %1", vendInvoiceJour.LedgerVoucher));
}


private void showLedgerJour(VendAccount _vendAccunt)
{
	VendInvoiceJour vendInvoiceJour;
	VendTrans vendTrans;

	// Here you're missing a join condition between ledgerJournalTable and vendTrans
	select firstOnly ledgerJournalTable
		where ledgerJournalTable.OriginalJournalNum == ledgerJournalTable.JournalNum
		join vendTrans
			where vendTrans.Voucher ==  "10APINV000010951";

	info(strFmt("JournalNum : %1", ledgerJournalTable.JournalNum));
}

private void showPurchTable(PurchId _purchId)
{
	VendInvoiceJour vendInvoiceJour;
	PurchLine 		purchLine;
	VendTable 		vendTable;
	InventDim 		inventDim;

	if (PurchTable::find(_purchId).PurchStatus != PurchStatus::Invoiced)
	{
		throw error("Given Purchase Order is not yet invoiced");
	}
	
	select firstOnly vendInvoiceJour
		where vendInvoiceJour.PurchId == _purchId;
		
	info(strFmt("InvoiceAmount: %1 -- InvoiceDate: %2 -- InvoiceId: %3 -- PurchId: %4", 
		vendInvoiceJour.InvoiceAmount,
		vendInvoiceJour.InvoiceDate,
		vendInvoiceJour.InvoiceId,
		vendInvoiceJour.PurchId));
		
	select firstOnly purchLine
		order by LineNum asc
		where purchLine.PurchId == _purchId
		join PaymMode from vendTable
			where vendTable.AccountNum == purchLine.VendAccount
		join InventSiteId, wMSLocationId from inventDim
			where inventDim.InventDimId == purchLine.InventDimId;
		
	info(strFmt("SiteId: %1 -- User: %2 -- AccountNo: %3 -- PaymentMode: %4 -- WarehouseId: %5",
		inventDim.InventSiteId,
		HcmWorker::worker2Name(HcmWorker::userId2Worker(purchLine.CreatedBy)),
		purchLine.VendAccount, 
		vendTable.PaymMode,
		inventDim.wMSLocationId));

	info(strFmt("PurchId: %1 -- ItemId: %2 -- QtyOrdered: %3",
		purchLine.PurchId,
		purchLine.ItemId,
		purchLine.QtyOrdered));
}

    Notice the comment in showLedgerJour() pointing out to a bad join.

    Also note that your join between PurchTable and VendInvoiceJour won't work in all cases. The right approach is using VendInvoicePurchLink table.

  • Keerthikeyan. k Profile Picture
    Keerthikeyan. k 10 on at
    RE: Find the Journal number against Vendor account number using X++ code in Microsoft Dynamics AX 2012

    Hi André,

    Thanks for your prompt response.

    I'm currently working on a task where I need to get a vendor Account number from the user. Fetch the last invoiced purchase order details against the vendor account number and also get related data from the "Date of amount settled", Total amount settled for the invoice, mode of payment, payment journal number with date, last invoiced purchase order total amount with invoiceId.

    So far, I have completed the following :

    * Last invoiced purchase order Details against the vendor account number.

    * Date and total amount settled for the invoice.

    * Mode of payment for Invoice.

    * Last invoiced purchase order total amount with invoiceId.

    So, I'm having difficulty getting the payment journal number with the date. Below I've inserted the code for your reference,

    public void vendinvoice1(Args args)

       {

           PurchTable  purchTable;

           PurchLine   purchLine;

           VendTable   vendTable;

           VendTrans   vendTrans;

           InventTable   inventTable;

           Inventsum   inventsum;

           InventDim   inventDim;

           InventSite   inventSite;

           VendInvoiceInfoTable    vendInvoiceInfoTable;

           VendInvoiceJour vendInvoiceJour;

           VendPaymModeTable   vendPaymModeTable;

           LedgerJournalTable  ledgerJournalTable;

           LedgerJournalTrans  ledgerJournalTrans;

           UserInfo    userInfo;

           VendAccount vendAccount;

           Voucher _Voucher;

           PurchId   purchid;

           LedgerJournalId ledgerJournalId;

           DialogField A;    

           Dialog    dialog;

            dialog = new Dialog("Vendor Details");     // Field - EDT, Label

            A = dialog.addField(extendedTypeStr(VendAccount), "Vendor Id : ");    

           dialog.run();

    select firstonly purchLine order by CreatedDateTime desc join vendTable where purchLine.VendAccount == A.value() && PurchLine.PurchStatus == PurchStatus::Invoiced;

       info(strFmt("VendAccount : %1 -- PurchId : %2 -- PurchStatus : %3", purchLine.VendAccount, purchLine.PurchId, purchLine.PurchStatus));

    select vendTrans join vendInvoiceJour where vendTrans.Voucher == vendInvoiceJour.LedgerVoucher && vendTrans.AccountNum == A.value();

       info(strFmt("VoucherNum : %1",vendInvoiceJour.LedgerVoucher));

       _Voucher = "10APINV000010951";

    select firstOnly ledgerJournalTable join vendTrans where ledgerJournalTable.OriginalJournalNum == ledgerJournalTable.JournalNum && vendTrans.Voucher ==  "10APINV000010951";

       info(strFmt("JournalNum : %1",ledgerJournalTable.JournalNum));

    purchid = "10P029245";

           if(purchTable::find(purchid).PurchStatus == PurchStatus::Invoiced)

           {

              select firstOnly vendInvoiceJour where vendInvoiceJour.PurchId == PurchId;

              info(strFmt("InvoiceAmount: %1 -- InvoiceDate: %2 -- InvoiceId: %3 -- PurchId: %4",vendInvoiceJour.InvoiceAmount, vendInvoiceJour.InvoiceDate, vendInvoiceJour.InvoiceId, vendInvoiceJour.PurchId));

              //select firstOnly purchLine where purchLine.PurchId == PurchId ;

              //info(strFmt("PurchId: %1 -- ItemId: %2 -- QtyOrdered: %3",purchLine.PurchId, purchLine.ItemId, purchLine.QtyOrdered));

              info(strFmt("SiteId: %1 -- User: %2 -- AccountNo: %3 -- PaymentMode: %4 -- WarehouseId: %5",InventDim::find(purchLine::find(purchid,1).InventDimId).InventSiteId, HcmWorker::worker2Name(HcmWorker::userId2Worker(purchLine::find(purchid,1).createdBy))

              , purchLine::find(purchid,1).Vendaccount, vendTable::find(purchLine::find(purchid,1).VendAccount).PaymMode, InventDim::find(purchLine::find(purchid,1).InventDimId).wMSLocationId));

              info(strFmt("PurchId: %1 -- ItemId: %2 -- QtyOrdered: %3",purchLine::find(Purchid,1).PurchId, purchLine::find(Purchid,1).ItemId, purchLine::find(Purchid,1).QtyOrdered));

            }

           else

           {

               throw error("Given Purchase Order is not yet invoiced");

           }

       }

    Please let me know your thoughts to take things forward.

    Thanks in Advance,

    KK.

  • André Arnaud de Calavon Profile Picture
    André Arnaud de Cal... 293,274 Super User 2025 Season 1 on at
    RE: Find the Journal number against Vendor account number using X++ code in Microsoft Dynamics AX 2012

    Hi Keerthikeyan,

    Can you explain what exactly you want to achieve?

Under review

Thank you for your reply! To ensure a great experience for everyone, your content is awaiting approval by our Community Managers. Please check back later.

Helpful resources

Quick Links

Daivat Vartak – Community Spotlight

We are honored to recognize Daivat Vartak as our March 2025 Community…

Announcing Our 2025 Season 1 Super Users!

A new season of Super Users has arrived, and we are so grateful for the daily…

Kudos to the February Top 10 Community Stars!

Thanks for all your good work in the Community!

Leaderboard

#1
André Arnaud de Calavon Profile Picture

André Arnaud de Cal... 293,274 Super User 2025 Season 1

#2
Martin Dráb Profile Picture

Martin Dráb 231,939 Most Valuable Professional

#3
nmaenpaa Profile Picture

nmaenpaa 101,156 Moderator

Leaderboard

Featured topics

End-of-life Announcement for Microsoft Dynamics GP

Product updates

Dynamics 365 release plans