Skip to Content

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

how to work with multiple forms

Hi

I am developing an application in which it contain 6 forms..

i am able to create them and run a single form.. now,, i have to implement code for all the remaining forms.. what shall i do..

this is wht i wrote for a add mode of one single form ..

Private Sub SBO_Application_MenuEvent(ByRef pVal As SAPbouiCOM.MenuEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.MenuEvent

If (pVal.MenuUID = "1282") And (pVal.BeforeAction = False) Then '1282 for Add Mode

oForm = SBO_Application.Forms.Item("TBL_QPLAN_")

'oForm.Select()

getNextDocNum()

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

oMatrix = oItem.Specific

oColumns = oMatrix.Columns

oMatrix.AddRow()

End If

Now there are many forms how to write the code to select and operate that particular form..

Thanks regarding.

replied

Hi..

use this code..

Give menu event

If pVal.BeforeAction = False Then

Try

Select Case pVal.MenuUID

Case "MenuID"

LoadFromXml1("1.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Case "MenuID"

LoadFromXml2("2.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Case "MenuID"

LoadFromXml3("3.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Case "MenuID"

LoadFromXml4("4.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Case "MenuID"

LoadFromXml4("5.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Case "MenuID"

LoadFromXml4("6.srf")

FormS = SBO_Application.Forms.Item("Fourm Uid")

Catch ex As Exception

SBO_Application.MessageBox(ex.Message)

End Try

End Select

Regards...

Billa 2007

0 View this answer in context
Not what you were looking for? View more on this topic or Ask a question