Settle Clearing Entries (Postdated Check) Status
Recently I face the issue that after posting of payment journal status of a post-dated check was not changed from Open to Post. I have lots of R&D in this but no luck,
So I write a batch job where will change the status of custVendPosted check for me.
LedgerJournalTable
_ledgerJournalTable;
LedgerJournalTrans _ledgerJournalTrans;
CustVendPDCRegister custPDC;
Counter _counter=0;
while select forUpdate
custPDC
where
custPDC.PDCStatus==PostDatedCheckStatus::Open
&& custPDC.MaturityDate
> systemDateGet()
exists
join _ledgerJournalTrans
where
custPDC.LedgerJournalTrans==_ledgerJournalTrans.RecId
exists
join _ledgerJournalTable
where
_ledgerJournalTrans.JournalNum==_ledgerJournalTable.JournalNum
&&
_ledgerJournalTable.Posted==NoYes::Yes
{
_counter++;
custPDC.PDCStatus=PostDatedCheckStatus::Posted;
ttsBegin;
custPDC.update();
ttsCommit;
}
info(strFmt("Total Number %1 of records updated on %2.",_counter,today()));
