![\"SAP\"](\"http:\/\/oprsteny.cz\/wp-content\/uploads\/SAP.jpg\")
In this article I’ll present an approach how to handle a screen with a global ABAP class. The idea is simple – we will create a class which will listen to PAI and PBO events raised by the screen. All data processing and screen element manipulation is done in the class code. Let’s check out how exactly it is done<\/p>\n
In SE80 create a function group with one function module and one screen. The function module will be the entry point from the class. The screen will be used to draw elements on the screen. The screen elements will be manipulated from the ABAP class code.<\/p>\n
For demonstration purposes we will have only a screen with one grid and we will capture just the OKCODE. So we will have one global variable defined in TOP include:<\/p>\n The code of our new function module will also be simple:<\/p>\n Now we create the screen 0100. In the following picture you can see how the global variable G_OKCODE is connected to the screen (is passed in\/from the screen)<\/p>\n The flow logic of our new screen is trivial:<\/p>\n In new include for modules PBO and PAI we put the following simple code<\/p>\n Now in the layout editor for screen 0100 I’ll create the ALV grid container. Again please note<\/em> – the grid size is the same as screen size (-1 so it fits in) and what is also important – note the Resize section – this will ensure the grid will not have it’s own scrollbar (no double scroll bars)<\/p>\n Now let’s step forward to the class (Usual ABAP class) creation. In screen 0100 we are calling two static methods – RAISE_PAI and RAISE_PBO. We have to define the corresponding interface<\/p>\n Their code is simple:<\/p>\n You can see we’re raising some non-standard events – so we have to define them with the corresponding interface:<\/p>\n If we want to react on an event, we have to register a listener for it and have a method to handle it. The listener registration can be put directly in the class instance constructor:<\/p>\n We have registered listener methods (HANDLE_PAI, HANDLE_PBO) but we actually don’t have them implemented yet so let’s create them now:<\/p>\n Now we would like to implement our handlers. At first we have to define their interface – this is easy as class designer offers a button to fill the parameters automatically according to the event:<\/p>\n Finally we can fill our event handlers with some code:<\/p>\n Method SHOW_EDITOR in HANDLE_PBO is a method for creation of the container object, ALV grid object and displaying it. The simplest form of the SHOW_EDITOR method might look like this:<\/p>\n Now we have everything prepared…so we just add one more public class method to run the whole magic \ud83d\ude42<\/p>\n The code is simple:<\/p>\n Here’s the output after ZCL_CA_GRID_HANDLING is instantiated and method RUN is called:<\/p>\n Let’s put a breakpoint on first line of method HANDLE_PAI to make sure the method is called when user performs an action in the screen (I pressed ESC…OK_CODE=’BACK’):<\/p>\n Voila ! We have fully functional ALV handled by an ABAP global class.<\/p>\n","protected":false},"excerpt":{"rendered":" In this article I’ll present an approach how to handle a screen with a global ABAP class. The idea is simple – we will create a class which will listen to PAI and PBO events raised by the screen. All … Continue reading ![\"Function](\"http:\/\/oprsteny.cz\/wp-content\/uploads\/SCREEN_CLASS_01_FUGR_CREATION.png\")
<\/a><\/p>\nFUNCTION-POOL ZCA_ALV. \r\n\r\nDATA:\r\n g_okcode TYPE okcode.<\/pre>\n
FUNCTION ZCA_ALV_GRID1.\r\n* call the editor screen\r\n call screen 100.\r\nENDFUNCTION.<\/pre>\n
\nPlease note the size of the screen<\/em> – this is because we would like the ALV grid to be stretched across the whole page and we don’t want double scroll bars (issue when grid is too large) – this will require also modification in the screen layout (explained later).<\/p>\n<\/a><\/p>\n<\/a><\/p>\nPROCESS BEFORE OUTPUT.\r\n MODULE pbo.\r\n*\r\nPROCESS AFTER INPUT.\r\n MODULE pai.<\/pre>\n
*&---------------------------------------------------------------*\r\n*& Module PBO OUTPUT\r\n*&---------------------------------------------------------------*\r\n* text\r\n*----------------------------------------------------------------*\r\nMODULE pbo OUTPUT.\r\n DATA:\r\n \u00a0\u00a0\u00a0lt_ucomm\u00a0TYPE\u00a0TABLE\u00a0OF\u00a0sy-ucomm.\r\n\r\n FIELD-SYMBOLS:\r\n \u00a0\u00a0\u00a0<fs_ucomm>\u00a0type\u00a0sy-ucomm.\r\n\r\n* This will ensure some commands\/buttons will by hidden\/disabled\r\n\u00a0\u00a0CLEAR\u00a0lt_ucomm[].\r\n APPEND\u00a0INITIAL\u00a0LINE\u00a0TO\u00a0lt_ucomm\u00a0ASSIGNING\u00a0<fs_ucomm>.\r\n \u00a0<fs_ucomm>\u00a0=\u00a0'EXECUTE'.\r\n\r\n SET PF-STATUS\u00a0'MY_PF_STATUS'\u00a0excluding\u00a0lt_ucomm.\r\n \u00a0SET TITLEBAR\u00a0'MY_TITLEBAR'.\r\n zcl_ca_grid_handling=>raise_pbo( i_dynnr = sy-dynnr ).\r\nENDMODULE. \" PBO OUTPUT\r\n*&---------------------------------------------------------------*\r\n*& Module PAI INPUT\r\n*&---------------------------------------------------------------*\r\n* text\r\n*----------------------------------------------------------------*\r\nMODULE pai INPUT.\r\n IF g_okcode = 'CANC'.\r\n SET SCREEN 0.\r\n ENDIF.\r\n\r\n zcl_ca_grid_handling=>raise_pai(\r\n i_dynnr = sy-dynnr\r\n i_okcode = g_okcode\r\n ).\r\nENDMODULE. \" PAI INPUT<\/pre>\n
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nMETHOD raise_pai.\r\n RAISE EVENT pai\r\n EXPORTING\r\n i_dynnr = i_dynnr\r\n i_okcode = i_okcode.\r\nENDMETHOD.\r\n\r\nMETHOD raise_pbo.\r\n RAISE EVENT pbo\r\n EXPORTING i_dynnr = i_dynnr.\r\nENDMETHOD.<\/pre>\n
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nMETHOD constructor.\r\n* register for the events\r\n SET HANDLER handle_pai.\r\n SET HANDLER handle_pbo.\r\nENDMETHOD.<\/pre>\n
<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\n<\/a><\/p>\nMETHOD handle_pbo.\r\n CASE i_dynnr.\r\n WHEN '0100'.\r\n show_editor( ).\r\n* \tWHEN OTHERS.\r\n ENDCASE.\r\nENDMETHOD.\r\n\r\nMETHOD HANDLE_PAI.\r\n CASE i_dynnr.\r\n WHEN '0100'.\r\n \"screen 0100: configuration\r\n CASE i_okcode.\r\n WHEN 'CANCEL' OR 'LEAVE' OR 'BACK'. \r\n SET SCREEN 0.\r\n* \tWHEN OTHERS.\r\n ENDCASE.\r\n ENDCASE.\r\nENDMETHOD.<\/pre>\n
\nIt uses standard ALV components CL_GUI_CUSTOM_CONTAINER and CL_GUI_ALV_GRID and displays data of SFLIGHT – we will keep the data and references to container and grid in class attributes:<\/p>\n<\/a><\/p>\nMETHOD show_editor.\r\n DATA:\r\n lt_fieldcat TYPE lvc_t_fcat,\r\n ls_layout TYPE lvc_s_layo,\r\n ls_variant TYPE disvariant.\r\n\r\n IF me->mr_container IS INITIAL.\r\n\r\n CREATE OBJECT me->mr_container\r\n EXPORTING\r\n container_name = 'GO_GRID_CONTAINER'.\r\n\r\n CREATE OBJECT me->mr_grid\r\n EXPORTING\r\n i_parent = me->mr_container.\r\n\r\n ls_layout-sel_mode = 'A'.\r\n ls_layout-no_rowmark = abap_true.\r\n ls_layout-cwidth_opt = abap_true.\r\n\r\n ls_variant-report = sy-repid.\r\n ls_variant-username = sy-uname.\r\n\r\n CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'\r\n EXPORTING\r\n i_structure_name = 'SFLIGHT'\r\n CHANGING\r\n ct_fieldcat = lt_fieldcat.\r\n\r\n SELECT * INTO TABLE mt_data FROM sflight.\r\n\r\n me->mr_grid->set_table_for_first_display(\r\n EXPORTING\r\n is_layout = ls_layout\r\n is_variant = ls_variant\r\n i_save = 'A'\r\n i_default = 'X'\r\n CHANGING\r\n it_fieldcatalog = lt_fieldcat\r\n it_outtab = mt_data ).\r\n ENDIF.\r\nENDMETHOD.<\/pre>\n
<\/a><\/p>\nMETHOD run.\r\n CALL FUNCTION 'ZCA_ALV_GRID1'.\r\nENDMETHOD.<\/pre>\n
<\/a><\/p>\n<\/a><\/p>\n