AddOn Development

Question

Hi Eddy,
I have a doubt in Creating Form using UDO. iam creating 2 form one is parent and another form is for child.Parent form is bounded to parent table and child form is bounded to child table.Both form contains the same Object type 'OCAT'
Problem :
1)I have created 2 Tables in the object Type Master Data and Master Data Rows.
2)For the parent table,i added 1 column as Category.
3)Then i added CatInfo Field for the Child table.
4)Then i registered the above in UDO with the object Type "OCAT"
5)Then i designed a form in screen painter by setting the object type as "OISP".
6)Here i added 2 Edit Text one for Code and another for Category.
7)Then i added a button for opening a Child form for entering the Category info.
8)In the another form(Child Form),i added a matrix with CatInfo Column.
9)Then i added two button with uniqueID 1 and 2.
Public Class CategoryClass
   Inherits GeneralLib.B1Form
#Region "Variable Declaration"
   Private oCode, oCategory As SAPbouiCOM.EditText
   Private StrCurFormID As String
#End Region
   Public Sub New()
       MyBase.New("Category.srf")
       StrCurFormID = SBO_Application.Forms.ActiveForm.UniqueID
       Form.DataSources.DBDataSources.Item("@OCAT")
       InitializeFormComponent()
       Form.DataBrowser.BrowseBy = "CatTxt"
       If Form.Mode = SAPbouiCOM.BoFormMode.fm_FIND_MODE Then
           Form.Items.Item("CodeTxt").Enabled = True
       End If
   End Sub
   Private Sub InitializeFormComponent()
       Try
           oCode = Form.Items.Item("CodeTxt").Specific
           oCode.DataBind.SetBound(True, "@OCAT", "Code")
           oCategory = Form.Items.Item("CatTxt").Specific
           oCategory.DataBind.SetBound(True, "@OCAT", "U_Category")
           oCategory.Active = True
       Catch ex As Exception
           Throw ex
       End Try
   End Sub
   Private Sub CategoryClass_AddMenuClick(ByVal MenuID As String, ByVal FormID As String) Handles Me.AddMenuClick
       Try
           If MenuID = "1282" And FormID = StrCurFormID Then
               If Form.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE Then
                   Form.Items.Item("CodeTxt").Enabled = False
                   oCode.Value = GenerateSerialNo("OCAT")
               End If
           End If
       Catch ex As Exception
           SBO_Application.SetStatusBarMessage(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, True)
       End Try
   End Sub
   Private Sub CategoryClass_ItemPressed(ByVal ControlName As String, ByVal ColumnUID As String) Handles Me.ItemPressed
       Dim ChildClass As ChildClass
       Try
           If ControlName = "1" Then
               If Form.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE Then
                   Form.Items.Item("CodeTxt").Enabled = False
                   oCode.Value = GenerateSerialNo("OCAT")
               End If
           End If
           If ControlName = "LinkBtn" Then
               ChildClass = New ChildClass()
           End If
       Catch ex As Exception
           SBO_Application.SetStatusBarMessage(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, True)
       End Try
   End Sub
End Class
Child Form :
Public Class ChildClass
   Inherits GeneralLib.B1Form
   Private StrCurFormID As String
   Private oMatrix As SAPbouiCOM.Matrix
   Private oColumns As SAPbouiCOM.Columns
   Private ocolumn As SAPbouiCOM.Column
   Private oCode As SAPbouiCOM.EditText
   Public Sub New()
       MyBase.New("Child.srf")
       StrCurFormID = SBO_Application.Forms.ActiveForm.UniqueID
       Form.DataSources.DBDataSources.Item("@OCAT")
       InitializeFormComponent()
       'oMatrix.AddRow(1, oMatrix.RowCount)
   End Sub
   Private Sub InitializeFormComponent()
       Try
           oMatrix = Form.Items.Item("ChildMat").Specific
           oColumns = oMatrix.Columns
           ocolumn = oColumns.Item("Code")
           ocolumn.DataBind.SetBound(True, "@CAT1", "Code")
           ocolumn = oColumns.Item("catInfo")
           ocolumn.DataBind.SetBound(True, "@CAT1", "U_CatInfo")
       Catch ex As Exception
           Throw ex
       End Try
   End Sub
   Private Sub ChildClass_AddMenuClick(ByVal MenuID As String, ByVal FormID As String) Handles Me.AddMenuClick
       Try
           If MenuID = "1282" Then
               If Form.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE Then
                   oMatrix.AddRow(1)
                   oCode = oMatrix.Columns.Item("Code").Cells.Item(oMatrix.RowCount).Specific
                   oCode.Value = GenerateSerialNo("CAT1")
                   'Form.Items.Item("CodeTxt").Enabled = False
                   ''GenerateSerialNo("CAT1")
               End If
           End If
       Catch ex As Exception
           SBO_Application.SetStatusBarMessage(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, True)
       End Try
   End Sub
End Class
Will you please provide me some solutions on the same.
Regards
Mohana.

Answer 1

Hi Vasu,
It is not solved.Still Iam having some doubt.If Iam using two forms (Parent and Child form) without registering in UDO means then how to transfer my data from child form to the parent form.
i.e.If I added some data in child form and clicked update,i want to store the data temporarily.After that all the operations completed in parent form and clicked add/Update it should save both the parent details and the child details.For that reason i have to transfer the data from child to parent while clicking add in parent form.
How should i achieve this.
Regards
Mohana