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