Skip to Content
0
Former Member
Jun 27, 2008 at 05:03 AM

Regarding ALV Grid Display in Object Oriented

14 Views

Hi,

I am using ALV Grid display using OOps by calling screen.

I fitted the screen as per my display in the system but it is giving problem in the clients production server as there pixels size is different ?

How to design the screen to adjust as per the monitor display as it is doing in Grid display using function modules.

Please help me its urgent below is my coding.

CALL SCREEN 100.

&----


*& Module status_0100 OUTPUT

&----


  • text

----


MODULE status_0100 OUTPUT.

SET PF-STATUS 'GUI100'.

SET TITLEBAR 'T01'.

ENDMODULE. " status_0100 OUTPUT

&----


*& Module user_command_0100 INPUT

&----


  • text

----


MODULE user_command_0100 INPUT.

w_okcode_100 = sy-ucomm.

CLEAR sy-ucomm.

CASE w_okcode_100.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'CANCEL'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " user_command_0100 INPUT

&----


*& Module display_report OUTPUT

&----


  • text

----


MODULE display_report OUTPUT.

IF w_custom_container IS INITIAL.

CREATE OBJECT w_custom_container

EXPORTING

container_name = w_container.

CREATE OBJECT w_grid

EXPORTING

i_parent = w_custom_container.

ENDIF.

CREATE OBJECT w_events.

SET HANDLER w_events->on_hotspot_click FOR w_grid.

PERFORM fieldcat_header.

w_layout-grid_title = text-002.

CALL METHOD w_grid->set_table_for_first_display

EXPORTING

is_layout = w_layout

CHANGING

it_outtab = it_result1

it_fieldcatalog = it_fieldcat

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.

ENDMODULE. " display_report OUTPUT