Skip to Content
0
Former Member
Feb 05, 2009 at 06:36 AM

Journel Entry

31 Views

Hi Guys,

i am using this code for generate new Journal entry.

Dim vJE As SAPbobsCOM.JournalEntries

vJE = OCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oJournalEntries)

accntcode1="101010"

vJE.Lines.SetCurrentLine(0)

vJE.TaxDate = Now

vJE.Lines.AccountCode = accntcode1

vJE.Lines.ContraAccount = "450020"

vJE.Lines.Credit = 200

vJE.Lines.Debit = 0

vJE.Lines.DueDate = CDate(Now)

vJE.Lines.ReferenceDate1 = Now

vJE.Lines.ShortName = accntcode1

vJE.Lines.TaxDate = Now

Call vJE.Lines.Add()

vJE.TaxDate = Now

vJE.Lines.AccountCode = "450020"

vJE.Lines.ContraAccount = accntcode1

vJE.Lines.Credit = 200

vJE.Lines.Debit = 0

vJE.Lines.DueDate = CDate(Now)

vJE.Lines.ReferenceDate1 = Now

vJE.Lines.ShortName = "450020"

vJE.Lines.TaxDate = Now

Call vJE.Lines.Add()

Coding is working fine .. its not showing any error but its not creating new JE in jE form. its also not updating CoA value.

another code which i had used.

vJE.Lines.SetCurrentLine(0) '; '''''''''' 0

vJE.Lines.AccountCode = accntcode1 ';

vJE.Lines.Debit = 500 'Convert.ToDouble(strSum1) '; '''' for first debit

vJE.Lines.Add() ';

vJE.Lines.AccountCode = "101500" ';

vJE.Lines.Credit = 500 'Convert.ToDouble(strSum1) '; '''' for first credit

vJE.Lines.Add() ';

please i want suggestion ..

Regards,

Avijit