Public static boolean processPayment(BAModule BAModule)
{
ledgerJournalName JournalName
;
ledgerJournalCheckPost JournalCheckPost;
ledgerJournalTable JournalTable;
ledgerJournalTrans JournalTrans;
JournalCheckPost JournalCheckPost;
Common common;
NumberSeq numberseq;
CustTrans custTrans;
CustTransOpen custTransOpen;
Specification specOffsetVoucher;
BAParameters parameters = BAParameters::find();
CustTable custTable = CustTable::find(BAModule.CustAccount);
boolean return = false;
InvoiceId invoiceId;
;
while select custTransOpen
where custTransOpen.RefRecIdCheck == BaModule.RecId
&&
custTransOpen.UseRefRecId
{
custTrans = custTransOpen.custTrans();
invoiceId = custTrans.Invoice;
try
{
ttsbegin;
select firstonly JournalName
where JournalName .JournalName == parameters.JournalName Id
&&
JournalName .JournalType == LedgerJournalType::CustPayment;
if(!JournalName .RecId)
throw error("@11250");
if(JournalName )
{
JournalTable.JournalName = JournalName .JournalName;
JournalTable.Name = JournalName .Name;
JournalTable.insert();
if(JournalTable)
{
numberseq = NumberSeq::NewGetVoucherFromCode(JournalName .VoucherSeries);
JournalTrans.JournalNum = JournalTable.JournalNum;
JournalTrans.Voucher = numberseq.voucher();
JournalTrans.TransDate = today();
JournalTrans.Txt = CustTable::find(JournalTrans.AccountNum).Name;
JournalTrans.OffsetAccountType = JournalName .OffsetAccountType;
JournalTrans.OffsetAccount = JournalName .OffsetAccount;
JournalTrans.Dimension = JournalName .Dimension;
JournalTrans.CurrencyCode = JournalTable.CurrencyCode;
JournalTrans.AccountType = LedgerJournalACType::Cust;
JournalTrans.TransactionType = LedgerTransType::Payment;
JournalTrans.PaymMode = parameters.PaymMode;
JournalTrans.SettleVoucher =
SettlementType::SelectedTransact;
JournalTrans.AccountNum = custTable.AccountNum;
JournalTrans.AmountCurCredit = custTransOpen.AmountCur;
JournalTrans.ExchRate = ExchRates::find(JournalTable.CurrencyCode,
datenull(), NoYes::No, NoYes::No).ExchRate;
JournalTrans.insert();
select custTransOpen
where custTransOpen.AccountNum == custTable.AccountNum
&&
custTransOpen.RefRecId ==
CustTrans::findFromInvoice(invoiceId).RecId;
if(custTransOpen)
{
common = JournalTrans;
specOffsetVoucher =
Specification_OffsetVoucher::newCommon(common, true);
if (!specOffsetVoucher.isMarked(custTransOpen.TableId,
custTransOpen.RecId))
if (JournalTrans.RecId)
specOffsetVoucher.create(custTransOpen.TableId,
custTransOpen.RecId, custTransOpen.AmountCur, JournalTable.CurrencyCode);
}
JournalCheckPost = JournalCheckPost::newJournalTable(JournalTable,
NoYes::Yes);
JournalCheckPost.run();
return = true;
}
}
ttscommit;
}
catch
{
ttsabort;
return = false;
}
}
return return;
}
