topic Re: ALV in Application Development and Automation Discussions

ALV

Former Member — Wed, 23 Apr 2008 06:09:45 GMT

Hi All,

I am creating an alv report with grid display.I want to add a button'Release' in the menu bar.I created an interface using SE41.but the buttons are not getting displayed in the output.

On double clicking of a row in ALV output i want to go to transaction 'VF02',but this gives me a dump.

I am pasting the part of code used for this purpose :

&----

form build_events .

wa_events-name = 'USER_COMMAND' .

wa_events-form = 'USER_COMMAND' .

append wa_events to t_events.

clear wa_events.

wa_events-name = 'PF_STATUS_SET' .

wa_events-form = 'PF_STATUS_SET' .

append wa_events to t_events.

clear wa_events.

endform. " build_events

FORM pf_status_set USING rt_extab TYPE slis_t_extab.

SET PF-STATUS 'ZSTATUS1' EXCLUDING rt_extab.

ENDFORM.

form user_command using ucomm like sy-ucomm

selfield type slis_selfield.

case ucomm .

when '&IC1'. "This is for double click on ALV output.

CALL TRANSACTION 'VF02'.

endcase.

endform. "user_command

&----

Please let me know what should be done.Your inputs will surely be rewarded.

Thanks & Regards,

S.Subasree

Re: ALV

venkat_o — Wed, 23 Apr 2008 06:20:53 GMT

Hi Subasree, -->Go to SE41 -->First copy the standard pf status of any ALV program . ex: give program SAPLKKBL status STANDARD_FULLSCREEN -->Copy the status of above program and now add ur Release button . -->Your Double click will also work now. Regards, Venkat.O

Re: ALV

anversha_s — Wed, 23 Apr 2008 06:26:26 GMT

hi,

Please do this.

call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
            i_callback_top_of_page   = 'TOP-OF-PAGE'  
     i_callback_pf_status_set= 'SET_PF_STATUS'   "seeFORM 
I_callback_user_command = 'USER_COMMAND'   "seeFORM 
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
            i_save                  = 'X'
       tables
            t_outtab                = it_ekko
       exceptions
            program_error           = 1
            others                  = 2.

*------------------------------------------------------------------*
*       FORM SET_PF_STATUS                                         *
*------------------------------------------------------------------*
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
  SET PF-STATUS 'ZNEWSTATUS'. 
                  "Copy of 'STANDARD' pf_status from fgroup SALV
ENDFORM.

***********copy pf status***********

1)goto se80

2)open function group SALV

3) In that STANDARD gui-status will be there.

4)right click on that and ther is option of copy

5)just copy it and save it with ur name 'status_name'.

6) now in ur program SET PF-STATUS '(status_name)'.

7)don't forget to active it again

*------------------------------------------------------------------*
*       FORM USER_COMMAND                                          *
*------------------------------------------------------------------*
*       --> R_UCOMM                                                *
*       --> RS_SELFIELD                                            *
*------------------------------------------------------------------*
FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.

* Check function code
  CASE r_ucomm.
    WHEN '&IC1'.
*   Check field clicked on within ALVgrid report
    IF rs_selfield-fieldname = 'EBELN'.
*     Read data table, using index of row user clicked on
      READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
*     Set parameter ID for transaction screen field
      SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.
*     Sxecute transaction ME23N, and skip initial data entry screen
      CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
    ENDIF.
  ENDCASE.
ENDFORM.

rgds,

Anversha

Re: ALV

Former Member — Wed, 23 Apr 2008 06:47:46 GMT

Hi,

One more way of doing it is.

&----

*& Report ZALV_TEST

&----

REPORT ZALV_TEST.

TYPE-POOLS:SLIS.

DATA:INTTAB TYPE STANDARD TABLE OF ZEMPTAB1 WITH HEADER LINE ,

INT_TAB TYPE STANDARD TABLE OF ZEMPTABTWO WITH HEADER LINE,

IN_TAB TYPE STANDARD TABLE OF ZEMPTABTWO WITH HEADER LINE.

DATA:FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

SELECT * FROM ZEMPTAB1 INTO CORRESPONDING FIELDS OF TABLE INTTAB.

SELECT * FROM ZEMPTABTWO INTO CORRESPONDING FIELDS OF TABLE INT_TAB.

PERFORM BUILDFIELDCAT.

PERFORM DISPLAYFIELDCAT.

&----

*& Form buildfieldcat

&----

text

----

FORM BUILDFIELDCAT.

FIELDCAT-FIELDNAME = 'CB'.

FIELDCAT-SELTEXT_M = 'CHECK'.

FIELDCAT-CHECKBOX = '1'.

FIELDCAT-EDIT = 'X'.

APPEND FIELDCAT TO FIELDCAT.

FIELDCAT-FIELDNAME = 'ID'.

FIELDCAT-SELTEXT_M = 'EMPID'.

APPEND FIELDCAT TO FIELDCAT.

FIELDCAT-FIELDNAME = 'NAME'.

FIELDCAT-SELTEXT_M = 'EMPNAME'.

APPEND FIELDCAT TO FIELDCAT.

FIELDCAT-FIELDNAME = 'QUAL'.

FIELDCAT-SELTEXT_M = 'QUALIFICATION'.

APPEND FIELDCAT TO FIELDCAT.

FIELDCAT-FIELDNAME = 'CITY'.

FIELDCAT-SELTEXT_M = 'CITY'.

APPEND FIELDCAT TO FIELDCAT.

FIELDCAT-FIELDNAME = 'AGE'.

FIELDCAT-SELTEXT_M = 'AGE'.

APPEND FIELDCAT TO FIELDCAT.

ENDFORM. "buildfileldcat

&----

*& Form displayfieldcat

&----

text

----

FORM DISPLAYFIELDCAT .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_USER_COMMAND = 'USECOMMAND'

IT_FIELDCAT = FIELDCAT[]

TABLES

T_OUTTAB = INTTAB.

IF SY-SUBRC <> 0.

ENDIF.

ENDFORM. "displayfieldcat

&----

*& Form USECOMMAND

&----

text

----

-->R_UCOMM text
-->RS_SELFIELD text

----

FORM USECOMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD .

DATA CLASS_NAME TYPE C LENGTH 30 VALUE 'CL_SPFLI_PERSISTENT'.

DATA: BDCDATA_WA TYPE BDCDATA,

BDCDATA_TAB TYPE TABLE OF BDCDATA.

DATA OPT TYPE CTU_PARAMS.

CASE R_UCOMM.

WHEN '&IC1'.

IF RS_SELFIELD-FIELDNAME NE 'ID'.

MESSAGE 'CLICK ON EMPLOYEE NUMBER' TYPE 'E'.

ENDIF.

CLEAR BDCDATA_WA.

BDCDATA_WA-PROGRAM = 'SAPMP50A'.

BDCDATA_WA-DYNPRO = '1000'.

BDCDATA_WA-DYNBEGIN = 'X'.

APPEND BDCDATA_WA TO BDCDATA_TAB.

CLEAR BDCDATA_WA.

BDCDATA_WA-FNAM = 'BDC_CURSOR'.

BDCDATA_WA-FVAL = 'RP50G-PERNR'.

APPEND BDCDATA_WA TO BDCDATA_TAB.

CLEAR BDCDATA_WA.
BDCDATA_WA-FNAM = 'BDC_OKCODE'.
BDCDATA_WA-FVAL = '=INS'.
APPEND BDCDATA_WA TO BDCDATA_TAB.

CLEAR BDCDATA_WA.

BDCDATA_WA-FNAM = 'RP50G-PERNR'.

BDCDATA_WA-FVAL = RS_SELFIELD-VALUE.

APPEND BDCDATA_WA TO BDCDATA_TAB.

OPT-DISMODE = 'E'.

OPT-DEFSIZE = 'X'.

CALL TRANSACTION 'PA30' USING BDCDATA_TAB OPTIONS FROM OPT.

CLEAR IN_TAB[].
READ TABLE INT_TAB INDEX
RS_SELFIELD-TABINDEX.
IF SY-SUBRC EQ 0.

"loop at int_tab where id eq rs_selfield.
IN_TAB-ID = INT_TAB-ID.
IN_TAB-DCODE = INT_TAB-DCODE.
IN_TAB-DESIG = INT_TAB-DESIG.
IN_TAB-EXP = INT_TAB-EXP.
APPEND IN_TAB.

ENDIF.

WHEN '&ETA'.

MESSAGE I333(TEST) WITH 'SUCCESS'.

ENDCASE.

" endloop.

CLEAR FIELDCAT.

REFRESH FIELDCAT.

PERFORM BUILD_FIELDCAT.

PERFORM DISPLAY_FIELDCAT.

ENDFORM. "USECOMMAND

&----

*& Form build_fieldcat

&----

text

----

FORM BUILD_FIELDCAT.

FIELDCAT-FIELDNAME = 'DCODE'.

FIELDCAT-SELTEXT_M = 'Desigcode'.

APPEND FIELDCAT.

FIELDCAT-FIELDNAME = 'ID'.

FIELDCAT-SELTEXT_M = 'EMPID'.

APPEND FIELDCAT TO FIELDCAT.

FIELDCAT-FIELDNAME = 'DESIG'.

FIELDCAT-SELTEXT_M = 'Designation'.

APPEND FIELDCAT TO FIELDCAT.

FIELDCAT-FIELDNAME = 'EXP'.

FIELDCAT-SELTEXT_M = 'EXPERIENCE'.

APPEND FIELDCAT TO FIELDCAT.

ENDFORM. "build_fieldcat

&----

*& Form display_fieldcat

&----

text

----

FORM DISPLAY_FIELDCAT.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

IT_FIELDCAT = FIELDCAT[]

TABLES

T_OUTTAB = IN_TAB

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

ENDFORM. "display_fieldcat

REWARD IF USEFUL

Re: ALV

Former Member — Wed, 23 Apr 2008 07:03:37 GMT

i am sending a sample code.

TYPE-POOLS : SLIS.

&----

*& structure declaration

&----

TYPES : BEGIN OF ST_EKKO,

EBELN TYPE EKKO-EBELN, "Purchasing Document Number

BSTYP TYPE EKKO-BSTYP, "Purchasing Document Category

BSART TYPE EKKO-BSART, "Purchasing Document Type

AEDAT TYPE EKKO-AEDAT, "record created on

ERNAM TYPE EKKO-ERNAM, "Person who Created the Object

END OF ST_EKKO.

TYPES : BEGIN OF ST_EKPO,

EBELN TYPE EKKO-EBELN,

EBELP TYPE EKPO-EBELP, "Item Number of Purchasing Document

EMATN TYPE EKPO-EMATN, "Material number

MATKL TYPE EKPO-MATKL, "Material group

NETPR TYPE EKPO-NETPR, "Net price in purchasing document

END OF ST_EKPO.

&----

*& internal table and work area declaration

&----

DATA : IT_EKPO TYPE STANDARD TABLE OF ST_EKPO,

WA_EKPO TYPE ST_EKPO,

IT_EKKO TYPE STANDARD TABLE OF ST_EKKO,

WA_EKKO TYPE ST_EKKO,

IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

WA_LAYOUT TYPE SLIS_LAYOUT_ALV.

&----

*& internal table and work area declaration

&----

DATA : V_EBELN TYPE EKKO-EBELN.

DATA: T_HEADER TYPE SLIS_T_LISTHEADER,

WA_HEADER TYPE SLIS_LISTHEADER,

T_LINE TYPE SLIS_LISTHEADER-INFO,

NL_LINES TYPE I,

NL_LINESC(10) TYPE C.

&----

*& start-of-selection

&----

START-OF-SELECTION.

SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-000.

SELECT-OPTIONS : SO_EBELN FOR V_EBELN.

SELECTION-SCREEN END OF BLOCK A.

PERFORM DATA_RETRIEVAL.

PERFORM BUILD_FIELDCATALOG1.

PERFORM BUILD_LAYOUT.

PERFORM EKKOGRIDDISPLAY_ALV.

&----

*& Form build_fieldcatalog2

&----

FORM BUILD_FIELDCATALOG2.

CLEAR WA_FIELDCAT.

REFRESH IT_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'EBELN'.

WA_FIELDCAT-SELTEXT_L = 'PURCHASE ORDER'.

WA_FIELDCAT-COL_POS = 0.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'EBELP'.

WA_FIELDCAT-SELTEXT_L = 'ITEM NUMBER'.

WA_FIELDCAT-COL_POS = 1.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'EMATN'.

WA_FIELDCAT-SELTEXT_L = 'MATERIAL TYPE'.

WA_FIELDCAT-COL_POS = 2.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'MATKL'.

WA_FIELDCAT-SELTEXT_L = 'MATERIAL GROUP'.

WA_FIELDCAT-COL_POS = 3.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'NETPR'.

WA_FIELDCAT-SELTEXT_L = 'NET PRICE'.

WA_FIELDCAT-COL_POS = 4.

WA_FIELDCAT-DO_SUM = 'X'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

ENDFORM. "build_fieldcatalog

&----

*& Form build_fieldcatalog1

&----

FORM BUILD_FIELDCATALOG1.

WA_FIELDCAT-FIELDNAME = 'EBELN'.

WA_FIELDCAT-SELTEXT_L = 'PURCHASE ORDER'.

WA_FIELDCAT-COL_POS = 0.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'BSTYP'.

WA_FIELDCAT-SELTEXT_L = 'DOCUMENT CATEGORY'.

WA_FIELDCAT-COL_POS = 1.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'BSART'.

WA_FIELDCAT-SELTEXT_L = 'DOCUMENT TYPE'.

WA_FIELDCAT-COL_POS = 2.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'AEDAT'.

WA_FIELDCAT-SELTEXT_L = 'DATE'.

WA_FIELDCAT-COL_POS = 3.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'ERNAME'.

WA_FIELDCAT-SELTEXT_L = 'NAME'.

WA_FIELDCAT-COL_POS = 4.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

ENDFORM. "build_fieldcatalog

&----

*& Form data_retrieval

&----

FORM DATA_RETRIEVAL.

SELECT EBELN BSTYP BSART AEDAT ERNAM

FROM EKKO

INTO TABLE IT_EKKO

WHERE EBELN IN SO_EBELN.

ENDFORM. "data_retrieval

&----

*& form build_layout.

&----

FORM BUILD_LAYOUT.

WA_LAYOUT-ZEBRA ='X'.

WA_LAYOUT-NO_VLINE = 'X'.

WA_LAYOUT-NO_HLINE = 'X'.

WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

ENDFORM. "build_layout

&----

*& form top-of-page1

&----

FORM TOP-OF-PAGE1.

Title

WA_HEADER-TYP = 'H'.

WA_HEADER-INFO = 'PURCHASE ORDER HEADER REPORT'.

APPEND WA_HEADER TO T_HEADER.

CLEAR WA_HEADER.

Total No. of Records Selected

DESCRIBE TABLE IT_EKKO LINES NL_LINES.

NL_LINESC = NL_LINES.

CONCATENATE 'Total No. of Records Selected: ' NL_LINESC

INTO T_LINE SEPARATED BY SPACE.

WA_HEADER-TYP = 'A'.

WA_HEADER-INFO = T_LINE.

APPEND WA_HEADER TO T_HEADER.

CLEAR: WA_HEADER, T_LINE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_HEADER

I_LOGO = 'SUN_TEST_LOGO1'.

REFRESH T_HEADER.

ENDFORM. "top-of-page

&----

*& form top-of-page2

&----

FORM TOP-OF-PAGE2.

Title

WA_HEADER-TYP = 'H'.

WA_HEADER-INFO = 'PURCHASE ORDER ITEM REPORT'.

APPEND WA_HEADER TO T_HEADER.

CLEAR WA_HEADER.

Total No. of Records Selected

DESCRIBE TABLE IT_EKPO LINES NL_LINES.

NL_LINESC = NL_LINES.

CONCATENATE 'Total No. of Records Selected: ' NL_LINESC

INTO T_LINE SEPARATED BY SPACE.

WA_HEADER-TYP = 'A'.

WA_HEADER-INFO = T_LINE.

APPEND WA_HEADER TO T_HEADER.

CLEAR: WA_HEADER, T_LINE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_HEADER

I_LOGO = 'SUN_TEST_LOGO1'.

REFRESH T_HEADER.

ENDFORM. "top-of-page

&----

*& form set_pf_status

&----

FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'MYMENU'.

"Copy of 'STANDARD' pf_status from fgroup SALV

ENDFORM. "set_pf_status

&----

*& Form AT_user_command

&----

FORM AT_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.

WHEN '&IC1'.

IF RS_SELFIELD-FIELDNAME EQ 'EBELN'.

READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.

SELECT EBELN EBELP EMATN MATKL NETPR

FROM EKPO

INTO TABLE IT_EKPO

WHERE EBELN EQ WA_EKKO-EBELN.

PERFORM BUILD_FIELDCATALOG2.

PERFORM EKPOGRIDDISPLAY_ALV.

ELSE.

MESSAGE TEXT-002 TYPE 'I'.

ENDIF.

ENDCASE.

ENDFORM. "AT_user_command

&----

*& form ekkogriddisplay_alv.

&----

FORM EKKOGRIDDISPLAY_ALV.

IF IT_EKKO[] IS INITIAL.

MESSAGE TEXT-001 TYPE 'I'.

ELSE.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE1'

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

I_CALLBACK_USER_COMMAND = 'AT_USER_COMMAND'

IS_LAYOUT = WA_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

TABLES

T_OUTTAB = IT_EKKO

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. "listdisplay_alv

&----

*& form ekpogriddisplay_alv.

&----

FORM EKPOGRIDDISPLAY_ALV.

IF IT_EKPO[] IS INITIAL.

MESSAGE TEXT-003 TYPE 'I'.

ELSE.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE2'

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

IS_LAYOUT = WA_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

TABLES

T_OUTTAB = IT_EKPO

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. "ekpogriddisplay_alv

for pf-status you open se80 and give function group and salv then press enter and you get gui status under that you find standard then give write click on that then press copy there you give your program name and pf-status name as mymenu then the standard status is copied into your program then come to your program and double click on that mymenu then under application tool bar you give release name so that you got relesae button on you output.