/
LedgerJournalImport.txt
66 lines (53 loc) · 2.47 KB
/
LedgerJournalImport.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
void clicked()
{
LedgerJournalName LedgerJournalName;
LedgerJournalTable ledgerJournalTable;
LedgerJournalTrans ledgerJournalTrans;
LedgerJournalImports ldgerJournalImports;
LedgerJournalCheckPost ledgerJournalCheckPost;
boolean processed = false;
NumberSeq numberSeq;
;
ttsbegin;
// Find a ledgerJournalName record
select firstonly LedgerJournalName where LedgerJournalName.JournalType == LedgerJournalType::Daily;
//Created the ledgerJournalTable
ledgerJournalTable.JournalName = LedgerJournalName.JournalName;
ledgerJournalTable.initFromLedgerJournalName();
ledgerJournalTable.Name = 'Daily Payroll Journal';
ledgerJournalTable.insert();
numberSeq = NumberSeq::newGetVoucherFromCode(ledgerJournalTable.VoucherSeries);
while select forUpdate ldgerJournalImports where ldgerJournalImports.Processed == NoYes::No
{
ledgerJournalTrans.Voucher = numberseq.voucher();
//Generate the transaction line
ledgerJournalTrans.JournalNum = ledgerJournalTable.JournalNum;
ledgerJournalTrans.CurrencyCode = 'ZWL';//ldgerJournalImports.CurrencyCode;
//ledgerJournalTrans.ExchRate = Currency::exchRate(ledgerJournalTrans.CurrencyCode);
ledgerJournalTrans.AccountNum = ldgerJournalImports.AccountType;
ledgerJournalTrans.AccountType = LedgerJournalACType::Bank;
ledgerJournalTrans.AmountCurCredit = ldgerJournalImports.Credit;
ledgerJournalTrans.AmountCurDebit = ldgerJournalImports.Debit;
ledgerJournalTrans.TransDate = today();
ledgerJournalTrans.Txt = ldgerJournalImports.TransactionTxt;
ledgerJournalTrans.OffsetAccount = ldgerJournalImports.OffsetAccount;
ledgerJournalTrans.OffsetAccountType = LedgerJournalACType::Ledger;
ledgerJournalTrans.insert();
info(strfmt('Journal Id:%1',ledgerJournalTable.JournalNum));
processed = true;
}
ttscommit;
if(processed == true)
{
ttsbegin;
while select forUpdate ldgerJournalImports where ldgerJournalImports.Processed == NoYes::No
{
ldgerJournalImports.Processed = NoYes::Yes;
ldgerJournalImports.update();
}
info('Successfully created a journal');
ttscommit;
}
LedgerJournalImports_ds.executeQuery();
LedgerJournalImports_ds.research(true);
}