Accessing Multiple Forms - Form Already Exist

Question

Hi,
    I created Screen (For Add-on) through screen painter which I can access from Purchase order Sub Menu. I can able to access only one screen at a time. Am getting Error u201CForm already existsu201D while accessing second time from menu. I can able to get the screen only after closing current active screen. Cant able to access multiple times Like Normal SAP Screens. Whether itu2019s possible to access Multiple Screen like normal SO, PO screens?

Answer 1

Ganesh,
You have to give the form an unique ID before you load it.
Use the following functions to achieve this:
Private Function LoadUniqueFormXML(ByRef oCompany As SAPbobsCOM.Company, ByRef oApplication As SAPbouiCOM.Application, _
            ByVal FileName As String) As String
        Dim xDoc As System.Xml.XmlDocument = New Xml.XmlDocument
        LoadUniqueFormXML = ""
        Try
            xDoc.Load(FileName)
            LoadUniqueFormXML = xDoc.SelectSingleNode("Application/forms/action/form/@FormType").Value & "_" & _
                MaximoTipoForm(oCompany, oApplication, xDoc.SelectSingleNode("Application/forms/action/form/@FormType").Value).ToString
            xDoc.SelectSingleNode("Application/forms/action/form/@uid").Value = LoadUniqueFormXML
            oApplication.LoadBatchActions(xDoc.InnerXml)
        Catch ex As Exception
            oApplication.MessageBox(ex.Message)
        End Try
    End Function
Private Function MaximoTipoForm(ByRef oCompany As SAPbobsCOM.Company, ByRef oApplication As SAPbouiCOM.Application, _
            ByRef Tipo As String) As Long
        MaximoTipoForm = 0
        Try
            For Each iform As SAPbouiCOM.Form In oApplication.Forms
                If iform.TypeEx = Tipo Then
                    If iform.TypeCount > MaximoTipoForm Then
                        MaximoTipoForm = iform.TypeCount
                    End If
                End If
            Next
            MaximoTipoForm = MaximoTipoForm + 1
        Catch ex As Exception
            oApplication.MessageBox(ex.Message)
        End Try
    End Function
Public Function LoadForm(ByRef oCompany As SAPbobsCOM.Company, ByRef oApplication As SAPbouiCOM.Application, _
             ByVal FileName As String) As SAPbouiCOM.Form
        LoadForm = Nothing
        Try
            Dim FormUID As String = LoadUniqueFormXML(oCompany, oApplication, sPath & "" & FileName)
            '// Apanhar o formulário carregado, através do seu ID exclusivo
            LoadForm = oApplication.Forms.Item(FormUID)
        Catch ex As Exception
            oApplication.MessageBox("LoadForm(" & FileName & "): " & oCompany.GetLastErrorCode & ", " & ex.Message)
        End Try
    End Function
To open a user form with an unique ID, use this code
Dim oForm As SAPbouiCOM.Form
oForm = LoadForm(oCompany, oApplication, "XMLFormFile.srf")
Regards,
Vítor Vieira