How to Retrieve the Purchase Order Number in the LedgerTransAccount Form using X++ in D365 Finance & Operations

 How to Retrieve the Purchase Order Number in the LedgerTransAccount Form using X++ in D365 Finance & Operations

[ExtensionOf(tableStr(GeneralJournalEntry ))]

internal final class GeneralJournalEntryTable_Extension

{

 public display Name Ponumber()

    {

        Name                    ret;  

        VendInvoiceJour         VendInvoiceJour;

        VendTrans               VendTrans;

        VENDPACKINGSLIPVERSION  VENDPACKINGSLIPVERSION;

        VENDPACKINGSLIPJOUR     VENDPACKINGSLIPJOUR;

        select VendTrans

            where VendTrans.Voucher == this.SubledgerVoucher;

        select VendInvoiceJour where VendInvoiceJour.LedgerVoucher ==VendTrans.Voucher

            &&  VendInvoiceJour.InvoiceAccount ==VendTrans.AccountNum

            &&  VendInvoiceJour.InvoiceDate ==VendTrans.TransDate;

        if(VendInvoiceJour)

        {

            ret = VendInvoiceJour.PurchId;

        }

        

        SELECT VENDPACKINGSLIPJOUR FROM VENDPACKINGSLIPVERSION

            WHERE VENDPACKINGSLIPVERSION.LEDGERVOUCHER ==this.SubledgerVoucher;

        SELECT PACKINGSLIPId FROM VENDPACKINGSLIPJOUR

            WHERE VENDPACKINGSLIPJOUR.RECID == VENDPACKINGSLIPVERSION.VENDPACKINGSLIPJOUR;

        if(VENDPACKINGSLIPJOUR)

        {

            ret = VENDPACKINGSLIPJOUr.purchid;

        }

        return ret;

    }

}