Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 8411

Re: Back Button in ALV Grid

$
0
0

Hi,

you can try with the custom back button. Please go through the following code use ful to resolve your problem.

 

 

 

REPORT  ZALV_BACK.

TYPE-POOLS : slis.
TABLES: mara.

DATA : i_fieldcat TYPE TABLE OF slis_fieldcat_alv,
            wa_fieldcat TYPE slis_fieldcat_alv.

Data: it_mara TYPE table of mara,
         wa_mara type mara.

SELECTION-SCREEN BEGIN OF block b1 WITH FRAME TITLE text-001.

PARAMETERS: P_matnr type matnr.

SELECTION-SCREEN end of block b1.

START-OF-selection.

  SELECT * FROM mara into CORRESPONDING FIELDS OF TABLE it_mara up to 10 rows WHERE

    matnr = p_Matnr..

  clear wa_fieldcat.

  wa_fieldcat-fieldname = 'MATNR'.

  wa_fieldcat-outputlen = 18.

  wa_fieldcat-seltext_l = 'material no'.

  wa_fieldcat-col_pos   = 1.

  APPEND wa_fieldcat TO i_fieldcat.

  clear wa_fieldcat.

  wa_fieldcat-fieldname = 'ERSDA'.

  wa_fieldcat-outputlen = 8.

  wa_fieldcat-seltext_l = 'created on'.

  wa_fieldcat-col_pos   = 2.

  wa_fieldcat-edit      = 'X'.

  APPEND wa_fieldcat TO i_fieldcat.

  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM                = sy-repid
     I_CALLBACK_PF_STATUS_SET          = 'PF_STATUS'
     I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
     IT_FIELDCAT                     = i_fieldcat
    TABLES
      T_OUTTAB                       = it_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
*----------------------------------------------------------------------*
*      -->V_UCOMM      text
*      -->WA_SELFIELD  text
*----------------------------------------------------------------------*
FORM user_command USING v_ucomm like sy-ucomm
                        wa_selfield TYPE slis_selfield.
  CASE  sy-ucomm.
    when 'BACK'.
      leave program.
  ENDCASE.

endform.                    "user_command

*&---------------------------------------------------------------------*
*&      Form  pf_status
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->WA_EXTAB   text
*----------------------------------------------------------------------*
FORM pf_status USING wa_extab TYPE slis_t_extab.

  SET PF-STATUS 'ZSTANDARD_FULLSCREEN'.

ENDFORM.                    "pf_status


Viewing all articles
Browse latest Browse all 8411

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>