Skip to Content
0
Former Member
Aug 25, 2012 at 11:45 AM

The Item must be bound to an AlphaNumric field. [66000-149] At CFl

119 Views

HI..

See the image..

This is my Add on... Just like a incomming payment

Normally if i press third radio button (others) in sap b1 incomming payment wizard

header level edit boxes will be become visible=false

and then in matrix first row at particular column Glaccount cfl will be loaded ...

The same thing i had done..

Normally if i put the cfl in the program i am calling the cfl at the time of form loading

Every time i am calling like this way

and then item event saparate code i am writing..

Dim oedit11 As SAPbouiCOM.EditText

omatrix = oform.Items.Item("17").Specific

' omatrix.AddRow(1)

oedit11 = omatrix.Columns.Item("V_7").Cells.Item(1).Specific

cflacc1()

oedit.ChooseFromListUID = "CFL3"

oedit.ChooseFromListAlias = "Acctcode"

' oedit.ChooseFromListAlias = "Cardcode"

but this time i had written exactly at item event because the action should be done only

if i check third radio button but not form loading...

So, i had used the below code (see the bold colour) exactly here i got the above error..

May i know what is mistake and how to solve this one....

Try

If (pVal.BeforeAction = True And pVal.ItemUID = "310" And pVal.FormUID = "TT" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED) Then

Dim opt As SAPbouiCOM.OptionBtn

oform = sbo_app.Forms.Item("TT")

opt = oform.Items.Item("310").Specific

If (opt.Selected = True) Then

omatrix = oform.Items.Item("17").Specific

omatrix.Clear()

omatrix.AddRow(1)

omatrix.Columns.Item("V_7").Cells.Item(1).Click(SAPbouiCOM.BoCellClickType.ct_Regular)

Dim oitem As SAPbouiCOM.Item

oitem = oform.Items.Item("14")

oitem.Click(SAPbouiCOM.BoCellClickType.ct_Regular)

oform.Items.Item("555").Visible = False

oform.Items.Item("555").Visible = False

oform.Items.Item("6").Visible = False

oform.Items.Item("7").Visible = False

oform.Items.Item("111").Visible = False

oform.Items.Item("222").Visible = False

oform.Items.Item("3").Visible = False

oform.Items.Item("4").Visible = False

omatrix.Columns.Item("V_5").Cells.Item(1).Specific.value = ""

omatrix.Columns.Item("V_6").Cells.Item(1).Specific.value = ""

omatrix.Columns.Item("V_7").Editable = True

omatrix.Columns.Item("V_6").Editable = True

omatrix.Columns.Item("V_5").Editable = True

omatrix.Columns.Item("V_4").Editable = True

omatrix.Columns.Item("V_3").Editable = True

omatrix.Columns.Item("V_2").Editable = True

omatrix.Columns.Item("V_1").Editable = True

Dim oedit11 As SAPbouiCOM.EditText

omatrix = oform.Items.Item("17").Specific

' omatrix.AddRow(1)

oedit11 = omatrix.Columns.Item("V_7").Cells.Item(1).Specific

cflacc1()

oedit.ChooseFromListUID = "CFL3"

oedit.ChooseFromListAlias = "Acctcode"

' oedit.ChooseFromListAlias = "Cardcode"

End If

End If

Catch ex As Exception

sbo_app.MessageBox(ex.Message)

End Try

Attachments

CFL87.JPG (127.0 kB)