Skip to Content
0
Former Member
Sep 16, 2009 at 02:16 PM

how to handle events on standard toolbar

74 Views

hi, the following code i worte is to load a form and fill data from db table ..but i'm getting only one record and the buttons on standard toolbar like next, previous, first and last are not enabled and not working...what should i do? plz give me the code....

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim SboGuiApi As SAPbouiCOM.SboGuiApi

Dim sConnectionString As String

Dim SBO_Application As SAPbouiCOM.Application

Dim oDICompany As SAPbobsCOM.Company

Dim ret As Long

SboGuiApi = New SAPbouiCOM.SboGuiApi

sConnectionString = Environment.GetCommandLineArgs.GetValue(1)

sConnectionString = Command()

SboGuiApi.Connect(sConnectionString)

SBO_Application = SboGuiApi.GetApplication

oDICompany = New SAPbobsCOM.Company

Dim sCookie As String

sCookie = oDICompany.GetContextCookie()

Dim conStr As String

conStr = SBO_Application.Company.GetConnectionContext(sCookie)

ret = oDICompany.SetSboLoginContext(conStr)

If Not ret = 0 Then

Exit Sub 'the operation has failed.

End If

ret = oDICompany.Connect()

If ret <> 0 Then

SBO_Application.MessageBox("Failed")

Else

SBO_Application.MessageBox("Connected to Database")

End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' loading(Form)

Dim oForm As SAPbouiCOM.Form

Dim creationPackage As SAPbouiCOM.FormCreationParams

Dim oxmldoc As New Xml.XmlDocument 'u2026when using .netu2019s system.xml

'create the formcreationparams object

creationPackage = SBO_Application.CreateObject( _

SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)

'please note: these parameters override corresponding data in the xml

creationPackage.UniqueID = "Sales 111"

creationPackage.FormType = "Sales Order"

creationPackage.BorderStyle = SAPbouiCOM.BoFormBorderStyle.fbs_Sizable

'just a sample for an xml string describing a formu2026 same as used for loadbatchactions

oxmldoc.Load("c:program filessapsap business oneSales Order.srf")

creationPackage.XmlData = oxmldoc.InnerXml

'add the form to the sbo application

oForm = SBO_Application.Forms.AddEx(creationPackage)

'set the form title and set it visible!

oForm.Visible = True

''''''''''''''''''''''''''''''Data Binding

'''''''''''binding data from DBDataSource to form items

Dim oDBDataSource As SAPbouiCOM.DBDataSource

Dim oItem As SAPbouiCOM.Item

Dim oEdit As SAPbouiCOM.EditText

'''''1st edit box

oItem = oForm.Items.Item("4")

oEdit = oItem.Specific

oForm.DataSources.DBDataSources.Add("AACT")

oEdit.DataBind.SetBound(True, "AACT", "AcctCode")

' getting the data sources bound to the form

oDBDataSource = oForm.DataSources.DBDataSources.Item("AACT")

oDBDataSource.Query()

'''''2nd edit box

oItem = oForm.Items.Item("5")

oEdit = oItem.Specific

oForm.DataSources.DBDataSources.Add("AACT")

oEdit.DataBind.SetBound(True, "AACT", "AcctName")

' getting the data sources bound to the form

oDBDataSource = oForm.DataSources.DBDataSources.Item("AACT")

oDBDataSource.Query()

''''3rd edit box

oItem = oForm.Items.Item("6")

oEdit = oItem.Specific

oForm.DataSources.DBDataSources.Add("AACT")

oEdit.DataBind.SetBound(True, "AACT", "CurrTotal")

' getting the data sources bound to the form

oDBDataSource = oForm.DataSources.DBDataSources.Item("AACT")

oDBDataSource.Query()

End Sub