📚 SAP Business One SDK Help

CreateOpenBalance Method
See Also  Example
pIOpenningBalanceAccount
Specifies the openning balance account.
pGLAccounts
Specifies the G/L accounts collection.

Description

Transfers credit or debit amounts from a specified opening balance account to one or more G/L accounts.

Syntax

Visual Basic
Public Sub CreateOpenBalance( _
   ByVal pIOpenningBalanceAccount As OpenningBalanceAccount, _
   ByVal pGLAccounts As GLAccounts _
)

Parameters

pIOpenningBalanceAccount
Specifies the openning balance account.
pGLAccounts
Specifies the G/L accounts collection.

Example

The following is a VB.NET sample that creates openning balances for two G/L accounts.
CreateOpenBalance (Visual Basic)Copy Code
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)

See Also