Hey Folks ,
This blog post is in continuation of the previous post for Reversing Free Text Invoice Voucher entries with Dialog. Only difference is this time we are doing it without dialog or you can say by suppressing
For doing it we have extended TransactionReversal_Cust class.
We have a staging table FTIVouchers which contains the Voucher Number to be reversed.
We can use the below code to achieve this : -
class TransactionReversal extends TransactionReversal_Cust
{
public static TransactionReversal construct()
{
return new TransactionReversal();
}
public boolean showDialog()
{
return false;
}
public static void main(Args _args)
{
CustTrans custTrans;
FTIVouchers vouchers;
TransactionReversal transactionReversal;
ReasonTable reasonTable;
ReasonCode reasonCode;
ReasonRefRecID reasonRefRecID;
InvoiceId invoiceId;
Args args;
while select vouchers where vouchers.Voucher!=''
{
args = new Args();
custTrans = CustTrans::findByVoucher(vouchers.Voucher);
args.record(custTrans);
reasonCode = 'XYZ';
reasonTable = ReasonTable::find(reasonCode);
reasonRefRecID = ReasonTableRef::createReasonTableRef(
reasonTable.Reason, vouchers.Voucher+'REV');
transactionReversal = transactionReversal::construct();
transactionReversal.parmReversalDate(custTrans.TransDate);
transactionReversal.parmReasonRefRecId(reasonRefRecID);
transactionReversal.reversal(args);
info(strFmt("%1 %2 %3 %4 reversed.",
custTrans.Voucher,
custTrans.TransDate,
custTrans.Invoice,
custTrans.Txt));
}
}
}
}
That's all for now. Please let us know your questions or feedback in comments section !!!!
No comments:
Post a Comment