topic Re: Back button in Interactive OO AlV in Application Development and Automation Discussions

Back button in Interactive OO AlV

Former Member — Wed, 08 Aug 2012 10:26:37 GMT

Hi Experts,

Screen Flow

Screen 100 input ->screen 200 list of sales order -> screen 300 list of items.

Having problem while clicking back button on screen 300 i will be on Screen 200 and again if i double click another sales order i am getting same items which displayed when i double click sales order for first time.

METHOD handle_double_click.

DATA: w_vbak LIKE LINE OF t_vbak.

* Following checks not a total line

* read selected row from your internal table

READ TABLE t_VBAK INDEX e_row-index INTO W_VBAK.

SELECT * FROM VBAP

INTO TABLE t_VBAP

WHERE VBELN = W_VBAK-VBELN.

CALL SCREEN 300.

ENDMETHOD. "handle_double_click

Re: Back button in Interactive OO AlV

Former Member — Wed, 08 Aug 2012 10:28:40 GMT

Before going back probably you need to release you custom container by method FREE

Max

Re: Back button in Interactive OO AlV

Former Member — Wed, 08 Aug 2012 10:32:16 GMT

Put a break point at READ TABLE t_VBAK INDEX e_row-index INTO W_VBAK.

and check the e_row-index value .I

Clear your work always.

CLEAR : W_VBAK.

and do the refresh of T_VBAP internal table.

METHOD handle_double_click.

DATA: w_vbak LIKE LINE OF t_vbak.

REFRESH : T_VBAP.

CLEAR : W_VBAK.

* Following checks not a total line

* read selected row from your internal table

READ TABLE t_VBAK INDEX e_row-index INTO W_VBAK.

SELECT * FROM VBAP

INTO TABLE t_VBAP

WHERE VBELN = W_VBAK-VBELN.

CALL SCREEN 300.

ENDMETHOD. "handle_double_click

Re: Back button in Interactive OO AlV

Former Member — Wed, 08 Aug 2012 10:34:10 GMT

Hi Max,

Yes i had free But still its not working.

Re: Back button in Interactive OO AlV

Former Member — Wed, 08 Aug 2012 10:40:40 GMT

Hi Raj,

i had Refresh and clear also but still it is not working. i had set the break point and check it values are changing but it is not impacting on the output.

Re: Back button in Interactive OO AlV

Former Member — Wed, 08 Aug 2012 10:42:44 GMT

Try to post your code

Max

Re: Back button in Interactive OO AlV

Former Member — Wed, 08 Aug 2012 10:44:43 GMT

REPORT ZOOP_ABAP_CUSTOM_CONTAINER_SO.

TABLES : VBAK,VBAP.

DATA O_G TYPE REF TO CL_GUI_ALV_GRID.

DATA O_C TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA T_VBAK TYPE TABLE OF VBAK.

DATA T_VBAP TYPE TABLE OF VBAP.

DATA W_LAYOUT TYPE LVC_S_LAYO.

DATA O_G1 TYPE REF TO CL_GUI_ALV_GRID.

DATA O_C1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA : W_VBAK LIKE VBAK.

DATA FLAG TYPE C.

CALL SCREEN 100.

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

* CLASS lcl_event_receiver DEFINITION

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

CLASS LCL_EVENT_HANDLER DEFINITION.

PUBLIC SECTION.

METHODS:

* Double click handler

HANDLE_DOUBLE_CLICK

FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID

IMPORTING E_ROW E_COLUMN.

ENDCLASS. "lcl_event_handler DEFINITION

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

* CLASS lcl_event_receiver IMPLEMENTATION

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

CLASS LCL_EVENT_HANDLER IMPLEMENTATION.

METHOD HANDLE_DOUBLE_CLICK.

DATA: W_VBAK LIKE LINE OF T_VBAK.

* Following checks not a total line

CHECK E_ROW-ROWTYPE(1) EQ SPACE.

CLEAR W_VBAK.

REFRESH T_VBAP.

* read selected row from your internal table

READ TABLE T_VBAK INDEX E_ROW-INDEX INTO W_VBAK.

SELECT * FROM VBAP

INTO TABLE T_VBAP

WHERE VBELN = W_VBAK-VBELN.

CALL SCREEN 300.

ENDMETHOD. "handle_double_click

ENDCLASS. "lcl_event_handler1 IMPLEMENTATION

DATA O_EVENT_HANDLER TYPE REF TO LCL_EVENT_HANDLER.

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

*& Module STATUS_0100 OUTPUT

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

* text

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

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'ZSTATUS'.

* SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_0100 OUTPUT

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

*& Module USER_COMMAND_0100 INPUT

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

* text

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

MODULE USER_COMMAND_0100 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'EXECUTE'.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

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

*& Module STATUS_0200 OUTPUT

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

MODULE STATUS_0200 OUTPUT.

IF O_C IS INITIAL.

SET PF-STATUS 'ZASTAS'.

* SET TITLEBAR 'xxx'.

CREATE OBJECT O_C

EXPORTING

* PARENT =

CONTAINER_NAME = 'CNTNR'

* STYLE =

* LIFETIME = lifetime_default

* REPID =

* DYNNR =

* NO_AUTODEF_PROGID_DYNNR =

* EXCEPTIONS

* CNTL_ERROR = 1

* CNTL_SYSTEM_ERROR = 2

* CREATE_ERROR = 3

* LIFETIME_ERROR = 4

* LIFETIME_DYNPRO_DYNPRO_LINK = 5

* others = 6

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IF SY-SUBRC = 0.

CREATE OBJECT O_G

EXPORTING

* I_SHELLSTYLE = 0

* I_LIFETIME =

I_PARENT = O_C

* I_APPL_EVENTS = space

* I_PARENTDBG =

* I_APPLOGPARENT =

* I_GRAPHICSPARENT =

* I_NAME =

* I_FCAT_COMPLETE = SPACE

* EXCEPTIONS

* ERROR_CNTL_CREATE = 1

* ERROR_CNTL_INIT = 2

* ERROR_CNTL_LINK = 3

* ERROR_DP_CREATE = 4

* others = 5

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IF SY-SUBRC = 0.

W_LAYOUT-SEL_MODE = 'D'.

CALL METHOD O_G->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

* I_BUFFER_ACTIVE =

* I_BYPASSING_BUFFER =

* I_CONSISTENCY_CHECK =

I_STRUCTURE_NAME = 'VBAK'

* IS_VARIANT =

* I_SAVE =

* I_DEFAULT = 'X'

IS_LAYOUT = W_LAYOUT

* IS_PRINT =

* IT_SPECIAL_GROUPS =

* IT_TOOLBAR_EXCLUDING =

* IT_HYPERLINK =

* IT_ALV_GRAPHICS =

* IT_EXCEPT_QINFO =

* IR_SALV_ADAPTER =

CHANGING

IT_OUTTAB = T_VBAK[]

* IT_FIELDCATALOG =

* IT_SORT =

* IT_FILTER =

* EXCEPTIONS

* INVALID_PARAMETER_COMBINATION = 1

* PROGRAM_ERROR = 2

* TOO_MANY_LINES = 3

* others = 4

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CREATE OBJECT O_EVENT_HANDLER.

SET HANDLER O_EVENT_HANDLER->HANDLE_DOUBLE_CLICK FOR O_G.

ENDMODULE. " STATUS_0200 OUTPUT

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

*& Module USER_COMMAND_0200 INPUT

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

* text

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

MODULE USER_COMMAND_0200 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'BACK'.

LEAVE TO SCREEN 100.

WHEN 'EXECUTE'.

ENDCASE.

ENDMODULE. " USER_COMMAND_0200 INPUT

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

*& Module READ_DATA OUTPUT

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

* text

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

MODULE READ_DATA OUTPUT.

SELECT * FROM VBAK INTO CORRESPONDING FIELDS OF TABLE T_VBAK WHERE KUNNR = VBAK-KUNNR.

*BREAK-POINT.

ENDMODULE. " READ_DATA OUTPUT

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

*& Module STATUS_0300 OUTPUT

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

* text

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

MODULE STATUS_0300 OUTPUT.

IF O_C1 IS INITIAL.

SET PF-STATUS 'ZSAS'.

CREATE OBJECT O_C1

EXPORTING

* PARENT =

CONTAINER_NAME = 'CNTNR1'

* STYLE =

* LIFETIME = lifetime_default

* REPID =

* DYNNR =

* NO_AUTODEF_PROGID_DYNNR =

* EXCEPTIONS

* CNTL_ERROR = 1

* CNTL_SYSTEM_ERROR = 2

* CREATE_ERROR = 3

* LIFETIME_ERROR = 4

* LIFETIME_DYNPRO_DYNPRO_LINK = 5

* others = 6

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IF SY-SUBRC = 0.

CREATE OBJECT O_G1

EXPORTING

* I_SHELLSTYLE = 0

* I_LIFETIME =

I_PARENT = O_C1

* I_APPL_EVENTS = space

* I_PARENTDBG =

* I_APPLOGPARENT =

* I_GRAPHICSPARENT =

* I_NAME =

* I_FCAT_COMPLETE = SPACE

* EXCEPTIONS

* ERROR_CNTL_CREATE = 1

* ERROR_CNTL_INIT = 2

* ERROR_CNTL_LINK = 3

* ERROR_DP_CREATE = 4

* others = 5

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IF SY-SUBRC = 0.

CALL METHOD O_G1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

* I_BUFFER_ACTIVE =

I_BYPASSING_BUFFER = 'X'

* I_CONSISTENCY_CHECK =

I_STRUCTURE_NAME = 'VBAP'

* IS_VARIANT =

* I_SAVE = 'A'

* I_DEFAULT = 'X'

* IS_LAYOUT = W_LAYOUT

** IS_PRINT =

* IT_SPECIAL_GROUPS =

* IT_TOOLBAR_EXCLUDING =

* IT_HYPERLINK =

* IT_ALV_GRAPHICS =

* IT_EXCEPT_QINFO =

* IR_SALV_ADAPTER =

CHANGING

IT_OUTTAB = T_VBAP[]

* IT_FIELDCATALOG =

* IT_SORT =

* IT_FILTER =

* EXCEPTIONS

* INVALID_PARAMETER_COMBINATION = 1

* PROGRAM_ERROR = 2

* TOO_MANY_LINES = 3

* others = 4

CALL METHOD O_G1->FREE.

CALL METHOD O_C1->FREE.

ENDIF.

ENDMODULE. " STATUS_0300 OUTPUT

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

*& Module USER_COMMAND_0300 INPUT

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

* text

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

MODULE USER_COMMAND_0300 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'BACK'.

*PERFORM FREE_OB.

CALL SCREEN 200.

LEAVE TO SCREEN 0.

ENDCASE.

ENDMODULE. " USER_COMMAND_0300 INPUT

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

*& Module READ OUTPUT

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

* text

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

MODULE READ OUTPUT.

*CALL METHOD O_G1->REFRESH_TABLE_DISPLAY

** EXPORTING

** IS_STABLE =

** I_SOFT_REFRESH =

** EXCEPTIONS

** FINISHED = 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.

*break-point.

ENDMODULE. " READ OUTPUT

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

*& Form FREE_OB

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

* text

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

* --> p1 text

* <-- p2 text

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

FORM FREE_OB .

*CALL METHOD O_G1->FREE

* EXCEPTIONS

* CNTL_ERROR = 1

* CNTL_SYSTEM_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.

*ENDIF.

*CALL METHOD O_C1->FREE

* EXCEPTIONS

* CNTL_ERROR = 1

* CNTL_SYSTEM_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.

*ENDIF.

Re: Back button in Interactive OO AlV

Former Member — Wed, 08 Aug 2012 10:54:38 GMT

I can't understand why you "free" the custom container just after to display the ALV in module STATUS_0300.

When you back to screen 200 from 300, the form to free the container is not active, module USER_COMMAND_0300

Max

Re: Back button in Interactive OO AlV

Former Member — Wed, 08 Aug 2012 11:05:04 GMT

the form free which is not active is not working i tried that one also.

Re: Back button in Interactive OO AlV

Former Member — Wed, 08 Aug 2012 12:08:43 GMT

I think you should delete the call of method FREE in STATUS_0300

MODULE STATUS_0300 OUTPUT.

IF O_C1 IS INITIAL.

SET PF-STATUS 'ZSAS'.

CREATE OBJECT O_C1

EXPORTING

* PARENT =

CONTAINER_NAME = 'CNTNR1'

* STYLE =

* LIFETIME = lifetime_default

* REPID =

* DYNNR =

* NO_AUTODEF_PROGID_DYNNR =

* EXCEPTIONS

* CNTL_ERROR = 1

* CNTL_SYSTEM_ERROR = 2

* CREATE_ERROR = 3

* LIFETIME_ERROR = 4

* LIFETIME_DYNPRO_DYNPRO_LINK = 5

* others = 6

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IF SY-SUBRC = 0.

CREATE OBJECT O_G1

EXPORTING

* I_SHELLSTYLE = 0

* I_LIFETIME =

I_PARENT = O_C1

* I_APPL_EVENTS = space

* I_PARENTDBG =

* I_APPLOGPARENT =

* I_GRAPHICSPARENT =

* I_NAME =

* I_FCAT_COMPLETE = SPACE

* EXCEPTIONS

* ERROR_CNTL_CREATE = 1

* ERROR_CNTL_INIT = 2

* ERROR_CNTL_LINK = 3

* ERROR_DP_CREATE = 4

* others = 5

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

IF SY-SUBRC = 0.

CALL METHOD O_G1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

* I_BUFFER_ACTIVE =

I_BYPASSING_BUFFER = 'X'

* I_CONSISTENCY_CHECK =

I_STRUCTURE_NAME = 'VBAP'

* IS_VARIANT =

* I_SAVE = 'A'

* I_DEFAULT = 'X'

* IS_LAYOUT = W_LAYOUT

** IS_PRINT =

* IT_SPECIAL_GROUPS =

* IT_TOOLBAR_EXCLUDING =

* IT_HYPERLINK =

* IT_ALV_GRAPHICS =

* IT_EXCEPT_QINFO =

* IR_SALV_ADAPTER =

CHANGING

IT_OUTTAB = T_VBAP[]

* IT_FIELDCATALOG =

* IT_SORT =

* IT_FILTER =

* EXCEPTIONS

* INVALID_PARAMETER_COMBINATION = 1

* PROGRAM_ERROR = 2

* TOO_MANY_LINES = 3

* others = 4

* CALL METHOD O_G1->FREE. <----------------- Delete this

* CALL METHOD O_C1->FREE. <----------------- Delete this

ENDIF.

ENDMODULE. " STATUS_0300 OUTPUT

and the form FREE_OB should be

FORM FREE_OB .

IF NOT O_C1 IS INITIAL.

CALL METHOD O_C1->FREE

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3

CLEAR O_C1.

ENDIF.

You need to clear the custom container in order to create a new one for the new data: you check if it's INITIAL at the begging of module status_0300

MODULE STATUS_0300 OUTPUT.

IF O_C1 IS INITIAL. <---------------------------

Max