SP01: UI 2005SP1 PL2: problems enabling UDF

Question

Hi,
i'm trying to enable and disable an UDF Editbox field via UI sdk.
i succeed in disable the editbox UDF but can not enable it anymore, the error i receive is:
Error - Item - The item is not a user-defined item  [66000-8]
i succeed doind anable and diasble successfully to a Combobox UDF.
someone ever encountered this?
thanks
Moty

Answer 1

Hi,
I have tried with the form 149 and it works fine, strange...
Please define a UDF called KitNo and copy paste my code in your project ItemEvent method, then please let me know if it works or not in your case.
If (pVal.FormTypeEx = "149") Then ' BP form
If (pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD And Not pVal.BeforeAction) Then
   oForm = SBO_Application.Forms.Item(pVal.FormUID)
   ' Add edit text
   oSItem = oForm.Items.Item("222")
   oItem = oForm.Items.Add("UserEd", SAPbouiCOM.BoFormItemTypes.it_EDIT)
   oItem.Left = oSItem.Left
   oItem.Top = oSItem.Top + 20
   oItem.Width = oSItem.Width
   oItem.Height = oSItem.Height
   oEdit = oItem.Specific()
   oEdit.DataBind.SetBound(True, "OQUT", "U_KitNo")
   ' Add user button at form load
   oSItem = oForm.Items.Item("2")
   oItem = oForm.Items.Add("UserBut", SAPbouiCOM.BoFormItemTypes.it_BUTTON)
   oItem.Left = oSItem.Left + 300
   oItem.Top = oSItem.Top
   oItem.Width = oSItem.Width
   oItem.Height = oSItem.Height
   oButton = oItem.Specific()
   oButton.Caption = "My Button"
  ElseIf (pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And _
    pVal.ItemUID = "UserBut") Then
    oForm = SBO_Application.Forms.Item(pVal.FormUID)
    If (pVal.Before_Action = False) Then
      If (oForm.Items.Item("UserEd").Enabled) Then
        oForm.Items.Item("UserEd").Enabled = False
      Else
        oForm.Items.Item("UserEd").Enabled = True
      End If
      Dim oFormUDF As SAPbouiCOM.Form = SBO_Application.Forms.GetForm("-149", 1)
      If (oFormUDF.Items.Item("U_KitNo").Enabled) Then
        oFormUDF.Items.Item("U_KitNo").Enabled = False
      Else
        oFormUDF.Items.Item("U_KitNo").Enabled = True
      End If
    End If
  End If
End If
Regards
Trinidad.