on 05-27-2015 7:53 AM
Hi,
I am trying to install my addon but it always says AddOn Connection Time Out.
I have created an addon in Vb.net.
This is my code, please help me in this.
Dim oSboGuiApi As New SAPbouiCOM.SboGuiApi
Dim sConnStr As String
sConnStr = Environment.GetCommandLineArgs.GetValue(1) 'Set the AddOn identifier (optional) – some long string with numbers
oSboGuiApi.Connect(sConnStr)
SBO_Application = oSboGuiApi.GetApplication()
oSboGuiApi = Nothing
Dim oItems As SAPbouiCOM.Items = SBO_Application.Forms.Item(FormUID).Items
Dim oMatrix As SAPbouiCOM.Matrix
Dim oItem As SAPbouiCOM.Item
'Dim oSetting As SAPbouiCOM.CommonSetting
Dim oComboBox As SAPbouiCOM.ComboBox
oItem = oItems.Item("38")
oMatrix = oItem.Specific
oComboBox = oItems.Item("88").Specific
If oComboBox.Selected.Value = "59" Then
oMatrix.Columns.Item("15").Visible = True
oMatrix.Columns.Item("31").Visible = False
oMatrix.Columns.Item("35").Visible = False
oMatrix.Columns.Item("158").Visible = False
oMatrix.Columns.Item("U_PODate").Visible = False
oMatrix.Columns.Item("U_Inspection").Visible = False
oMatrix.Columns.Item("U_Agency").Visible = False
oMatrix.Columns.Item("U_DrawingRecieved").Visible = False
oMatrix.Columns.Item("U_ExpectedDate").Visible = False
oMatrix.Columns.Item("U_ExpectedDateInsp").Visible = False
oMatrix.Columns.Item("U_DispatchDate").Visible = False
oMatrix.Columns.Item("U_CheckItem").Visible = False
oMatrix.Columns.Item("U_SubmittedApproval").Visible = False
oMatrix.Columns.Item("U_ApprovalRead").Visible = False
oMatrix.Columns.Item("U_ManufacturingClear").Visible = False
ElseIf oComboBox.Selected.Value = "61" Then
oMatrix.Columns.Item("15").Visible = False
oMatrix.Columns.Item("158").Visible = True
oMatrix.Columns.Item("U_PODate").Visible = True
ElseIf oComboBox.Selected.Value = "60" Then
oMatrix.Columns.Item("15").Visible = False
oMatrix.Columns.Item("158").Visible = False
oMatrix.Columns.Item("U_PODate").Visible = False
oMatrix.Columns.Item("U_Inspection").Visible = True
oMatrix.Columns.Item("U_Agency").Visible = True
oMatrix.Columns.Item("U_DrawingRecieved").Visible = True
oMatrix.Columns.Item("U_ExpectedDate").Visible = True
oMatrix.Columns.Item("U_ExpectedDateInsp").Visible = True
oMatrix.Columns.Item("U_DispatchDate").Visible = True
oMatrix.Columns.Item("U_CheckItem").Visible = True
oMatrix.Columns.Item("U_SubmittedApproval").Visible = True
oMatrix.Columns.Item("U_ApprovalRead").Visible = True
oMatrix.Columns.Item("U_ManufacturingClear").Visible = True
oMatrix.Columns.Item("31").Visible = True
End If
Hi Ravi,,
removing
oSboGuiApi = Nothing
might help.
regards
Ad
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
110 | |
12 | |
11 | |
6 | |
5 | |
4 | |
4 | |
3 | |
3 | |
3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.