CFL Not Set

[Former Member]

Hi,

I had created CFL thru source code..... the selected value from CFL is not placed in the particular field... whats the problm..

[Former Member · Accepted solution]

You have cfl in edittext or matrix cell? Send code you have, than will be better for us help you.

[Former Member · Accepted solution]

Case SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST

Try

frm = app.Forms.Item(pVal.FormUID)

Dim db As SAPbouiCOM.DBDataSource = frm.DataSources.DBDataSources.Item("OPOR")

If pVal.BeforeAction = False Then

Dim cflevent As SAPbouiCOM.ChooseFromListEvent = pVal

Dim cfl As SAPbouiCOM.ChooseFromList

Dim a As String = cflevent.ChooseFromListUID

cfl = frm.ChooseFromLists.Item(a)

Dim dt As SAPbouiCOM.DataTable = cflevent.SelectedObjects

If Not (dt Is Nothing) Then

If cfl.UniqueID = "QuotCFL" Then

db.SetValue("U_qtnno", db.Offset, dt.GetValue("U_PQNO", 0))

End If

If cfl.UniqueID = "BtnCNo" Then

db.SetValue("U_qtnno", db.Offset, dt.GetValue("U_PQNO", 0))

End If

End If

End If

Catch ex As Exception

End Try

End Select

[Former Member · Accepted solution]

Hi,

I am having the CFL in Edittext....

[Former Member · Accepted solution]

Send the code for creation of edittext and creation of CFL yet.

[Former Member · Accepted solution]

Sub addfield(ByVal formid)

'createUserFields("OPOR", "qtnno", "Quot No", SAPbobsCOM.BoFieldTypes.db_Alpha, 25)

Try

Dim frm As SAPbouiCOM.Form = app.Forms.Item(formid)

Dim item As SAPbouiCOM.Item = frm.Items.Add("lblQuotin", SAPbouiCOM.BoFormItemTypes.it_STATIC)

item.Left = frm.Items.Item("70").Left

item.Top = frm.Items.Item("70").Top

item.Width = frm.Items.Item("70").Width

frm.Items.Item("70").Visible = False

Dim lbl As SAPbouiCOM.StaticText = item.Specific

lbl.Caption = "Quotation No"

item = frm.Items.Add("txtqno", SAPbouiCOM.BoFormItemTypes.it_EDIT)

Dim txt As SAPbouiCOM.EditText = item.Specific

item.Left = frm.Items.Item("14").Left

item.Top = frm.Items.Item("70").Top

item.Width = frm.Items.Item("14").Width

txt.DataBind.SetBound(True, "OPOR", "U_qtnno")

Dim item1 As SAPbouiCOM.Item = frm.Items.Add("lblQDate", SAPbouiCOM.BoFormItemTypes.it_STATIC)

item1.Left = frm.Items.Item("lblQuotin").Left

item1.Top = frm.Items.Item("lblQuotin").Top + 15

item1.Width = frm.Items.Item("lblQuotin").Width

Dim lbl1 As SAPbouiCOM.StaticText = item1.Specific

lbl1.Caption = "Quotation Date"

item1 = frm.Items.Add("txtQDate", SAPbouiCOM.BoFormItemTypes.it_EDIT)

Dim txt1 As SAPbouiCOM.EditText = item1.Specific

item1.Left = frm.Items.Item("txtqno").Left

item1.Top = frm.Items.Item("txtqno").Top + 15

item1.Width = frm.Items.Item("txtqno").Width

txt1.DataBind.SetBound(True, "OPOR", "U_qtndt")

Dim item2 As SAPbouiCOM.Item = frm.Items.Add("BtnQtnNo", SAPbouiCOM.BoFormItemTypes.it_BUTTON)

item2.Top = frm.Items.Item("txtqno").Left - 65

item2.Left = frm.Items.Item("86").Left - 33

item2.Width = 15

item2.Height = 16

Dim cflparam1 As SAPbouiCOM.ChooseFromListCreationParams = app.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)

cflparam1.UniqueID = "BtnCNo"

cflparam1.ObjectType = "Quataion"

cflparam1.MultiSelection = False

frm.ChooseFromLists.Add(cflparam1)

txt.ChooseFromListUID = "BtnCNo"

Dim btn As SAPbouiCOM.Button = item2.Specific

btn.Image = "CHOOSE_ICON"

btn.ChooseFromListUID = "BtnCNo"

Dim cflparam As SAPbouiCOM.ChooseFromListCreationParams = app.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)

cflparam.UniqueID = "QuotCFL"

cflparam.ObjectType = "Quataion"

cflparam.MultiSelection = False

frm.ChooseFromLists.Add(cflparam)

txt.ChooseFromListUID = "QuotCFL"

txt.ChooseFromListAlias = "U_qtnno"

Catch ex As Exception

End Try

End Sub

[Former Member · Accepted solution]

try to change the code as

*Dim oItem As SAPbouiCOM.Item

Dim oEdit As SAPbouiCOM.EditText

*

If cfl.UniqueID = "QuotCFL" Then

db.SetValue("U_qtnno", db.Offset, dt.GetValue("U_PQNO", 0))

oItem = oFormPotreba.Items.Item("txtqno")

oEdit = oItem.specific

oedit.value = dt.GetValue("U_PQNO", 0)

End If