.srf Form ItemUID is invalid from B1DE

Question

Hi Guys,
I've created a .srf form from Screen Painter and I am using the B1DE to develop a solution.  There is no UDF or UDT or UDO in the system and the form is not linked to any of the DataSources...So it is displaying well.
I am trying a simple getText method on an EditText but an error appears....
EXCEPTION: Form__EBS_FRM_CRDCLM.OnFormLoad raised
Item - Invalid item  [66000-3]. Form Unique Id: 'EBS_FRM_CRDCLM0',
Item Unique Id: '4'
This is my Code.....
<B1Listener(BoEventTypes.et_FORM_LOAD, False)> _
        Public Overridable Function OnFormLoad(ByVal pVal As ItemEvent) As Boolean
            Dim form As Form = B1Connections.theAppl.Forms.Item(pVal.FormUID)
            'ADD YOUR ACTION CODE HERE ...
            Dim itmCardCode As SAPbouiCOM.Item
            Dim edtCardCode As SAPbouiCOM.EditText
            itmCardCode = form.Items.Item("4")
            edtCardCode = itmCardCode.Specific
            Try
                Dim oCFLs As SAPbouiCOM.ChooseFromListCollection
                Dim oCFL As SAPbouiCOM.ChooseFromList
                Dim oCons As SAPbouiCOM.Conditions
                Dim oCon As SAPbouiCOM.Condition
                Dim oCFLCreationParams As SAPbouiCOM.ChooseFromListCreationParams
                oCFLs = form.ChooseFromLists
                oCFLCreationParams = B1Connections.theAppl.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
                ' Adding 2 CFL, one for the button and one for the edit text.
                oCFLCreationParams.MultiSelection = False
                oCFLCreationParams.ObjectType = "2"
                oCFLCreationParams.UniqueID = "CFL1"
                oCFL = oCFLs.Add(oCFLCreationParams)
                ' Adding Conditions to CFL1
                oCons = oCFL.GetConditions()
                oCon = oCons.Add()
                oCon.Alias = "CardType"
                oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
                oCon.CondVal = "S"
                oCFL.SetConditions(oCons)
                oCFLCreationParams.UniqueID = "CFL2"
                oCFL = oCFLs.Add(oCFLCreationParams)
            Catch
                MsgBox(Err.Description)
            End Try
            edtCardCode.ChooseFromListUID = "CFL1"
            edtCardCode.ChooseFromListAlias = "CardCode"
            Return True
        End Function
Can any1 help explain what the problem could be?
Thanks

Answer 1

Hi Noor,  I have a form created by screen painter in which I'm doing a CFL for a field in the matrix,
but I think with a few changes it should work for you, too.
In the 2 methods below, I am creating the CFL and adding it to the form collection via "After Form Load". 
Since I'm not accessing any fields here, there is no problem with the timing.
I'm not using any conditions, but you could add yours here:
        <B1Listener(BoEventTypes.et_FORM_LOAD, False)> _
        Public Overridable Sub OnAfterFormLoad(ByVal pVal As ItemEvent)
            Dim ActionSuccess As Boolean = pVal.ActionSuccess
            Dim form As Form = B1Connections.theAppl.Forms.Item(pVal.FormUID)
            form.AutoManaged = True
            AddChooseFromList(form)
        End Sub
      Private Sub AddChooseFromList(ByVal oform As SAPbouiCOM.Form)
            Try
                Dim oCFLs As SAPbouiCOM.ChooseFromListCollection
                Dim oCons As SAPbouiCOM.Conditions
                Dim oCon As SAPbouiCOM.Condition
                oCFLs = oform.ChooseFromLists
                Dim oCFL As SAPbouiCOM.ChooseFromList
                Dim oCFLCreationParams As SAPbouiCOM.ChooseFromListCreationParams
                oCFLCreationParams = B1App.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
                oCFLCreationParams.MultiSelection = False
                oCFLCreationParams.ObjectType = "64"
                oCFLCreationParams.UniqueID = "CFL1"
                oCFL = oCFLs.Add(oCFLCreationParams)
            Catch
                MsgBox(Err.Description)
            End Try
        End Sub
The matter of connecting the field to the CFL object is a bit different.  I am doing it in "BeforeFormDataLoad" but that only works in update mode (which is fine for me).  You could do it on "AfterFormActivate" but this could happen many, many times.  You would need to create a global boolean to make sure this only happens the first time the activate method is invoked, and if your UDF form could be open more than once at the same time in the same client, then you have the additional issue of knowing which form just started up.  But keeping it simple and assuming one instance of your form is open, the following code is needed (for a matrix column):
        <B1Listener(BoEventTypes.et_FORM_DATA_LOAD, True)> _
        Public Overridable Function OnBeforeFormDataLoad(ByVal pVal As BusinessObjectInfo) As Boolean
            Dim form As Form = B1Connections.theAppl.Forms.Item(pVal.FormUID)
            SetWhseCFL(form)
            Return True
        End Function
        Private Sub SetWhseCFL(ByVal zForm As Form)
        Try
                Dim itmMtx As Item = zForm.Items.Item("mtx_0")
                Dim matrix As Matrix = CType(itmMtx.Specific, Matrix)
                'Dim matrix As Matrix = itmMtx.Specific
                matrix.Columns.Item("col_0").ChooseFromListUID = "CFL1"
                matrix.Columns.Item("col_0").ChooseFromListAlias = "WhsCode"
                matrix.Columns.Item("col_0").AffectsFormMode = True
                Try
                    matrix.Columns.Item("col_f").Editable = False
                Catch ex1 As Exception
                    Try
                        matrix.Columns.Item("col_f").Editable = False
                    Catch ex2 As Exception
                    End Try
                End Try
                zForm.Update()
            Catch
            End Try
        End Sub
Whatever you do, don't mistake me for an "expert".  I've gotten this code to work
but I don't know how good the code is.  Hope it helps, though.