Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Secondary list using ALV grid

Go to solution
Former Member

‎10-03-2006 2:41 PM

0 Kudos

Hi All,

Can anybody send me a sample code to display secondary list using Object oriented ALV grid.

Thanks In Advance,

Neha

1 ACCEPTED SOLUTION

Go to solution
venkata_ramisetti
Active Contributor

‎10-03-2006 3:01 PM

0 Kudos

Hi,

Check the demo program BCALV_GRID_03.

It contains complete program to display detailed list in Grid.

Thanks,

Ramakrishna

3 REPLIES 3

Go to solution
Former Member

‎10-03-2006 2:56 PM

0 Kudos

hi

good

go through this line though which you can use the hide statement in alv report

DATA: WA_EVENT_EXIT TYPE SLIS_EVENT_EXIT.

*

MOVE: '&IC1' TO WA_EVENT_EXIT-UCOMM,

'X' TO WA_EVENT_EXIT-BEFORE.

*

APPEND WA_EVENT_EXIT TO EVENT_EXIT.

*

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

...

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

IT_EVENT_EXIT = EVENT_EXIT

...

*

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

*

IF R_UCOMM EQ '&IC1' AND SY-SUBRC = 0.

*

CASE RS_SELFIELD-FIELDNAME.

*

WHEN 'MATNR' OR 'ARKTX'.

*

CHECK NOT ITAB-MATNR IS INITIAL.

PERFORM MM03 USING ITAB-MATNR. "TCOCE MM03

*

WHEN OTHERS.

*

PERFORM VA03 USING ITAB-VBELN. "TCODE VA03

*

ENDCASE.

*

ELSE.

*

MESSAGE I010 WITH 'Mark Line!'.

*

ENDIF.

*

thanks

mrutyun^

Go to solution
venkata_ramisetti
Active Contributor

‎10-03-2006 3:01 PM

0 Kudos

Hi,

Check the demo program BCALV_GRID_03.

It contains complete program to display detailed list in Grid.

Thanks,

Ramakrishna

Go to solution
Former Member

‎10-03-2006 3:06 PM

0 Kudos

Hi,

To display a secondary list when you click on one of the row items in an alv grid. The secondary list should also be an alv.Try out this code. You will have to make a structure ZSTR same as the output internal table

REPORT ZTEST_REP1 . 

TABLES : MARA, 
         BHDGD, 
         zstr. 

TYPES:     BEGIN OF T_MARA, 
              MATNR LIKE MARA-MATNR, 
              ERNAM LIKE MARA-ERNAM, 
           END OF T_MARA. 
  

CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED. 
*Constants for ALV Implementation 
CONSTANTS:  C_SET                        VALUE 'X', 
            C_RESET                      VALUE '0', 
            C_SAVE                       VALUE 'A', 
            C_EXIT(4)                    VALUE 'EXIT', 
            C_BACK(4)                    VALUE 'BACK', 
            C_CANC(4)                    VALUE 'CANC', 
            C_PGTOP(5)                   VALUE 'PGTOP', 
            C_PGUP(4)                    VALUE 'PGUP', 
            C_PGDN(4)                    VALUE 'PGDN', 
            C_PGEND(5)                   VALUE 'PGEND'. 
  
  

DATA : I_MARA TYPE STANDARD TABLE OF T_MARA WITH HEADER LINE, 

*      Internal table for fields catalouge 
       I_FIELDCAT TYPE LVC_T_FCAT WITH HEADER LINE, 
*       i_fieldcat2 type lvc_t_fcat with header line, 

*      Internal table for cursor position 
       I_GT_SELROWS TYPE LVC_T_ROW . 

DATA : WA_MARA LIKE I_MARA, 
       WA_GRIDROW LIKE LVC_S_ROW, 
       WA_GRIDCOL LIKE LVC_S_COL. 

*Data for ALV Implementation. 
DATA:  OK_CODE       LIKE SY-UCOMM, 
       W_OK_CODE     LIKE SY-UCOMM, 
       W_CALL        TYPE I VALUE 1, 
       W_TAB         LIKE SY-UCOMM VALUE 'TAB1', 
       W_SAVE,                                 "For Parameter I_SAVE 
       W_VARIANT     TYPE DISVARIANT,          "For parameter IS_VARIANT 
       W_GRID        TYPE REF TO CL_GUI_ALV_GRID, 
*       w_grid1       type ref to cl_gui_alv_grid, 
       W_CONTAINER  TYPE REF TO CL_GUI_CUSTOM_CONTAINER, 

*       w_container1  type ref to cl_gui_custom_container, 

       W_REPID       LIKE SY-REPID, 
       W_GS_PRINT    TYPE LVC_S_PRNT, 
       W_GS_LAYOUT   TYPE LVC_S_LAYO, 
       W_EVENT_REC   TYPE REF TO LCL_EVENT_RECEIVER, 
       W_CONT_MAIN   TYPE SCRFNAME VALUE 'CCCONTAINER', 
       W_LN          TYPE I,                            "line number 
       W_INDEX       LIKE SY-TABIX, 
       W_FLAG, 
       W_TEMP_VAL    TYPE I. 

*---------------------------------------------------------------------* 
* Definition: 
*---------------------------------------------------------------------* 
CLASS LCL_EVENT_RECEIVER DEFINITION. 

  PUBLIC SECTION. 
    METHODS: 
    HANDLE_TOP_OF_PAGE 
        FOR EVENT PRINT_TOP_OF_PAGE OF CL_GUI_ALV_GRID, 
    HANDLE_DOUBLE_CLICK 
        FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID 
                IMPORTING E_ROW E_COLUMN. 
ENDCLASS. 
  

*---------------------------------------------------------------------* 
* CLASS LCL_EVENT_RECEIVER IMPLEMENTATION 
*---------------------------------------------------------------------* 
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION. 
  METHOD HANDLE_TOP_OF_PAGE. 
    PERFORM F_GET_HEADER. 
  ENDMETHOD.                           "handle_top_of_page 

  METHOD HANDLE_DOUBLE_CLICK. 

*   The event DOUBLE_CLICK provides parameters for row and column 
*   of the click. We use row parameter to select a line of the 
*   corresponding internal table. 

*   read selected row from internal table 
      READ TABLE I_MARA INDEX E_ROW-INDEX INTO WA_MARA. 
      IF SY-SUBRC <> 0. 
*        message i001. " Cursor position not correct. 
      ELSE. 
*       call dialog screen and display the details 
        call screen 200 starting at 10 5. 
      ENDIF. 
  
  

  ENDMETHOD.                           "handle_double_click 

ENDCLASS. 

*----------------------------------------------------------------------- 
* start-of-selection. 
*----------------------------------------------------------------------- 
START-OF-SELECTION. 

SELECT MATNR ERNAM FROM MARA INTO TABLE I_MARA. 

*---------------------------------------------------------------------- 
* End-of-Selection. 
*---------------------------------------------------------------------- 
END-OF-SELECTION. 

* Start of ALV part. 
  W_REPID = SY-REPID. 
  W_VARIANT-REPORT = W_REPID. 
  W_SAVE = C_SAVE. 
  W_CONT_MAIN = W_CONT_MAIN. 
  W_GS_LAYOUT = W_GS_LAYOUT. 
  W_GS_PRINT  = W_GS_PRINT. 
  I_FIELDCAT  = I_FIELDCAT. 
  CALL SCREEN 100. 

*&---------------------------------------------------------------------* 
*&      Form  f_get_header 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
FORM F_GET_HEADER. 

  DATA: L_LINE1 LIKE BHDGD-LINE1, 
        L_LINE2 LIKE BHDGD-LINE2. 
  CONSTANTS LC_SPACE VALUE ' '. 
  DATA: L_F1(7), L_F2(11), L_F3(9), L_F4(6), L_F5(11), L_F6(4), L_F7(8), 
        L_F8(4),L_F9(10), L_F11(11), L_F12(24), L_F13(4), 
        L_F14(3). 

* take the values of line1 and line2 into two new variables, otherwise 
* after coming back to the first screen from the print preview, the 
* header shows the condensed lines 

  L_LINE1 = BHDGD-LINE1. 
  L_LINE2 = BHDGD-LINE2. 

  CONDENSE L_LINE1. 
  CONDENSE L_LINE2. 

*split the lines to display the whole lines within the 
*stipulated report-width 
 SPLIT L_LINE1 AT LC_SPACE INTO L_F1 L_F2 L_F3 L_F4 L_F5 L_F6 L_F7 L_F8 
                                    L_F9 . 

  SPLIT L_LINE2 AT LC_SPACE INTO L_F11 L_F12 L_F13 L_F14. 
  L_F14 = SY-PAGNO. 
    WRITE:/1 L_F1, 9 L_F2, 40 L_F3, 50 L_F4, 57 L_F5, 88 L_F6, 93 L_F7 , 
           103 L_F8 , 108 L_F9 . 
    WRITE:/1 L_F11, 40 TEXT-012, 78 L_F12, 103 L_F13, 108 L_F14. 
  

ENDFORM.                    " f_get_header 
*&---------------------------------------------------------------------* 
*&      Module  STATUS_0100  OUTPUT 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
MODULE STATUS_0100 OUTPUT. 
  SET PF-STATUS 'STAT'. 
  SET TITLEBAR 'TITL'. 

ENDMODULE.                 " STATUS_0100  OUTPUT 
*&---------------------------------------------------------------------* 
*&      Module  USER_COMMAND_0100  INPUT 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
MODULE USER_COMMAND_0100 INPUT. 
  CASE SY-UCOMM . 
    WHEN C_EXIT OR C_BACK OR C_CANC. 
      IF NOT W_CONTAINER  IS INITIAL. 
        CALL METHOD W_CONTAINER->FREE. 
      ENDIF. 

      LEAVE TO SCREEN 0. 

    WHEN C_PGTOP. 
      WA_GRIDROW-INDEX = 1. 

    WHEN C_PGUP. 
      IF WA_GRIDROW-INDEX <= 15. 
        WA_GRIDROW-INDEX = 1. 
      ELSE. 
        WA_GRIDROW-INDEX = WA_GRIDROW-INDEX - 15. 
      ENDIF. 

    WHEN C_PGDN. 
      PERFORM F_GET_NO_ROWS. 
      W_TEMP_VAL = W_LN - WA_GRIDROW-INDEX. 
      IF W_TEMP_VAL < 15. 
        WA_GRIDROW-INDEX = W_LN. 
      ELSE. 
        WA_GRIDROW-INDEX = WA_GRIDROW-INDEX + 15. 
      ENDIF. 

    WHEN C_PGEND. 
      PERFORM F_GET_NO_ROWS. 
      WA_GRIDROW-INDEX = W_LN. 

  ENDCASE. 
  

ENDMODULE.                 " USER_COMMAND_0100  INPUT 
*&---------------------------------------------------------------------* 
*&      Form  f_get_no_rows 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
FORM F_GET_NO_ROWS. 

    DESCRIBE TABLE I_MARA  LINES W_LN. 

ENDFORM.                    " f_get_no_rows 
*&---------------------------------------------------------------------* 
*&      Module  DISPLAY_0100  OUTPUT 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
MODULE DISPLAY_0100 OUTPUT. 

  IF NOT WA_GRIDROW IS INITIAL 
  AND NOT WA_GRIDCOL IS INITIAL. 

    CALL METHOD W_GRID->SET_SCROLL_INFO_VIA_ID 
      EXPORTING 
        IS_ROW_INFO = WA_GRIDROW 
        IS_COL_INFO = WA_GRIDCOL . 

    CALL METHOD W_GRID->SET_CURRENT_CELL_VIA_ID 
      EXPORTING 
        IS_ROW_ID = WA_GRIDROW 
        IS_COLUMN_ID = WA_GRIDCOL . 

  ENDIF. 

  CALL METHOD W_GRID->GET_SCROLL_INFO_VIA_ID 
  IMPORTING 
    ES_ROW_INFO = WA_GRIDROW 
    ES_COL_INFO = WA_GRIDCOL . 

  CALL METHOD W_GRID->GET_SELECTED_ROWS 
    IMPORTING 
      ET_INDEX_ROWS = I_GT_SELROWS[]. 

* Build the fieldcat according to structure 
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE' 
       EXPORTING 
            I_STRUCTURE_NAME = 'ZSTR' 
       CHANGING 
            CT_FIELDCAT      = I_FIELDCAT[]. 

  LOOP AT I_FIELDCAT. 
    W_INDEX = SY-TABIX. 
    CASE I_FIELDCAT-FIELDNAME. 

      WHEN 'MATNR'. 
        I_FIELDCAT-SCRTEXT_S = 'MATNR'. 
        I_FIELDCAT-KEY       = ' '. 
        I_FIELDCAT-COL_POS   = '1'. 

      WHEN 'ERNAM'. 
        I_FIELDCAT-SCRTEXT_S = 'ERDAT'. 
        I_FIELDCAT-OUTPUTLEN = '18'. 
        I_FIELDCAT-COL_POS   = '2'. 
  
  

    ENDCASE. 
    MODIFY I_FIELDCAT INDEX W_INDEX. 

  ENDLOOP. 

  READ TABLE I_FIELDCAT INDEX 1 . 

  IF W_CALL = 1. 

    PERFORM F_STD_HEADER. 

    CALL METHOD W_GRID->SET_TABLE_FOR_FIRST_DISPLAY 
                      EXPORTING 
                        IS_VARIANT                    = W_VARIANT 
                        I_SAVE                        = W_SAVE 
                      CHANGING 
                        IT_OUTTAB                     = I_MARA[] 
                        IT_FIELDCATALOG               = I_FIELDCAT[] 
                     EXCEPTIONS 
                       INVALID_PARAMETER_COMBINATION = 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. 
      EXIT. 
    ENDIF. 

    CREATE OBJECT W_EVENT_REC. 
    SET HANDLER W_EVENT_REC->HANDLE_TOP_OF_PAGE FOR W_GRID. 
    CREATE OBJECT W_EVENT_REC. 
    SET HANDLER W_EVENT_REC->HANDLE_DOUBLE_CLICK FOR W_GRID. 
    W_FLAG = C_RESET. 
  

    CALL METHOD CL_GUI_CONTROL=>SET_FOCUS EXPORTING CONTROL = W_GRID. 
    W_CALL = 0. 
  ENDIF. 
  

ENDMODULE.                 " DISPLAY_0100  OUTPUT 
*&---------------------------------------------------------------------* 
*&      Form  f_std_header 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
FORM F_STD_HEADER. 

ENDFORM.                    " f_std_header 
*&---------------------------------------------------------------------* 
*&      Module  DYNPRONR_CHECK_500  OUTPUT 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
MODULE DYNPRONR_CHECK_500 OUTPUT. 
*  if w_dynpronr is initial. 
*    w_dynpronr = '0100'. 
*  endif. 

  ENDMODULE.                 " DYNPRONR_CHECK_500  OUTPUT 
*&---------------------------------------------------------------------* 
*&      Module  create_objects_0100  OUTPUT 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
MODULE create_objects_0100 OUTPUT. 
  check w_container is initial . 
  create object w_container 
    exporting 
       container_name = 'CC'. 
  create object w_grid 
    exporting 
       i_parent = w_container. 
  w_flag = c_set. 
  w_flag = w_flag. 
ENDMODULE.                 " create_objects_0100  OUTPUT 
*&---------------------------------------------------------------------* 
*&      Module  STATUS_0200  OUTPUT 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
MODULE STATUS_0200 OUTPUT. 
  SET PF-STATUS 'ST20'. 
  SET TITLEBAR '200'. 
  zstr-matnr    = wa_mara-matnr. 
  zstr-ernam    = wa_mara-ernam. 

ENDMODULE.                 " STATUS_0200  OUTPUT 
*&---------------------------------------------------------------------* 
*&      Module  USER_COMMAND_0200  INPUT 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
MODULE USER_COMMAND_0200 INPUT. 
  move ok_code to w_ok_code. 
  clear ok_code. 
  case w_ok_code. 
    when c_back or c_exit or c_canc. 
      leave to screen 0. 
  endcase. 
  clear w_ok_code. 
ENDMODULE.                 " USER_COMMAND_0200  INPUT 

*-- End of Program

Refer the below thread, you will find some more answers ..

Regards

Sudheer