topic Re: ALV ...Logic required in Application Development and Automation Discussions

ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:15:16 GMT

Hi every body,

I have one requirement like an alv report will display

output which contains a material number.

If i click On the material number it shud go to MM03...Accounting view

Logic required for this.I am a beginner ...Plz help me...

Thanks in advance.

Message was edited by: raja gurrala

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:18:21 GMT

when wver you double click on the material,

sy-ucomm will be &IC1.

so select the record from the ouput internal table .

then

call transaction 'MM03' and skip first screen.

tO select the record from the internal atble by using the RSSELFIELD.

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:20:45 GMT

Hi,

See the code sample,

INCLUDE <icon>.
* Predefine a local class for event handling to allow the
* declaration of a reference variable before the class is defined.
CLASS lcl_event_receiver DEFINITION DEFERRED.

DATA : o_alvgrid          TYPE REF TO cl_gui_alv_grid ,
       o_dockingcontainer TYPE REF TO cl_gui_docking_container ,
       o_eventreceiver    TYPE REF TO lcl_event_receiver,
       wa_layout TYPE lvc_s_layo ,
       wa_variant TYPE disvariant.

CONSTANTS : c_a(1) TYPE c VALUE 'A' ,                     " All Layouts
            c_x(1) TYPE c VALUE 'X'.
CLASS lcl_event_receiver DEFINITION.

  PUBLIC SECTION.
    CLASS-METHODS:
* Hot Spot Click
       handle_hotspot
         FOR EVENT hotspot_click OF cl_gui_alv_grid
            IMPORTING e_row_id
                      e_column_id
                      es_row_no,
* Double Click
 handle_double_click
      FOR EVENT double_click OF cl_gui_alv_grid
          IMPORTING e_row
                    e_column
                    es_row_no,
ENDCLASS.                    "lcl_event_receiver DEFINITION
* Implementation
CLASS lcl_event_receiver IMPLEMENTATION.
*&---------------------------------------------------------------------*
*&      Method handle_hotspot
*&---------------------------------------------------------------------*
* This method is called when the user clicks on a hotspot to drill down.
* The following types are exported from the ALV
* LVC_S_ROW
* LVC_S_COL
* LVC_S_ROID
*&---------------------------------------------------------------------*
  METHOD handle_hotspot.
* The hotspot processing coded in the form below.
    PERFORM f9900_handle_hotspot USING e_row_id
                                       e_column_id
                                       es_row_no.

  ENDMETHOD.                    "handle_hotspot
*&---------------------------------------------------------------------*
*&      Method handle_double_click
*&---------------------------------------------------------------------*
  METHOD handle_double_click.
* The double click processing should be coded in the form below.
    PERFORM f9901_handle_double_click USING e_row
                                            e_column
                                            es_row_no.

  ENDMETHOD.                    "HANDLE_DOUBLE_CLICK
FORM f9900_handle_hotspot  USING    p_row_id
                                    p_column_id
                                    p_row_no.

*Read internal table for proper value.
  READ TABLE  i_output
              INDEX p_row_id
              INTO wa_output.
* Call the transaction MMBE
  SET PARAMETER ID 'MAT' FIELD wa_output-matnr.
  CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .
ENDFORM.                    " f9900_handle_hotspot
*&---------------------------------------------------------------------*
*&      Form  f9901_handle_double_click
*&---------------------------------------------------------------------*
*       Double Click
*----------------------------------------------------------------------*
FORM f9901_handle_double_click  USING    p_row
                                         p_column
                                         p_row_no.

  READ TABLE i_output INDEX p_row INTO wa_output.

  CASE p_column.
    WHEN 'MATNR'.
      IF NOT wa_output-matnr IS INITIAL.
        SET PARAMETER ID 'MAT' FIELD wa_output-matnr.
        CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .
      ENDIF.
  ENDCASE.
ENDFORM.                    " f9901_handle_double_click

U can use either hot spot or double click event.

If u r using hotspot set the hotspot = 'X' in fieldcatalog.

Hope this helps.

OR another method without oops concept

FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
data:lv_matnr    LIKE v_mmim_lc-matnr,   "Material
read table i_output into w_output index rs_selfield-tabindex.
lv_matnr = w_output-matnr.
SET PARAMETER ID 'MAT' FIELD lv_matnr.
CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .
Clear:     lv_matnr.
ENDFORM.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                =
*   I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = v_repid
     i_callback_pf_status_set          = 'SET_PF_STATUS'
<b>     i_callback_user_command           = 'USER_COMMAND'</b>
     i_background_id        = 'ALV_BACKGROUND'
    IS_LAYOUT               = I_LAYOUT
    it_fieldcat             = i_fieldcat "field catalog
   I_SAVE                   = 'A'
   IS_VARIANT               = G_VARIANT
    TABLES
        t_outtab                       = i_output "output table
   EXCEPTIONS
     program_error                     = 1
     OTHERS                            = 2
            .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

Kindly reward points if this helps u, revert back with queries.

Message was edited by: Judith Jessie Selvi

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:23:32 GMT

MCG thanks for ur reply.

what is &1C1?

I am not aware of this RSSSelf field..?

can u just write this 4 lines of code for me..

I am using Fmodules..no class methods...

Plz explain in detail...

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:29:10 GMT

WHEN '&IC1'.

IF SELFIELD-FIELDNAME = 'MATNR'.

SET PARAMETER ID 'MAT' FIELD SELFIELD-VALUE.

CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

ENDIF.

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:31:38 GMT

FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM "#EC *

SELFIELD TYPE SLIS_SELFIELD. "#EC *

CASE UCOMM.

WHEN '&IC1'.

IF SELFIELD-FIELDNAME = 'MATNR'.

SET PARAMETER ID 'MAT' FIELD SELFIELD-VALUE.

CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

ENDIF.

endcase.

endform

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:33:44 GMT

Hi,

If u want to place a button in ur application toolbar and then by selecting a row fron ur grid and if u press that button it will call a transaction.

That is what MCG has explained.

In that case u have to create a button by going to Screen Painter then give MAT or like &1C1 as he told for the button function code.

Then give a description by double clicking that.

Then in the PAI of ur screen

MODULE user_command_9001 INPUT.

* For getting the row selected
  REFRESH i_fieldrows.
  CALL METHOD o_alvgrid->get_selected_rows
    IMPORTING
      et_index_rows = i_fieldrows.

  LOOP AT i_fieldrows INTO wa_fieldrows.
    READ TABLE i_output INTO wa_output INDEX wa_fieldrows-index.
  ENDLOOP.

  CASE sy-ucomm.
    WHEN 'MAT'.
      IF NOT wa_output-matnr IS INITIAL.
        SET PARAMETER ID 'MAT' FIELD wa_output-matnr.
        CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .
      ENDIF.
    WHEN OTHERS.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_9001  INPUT

Also u can create button by double clicking the YSTATUS.
MODULE  status_9001 OUTPUT.

  IF o_dockingcontainer IS INITIAL.
    SET PF-STATUS <b>'YSTATUS'.</b>
    SET TITLEBAR  'YTITLE'.
*   Creating Object
    PERFORM f9000_objects_create.
*   Building the field catalog
    PERFORM f9001_build_field_cat TABLES i_fieldcat
                            USING 'MARC'.
*   Modifying the field catalog
    PERFORM f9002_modify_field_cat TABLES i_fieldcat.
*   For Layout
    PERFORM f9003_layout USING sy-title 'X' 'B' 'X' .
*   To display output
    PERFORM f9004_display_data TABLES i_output
                                      i_fieldcat.
  ENDIF.

ENDMODULE.                 " STATUS_9001  OUTPUT

If u dont want Class then

FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
data:lv_matnr    LIKE v_mmim_lc-matnr,   "Material
read table i_output into w_output index rs_selfield-tabindex.
lv_matnr = w_output-matnr.
SET PARAMETER ID 'MAT' FIELD lv_matnr.
CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .
Clear:     lv_matnr.
ENDFORM.
 
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                =
*   I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = v_repid
<b>     i_callback_pf_status_set          = 'SET_PF_STATUS'
     i_callback_user_command           = 'USER_COMMAND'</b>
     i_background_id        = 'ALV_BACKGROUND'
    IS_LAYOUT               = I_LAYOUT
    it_fieldcat             = i_fieldcat "field catalog
   I_SAVE                   = 'A'
   IS_VARIANT               = G_VARIANT
    TABLES
        t_outtab                       = i_output "output table
   EXCEPTIONS
     program_error                     = 1
     OTHERS                            = 2
            .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

Hope this helps.

Message was edited by: Judith Jessie Selvi

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:35:19 GMT

Hi,

It is quite obvous that when you click the matnr field in alv diplay, MM03 will be called and probably you will want that Material Number to be set in that MM03 screen field..thats why you were told to track on User command &IC1 and get the value from RS_SELFFEILD-value.

something like this...

if r-ucomm = '&IC1'.

set parameter ID 'MAT' field RS_SELFIELD-value.

CALL TRANSACTION 'MM03'.

Endif.

you must set the hotspot attribute of matnr field in alv display, while creating the field-catalog.

and write this code snippet to handle the hotspot click, in user_command module

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:36:44 GMT

Hi Judith,

I think almost i got the solution.

How this Fmodule 'USER_COMMAND' gets called.

what we need to declare in the progtam?

what i_ouput meant for ?

Plz explain the procedure ...How the process goes..so that i can understand better..

My requirement starts from ...clicking on the material number...explain from that point..

your answer will be appreciated.

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:41:54 GMT

all function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = w_repid2

i_grid_title = w_title

i_bypassing_buffer = c_xflag_alv_flg

i_grid_settings = st_settings

is_layout = st_layout

it_sort = it_sort

it_fieldcat = it_fieldcat

it_events = it_events

i_callback_user_command = 'user_comand'

i_default = c_xflag_alv_flg

i_save = c_aflag_alv_flg

is_variant = w_variant2

tables

t_outtab = it_alv_data

exceptions

program_error = 1

others = 2.

if sy-subrc <> 0.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

When ever we call the alv list display function module the function module call the form user_command.

If the form user_command you write the code for calling the 'MM03'

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:42:03 GMT

Hi,

The form user-command gets called explicitly when any action takes place, that is when u click on the material number this will automatically calls the form.

So in the reuse FM dont forget to call User_command.

This will call the form.

i_output is nothing but ur final internal table that is getting displayed in ur output grid.

U might be havibng some differnt name then u can use that where ever needed.

Get back if any further queries.

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:43:58 GMT

Hi Guys..

Thanks to all of u.

Ucomm = &1C1 like that..know

I had one more requirement like..

If i click on the PO number if shud goto ME23...what is the UCOMM code for this???

Your answers will be appreciated

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:47:22 GMT

Ucomm is nothing but the function code u r giving.Eg. In pf-status u r writing code to exit from the program then u will pass that to ucomm = 'EXIT'.

Do the same and note the mandatory fields for the transaction then find the parameter-id for the mandt fields and then call transaction.

If u have two fields mandt then

for eg: this will call MD04

    WHEN 'MATNR'.
      IF NOT wa_output-matnr IS INITIAL.
        SET PARAMETER ID 'MAT' FIELD wa_output-matnr.
        SET PARAMETER ID 'WRK' FIELD wa_output-werks.
        CALL TRANSACTION 'MD04' AND SKIP FIRST SCREEN .
      ENDIF.

Similarly u can proceed.

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:48:20 GMT

WHEN '&IC1'.

IF SELFIELD-SEL_TAB_FIELD = 'IT_PO_DATA-EBELN'.

READ TABLE IT_PO_DATA INDEX SELFIELD-TABINDEX.

SET PARAMETER ID 'BES' FIELD it_po_data-ebeln.

CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

enidif

here also sy-ucomm is '&IC1'.

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 04:50:24 GMT

Hi Raja,

USER_COMMAND is not a function module but it is a routine that you have to define in your program. When the ALV is displayed, any user action on the ALV grid will trigger this routine and the control comes to you to do whatever you want to do. In this routine you will write the logic that others have provided.

In other words, your USER_COMMAND routine should look something like this.


form user_command using ucomm    like sy-ucomm
                        selfield type slis_selfield.

  data: l_line like myalvitab,
        l_matnr like mara-matnr.

  read table myalvitab index selfield-tabindex
                             into l_line.
  move myalvitab-matnr to l_matnr.
  case ucomm.
    when 'DSP_MAT'.
*-- Set the parameter ID for the material
    set parameter id 'MAT' field l_matnr.

    call transaction 'MM03' and skip first screen.

endform.

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 05:11:15 GMT

srinivas,

Thanks for ur clarification.

I confused with Fcode...

Some body telling '&1c1' n u ...'DSP_MAT'

what is this where did i get this Fcode?I had one more requirement ...

IF i click on PO number ..which is shown in output ..it should display ME23 screen...what is the Fcode for this?

I am Novice..plz help me.Dont mind if this is simple issue?

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 05:24:17 GMT

Ok, when you are calling the ALV grid function module, are you giving any PF-STATUS? You will do this by passing a routine name to this parameter of the function module I_CALLBACK_PF_STATUS_SET, In this routine, you will set your own PF-STATUS. You can define your own menu options and buttons in this case, but then you will not be able to use the standard ALV functions. In my example, I was talking about a scenario where I use my own function key.

If you see '&1C1', that means they are assuming you are using standard ALV function code for double click. Assuming you are not setting your own menu, you should use this code for UCOMM not the custom one that I mentioned. For displaying a PO you will do exactly as you did in the material display case, but you will set the parameter BES instead of MAT.

To know exactly which field the user double clicked, you will have that information in the field FIELDNAME of the parameter selfield(type slis_selfield).

Srinivas

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 05:28:57 GMT

Hi Raja,

Here is small code for you -

REPORT ZTEST.

TYPE-POOLS SLIS.

DATA FLCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA WA LIKE LINE OF FLCAT .

TABLES MARA.

DATA I_MARA LIKE MARA OCCURS 0 WITH HEADER LINE.

SELECT * UP TO 10 ROWS INTO TABLE I_MARA FROM MARA.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_STRUCTURE_NAME = 'MARA'

CHANGING

CT_FIELDCAT = FLCAT

EXCEPTIONS

INCONSISTENT_INTERFACE = 1

PROGRAM_ERROR = 2

OTHERS = 3

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT FLCAT INTO WA WHERE FIELDNAME = 'MATNR'.

WA-HOTSPOT = 'X'.

MODIFY FLCAT FROM WA.

ENDLOOP.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'ZTEST34'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

IT_FIELDCAT = FLCAT

TABLES

T_OUTTAB = I_MARA

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

&----

*& Form USER_COMMAND

&----

text

----

-->UCOMM text
-->SELFIELD text

----

FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM

SELFIELD TYPE SLIS_SELFIELD.

CASE UCOMM.

WHEN '&IC1'.

IF SELFIELD-FIELDNAME = 'MATNR'.

SET PARAMETER ID 'MAT' FIELD SELFIELD-VALUE.

CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

ENDIF.

ENDCASE.

ENDFORM. "USER_COMMAND

Above is for material & MM03. Now if you want to have hotspot on your PO number field , you will have to modify your field catalog for the corresponding field i.e. EBELN. In your field catalog you should have EBELN.

Then in routine USER_COMMAND ->

IF SELFIELD-FIELDNAME = 'EBELN'.

SET PARAMETER ID 'BES' FIELD SELFIELD-VALUE.

CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.

ENDIF.

Cheers.

Sanjay

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 05:39:41 GMT

Dont confuse with fcode

do simply as below

FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.

read table i_output into w_output index rs_selfield-tabindex.
lv_matnr = w_output-matnr.
IF SELFIELD-FIELDNAME = 'MATNR'.
SET PARAMETER ID 'MAT' FIELD lv_matnr.
CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .

lv_ebeln = w_output-ebeln.
ELSEIF SELFIELD-FIELDNAME = 'EBELN'.
SET PARAMETER ID 'BES' FIELD lv_ebeln.
CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.
ENDIF.

Clear:     lv_matnr, lv_ebeln.
ENDFORM.

Re: ALV ...Logic required

Former Member — Mon, 07 Nov 2005 05:44:41 GMT

Thanks i got clarification about Fcode..

Then what abt this 'MAT' for material number..and

'BES' for PO...How do u know abt this?

RSS selffield name is always matnr , EBEln...?

depends on final itab

Message was edited by: raja gurrala