on 04-09-2008 6:23 AM
Hi,
I had created CFL thru source code..... the selected value from CFL is not placed in the particular field... whats the problm..
You have cfl in edittext or matrix cell? Send code you have, than will be better for us help you.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
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
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
User | Count |
---|---|
95 | |
11 | |
11 | |
6 | |
6 | |
4 | |
3 | |
3 | |
3 | |
3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.