I wrote the following script but I couldn't see the transactions it should have created. Does somebody know what I am missing ?
BR
static void Job25(Args _args)
{
LedgerVoucher ledgerVoucher;
LedgerVoucherObject ledgerVoucherObject;
LedgerVoucherTransObject ledgerVoucherTransObject;
TransDate transDate=mkDate(15,3,2002);
voucher voucher;
boolean creditNote=false;
NumberSeq numberSeq = NumberSeq::newGetVoucher(SalesParameters::numRefInvoiceId());
SalesTable salesTable;
SalesLine salesLine;
;
select salesTable
where salesTable.CustAccount == '4000' &&
salesTable.SalesId=='00017_036';
select salesLine
where salesLine.SalesId == salesTable.SalesId;
ledgerVoucher=ledgerVoucher::newLedgerPost(DetailSummary::Summary,
SysModule::Sales,
numberSeq.parmNumberSequenceCode());
voucher=numberSeq.voucher();
ledgerVoucherObject=ledgerVoucherObject::newVoucher(voucher,
transDate,
SysModule::Sales,
LedgertransType::None,
creditNote,
OperationsTax::Current);
ledgerVoucher.AddVoucher(ledgerVoucherObject);
ledgerVoucherTransObject=
ledgerVoucherTransObject::newCreateTrans(ledgerVoucherObject,
LedgerPostingType::SalesRevenue,
InventTable::find(SalesLine.ItemId).accountStdProfit(), SalesRevenue Ledger Account
salesLine.Dimension,
salesTable.CurrencyCode,
salesLine.SalesPrice,
salesLine.RecId);
ledgerVoucher.addTrans(ledgerVoucherTransObject);
print InventTable::find(SalesLine.ItemId).accountStdProfit();
ledgerVoucherTransObject=
ledgerVoucherTransObject::newCreateTrans(ledgerVoucherObject,
LedgerPostingType::SalesRevenue,
InventTable::find(SalesLine.ItemId).accountStdProfit(), SalesRevenue Ledger Account
salesLine.Dimension,
salesTable.CurrencyCode,
-salesLine.SalesPrice,
salesLine.RecId);
ledgerVoucher.addTrans(ledgerVoucherTransObject);
print InventTable::find(SalesLine.ItemId).accountStdProfit();
ledgerVoucher.post();
ledgerVoucher.end();
}
---------------------------------
New Yahoo! Messenger with Voice. Call regular phones from your PC and save big.
[Non-text portions of this message have been removed]
SPONSORED LINKS
| Computer part | Programming languages | Microsoft axapta |
| Support exchange |
YAHOO! GROUPS LINKS
- Visit your group "development-axapta" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
