Regarding POP-UP ALV..

Hi..
How can display the data in POP-UP using ALV.
If I clicked on purchase order number , then I want to display Item data in POP-UP ALV.
Which function module I can use.
If any one is having sample code.
Please send me.
Regards
Sandeep.

sandeep,
Step 1:
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = ws_repid
            i_callback_user_command = 'USER_COMMAND'
            is_layout               = gs_layout
            it_fieldcat             = i_fcat
       TABLES
            t_outtab                = i_final.
FORM user_command USING r_ucomm LIKE sy-ucomm
                                        rs_selfield TYPE slis_selfield.
CASE r_ucomm.
    WHEN '&IC1'.
      READ TABLE i_final INTO i_final INDEX rs_selfield-
                                                                      tabindex.
      Here you will get the seleted po number in internal table
i_final.
based on i_final-purchase order number
select   item data into one more internal table
and again declare field catelog for your popup.
and use again below FM
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = ws_repid
            i_callback_user_command = 'USER_COMMAND'
            is_layout               = gs_layout
            it_fieldcat             = i_fcat
       TABLES
            t_outtab                = new_internal table item data.
Don't forget to reward if useful.....
ENDCASE.
ENDFORM.                    "user_command

Similar Messages

Regarding Total in ALV

Hi all,
   I am using alv to display Currency fields in a tax return report.........I want to display the sum of a perticular column or all the columns when i press the total button from alv selecting the required columns. But its coming only for first two columns not for all. Please help.
Regards.

Hi,
This ALV program have all the basic report requirements such as page heading, page no, sub-total and a grand total.
* This is a basic ALV with the followings:-
* - Page Heading
* - Page No
* - Sub-Total
* - Grand Total
REPORT ZALV.
TYPE-POOLS: SLIS.
DATA: G_REPID LIKE SY-REPID,
GS_PRINT            TYPE SLIS_PRINT_ALV,
GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
GT_EVENTS           TYPE SLIS_T_EVENT,
GT_SORT             TYPE SLIS_T_SORTINFO_ALV,
GS_LAYOUT           TYPE SLIS_LAYOUT_ALV,
GT_FIELDCAT         TYPE SLIS_T_FIELDCAT_ALV,
FIELDCAT_LN LIKE LINE OF GT_FIELDCAT,
COL_POS TYPE I.
DATA: BEGIN OF ITAB,
FIELD1(5) TYPE C,
FIELD2(5) TYPE C,
FIELD3(5) TYPE P DECIMALS 2,
END OF ITAB.
DATA: BEGIN OF ITAB1 OCCURS 0.
INCLUDE STRUCTURE ITAB.
DATA: END OF ITAB1.
DATA: BEGIN OF ITAB_FIELDCAT OCCURS 0.
INCLUDE STRUCTURE ITAB.
DATA: END OF ITAB_FIELDCAT.
* Print Parameters
PARAMETERS:
            P_PRINT AS CHECKBOX DEFAULT ' ', "PRINT IMMEDIATE
            P_NOSINF AS CHECKBOX DEFAULT 'X', "NO SELECTION INFO
            P_NOCOVE AS CHECKBOX DEFAULT ' ', "NO COVER PAGE
            P_NONEWP AS CHECKBOX DEFAULT ' ', "NO NEW PAGE
            P_NOLINF AS CHECKBOX DEFAULT 'X', "NO PRINT LIST INFO
            P_RESERV TYPE I.                  "NO OF FOOTER LINE
INITIALIZATION.
G_REPID = SY-REPID.
PERFORM PRINT_BUILD    USING GS_PRINT.      "Print PARAMETERS
START-OF-SELECTION.
* TEST DATA
MOVE 'TEST1' TO ITAB1-FIELD1.
MOVE 'TEST1' TO ITAB1-FIELD2.
MOVE '10.00' TO ITAB1-FIELD3.
APPEND ITAB1.
MOVE 'TEST2' TO ITAB1-FIELD1.
MOVE 'TEST2' TO ITAB1-FIELD2.
MOVE '20.00' TO ITAB1-FIELD3.
APPEND ITAB1.
DO 50 TIMES.
APPEND ITAB1.
ENDDO.
END-OF-SELECTION.
PERFORM BUILD.
PERFORM EVENTTAB_BUILD CHANGING GT_EVENTS.
PERFORM COMMENT_BUILD CHANGING GT_LIST_TOP_OF_PAGE.
PERFORM CALL_ALV.
FORM BUILD.
* DATA FIELD CATALOG
* Explain Field Description to ALV
DATA: FIELDCAT_IN TYPE SLIS_FIELDCAT_ALV.
CLEAR FIELDCAT_IN.
FIELDCAT_LN-FIELDNAME = 'FIELD1'.
FIELDCAT_LN-TABNAME   = 'ITAB1'.
*FIELDCAT_LN-NO_OUT    = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT
FIELDCAT_LN-KEY       = ' '.   "SUBTOTAL KEY
FIELDCAT_LN-NO_OUT    = ' '.
FIELDCAT_LN-SELTEXT_L = 'HEAD1'.
APPEND FIELDCAT_LN TO GT_FIELDCAT.
CLEAR FIELDCAT_IN.
FIELDCAT_LN-FIELDNAME = 'FIELD2'.
FIELDCAT_LN-TABNAME   = 'ITAB1'.
FIELDCAT_LN-NO_OUT    = 'X'.
FIELDCAT_LN-SELTEXT_L = 'HEAD2'.
APPEND FIELDCAT_LN TO GT_FIELDCAT.
CLEAR FIELDCAT_IN.
FIELDCAT_LN-FIELDNAME     = 'FIELD3'.
FIELDCAT_LN-TABNAME       = 'ITAB1'.
FIELDCAT_LN-REF_FIELDNAME = 'MENGE'. "<- REF FIELD IN THE DICTIONNARY
FIELDCAT_LN-REF_TABNAME   = 'MSEG'. "<- REF TABLE IN THE DICTIONNARY
FIELDCAT_LN-NO_OUT        = ' '.
FIELDCAT_LN-DO_SUM        = 'X'.   "SUM UPON DISPLAY
APPEND FIELDCAT_LN TO GT_FIELDCAT.
* DATA SORTING AND SUBTOTAL
DATA: GS_SORT TYPE SLIS_SORTINFO_ALV.
CLEAR GS_SORT.
GS_SORT-FIELDNAME = 'FIELD1'.
GS_SORT-SPOS      = 1.
GS_SORT-UP        = 'X'.
GS_SORT-SUBTOT    = 'X'.
APPEND GS_SORT TO GT_SORT.
CLEAR GS_SORT.
GS_SORT-FIELDNAME = 'FIELD2'.
GS_SORT-SPOS      = 2.
GS_SORT-UP        = 'X'.
*GS_SORT-SUBTOT    = 'X'.
APPEND GS_SORT TO GT_SORT.
ENDFORM.
FORM CALL_ALV.
* ABAP List Viewer
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = G_REPID
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME = 'ITAB1'
IS_LAYOUT = GS_LAYOUT
IT_FIELDCAT = GT_FIELDCAT[]
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
IT_SORT = GT_SORT[]
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
IT_EVENTS = GT_EVENTS[]
* IT_EVENT_EXIT =
IS_PRINT = GS_PRINT
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = ITAB1
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
ENDFORM.
* HEADER FORM
FORM EVENTTAB_BUILD CHANGING LT_EVENTS TYPE SLIS_T_EVENT.
CONSTANTS:
GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
*GC_FORMNAME_END_OF_PAGE TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE'.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 0
       IMPORTING
            ET_EVENTS   = LT_EVENTS.
READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO LT_EVENTS.
ENDIF.
* define END_OF_PAGE event
* READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_END_OF_PAGE
*                          INTO LS_EVENT.
* IF SY-SUBRC = 0.
*   MOVE GC_FORMNAME_END_OF_PAGE TO LS_EVENT-FORM.
*   APPEND LS_EVENT TO LT_EVENTS.
* ENDIF.
ENDFORM.
FORM COMMENT_BUILD CHANGING GT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: GS_LINE TYPE SLIS_LISTHEADER.
CLEAR GS_LINE.
GS_LINE-TYP = 'H'.
GS_LINE-INFO = 'HEADER 1'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.
CLEAR GS_LINE.
GS_LINE-TYP = 'S'.
GS_LINE-KEY = 'STATUS 1'.
GS_LINE-INFO = 'INFO 1'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.
GS_LINE-KEY = 'STATUS 2'.
GS_LINE-INFO = 'INFO 2'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.
* CLEAR GS_LINE.
* GS_LINE-TYP = 'A'.
* GS_LINE-INFO = 'ACTION'.
* APPEND GS_LINE TO GT_TOP_OF_PAGE.
ENDFORM.
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
WRITE: SY-DATUM, 'Page No', SY-PAGNO LEFT-JUSTIFIED.
ENDFORM.
FORM END_OF_PAGE.
WRITE at (sy-linsz) sy-pagno CENTERED.
ENDFORM.
* PRINT SETTINGS
FORM PRINT_BUILD USING LS_PRINT TYPE SLIS_PRINT_ALV.
LS_PRINT-PRINT              = P_PRINT. "PRINT IMMEDIATE
LS_PRINT-NO_PRINT_SELINFOS = P_NOSINF. "NO SELECTION INFO
LS_PRINT-NO_COVERPAGE       = P_NOCOVE. "NO COVER PAGE
LS_PRINT-NO_NEW_PAGE        = P_NONEWP.
LS_PRINT-NO_PRINT_LISTINFOS = P_NOLINF. "NO PRINT LIST INFO
LS_PRINT-RESERVE_LINES      = P_RESERV.
ENDFORM.
*END OF ZALV PROGRAM
Regards
Sudheer

Regarding Vendor wise ALV Display

Dear All,
               I am working on a report which has different fields like vendor , Doc No., Date, Amount. I am able to display all these fields for all the vendors in single alv grid. I want the report to display all these fields vendor wise in diffent Alv grid. Foe e.g.,
Vendor Code: 111111
Vendor Name : xyz ltd.
Doc no .       Date                    Amount
     11           01.05.2010            50000
     12           02.05.2010            10000
Vendor Code: 222222
Vendor Name : pqr ltd.
Doc no .       Date                    Amount
     13           03.05.2010              5000
     14           04.05.2010              1000
Pls, suggest any good Solutions.
Thanks & Regards,
Sandip Sonar

Thank U sandeep,
But I want the list for all the vendors entered in selection-screen.
Thanks again,
Sandip Sonar

Regarding downloading from alv report o/p to excel sheet

Hi gurus,
When i am trying to download the alv output to excel sheet it is downloading only titles, No data is getting displayed in it.No data is getting downloaded.
Thnaks in advance.

Hi,
What are the steps you do to download ALV to excel? We need to replicate the case in order to find answer.
Regards,
Teddy Kurniawan

Regarding the simple ALV report

Hi All,
I created the simple code for disply of the alv report the code is provided below,but the output is showing only the column heading not the data in the grid, i won't came to know where the problem is please find the problem in the code.
Regards
Sai
********sample code**********
type-pools : slis.
data : b_display type slis_t_fieldcat_alv,
       w_display type slis_fieldcat_alv.
data : begin of itab_display occurs 0,
        kunnr type kna1-kunnr,
        name1 type kna1-name1,
        end of itab_display.
data : gd_repid like sy-repid.
      itab_display-name1 = 'ram'.
      itab_display-kunnr = '10000033242'.
      append itab_display.
      clear itab_display.
      itab_display-name1 = 'sai'.
      itab_display-kunnr = '10000033243'.
      append itab_display.
      clear itab_display.
   w_display-col_pos = 0.
   w_display-fieldname = 'name1'.
   w_display-seltext_m = 'name'.
   append w_display to b_display.
   clear w_display.
   w_display-col_pos = 1.
   w_display-fieldname = 'kunnr'.
   w_display-seltext_m = 'cus.no'.
   append w_display to b_display.
   clear w_display.
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = gd_repid
IT_FIELDCAT       = b_display[]
I_SAVE            = 'X'
TABLES
    t_outtab       = itab_display.

Hi,
Please use the following code.
type-pools : slis.
data : b_display type slis_t_fieldcat_alv,
w_display type slis_fieldcat_alv.
data : begin of itab_display occurs 0,
kunnr type kna1-kunnr,
name1 type kna1-name1,
end of itab_display.
data : gd_repid like sy-repid.
itab_display-name1 = 'ram'.
itab_display-kunnr = '10000033242'.
append itab_display.
clear itab_display.
itab_display-name1 = 'sai'.
itab_display-kunnr = '10000033243'.
append itab_display.
clear itab_display.
w_display-col_pos = 0.
w_display-fieldname = 'NAME1'.
w_display-tabname = ITAB_DISPLAY.
w_display-seltext_m = 'Name'.
w_display-ddictxt   = 'M'.
append w_display to B_DISPLAY.
w_display-col_pos = 1.
w_display-fieldname = 'KUNNR'.
w_display-tabname = ITAB_DISPLAY.
w_display-seltext_m = 'cus.no'.
w_display-ddictxt   = 'M'.
append w_display to B_DISPLAY.
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = gd_repid
IT_FIELDCAT = b_display[]
I_SAVE = 'X'
TABLES
t_outtab = itab_display[].
Regards,
Sankar.

Regarding logo in alv

Hi Everyone,
I want to print a logo in the alv grid display.
I have used the "reuse_alv_commentary_write" fm.
The logo is also displaying at the right top corner.
But I want to get it printed at the left top corner.
please give me a solution. this is urgent
With Thanks and Best Regards
V.Ravishankar

Hi Ravi,
You can do that. Try like this,
Concatenate the Logo name with ASCII values of the Spaces following it(LOGO NAME) and put it in an Field which you are going to pass to that function Module <b>reuse_alv_commentary_write[\b]. ASCII Value for Space can be entered as ALT+255. place around five to 10 spaces and then try it must work i hope.
Thanks and Regards,
Prashanth

Regarding disply in alv

have few queries on alv
1..i want to colout hte columns of my alv display say the first three columns with one colour and then the next three columns witth another colour and so on.
2.i have just displayed the output on alv and when i am double clicking on any record it is saying <b>Call (PERFORM) to a non-existent routine<b>.
now what i want i sthat is there any way by which i can avoid this thing means if user double clicks on any thing nothing should be done adn it should remain at the list.
3.now i n case i want to have that option where if the user double clicks on any record then it should dispaly the corresonding record like we have in report display at line-selection
is there some thing like that in alv also.
Thanks and Regards

Hi Ashish,
check the below code to solve u r proble...
Just create PF STATUS for the below code and execute it...
*******Declare Data Areas for List Viewer (Begin)***********
TYPE-POOLS: SLIS.
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       FIELDCAT_LN LIKE LINE OF FIELDCAT,
       SORTCAT          TYPE SLIS_T_SORTINFO_ALV,
       LAYOUT           TYPE SLIS_LAYOUT_ALV,
       SORTCAT_LN       LIKE LINE OF SORTCAT,
       EVENTCAT         TYPE SLIS_T_EVENT,
       EVENTCAT_LN      LIKE LINE OF EVENTCAT,
       COUNT TYPE I,
        COLCELL TYPE SLIS_FIELDNAME VALUE 'MATNR'.
DATA: COL_POS TYPE I,
        W_FNAME TYPE DD03L-FIELDNAME.
******Declare Data Areas for List Viewer (End)**************
******Declare Internal Table to Store Selected Data (Begin)*
DATA LS_CELLCOLOR TYPE SLIS_T_SPECIALCOL_ALV WITH HEADER LINE.
DATA: BEGIN OF TSPFLI OCCURS 10 ,
          CHECK TYPE SLIS_FIELDNAME,
          COLOR(3),
          COLCELLS TYPE SLIS_T_SPECIALCOL_ALV.
         INCLUDE STRUCTURE SPFLI.
DATA : END OF TSPFLI.
*Declare Internal Table to Store Selected Data (Begin) For sflight*
DATA:
   W_SPFLI LIKE LINE OF TSPFLI.
DATA : BEGIN OF FS_SFLIGHT,
          CHECK TYPE SLIS_FIELDNAME,
          COLOR(3).
         INCLUDE STRUCTURE SFLIGHT.
DATA : END OF FS_SFLIGHT.
DATA
   T_SFLIGHT LIKE
    STANDARD TABLE
          OF FS_SFLIGHT.
*Declare Internal Table to Store Selected Data (Begin) For sbook*
DATA:
W_SFLIGHT LIKE LINE OF T_SFLIGHT.
DATA : BEGIN OF FS_SBOOK,
          CHECK TYPE SLIS_FIELDNAME.
         INCLUDE STRUCTURE SBOOK.
DATA : END OF FS_SBOOK.
DATA
   T_SBOOK LIKE
    STANDARD TABLE
          OF FS_SBOOK.
******Declare Internal Table to Store Selected Data (End)***
*******Select Data into Internal Table (Begin) ***************
SELECT *
         INTO CORRESPONDING FIELDS OF TSPFLI
        FROM SPFLI.
   APPEND TSPFLI.
   CLEAR TSPFLI.
ENDSELECT.
Select Data into Internal Table (End) ****************
PERFORM BUILD_FIELDCAT4.
PERFORM BUILD_FIELDCAT6.
PERFORM BUILD_FIELDCAT7.
PERFORM BUILD_LISTCAT.
PERFORM BUILD_EVENTCAT.
PERFORM START_LIST_VIEWER.
*&      Form build_fieldcat4
      text
FORM BUILD_FIELDCAT4.
   FIELDCAT_LN-FIELDNAME = 'CHECK'.
   APPEND FIELDCAT_LN TO FIELDCAT.
   CLEAR FIELDCAT_LN.
ENDFORM.                    "BUILD_FIELDCAT4
*&      Form build_fieldcat6
      text
FORM BUILD_FIELDCAT6.
   FIELDCAT_LN-FIELDNAME = 'COLOR'.
   FIELDCAT_LN-OUTPUTLEN = 4.
   APPEND FIELDCAT_LN TO FIELDCAT.
   CLEAR FIELDCAT_LN.
ENDFORM.                    "build_fieldcat6
*&      Form BUILD_FIELDCAT7
      text
FORM BUILD_FIELDCAT7.
   FIELDCAT_LN-FIELDNAME = 'COLCELLS'.
   APPEND FIELDCAT_LN TO FIELDCAT.
   CLEAR FIELDCAT_LN.
ENDFORM.                    "build_fieldcat6
*&      Form build_listcat
      text
FORM BUILD_LISTCAT.
   LAYOUT-BOX_FIELDNAME    = 'CHECK'.
   LAYOUT-INFO_FIELDNAME   = 'COLOR'.
   LAYOUT-COLTAB_FIELDNAME = 'COLCELLS'.
ENDFORM.                    "build_listcat
*&      Form BUILD_EVENTCAT
      text
FORM BUILD_EVENTCAT.
   EVENTCAT_LN-NAME = 'PF_STATUS_SET'.
   EVENTCAT_LN-FORM = 'STATUSSET'.
   APPEND EVENTCAT_LN TO EVENTCAT.
   EVENTCAT_LN-NAME = 'USER_COMMAND'.
   EVENTCAT_LN-FORM = 'USERCOMM'.
   APPEND EVENTCAT_LN TO EVENTCAT.
ENDFORM.                    "BUILD_EVENTCAT
*&      Form STATUSSET
      text
     -->RT_EXTAB   text
FORM STATUSSET
    USING RT_EXTAB TYPE SLIS_T_EXTAB.
   DATA
     W_EXTAB TYPE SLIS_EXTAB.
   CLEAR RT_EXTAB[].
   W_EXTAB-FCODE = 'SBOOK'.
   APPEND W_EXTAB TO RT_EXTAB.
   SET PF-STATUS 'STATUS' EXCLUDING RT_EXTAB.
ENDFORM.                    "STATUSSET
*&      Form START_LIST_VIEWER
      text
FORM START_LIST_VIEWER.
   DATA: PGM LIKE SY-REPID.
   PGM = SY-REPID.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
          I_CALLBACK_PROGRAM       = PGM
          i_callback_pf_status_set = ' '
        I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
            I_STRUCTURE_NAME         = 'SPFLI'
              IS_LAYOUT                = LAYOUT
          IS_VARIANT               = ' '
            IT_EVENTS                = EVENTCAT
          IT_EVENT_EXIT            =
        TABLES
             T_OUTTAB                 = TSPFLI
        EXCEPTIONS
             PROGRAM_ERROR            = 1
             OTHERS                   = 2.
ENDFORM.                    "START_LIST_VIEWER
*&      Form USERCOMM
      text
     -->UCOMM      text
     -->SELFIELD   text
FORM USERCOMM USING UCOMM LIKE SY-UCOMM
                     SELFIELD TYPE SLIS_SELFIELD.
   CLEAR FIELDCAT[].
   CASE UCOMM.
     WHEN 'SFLIGHT'.
       CLEAR T_SFLIGHT[].
       LOOP AT TSPFLI INTO W_SPFLI.
         IF W_SPFLI-CHECK EQ 'X'.
           SELECT *
             FROM SFLIGHT
        APPENDING CORRESPONDING FIELDS OF TABLE T_SFLIGHT
            WHERE CARRID = W_SPFLI-CARRID
              AND CONNID = W_SPFLI-CONNID.
           W_SPFLI-CHECK = '1'.
           W_SPFLI-COLOR = 'C21'.
           MODIFY TSPFLI FROM W_SPFLI TRANSPORTING CHECK COLOR.
         ENDIF.
       ENDLOOP.
       PERFORM BUILD_FIELDCAT9.
       PERFORM BUILD_EVENTCAT1.
       PERFORM START_LIST_VIEWER1.
   ENDCASE.
   SELFIELD-REFRESH = 'X'.
ENDFORM.                    "USERCOMM
*&      Form START_LIST_VIEWER1
      text
FORM START_LIST_VIEWER1.
   DATA: PGM LIKE SY-REPID.
   PGM = SY-REPID.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_INTERFACE_CHECK              = ' '
       I_CALLBACK_PROGRAM             = PGM
      I_CALLBACK_PF_STATUS_SET       = ' '
      I_CALLBACK_USER_COMMAND        = ' '
      I_STRUCTURE_NAME               = 'SFLIGHT'
            IS_LAYOUT                = LAYOUT
       IT_FIELDCAT                    = FIELDCAT
      IT_SORT                        =
       IT_EVENTS                      = EVENTCAT
     TABLES
       T_OUTTAB                       = T_SFLIGHT
    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.
ENDFORM.                    "START_LIST_VIEWER1
*&      Form BUILD_EVENTCAT1
      text
FORM BUILD_EVENTCAT1.
   CLEAR EVENTCAT[].
   EVENTCAT_LN-NAME = 'PF_STATUS_SET'.
   EVENTCAT_LN-FORM = 'STATUSSET1'.
   APPEND EVENTCAT_LN TO EVENTCAT.
   CLEAR EVENTCAT_LN.
   EVENTCAT_LN-NAME = 'USER_COMMAND'.
   EVENTCAT_LN-FORM = 'USERCOMM1'.
   APPEND EVENTCAT_LN TO EVENTCAT.
ENDFORM.                    "BUILD_EVENTCAT
*&      Form STATUSSET1
      text
     -->RT_EXTAB   text
FORM STATUSSET1
    USING RT_EXTAB TYPE SLIS_T_EXTAB.
   DATA
     W_EXTAB TYPE SLIS_EXTAB.
   CLEAR RT_EXTAB[].
   W_EXTAB-FCODE = 'SFLIGHT'.
   APPEND W_EXTAB TO RT_EXTAB.
   SET PF-STATUS 'STATUS' EXCLUDING RT_EXTAB.
ENDFORM.                    "STATUSSET
*.................................USERCOMM1..................
FORM USERCOMM1 USING UCOMM LIKE SY-UCOMM
                     SELFIELD TYPE SLIS_SELFIELD.
   CLEAR FIELDCAT[].
   CASE UCOMM.
     WHEN 'SBOOK'.
       CLEAR T_SBOOK[].
       LOOP AT T_SFLIGHT INTO W_SFLIGHT.
         IF W_SFLIGHT-CHECK EQ 'X'.
           SELECT *
             FROM SBOOK
        APPENDING CORRESPONDING FIELDS OF TABLE T_SBOOK
            WHERE CARRID = W_SFLIGHT-CARRID
              AND CONNID = W_SFLIGHT-CONNID
           AND FLDATE = W_SFLIGHT-FLDATE.
           W_SFLIGHT-CHECK = '1'.
           W_SFLIGHT-COLOR = 'C81'.
           MODIFY T_SFLIGHT FROM W_SFLIGHT TRANSPORTING CHECK COLOR.
         ENDIF.
       ENDLOOP.
       PERFORM BUILD_FIELDCAT9.
       PERFORM BUILD_EVENTCAT2.
       PERFORM START_LIST_VIEWER2.
   ENDCASE.
   SELFIELD-REFRESH = 'X'.
ENDFORM.                                                   " USERCOMM1
*&      Form BUILD_FIELDCAT9
      text
FORM BUILD_FIELDCAT9.
   CLEAR FIELDCAT[].
   FIELDCAT_LN-FIELDNAME = 'CHECK'.
   APPEND FIELDCAT_LN TO FIELDCAT.
   CLEAR FIELDCAT_LN.
   LAYOUT-BOX_FIELDNAME    = 'CHECK'.
ENDFORM.                    "BUILD_FIELDCAT8
*&      Form START_LIST_VIEWER2
      text
FORM START_LIST_VIEWER2.
   DATA: PGM LIKE SY-REPID.
   PGM = SY-REPID.
   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_INTERFACE_CHECK              = ' '
      I_BYPASSING_BUFFER             =
      I_BUFFER_ACTIVE                = ' '
       I_CALLBACK_PROGRAM             = PGM
      I_CALLBACK_PF_STATUS_SET       = ' '
      I_CALLBACK_USER_COMMAND        = ' '
      I_STRUCTURE_NAME               = 'SBOOK'
       IS_LAYOUT                      = LAYOUT
       IT_FIELDCAT                    = FIELDCAT
      IT_SORT                        =
      IT_FILTER                      =
      IS_SEL_HIDE                    =
       IT_EVENTS                      = EVENTCAT
     TABLES
       T_OUTTAB                       = T_SBOOK
    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.
ENDFORM.                    "START_LIST_VIEWER1
*&      Form BUILD_EVENTCAT2
      text
FORM BUILD_EVENTCAT2.
   CLEAR EVENTCAT[].
   EVENTCAT_LN-NAME = 'PF_STATUS_SET'.
   EVENTCAT_LN-FORM = 'STATUSSET2'.
   APPEND EVENTCAT_LN TO EVENTCAT.
ENDFORM.                    "BUILD_EVENTCAT
*&      Form STATUSSET1
      text
     -->RT_EXTAB   text
FORM STATUSSET2
    USING RT_EXTAB TYPE SLIS_T_EXTAB.
   DATA
     W_EXTAB TYPE SLIS_EXTAB.
   CLEAR RT_EXTAB[].
   W_EXTAB-FCODE = 'SFLIGHT'.
   APPEND W_EXTAB TO RT_EXTAB.
   W_EXTAB-FCODE = 'SBOOK'.
   APPEND W_EXTAB TO RT_EXTAB.
   SET PF-STATUS 'STATUS' EXCLUDING RT_EXTAB.
ENDFORM.                    "STATUSSET
Reward points if it is helpful...
Regards,
Omkar.
Message was edited by:
        Omkaram Yanamala

Regarding Headings in AlV.

Hi,
I have a requirement where the headings for a ALV display have to be in 2 or 3 rows.For an e.g. Posting Date must be as Posting and Customer name as
Date
Customer
Name
Is it possible to do this in ALV?I tried using row value while building the fieldcatalog but it did not work.
Please suggest me some ways to do this.Its urgent.
Thanks,
Sandeep.

Hi Dude,
For first header
wa_hader-type = 'H'.
wa_hader-info = 'Main Headding'.
append wa_heaer to it_header.
For Sub header
wa_hader-type = 'S'.
wa_hader-info = Sub Headding1.
append wa_heaer to it_header.
Finally call the function module
Reuse_Alv_commentray_write function module
then pass the parameter
exporting
it_list_commentary = it_header.
Try this
Hope it will work....
Thanks & Regards
Ramakrishna Pathi

Regarding pop up menu on the right click of a row of a table in a frame

hi to all,
i am a naive in applet and swing.
i have some proplem regarding table in a frame.
actually i want to open a pop up menu on the right click of a row of a table in the frame.please send the code regarding this.

Hi,
You're probably better off directing this to the swing forum but a starter for ten is the use of the MouseListener interface and the boolean isRightMouseButton method.
http://java.sun.com/docs/books/tutorial/uiswing/events/mouselistener.html
Regards,
Chris

Help regarding pop up

hi, i would like to know the various ways i can use a pop up to edit a certain field in an alv display and the change gets reflected in the display

Hi Rajan Roy,
when '&IC1'.
data: p_get
CALL FUNCTION 'POPUP_TO_CONFIRM'
         EXPORTING
             TITLEBAR              = 'Confirm'(007)
             TEXT_QUESTION = 'Do you wish to save your data first?'(006)
             TEXT_BUTTON_1         = 'Yes'(008)
             ICON_BUTTON_1         = 'ICON_OKAY'
             TEXT_BUTTON_2         = 'No'(010)
             ICON_BUTTON_2         = 'ICON_CANCEL'
             DEFAULT_BUTTON        = '1'
             DISPLAY_CANCEL_BUTTON = 'X'
             START_COLUMN          = 25
             START_ROW             = 6
        IMPORTING
             ANSWER                = P_get
        EXCEPTIONS
             TEXT_NOT_FOUND        = 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.
Cheers,
Pravin s

Regarding downloading the ALV tree to excel

I have prepared a report in which the ouput will be in ALV tree format. Now i want to download the tree to excel file. If anyone can help me out i'll be very thankful.
Regards,
Rohitash

Hi
Use the FM - ALV_XXL_CALL. here is the sample -
REPORT ZSKC_ALV_XXL.
TYPE-POOLS : KKBLO.
DATA : ITAB LIKE T100 OCCURS 0,
       T_FCAT_LVC TYPE LVC_S_FCAT OCCURS 0 WITH HEADER LINE,
       T_FCAT_KKB TYPE KKBLO_T_FIELDCAT.
START-OF-SELECTION.
Get data.
SELECT * UP TO 20 ROWS
FROM   T100
INTO   TABLE ITAB
WHERE SPRSL = SY-LANGU.
CHECK SY-SUBRC EQ 0.
Create the field catalog.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
   EXPORTING
      I_STRUCTURE_NAME             = 'T100'
    CHANGING
      CT_FIELDCAT                  = T_FCAT_LVC[]
    EXCEPTIONS
      INCONSISTENT_INTERFACE       = 1
      PROGRAM_ERROR                = 2
      OTHERS                       = 3.
CHECK SY-SUBRC EQ 0.
make sure you pass the correct internal table name in the field catalog.
t_fcat_lvC-tabname = 'ITAB'.
MODIFY T_FCAT_LVC TRANSPORTING TABNAME WHERE TABNAME NE SPACE.
Transfer to KKBLO format.
CALL FUNCTION 'LVC_TRANSFER_TO_KKBLO'
    EXPORTING
      IT_FIELDCAT_LVC                 = T_FCAT_LVC[]
    IMPORTING
      ET_FIELDCAT_KKBLO               = T_FCAT_KKB
   EXCEPTIONS
     IT_DATA_MISSING                 = 1
     IT_FIELDCAT_LVC_MISSING         = 2
     OTHERS                          = 3.
CHECK SY-SUBRC EQ 0.
Call XXL.
CALL FUNCTION 'ALV_XXL_CALL'
    EXPORTING
      I_TABNAME                    = 'ITAB'
      IT_FIELDCAT                  = T_FCAT_KKB
    TABLES
      IT_OUTTAB                    = ITAB[]
    EXCEPTIONS
      FATAL_ERROR                  = 1
      NO_DISPLAY_POSSIBLE          = 2
      OTHERS                       = 3.
IF SY-SUBRC <> 0.
ENDIF.

Regarding Pop Up Message

Hai experts,
during sales order creation using va01 once the sales order is created and in user_exit_refresh_document user exit i am doing delivery , and then sumbitting a report for excise calculation J_1IJChk , this report is called but it throws a pop up saying that excise is completed for the delivery and when i press ok it comes out of the program, actually after i press ok then it should come back to my program for further process , how can this be acheived is there any configuration for the same or shoudl i change the standard code
regards
m.a

hai sujatha,
the program is of standard J_1IJChk , which when success throws an information message that is creating a problem when i call in function module
so for that i coopied into a z report and changed the information message into success message and it is working fine
i could have changed the standard code but it will effect others instead i am callign a z report
thanx for ur response
i am closing the thread
m.a
Edited by: mohammad afzal on Aug 27, 2009 5:41 AM

Query regarding row in ALV

Hi all,
Please clarify this query of mine in alv.
I am displaying an output in ALV format which has 10 rows.
I want to add a eleventh row to the above output .
The eleventh row must contain the sum of the above 10 rows .
Please guide me how to achieve this.
Kindly reply as fast as possible.
Regards,
Vijay

Hi,
see following code :
REPORT ZALVTEST1 .
TYPE-POOLS: SLIS.
Data: v_temp type p decimals 2.
Data: v_f1_sum type i,
v_f2_sum type i.
dATA: BEGIN OF struct_customer,
CUSTOMER LIKE KNA1-KUNNR,
FIELD1 TYPE I,
FIELD2 TYPE I,
field3 type i,
END OF struct_customer.
DATA: I_LAYOUT TYPE SLIS_LAYOUT_ALV,
I_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,
I_HEADING TYPE SLIS_T_LISTHEADER,
I_EVENTS TYPE SLIS_T_EVENT.
DATA: RS_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA: V_CUST TYPE KNA1-KUNNR.
DATA: BEGIN OF ITAB OCCURS 0,
CUSTOMER LIKE KNA1-KUNNR,
FIELD1 TYPE I,
FIELD2 TYPE I,
field3 type i,
END OF ITAB.
DATA: BEGIN OF ITAB1 OCCURS 0,
CUSTOMER LIKE KNA1-KUNNR,
FIELD1 TYPE I,
FIELD2 TYPE I,
field3 type i,
END OF ITAB1.
DATA: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
DATA: FORMNAME_SUBTOTAL_TEXT TYPE SLIS_FORMNAME VALUE 'SUBTOTAL_TEXT'.
DATA: FORMNAME_END_OF_PAGE TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE'.
DATA: FORMNAME_END_OF_LIST TYPE SLIS_FORMNAME VALUE 'END_OF_LIST'.
DATA: FORMNAME_AFTER_LINE_OUTPUT TYPE SLIS_FORMNAME VALUE 'LINE_OUTPUT'.
START-OF-SELECTION.
PERFORM FILL_ITAB.
PERFORM FILL_CAT.
PERFORM SET_SORT.
PERFORM FILL_EVENT.
PERFORM DISPLAY_DATA.
END-OF-SELECTION.
*& Form FILL_ITAB
text
--> p1 text
<-- p2 text
FORM FILL_ITAB .
DATA: L_CTR TYPE I.
ITAB-CUSTOMER = 1.ITAB-FIELD1 = 1.ITAB-FIELD2 = 2.APPEND ITAB.
CLEAR ITAB.
ITAB-CUSTOMER = 2.ITAB-FIELD1 = 3.ITAB-FIELD2 = 4.APPEND ITAB.
CLEAR ITAB.
ITAB-CUSTOMER = 3.ITAB-FIELD1 = 2.ITAB-FIELD2 = 5.APPEND ITAB.
CLEAR ITAB.
ITAB-CUSTOMER = 4.ITAB-FIELD1 = 1.ITAB-FIELD2 = 10.APPEND ITAB.
CLEAR ITAB.
LOOP AT ITAB.
v_temp = itab-field1 / itab-field2.
itab-field3 = v_temp * 100.
modify itab.
V_f1_sum = v_f1_sum + itab-field1.
V_f2_sum = v_f2_sum + itab-field2.
ENDLOOP.
ENDFORM. " FILL_ITAB
*& Form FILL_CAT
text
--> p1 text
<-- p2 text
FORM FILL_CAT .
DATA: L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
CLEAR L_FIELDCAT.
L_FIELDCAT-COL_POS = 1.
L_FIELDCAT-TABNAME = 'ITAB'.
L_FIELDCAT-FIELDNAME = 'CUSTOMER'.
L_FIELDCAT-REF_TABNAME = 'KNA1'.
L_FIELDCAT-REF_FIELDNAME = 'KUNNR'.
L_FIELDCAT-KEY = 'X'.
APPEND L_FIELDCAT TO I_FIELDTAB.
CLEAR L_FIELDCAT.
CLEAR L_FIELDCAT.
L_FIELDCAT-COL_POS = 3.
L_FIELDCAT-TABNAME = 'ITAB'.
L_FIELDCAT-FIELDNAME = 'FIELD1'.
L_FIELDCAT-DO_SUM = 'X'.
L_FIELDCAT-No_zero = 'X'.
L_FIELDCAT-seltext_l ='VALUE1'.
L_FIELDCAT-seltext_M ='VALUE1'.
L_FIELDCAT-seltext_S ='VALUE1'.
L_FIELDCAT-KEY = 'X'.
APPEND L_FIELDCAT TO I_FIELDTAB.
CLEAR L_FIELDCAT.
L_FIELDCAT-COL_POS = 4.
L_FIELDCAT-TABNAME = 'ITAB'.
L_FIELDCAT-FIELDNAME = 'FIELD2'.
L_FIELDCAT-DO_SUM = 'X'.
L_FIELDCAT-No_zero = 'X'.
L_FIELDCAT-seltext_l ='VALUE2'.
L_FIELDCAT-seltext_M ='VALUE2'.
L_FIELDCAT-seltext_S ='VALUE2'.
L_FIELDCAT-KEY = 'X'.
APPEND L_FIELDCAT TO I_FIELDTAB.
CLEAR L_FIELDCAT.
L_FIELDCAT-COL_POS = 5.
L_FIELDCAT-TABNAME = 'ITAB'.
L_FIELDCAT-FIELDNAME = 'FIELD3'.
L_FIELDCAT-DO_SUM = 'X'.
L_FIELDCAT-No_zero = 'X'.
L_FIELDCAT-seltext_l ='VALUE3'.
L_FIELDCAT-seltext_M ='VALUE3'.
L_FIELDCAT-seltext_S ='VALUE3'.
APPEND L_FIELDCAT TO I_FIELDTAB.
ENDFORM. " FILL_CAT
*& Form DISPLAY_DATA
text
--> p1 text
<-- p2 text
FORM DISPLAY_DATA .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = 'ZALVTEST2'
IS_LAYOUT = I_LAYOUT
IT_FIELDCAT = I_FIELDTAB
I_DEFAULT = 'X'
I_SAVE = ' '
IT_EVENTS = I_EVENTS[]
TABLES
T_OUTTAB = ITAB
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.
ENDFORM. " DISPLAY_DATA
*& Form SET_SORT
text
--> p1 text
<-- p2 text
FORM SET_SORT .
I_LAYOUT-ZEBRA = 'X'.
DATA: LS_SORT TYPE SLIS_SORTINFO_ALV.
CLEAR LS_SORT.
LS_SORT-SPOS = 1.
LS_SORT-FIELDNAME = 'CUSTOMER'.
LS_SORT-TABNAME = 'ITAB'.
LS_SORT-UP = 'X'.
APPEND LS_SORT TO RS_SORT.
ENDFORM. " SET_SORT
*& Form FILL_EVENT
text
--> p1 text
<-- p2 text
FORM FILL_EVENT .
DATA: L_I_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = I_EVENTS.
READ TABLE I_EVENTS WITH KEY NAME = SLIS_EV_AFTER_LINE_OUTPUT
INTO L_I_EVENT.
IF SY-SUBRC = 0.
MOVE FORMNAME_AFTER_LINE_OUTPUT TO L_I_EVENT-FORM.
MODIFY I_EVENTS FROM L_I_EVENT INDEX SY-TABIX.
ENDIF.
ENDFORM. " FILL_EVENT
*& Form AFTER_LINE_OUTPUT
text
FORM LINE_OUTPUT using RS_LINEINFO TYPE SLIS_LINEINFO.
DATA: L_TABIX LIKE SY-TABIX.
DATA: L_TABIX1 LIKE SY-TABIX.
data: str_kunnr like struct_customer.
check RS_LINEINFO-tabindex ne 0.
L_TABIX = RS_LINEINFO-tabindex.
read table itab index l_tabix.
l_tabix1 = RS_LINEINFO-tabindex + 1.
struct_customer-customer = itab-customer.
read table itab into str_kunnr index l_tabix1 transporting customer.
if sy-subrc <> 0.
v_temp = ( v_f1_sum / v_f2_sum ) * 100.
uline at (45).
skip.
uline at (45).
write: / sy-vline , 'Total',
12 sy-vline , (9) v_f1_sum,
23 sy-vline , (9) v_f2_sum,
34 sy-vline , (9) v_temp decimals 0,
45 sy-vline.
*uline at (46).
endif.
ENDFORM. " AFTER_LINE_OUTPUT
Reward points if helpful.
Regards.
Srikanta Gope

Regarding Pop Up Window

Hi All,
          I want a pop up window for saving the output file at the desired location
          of user. How can I get the pop up window for "Saving" the file at desired
          location.
          Thanks in Advance. Pts will be rewarede.
Regards
Jitendra.

hi,
go through this code
u can down load to system.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      PROGRAM_NAME = SYST-CPROG
      DYNPRO_NUMBER = SYST-DYNNR
      FIELD_NAME    = 'P_FILE'
    IMPORTING
      FILE_NAME     = P_FILE.
START-OF-SELECTION.
FILE = P_FILE.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME                      = FILE
      FILETYPE                      = 'ASC'
HAS_FIELD_SEPARATOR           = ' '
HEADER_LENGTH                 = 0
READ_BY_LINE                  = 'X'
DAT_MODE                      = ' '
IMPORTING
FILELENGTH                    =
HEADER                        =
    TABLES
      DATA_TAB                      = ITAB
EXCEPTIONS
FILE_OPEN_ERROR               = 1
FILE_READ_ERROR               = 2
NO_BATCH                      = 3
GUI_REFUSE_FILETRANSFER       = 4
INVALID_TYPE                  = 5
NO_AUTHORITY                  = 6
UNKNOWN_ERROR                 = 7
BAD_DATA_FORMAT               = 8
HEADER_NOT_ALLOWED            = 9
SEPARATOR_NOT_ALLOWED         = 10
HEADER_TOO_LONG               = 11
UNKNOWN_DP_ERROR              = 12
ACCESS_DENIED                 = 13
DP_OUT_OF_MEMORY              = 14
DISK_FULL                     = 15
DP_TIMEOUT                    = 16
OTHERS                        = 17
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 ITAB.
    WRITE:/ ITAB.
ENDLOOP.

Pop-up alv

Hi,
I am getting an alv grid output....and when i double click on a field i want a POP UP GRID ALV to be shown on that same screen.....
Thanks in advance......

You have to capture the double click event in the alv grid, then call function 'POPUP_FOR_INFORMATION' or some related to make the popup.
To capture the event in the ALV:
CLASS lcl_event_handler DEFINITION .
PUBLIC SECTION .
    DATA: e_row_id    TYPE REF TO lvc_s_row.
    DATA: e_column_id TYPE REF TO lvc_s_col.
    DATA: es_row_no   TYPE lvc_s_roid.
    DATA: es_col_id TYPE REF TO lvc_s_col.
*Double-click control
    METHODS handle_button_click
        FOR EVENT button_click OF cl_gui_alv_grid
            IMPORTING es_col_id es_row_no. " E_COLUMN_ID.
PRIVATE SECTION.
ENDCLASS.                    "lcl_event_handler DEFINITION
CLASS lcl_event_handler IMPLEMENTATION .
*Handle Hotspot Click
METHOD handle_hotspot_click .
    PERFORM handle_hotspot_click USING e_row_id e_column_id.
ENDMETHOD .                    "handle_hotspot_click
*Handle Button Click
METHOD handle_button_click .
    PERFORM handle_button_click USING es_col_id es_row_no.
ENDMETHOD .                    "handle_Button_click
ENDCLASS .                    "lcl_event_handler IMPLEMENTATION
Then the form to make the popup:
FORM handle_button_click USING   es_col_id    TYPE lvc_s_col
                                  es_row_no    TYPE lvc_s_roid.
ENDFORM.                    " handle_double_click
Regards

Regarding POP-UP ALV..

Similar Messages

Maybe you are looking for