CREATE AND POST JOURNAL VIA X++

void clicked() { LedgerJournalName ledgerJournalName; LedgerJournalTable ledgerJournalTable; LedgerJournalTable JournalTable; LedgerJournalTrans ledgerJournalTrans; LedgerJournalTrans journalcreate; LedgerJournalTrans um; DimensionAttributeValueCombination dim; LJCustTable cust; LedgerJournalCheckPost ledgerJournalCheckPost; // BGPaymentTable NumberSeq numberSeq; NumberSequenceCode NumberSequenceCode = 'BG_TLK_OUT'; NumberSeq num; // ttsbegin; // while select LedgerJournalTrans where LedgerJournalTrans.ChequeNumber == // BGPaymentTable.GiroNum // { // } select firstonly ledgerJournalName wherE ledgerJournalName.JournalName == "BG_TLK_OUT"; info (ledgerJournalName.JournalName); //Create Ledger Journal Table ledgerJournalTable.JournalName = ledgerJournalName.JournalName ; ledgerJournalTable.initFromLedgerJournalName(); ledgerJournalTable.JournalName = "BG_TLK_OUT"; ledgerJournalTable.insert(); info (ledgerJournalTable.Voucher); num = NumberSeq::newGetNumFromCode(NumberSequenceCode); ledgerJournalTable.Voucher = num.num(); // Next NumberSeq generated info (ledgerJournalTable.Voucher); ledgerJournalTrans.voucher = ledgerJournalTable.voucher; while select journalcreate join JournalTable where journalcreate.ChequeNumber == BGPaymentTable.GiroNum && JournalTable.JournalNum == journalcreate.JournalNum && JournalTable.Posted == 1 { //Create Transaction Line select firstonly * from cust where Cust.CustId == journalcreate.LJCustId; select firstonly * from dim where dim.RecId == Cust.LedgerDimension; ledgerJournalTrans.JournalNum = ledgerJournalTable.JournalNum; ledgerJournalTrans.CurrencyCode = journalcreate.CurrencyCode; ledgerJournalTrans.ExchRate = Currency::exchRate(ledgerJournalTrans.CurrencyCode); ledgerJournalTrans.LedgerDimension = Cust.LedgerDimension; ledgerJournalTrans.ChequeNumber = BGPaymentTable.GiroNum; ledgerJournalTrans.AccountType = ledgerJournalACType::Ledger; ledgerJournalTrans.AmountCurDebit =journalcreate.AmountCurDebit; ledgerJournalTrans.TransDate = today(); ledgerJournalTrans.Txt = "Giro Cancel - " + journalcreate.Txt; ledgerJournalTrans.OffsetLedgerDimension = 5637144794; ledgerJournalTrans.insert(); // info(strfmt('Journal Id: %1',ledgerJournalTable.JournalNum)); } ledgerJournalCheckPost= ledgerJournalCheckPost::newLedgerJournalTable(ledgerJournalTable,NoYes::Yes); ledgerJournalCheckPost.run(); BGPaymentTable.JournalIdCancel = ledgerJournalTrans.JournalNum; BGPaymentTable.update(); // Post Journal // ledgerJournalCheckPost = ledgerJournalCheckPost::newLedgerJournalTable(ledgerJournaltable,Noyes::Yes); // LedgerJournalCheckPost.run(); }