postVoucherThroughJournal

static void postVoucherThroughJournal(Args _args)

{

Dialog dialog = new Dialog("Ledger Posting Example");

DialogField ledgerAccountField;

DialogField offsetAccountField;

DialogField ledgerJournalDescription;

DialogField ledgerAmount;

DialogField ledgerTransDescription;

LedgerJournalTable ledgerJournalTable;

LedgerJournalTrans ledgerJournalTrans;

LedgerJournalCheckPost ledgerJournalCheckPost;

NumberSeq numberSeq;

;

dialog.addGroup("Post Ledger Voucher");

//Add Fields

ledgerAccountField = dialog.addField(typeid(LedgerAccount), "Ledger Account");

offsetAccountField = dialog.addField(typeid(LedgerAccount), "Offset Account");

ledgerJournalDescription = dialog.addField(typeid(Name), "Journal Name");

ledgerAmount = dialog.addField(typeid(AmountCurDebit), "Debit Amount");

ledgerTransDescription = dialog.addField(typeid(Name), "Transaction Text");

if(dialog.run())

{

ttsbegin;

//STEP1: INSERT Journal Header

ledgerJournalTable.JournalName = 'Day1'; /This is the journal name.

ledgerJournalTable.initFromLedgerJournalName();

ledgerJournalTable.Name = ledgerJournalDescription.value();

ledgerJournalTable.insert();

//STEP2: INSERT Journal Details

numberSeq = NumberSeq::newGetVoucherFromCode(LedgerJournalName::find(ledgerJournalTable.JournalName).VoucherSeries);

ledgerJournalTrans.Voucher = numberSeq.voucher();

ledgerJournalTrans.JournalNum = ledgerJournalTable.JournalNum;

ledgerJournalTrans.CurrencyCode = CompanyInfo::standardCurrency();

ledgerJournalTrans.ExchRate = Currency::exchRate(ledgerJournalTrans.CurrencyCode);

ledgerJournalTrans.AccountNum = ledgerAccountField.value();

ledgerJournalTrans.AmountCurDebit = ledgerAmount.value();

ledgerJournalTrans.TransDate = Today();

ledgerJournalTrans.OffsetAccount = offsetAccountField.value();

ledgerJournalTrans.Txt = ledgerTransDescription.value();

ledgerJournalTrans.insert();

//Post Journal into Ledger Accounts

ledgerJournalCheckPost = LedgerJournalCheckPost::newLedgerJournalTable(ledgerJournalTable, NoYes::Yes);

ledgerJournalCheckPost.run();

ttscommit;

Info(StrFmt("Journal %1 is posted", ledgerJournalTable.JournalNum));

}

}