Skip to Content
0
Jun 08, 2009 at 11:02 PM

Error when open document

35 Views

Dear All Experts,

This following vb6 code in B1 2007 PL49 version is running but give error when I try to open SO document form :

Public Sub process_139(ByVal FormUID As String, pVal As SAPbouiCOM.ItemEvent, BubbleEvent As Boolean)
Dim KeyField As String
Dim oRs As SAPbobsCOM.Recordset
Dim strquery As String
  If pVal.EventType = et_FORM_LOAD Then
      'If pVal.Before_Action = True Then
           Set oForm = SboApplication.Forms(pVal.FormUID)
           
           'Add edit text component to fill with city name
           Set oItem = oForm.Items.Add("Static1", it_STATIC)
           oItem.Top = oForm.Items("8").Top + 15
           oItem.Left = oForm.Items("8").Left - 5
           
           'Add static text for identifier city name
           Set oItem = oForm.Items.Add("Label1", it_STATIC)
           oItem.Top = oForm.Items("11").Top - 15
           oItem.Left = oForm.Items("11").Left
           Set oStatic = oItem.Specific
           oStatic.Caption = "City Name"
           
           Set oItem = oForm.Items("12")
           Set oEdit = oItem.Specific

the error message is:

Run-Time error '-7012 (ffffe49c)'

Item-already exist [66000-13]. Form unique Id : F_14, Item unique Id : Static1

The error is not happened when run in previous version e.g. 7.2 or 2004.

Pls give advice. I really appreciate your help. TIA

Rgd,

Steve