Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

Is it Possible to pass Journal Entry from DI Server??

Hi DI Server Experts,

Can i able to pass Journal Entry through DI Server?

Thanks in Advance

Regards,

G.Suresh

Former Member
Former Member replied

hi,

Dim vJE As SAPbobsCOM.JournalEntries

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

vJE.TaxDate = Now

vJE.Memo = "Remarks"

Dim DbAcct, CrAcct As String

CrAcct = oedit1.Value

DbAcct = oedit2.Value

vJE.Lines.AccountCode = DbAcct

vJE.Lines.ContraAccount = CrAcct

vJE.Lines.Credit = 0

vJE.Lines.Debit = 100

vJE.Lines.DueDate = Now

vJE.Lines.ReferenceDate1 = Now

vJE.Lines.ShortName = DbAcc

vJE.Lines.TaxDate = Now

Call vJE.Lines.Add()

Call vJE.Lines.SetCurrentLine(1)

vJE.Lines.AccountCode = CrAcct

vJE.Lines.ContraAccount = DbAcct

vJE.Lines.Credit = 100

vJE.Lines.Debit = 0

vJE.Lines.DueDate = Now

vJE.Lines.ReferenceDate1 = Now

vJE.Lines.ShortName = CrAcct

vJE.Lines.TaxDate = Now

lRetCode = vJE.Add()

If lRetCode <> 0 Then

BubbleEvent = False

anotherCompany.GetLastError(lErrCode, sErrMsg)

SBO_Application.StatusBar.SetText(lErrCode & " : " & sErrMsg, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)

End If

regards,

varma

0 View this answer in context

Helpful Answer

by
Not what you were looking for? View more on this topic or Ask a question