How to get XML form.

Question

Hi All,
Can anybody suggest me how to get XML file of System form.
Means i want XML file of Sales order. Where i get it ?
Thanks,

Answer 1

Hi Harish,
Lets try this code.It will solve ur problem.
Public Class SystemForm
      Private WithEvents SBO_Application As SAPbouiCOM.Application
    Private oOrderForm As SAPbouiCOM.Form
    Private oNewItem As SAPbouiCOM.Item
    Private oItem As SAPbouiCOM.Item
    Private oFolderItem As SAPbouiCOM.Folder
    Private oOptionBtn As SAPbouiCOM.OptionBtn
    Private oCheckBox As SAPbouiCOM.CheckBox
    Private i As Integer
    Private Sub SetApplication()
        Dim SboGuiApi As SAPbouiCOM.SboGuiApi
        Dim sConnectionString As String
        SboGuiApi = New SAPbouiCOM.SboGuiApi()
        sConnectionString = Command     
        SboGuiApi.Connect(sConnectionString)   
        SBO_Application = SboGuiApi.GetApplication()
    End Sub
    Private Sub AddItemsToOrderForm()     
        oOrderForm.DataSources.UserDataSources.Add("OpBtnDS", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
        oOrderForm.DataSources.UserDataSources.Add("CheckDS1", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
        oOrderForm.DataSources.UserDataSources.Add("CheckDS2", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
        oOrderForm.DataSources.UserDataSources.Add("CheckDS3", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
oItem = oOrderForm.Items.Item("126")
For i = 1 To 3
            oNewItem = oOrderForm.Items.Add("CheckBox" & i, SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX)
            oNewItem.Left = oItem.Left
            oNewItem.Width = 100
            oNewItem.Top = oItem.Top + (i - 1) * 19
            oNewItem.Height = 19           
            oNewItem.FromPane = 5
            oNewItem.ToPane = 5
            oCheckBox = oNewItem.Specific           
            oCheckBox.Caption = "Check Box" & i            '
            oCheckBox.DataBind.SetBound(True, "", "CheckDS" & i)
        Next i
        oItem = oOrderForm.Items.Item("44")
        For i = 1 To 3
            oNewItem = oOrderForm.Items.Add("OpBtn" & i, SAPbouiCOM.BoFormItemTypes.it_OPTION_BUTTON)
            oNewItem.Left = oItem.Left
            oNewItem.Width = 100
            oNewItem.Top = oItem.Top + (i - 1) * 19
            oNewItem.Height = 19         
            oNewItem.FromPane = 5
            oNewItem.ToPane = 5
            oOptionBtn = oNewItem.Specific    
            oOptionBtn.Caption = "Option Button" & i
            If i > 1 Then
                oOptionBtn.GroupWith("OpBtn" & i - 1)
            End If
            oOptionBtn.DataBind.SetBound(True, "", "OpBtnDS")
        Next i
    End Sub
    Public Sub New()
        MyBase.New()
        SetApplication()
       End Sub
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
If ((pVal.FormType = 139 And pVal.EventType <> SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD) And (pVal.Before_Action = True)) Then           
oOrderForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
If ((pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD) And (pVal.Before_Action = True)) Then
oNewItem = oOrderForm.Items.Add("UserFolder", SAPbouiCOM.BoFormItemTypes.it_FOLDER)               
                oItem = oOrderForm.Items.Item("138")
                oNewItem.Top = oItem.Top
                oNewItem.Height = oItem.Height
                oNewItem.Width = oItem.Width
                oNewItem.Left = oItem.Left + oItem.Width
                oFolderItem = oNewItem.Specific
                oFolderItem.Caption = "User Folder"
                oFolderItem.GroupWith("138")
                AddItemsToOrderForm()
                oOrderForm.PaneLevel = 1
            End If     
If pVal.ItemUID = "UserFolder" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.Before_Action = True Then              
                oOrderForm.PaneLevel = 5
            End If
        End If
    End Sub
    Private Sub SBO_Application_AppEvent(ByVal EventType As SAPbouiCOM.BoAppEventTypes)
        Select Case EventType
            Case SAPbouiCOM.BoAppEventTypes.aet_ShutDown
                SBO_Application.MessageBox("A Shut Down Event has been caught" & _
                    vbNewLine & "Terminating 'Order Form Manipulation' Add On...")
                End
       End Select
    End Sub
End Class
Regards
Mohana