Updating the GL and BP Opening Balance

Question

Hi
Can anybody help on the logic to update the GL and BP opening balance thru SDK
Regards
Sundaram

Answer 1

Hi,
U can use this Method.. CreateOpenBalance and check the following sample code provided by SAP.
Dim oAccountsService As SAPbobsCOM.AccountsService
Dim oOpenningBalanceAccount As SAPbobsCOM.OpenningBalanceAccount
Dim oGLAccounts As SAPbobsCOM.GLAccounts
Dim oGLAccountFirst As SAPbobsCOM.GLAccount
Dim oGLAccountSecond As SAPbobsCOM.GLAccount
'get company service
oCmpSrv = oCompany.GetCompanyService
'get accounts service
oAccountsService = oCmpSrv.GetBusinessService(ServiceTypes.AccountsService)
'get Accounts Service Data Interface
oOpenningBalanceAccount = oAccountsService.GetDataInterface(AccountsServiceDataInterfaces.a sdiOpenningBalanceAccount)
'set the account code(account name = Common Stock (HO, USA, GA ))
'for the openning balance account
oOpenningBalanceAccount.OpenBalanceAccount="_SYS00000000078"
'set the details
oOpenningBalanceAccount.Details = "G/L Accounts Opening Balance"
'set the date
oOpenningBalanceAccount.Date = Date.Today
'get ref to GlAccounts
oGLAccounts = oAccountsService.GetDataInterface(AccountsServiceDataInterfaces.a sdiGLAccounts)
'add accounts that will be in credit or in debit
'add first account
oGLAccountFirst = oGLAccounts.Add
'set the account code
'(account name = "Sales Revenues - Services (HO, USA, GA )"
oGLAccountFirst.Code ="_SYS00000000083"
'set credit amount
oGLAccountFirst.Credit = 300
'add second account
oGLAccountSecond = oGLAccounts.Add
'set the account code
'(account name = Sales Revenues - Foreign (HO, USA, GA ))
oGLAccountSecond.Code ="_SYS00000000082"
'set credit amount
oGLAccountSecond.Credit = 300
'create the balance for the first and second accounts from the Openning 'Balance Account
oAccountsService.CreateOpenBalance(oOpenningBalanceAccount, oGLAccounts)
Hope it helps,
Vasu Natari.