Problem with Back button in ALV GRID!

Former Member — Thu, 16 Oct 2014 21:01:57 GMT

Hello Experts,

I am facing a problem with Back button in ALV GRID.

* I am displaying ALV GRID by using a ZTABLE.

*After I displayed ALV GRID,and also I have a MODIFY,DELETE,INSERT(For Modifying,Deleting&Inserting the records which I checked by using a check box) in the application tool bar.And I have a REFRESH button on application tool bar.

*For MODIFY & DELETE I have separate screens.

*Now if I do any operations like MODIFY & INSERT and after that I am just pressing REFRESH for Updating the Modified & Inserted data.

*Now if I click on BACK button it is not going to Initial screen,it is going to the previous screen where I did the operations(MODIFY,INSERT) of Records.It means I have to press BACK button to go to initial screen so many times as how many operations(MODIFY,INSERT) I did previously for the records........****TOMORROW IS MY DEAD LINE FOR THIS REPORT*****Please help me out.

Your prompt reply will be highly appreciated!

Naveen.

*&---------------------------------------------------------------------*

*& Report ZBACKLOG1

*&---------------------------------------------------------------------*

REPORT zbacklog1 NO STANDARD PAGE HEADING.

*Type group

TYPE-POOLS : slis,

icon.

*Tables

TABLES : zbacklog,

sscrfields.

DATA:l_zbacklog TYPE zbacklog.

*Internal table declarations

DATA : t_zbacklog TYPE STANDARD TABLE OF zbacklog WITH HEADER LINE,

wa_zbacklog TYPE zbacklog.

*ALV Declarations

DATA : t_fcat TYPE slis_t_fieldcat_alv,

w_fcat TYPE slis_fieldcat_alv,

ls_layout TYPE slis_layout_alv.

*Selection screen

SELECT-OPTIONS : s1 FOR zbacklog-vbeln,

s2 FOR zbacklog-posnr,

s3 FOR zbacklog-zdate,

s4 FOR zbacklog-kunnr,

s5 FOR zbacklog-name1,

s6 FOR zbacklog-matnr,

s7 FOR zbacklog-maktx,

s8 FOR zbacklog-kwmeng,

s9 FOR zbacklog-auart,

s10 FOR zbacklog-vdatu,

s11 FOR zbacklog-bbacklog,

s12 FOR zbacklog-mtdorder,

s13 FOR zbacklog-mtdsales,

s14 FOR zbacklog-mtdpick,

s15 FOR zbacklog-fival,

s16 FOR zbacklog-cbacklog,

s17 FOR zbacklog-erdat,

s18 FOR zbacklog-week,

s19 FOR zbacklog-inco1,

s20 FOR zbacklog-inco2,

s21 FOR zbacklog-edatu,

s22 FOR zbacklog-status,

s23 FOR zbacklog-netwr,

s24 FOR zbacklog-bstkd,

s25 FOR zbacklog-land1,

s26 FOR zbacklog-stprs,

s27 FOR zbacklog-chernam,

s28 FOR zbacklog-cherdat,

s29 FOR zbacklog-chtime,

s30 FOR zbacklog-reason,

s31 FOR zbacklog-mvgr3,

s32 FOR zbacklog-bezei3,

s33 FOR zbacklog-mvgr4,

s34 FOR zbacklog-bezei4.

*Extracting Data

START-OF-SELECTION.

PERFORM f_fetch_data.

PERFORM f_fieldcat.

PERFORM f_grid_display.

*&---------------------------------------------------------------------*

*& FORM SET_STATUS

*&---------------------------------------------------------------------*

* RT_EXTAB -> EXCLUDING TABLE

*----------------------------------------------------------------------*

FORM set_status USING rt_extab TYPE slis_t_extab.

SET PF-STATUS 'PF_STATUS'.

ENDFORM. "SET_STATUS

*&---------------------------------------------------------------------*

*& Form I_CALLBACK_USER_COMMAND

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->R_UCOMM text

* -->RS_SELFIELD text

*----------------------------------------------------------------------*

FORM i_callback_user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

CASE sy-ucomm.

WHEN 'MODIFY'.

DATA : l_line TYPE i.

READ TABLE t_zbacklog INTO wa_zbacklog INDEX rs_selfield-tabindex.

MOVE wa_zbacklog TO zbacklog.

CALL SCREEN '3100'.

WHEN 'DELETE'.

READ TABLE t_zbacklog INTO wa_zbacklog INDEX rs_selfield-tabindex.

DELETE zbacklog FROM wa_zbacklog.

IF sy-subrc = 0.

MESSAGE 'Data Deleted successfully, Please Refresh it' TYPE 'I'.

ENDIF.

WHEN 'INSERT'.

READ TABLE t_zbacklog INTO wa_zbacklog INDEX rs_selfield-tabindex.

MOVE wa_zbacklog TO zbacklog.

CALL SCREEN '5000'.

WHEN 'REFRESH'.

FREE t_zbacklog[].

FREE t_fcat[].

PERFORM f_fetch_data.

PERFORM f_fieldcat.

PERFORM f_grid_display.

ENDCASE.

ENDFORM. "I_CALLBACK_USER_COMMAND

*&---------------------------------------------------------------------*

*& Module USER_COMMAND_5000 INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE user_command_5000 INPUT.

CASE sy-ucomm.

WHEN 'SAVE'.

SELECT SINGLE * FROM zbacklog

INTO l_zbacklog

WHERE vbeln = zbacklog-vbeln

AND posnr = zbacklog-posnr

AND zdate = zbacklog-zdate.

IF l_zbacklog NE zbacklog.

zbacklog-chernam = sy-uname.

zbacklog-cherdat = sy-datum.

zbacklog-chtime = sy-uzeit.

MODIFY zbacklog.

COMMIT WORK.

IF sy-subrc = 0.

MESSAGE 'Data saved successfully,Please Refresh it' TYPE 'I'. "Pop up box displays as message saved successfully

ENDIF.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'CANCEL'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_5000 INPUT

*&---------------------------------------------------------------------*

*& Module STATUS_5000 OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE status_5000 OUTPUT.

SET PF-STATUS 'PF_STATUS3'.

ENDMODULE. " STATUS_5000 OUTPUT

*&---------------------------------------------------------------------*

*& Module STATUS_3100 OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE status_3100 OUTPUT.

SET PF-STATUS 'PF-STATUS2'.

ENDMODULE. " STATUS_3100 OUTPUT

*&---------------------------------------------------------------------*

*& Module USER_COMMAND_3100 INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE user_command_3100 INPUT.

CASE sy-ucomm.

WHEN 'SAVE'.

SELECT SINGLE * FROM zbacklog

INTO l_zbacklog

WHERE vbeln = zbacklog-vbeln

AND posnr = zbacklog-posnr

AND zdate = zbacklog-zdate.

IF wa_zbacklog NE zbacklog.

wa_zbacklog-chernam = sy-uname.

wa_zbacklog-cherdat = sy-datum.

wa_zbacklog-chtime = sy-uzeit.

MODIFY zbacklog FROM wa_zbacklog.

COMMIT WORK.

IF sy-subrc = 0.

MESSAGE 'Data updated successfully,Please Refresh it' TYPE 'I'. "Pop up box displays as message saved successfully

ENDIF.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'CANCEL'.

LEAVE PROGRAM.

ENDCASE.

FREE t_zbacklog.

ENDMODULE. " USER_COMMAND_3100 INPUT

*&---------------------------------------------------------------------*

*& Form F_FETCH_DATA

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM f_fetch_data .

SELECT * FROM zbacklog INTO TABLE t_zbacklog

WHERE vbeln IN s1 AND

posnr IN s2 AND

zdate IN s3 AND

kunnr IN s4 AND

name1 IN s5 AND

matnr IN s6 AND

maktx IN s7 AND

kwmeng IN s8 AND

auart IN s9 AND

vdatu IN s10 AND

bbacklog IN s11 AND

mtdorder IN s12 AND

mtdsales IN s13 AND

mtdpick IN s14 AND

fival IN s15 AND

cbacklog IN s16 AND

erdat IN s17 AND

week IN s18 AND

inco1 IN s19 AND

inco2 IN s20 AND

edatu IN s21 AND

status IN s22 AND

netwr IN s23 AND

bstkd IN s24 AND

land1 IN s25 AND

stprs IN s26 AND

chernam IN s27 AND

cherdat IN s28 AND

chtime IN s29 AND

reason IN s30 AND

mvgr3 IN s31 AND

bezei3 IN s32 AND

mvgr4 IN s33 AND

bezei4 IN s34.

ENDFORM. " F_FETCH_DATA

*&---------------------------------------------------------------------*

*& Form F_FIELDCAT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM f_fieldcat .

ls_layout-colwidth_optimize = 'X'.

w_fcat-col_pos = 0.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-fieldname = 'CHKBX'.

w_fcat-checkbox = 'X'.

w_fcat-edit = 'X'.

w_fcat-outputlen = 2.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 1.

w_fcat-fieldname = 'VBELN'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Document(VBELN)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 2.

w_fcat-fieldname = 'POSNR'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Item(POSNR)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 3.

w_fcat-fieldname = 'ZDATE'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Month Year(ZDATE)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 4.

w_fcat-fieldname = 'KUNNR'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Customer Number(KUNNR)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 5.

w_fcat-fieldname = 'NAME1'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Customer Name(NAME1)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 6.

w_fcat-fieldname = 'MATNR'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Material Number(MATNR)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 7.

w_fcat-fieldname = 'MAKTX'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Material Description(MAKTX)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 8.

w_fcat-fieldname = 'KWMENG'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Order Quantity(KWMENG)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 9.

w_fcat-fieldname = 'AUART'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Sales Document Type(AUART)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 10.

w_fcat-fieldname = 'VDATU'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Delivery Date(VDATU)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 11.

w_fcat-fieldname = 'BBACKLOG'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Net Value(BBACKLOG)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 12.

w_fcat-fieldname = 'MTDORDER'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Net Value(MTDORDER)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 13.

w_fcat-fieldname = 'MTDSALES'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Net Value(MTDSALES)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 14.

w_fcat-fieldname = 'MTDPICK'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Net Value(MTDPICK)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 15.

w_fcat-fieldname = 'FIVAL'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Net Value(FIVAL)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 16.

w_fcat-fieldname = 'CBACKLOG'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Net Value(CBACKLOG)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 17.

w_fcat-fieldname = 'ERDAT'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Date Created(ERDAT)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 18.

w_fcat-fieldname = 'WEEK'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Week(WEEK)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 19.

w_fcat-fieldname = 'INCO1'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Part1(INCO1)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 20.

w_fcat-fieldname = 'INCO2'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Part2(INCO2)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 21.

w_fcat-fieldname = 'EDATU'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Schedule Date(EDATU)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 22.

w_fcat-fieldname = 'STATUS'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Goods Issue(STATUS)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 23.

w_fcat-fieldname = 'NETWR'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Net Value(NETWR)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 24.

w_fcat-fieldname = 'BSTKD'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'PO Number(BSTKD)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 25.

w_fcat-fieldname = 'LAND1'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Country(LAND1)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 26.

w_fcat-fieldname = 'STPRS'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Standard Price(STPRS)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 27.

w_fcat-fieldname = 'CHERNAM'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Last Changed By(CHERNAM)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 28.

w_fcat-fieldname = 'CHERDAT'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Last Changed Date(CHERDAT)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 29.

w_fcat-fieldname = 'CHTIME'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Last Changed Time(CHTIME)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 30.

w_fcat-fieldname = 'REASON'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Reason for change(REASON)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 31.

w_fcat-fieldname = 'MVGR3'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Contract Size(MVGR3)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 32.

w_fcat-fieldname = 'BEZEI3'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Contract Size Description(BEZEI3)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 33.

w_fcat-fieldname = 'MVGR4'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Product Type(MVGR4)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

w_fcat-col_pos = 34.

w_fcat-fieldname = 'BEZEI4'.

w_fcat-tabname = 'T_ZBACKLOG'.

w_fcat-seltext_l = 'Product Type Description(BEZEI4)'.

APPEND w_fcat TO t_fcat.

CLEAR w_fcat.

ENDFORM. " F_FIELDCAT

*&---------------------------------------------------------------------*

*& Form F_GRID_DISPLAY

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM f_grid_display .

*ALV Grid

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = 'ZBACKLOG1'

i_callback_pf_status_set = 'SET_STATUS'

i_callback_user_command = 'I_CALLBACK_USER_COMMAND'

i_buffer_active = ' '

is_layout = ls_layout

it_fieldcat = t_fcat[]

i_default = ' '

i_save = 'A'

TABLES

t_outtab = t_zbacklog.

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

topic Re: Problem with Back button in ALV GRID! in Application Development and Automation Discussions

Problem with Back button in ALV GRID!

Re: Problem with Back button in ALV GRID!

Re: Problem with Back button in ALV GRID!