{
LedgerJournalCheckPost ledgerJournalCheckPost;
LedgerJournalTrans _LedgerJournalTrans;
responsecodeStatus =incoming::find(responsecode,false).Responsecodes;
responscedescription = Incoming::find(responsecode,false).ResponseDescription;
customerAccount = CustTable::findByLedgerDimension(ledgerJournaltrans.LedgerDimension).AccountNum;
ttsBegin;
while select forUpdate _LedgerJournalTrans
where _LedgerJournalTrans.JournalNum == _ledgerjournaltable.JournalNum
{
if(responsecodeStatus == ResponseCodes::Rejected && _LedgerJournalTrans.Voucher == _journalVoucher)
{
ledgerjournaltrans.selectForUpdate(true);
ledgerjournaltrans.ResponseCode = responsecode2;
ledgerjournaltrans.ResponseDescription = responscedescription;
ledgerjournaltrans.PaymentStatus = str2enum(CustVendPaymStatus,enum2str(responsecodeStatus));
ledgerjournaltrans.TransDate = billingdate;
ledgerjournaltrans.LoginDate = systemDateGet();
ledgerjournaltrans.CurrencyCode = 'SGD';
ledgerJournalTrans.update();
}
else
if(responsecodeStatus == ResponseCodes::Approved && _LedgerJournalTrans.Voucher == _journalVoucher)
{
_LedgerJournalTrans.selectForUpdate(true);
_LedgerJournalTrans.ResponseCode = responsecode2;
_LedgerJournalTrans.ResponseDescription = responscedescription;
_LedgerJournalTrans.PaymentStatus = str2enum(CustVendPaymStatus,enum2str(responsecodeStatus));
_LedgerJournalTrans.TransDate = billingdate;
_LedgerJournalTrans.LoginDate = systemDateGet();
_LedgerJournalTrans.CurrencyCode = 'SGD';
_LedgerJournalTrans.update();
select _LedgerJournalTrans where _LedgerJournalTrans.JournalNum == LedgerJournalTable.JournalNum
&& _LedgerJournalTrans.Voucher == _journalVoucher;
ledgerJournalCheckPost = LedgerJournalCheckPost::construct(_ledgerjournaltable.JournalType);
ledgerJournalCheckPost = LedgerJournalCheckPost::newLedgerJournalTable(_ledgerjournaltable, NoYes::Yes);
ledgerJournalCheckPost = LedgerJournalCheckPost::newLedgerJournalTrans(_LedgerJournalTrans, LedgerJournalVoucher::Voucher, NoYes::Yes,NoYes::Yes,NoYes::Yes);
ledgerJournalCheckPost.run();
info(strFmt("Journal posted -",'%1', _ledgerjournaltable.JournalNum));
}
}
ttsCommit;
info(strFmt("No Journals to post"));
}