Get DocNum from CFL (choose from list)

Question

Hi SAP gurus!
Wish all of you a very Happy and Prosperous New Year 2012 !
is it possible to get Document Number from List of Goods Receipt (CFL) ..?
in Landed Cost Screen, when user clicks on 'Copy From' button, i am trying to execute query based on Document Number of List Of Goods Receipt CFL (Screen No. 10019). and then  assign value of  GrossAmnt to textfield  'ActualCost'
but in Screen 10019, when i press 'Choose' button, value in  pval.formtype is 992!
in Case statement of 10019, hence my query is not getting executed..
Does any one have any idea how can i get Document Number from CFL.?
below is my code.
'// add an event type to the container
'// this method returns an EventFilter object
    Set oFilter = oFilters.Add(et_ITEM_PRESSED)
'// aggign the form type on which the event would be processed
    oFilter.Add 992      'Landed Cost Screen
    oFilter.Add 10019  'List of Goods Receipt Screen (CFL)
in Case statement of pval.formtype
If pVal.FormType <> 0 Then
If pVal.Before_Action = False Then
Select Case pVal.FormType
case 992:
case 10019:
select case pval.eventtype
case et_item_pressed
Set o_TmpForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
o_matrix = o_TmpForm.items.item("7").specific
set actual_cost = o_matrix.column.item("DocNum").specific.value ' actual_cost.RowCount is 0, hence runtime error.
'now passing query in below sub end sub subroutine(procedure)..
get_actual_cost
end select
end Select
end if
end if
i appreciate your help..
Thanks and Regards,
kaviprashu

Answer 1

Hello,
When you call ChooseFromList object, and select an item, you can get the datatable which contains the selected rows from the CFL object.
Now it has several columns (basically all columns in the head table), you so it is now easy to select the correct column:
val1 = oDataTable.GetValue("[COLUMN_NAME]", 0)
Sample code:
If oCFLEvento.BeforeAction = False Then
                Dim oDataTable As SAPbouiCOM.DataTable
                oDataTable = oCFLEvento.SelectedObjects
                Dim val1 As String
                Dim val2 As String
                Try
                    val1 = oDataTable.GetValue("DocNum", 0)
                    val2 = oDataTable.GetValue("DocEntry", 0)
                Catch ex As Exception
                End Try
Now you can only focus on the landed costs screen, (992) and track event et_CHOOSE_FROM_LIST
Now the complete code:
If pVal.EventType = SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST Then
            Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
            oCFLEvento = pVal
            Dim sCFL_ID As String
            sCFL_ID = oCFLEvento.ChooseFromListUID
            Dim oForm As SAPbouiCOM.Form
            oForm = SBO_Application.Forms.Item(FormUID)
            Dim oCFL As SAPbouiCOM.ChooseFromList
            oCFL = oForm.ChooseFromLists.Item(sCFL_ID)
            If oCFLEvento.BeforeAction = False Then
                Dim oDataTable As SAPbouiCOM.DataTable
                oDataTable = oCFLEvento.SelectedObjects
                Dim val1 As String
                Dim val2 As String
                Try
                    val1 = oDataTable.GetValue("DocNum", 0)
                    val2 = oDataTable.GetValue("DocEntry", 0)
                Catch ex As Exception
                End Try
            End If
        End If
Regards
János