Saturday, August 29, 2020

Transaction Cancle/Reversal code X++

    CustTable               custTable;

    CustTrans               custTransLocal;

    Args                    args;

    str                     reasonCode;

    ReasonTable             reasonTable;

    RecId                   reasonRefRecID;

    CustVendPDCManager      custVendPDCManager;

    BankPaymCancel          bankPaymCancel;

    CICJournalTable         journalTableLine;

    LedgerJournalTrans      ledgerJournalTrans;

    AccountNum              CustAccountNum;

    DimensionAttributeLevelValueAllView         dimensionAttributeLevelValueAllView;



    reasonCode      = CICJournalTable.ReasonCode;

    reasonTable     = ReasonTable::find(reasonCode);

    reasonRefRecID  = ReasonTableRef::createReasonTableRef(reasonTable.Reason, reasonTable.Description);


    args = new Args();

//select statment for finding the vourcher related cust trans record

 select CustTransLocal

            where CustTransLocal.AccountNum ==  Customer Account

                && CustTransLocal.Voucher ==voucherNumber;

        if (CustTransLocal)

        {


            bankPaymCancel = BankPaymCancel::newBankPaymCancel(CustTransLocal);


            bankPaymCancel.parmReason(reasonTable.Reason);

            bankPaymCancel.parmReasonComment(reasonTable.Description);

            bankPaymCancel.parmTransDate(systemDateGet());


            args.caller(bankPaymCancel);

            args.record(CustTransLocal);

            BankPaymCancel::serverRun(args);

}

No comments:

Post a Comment

TFS Work space configuration

Refer below link:  https://d365byjp.blogspot.com/2018/10/steps-to-configure-tfsvsts-workspace-in.html