Choose From List

[Former Member]

Hi All

I made two Master tables:

@EL(Master Data) and

@ELD(Master Data Rows)

i made UDO of @EL and using it on from for CFL, in the first column of matrix.now i want some data from @ELD on the another column of same matrix like @EL..is it possible? if yes than how?? or any other solution.

Thanks

[Former Member]

Hi

Try to look these threads:

- [Thread: using CFL in matrix |;;

- [Thread: CFL Conditions and Edit Text|;;

- [Thread: Choose From List|; <= This contain some notes how to create cfl;

- [Thread: CFL Customization .. |;;

- []Thread: Using CFL with a Matrix|;.

Regards

Sierdna S.

Edited by: Andrei S. on Oct 23, 2008 2:54 PM

[Former Member]

Hi...

example

Row1 =abc

Row1 =def

Row1 =ghi

u want 3rows value in single row???

Regards...

Billa 2007

[Former Member]

Hi

No...

My matrix has following columns

CODE,Name,CODE1,Name1

i made the CODE as linkColumn and on pressing tab open a CFL who contains the data from UDO of object type: EL.

i want the sane functioning on CODE1. but UDO of master data rows is not possible..so how could i get the same functiobality on CODE1.

Thanks.

[Former Member]

hi..

send ur code..

Regards..

Billa 2007

[Former Member]

Private Sub ChooseFromList()

Try

AddChooseFromList()

Dim oMatrix As SAPbouiCOM.Matrix

Dim oColumn, oColumn1, oColumn2, oColumn3, oColumn4 As SAPbouiCOM.Column

Dim oColumns As SAPbouiCOM.Columns

oForm.Items.Item("Detail").Enabled = True

oMatrix = oForm.Items.Item("Detail").Specific

oMatrix.Clear()

oColumns = oMatrix.Columns

oForm.DataSources.UserDataSources.Add("DS", SAPbouiCOM.BoDataType.dt_SHORT_TEXT)

oForm.DataSources.UserDataSources.Add("DS5", SAPbouiCOM.BoDataType.dt_SHORT_TEXT)

'' Adding Choose From List

oColumn = oColumns.Item("HCode")

oColumn.DataBind.SetBound(True, "", "DS")

oColumn3 = oColumns.Item("LCode")

oColumn3.DataBind.SetBound(True, "", "DS5")

oColumn.ChooseFromListUID = "CFL_1"

oColumn.ChooseFromListAlias = "Code"

Catch ex As Exception

SBO_Application.MessageBox(ex.Message)

End Try

End Sub

Private Sub AddChooseFromList()

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 = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)

' Adding 2 CFL, one for the button and one for the edit text.

oCFLCreationParams.MultiSelection = False

oCFLCreationParams.ObjectType = "ELHead" ''UDO ID of master data

oCFLCreationParams.UniqueID = "CFL_1"

oCFL = oCFLs.Add(oCFLCreationParams)

Catch

SBO_Application.MessageBox(Err.Description)

End Try

End Sub

this code is working properly.but i want same functioning on "Lcode" from UFT with object type master data rows .

thanks

[Former Member]

Hi..

Its not possible to UDF field in choosefromlist.we can do only formatted search.

Regards...

Billa 2007

[Former Member]

Hi...

u want another row or column ??? its is possible.

use this code

menu event

If (pVal.MenuUID = "Duplicate") And (pVal.BeforeAction = False) Then

Try

Dim oDBDataSource As SAPbouiCOM.DBDataSource

Dim s As Integer = 0

Dim omat1 As SAPbouiCOM.Matrix

Dim newrowid As Integer = 0

omat1 = RFrm.Items.Item("5").Specific

For s = 1 To omat1.RowCount

If omat1.IsRowSelected(s) Then

Try

omat1.GetLineData(s)

newrowid = s + 1

omat1.AddRow(1, newrowid)

omat1.SetLineData(newrowid)

Catch ex As Exception

SBO_Application.MessageBox(ex.Message)

End Try

End If

Next

For i = 1 To omat1.RowCount

oedit1 = omat1.Columns.Item("0").Cells.Item(i).Specific

oedit1.Value = i

Next

Catch ex As Exception

SBO_Application.MessageBox(ex.Message)

End Try

End If

Right Click Event

If eventInfo.FormUID = "Routing" Then

If (eventInfo.BeforeAction = True) Then

Dim oMenuItem As SAPbouiCOM.MenuItem

Dim oMenus As SAPbouiCOM.Menus

omat1 = RFrm.Items.Item("5").Specific

GCols = omat1.Columns

Try

selItem = eventInfo.ItemUID

Dim oCreationPackage As SAPbouiCOM.MenuCreationParams

oCreationPackage = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams)

oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_STRING

oCreationPackage.UniqueID = "Duplicate"

oCreationPackage.String = "Duplicate Row"

oCreationPackage.Enabled = True

oMenuItem = SBO_Application.Menus.Item("1280")

oMenus = oMenuItem.SubMenus

oMenus.AddEx(oCreationPackage)

Catch ex As Exception

SBO_Application.MessageBox(ex.Message)

End Try

Else

Dim oMenuItem As SAPbouiCOM.MenuItem

Dim oMenus As SAPbouiCOM.Menus

Try

SBO_Application.Menus.RemoveEx("Duplicate")

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End If

End If

It will work...

Regards...

Billa 2007

[Former Member]

hi

No ...

i have four columns in my matrix ...i want whole data in single row..like in first two columns from @EL and in another two columns from @ELD.

i am able to get data in first two columns from @EL with the help of CFL.but i hv no idea to get data from @ELD in another two columns in a single row.

thanks