Skip to main content

Notifications

Announcements

No record found.

Microsoft Dynamics AX (Archived)

How to get last purchased date for all items

Posted on by 1,879

Hi Experts;

I am trying to get last purchased date for all items using below X++

 While  select inventTrans order by ItemId where  inventTrans.StatusReceipt == StatusReceipt::Purchased

     join  queryInventTable where inventTrans.ItemId == queryInventTable.ItemId
     join  inventTransOrigin where inventTrans.ItemId == inventTransOrigin.ItemId && inventTrans.InventTransOrigin==inventTransOrigin.RecId
     && inventTransOrigin.ReferenceCategory == InventTransType::Purch
{
info(strFmt("Item Id %1 Last Purchased Date %2 ",inventTrans.ItemId,inventTrans.DateFinancial));
}
Can anyone update X++ code to get correct information.
Thanks in advance.

*This post is locked for comments

  • Verified answer
    Rustem Galiamov Profile Picture
    Rustem Galiamov 8,072 on at
    RE: How to get last purchased date for all items

    Hi faiz7049!

    Try this:

    static void Job214(Args _args)
    {
        InventTable         inventTable;
        InventTrans         inventTrans,
                            inventTransExists;
        InventTransOrigin   inventTransOrigin,
                            inventTransOriginExists;
        int                 i;
        
        while select inventTable
            order by ItemId
        exists join inventTransExists 
            where inventTransExists.ItemId        == inventTable.ItemId 
               && inventTransExists.StatusReceipt == StatusReceipt::Purchased
        exists join inventTransOriginExists
            where inventTransOriginExists.RecId             == inventTransExists.InventTransOrigin
               && inventTransOriginExists.ReferenceCategory == InventTransType::Purch
        {
            i++;
            
            select firstonly inventTrans 
                order by DateFinancial desc
                where inventTrans.ItemId        == inventTable.ItemId 
                   && inventTrans.StatusReceipt == StatusReceipt::Purchased
            join inventTransOrigin
                where inventTransOrigin.RecId             == inventTrans.InventTransOrigin
                   && inventTransOrigin.ReferenceCategory == InventTransType::Purch;
            
            info(strFmt("%1 - %2 - %3", inventTable.ItemId, inventTransOrigin.ReferenceId, inventTrans.DateFinancial));
            
            if (i > 10)
                break;
        }
    }


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

December Spotlight Star - Muhammad Affan

Congratulations to a top community star!

Top 10 leaders for November!

Congratulations to our November super stars!

Tips for Writing Effective Suggested Answers

Best practices for providing successful forum answers ✍️

Leaderboard

#1
André Arnaud de Calavon Profile Picture

André Arnaud de Cal... 291,280 Super User 2024 Season 2

#2
Martin Dráb Profile Picture

Martin Dráb 230,214 Most Valuable Professional

#3
nmaenpaa Profile Picture

nmaenpaa 101,156

Leaderboard

Featured topics

Product updates

Dynamics 365 release plans