We can edit an ALV report on the screen and then we can download it as per requirement.
Here we are discussing about two ways to edit an ALV report.
1. The first way is to use the field catalog manually and there we can active the EDIT
field of field catalog. In this way we can manually select the fields which need to be edited.
The statement is as follows.
lv_col = 1 + lv_col.
wa_fcat-col_pos = lv_col.
wa_fcat-fieldname = 'CURRCODE'.
wa_fcat-tabname = 'IT_SCARR'.
wa_fcat-edit = 'X'. "Editable field
wa_fcat-seltext_l = 'Local currency of airline'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = lv_col.
wa_fcat-fieldname = 'CURRCODE'.
wa_fcat-tabname = 'IT_SCARR'.
wa_fcat-edit = 'X'. "Editable field
wa_fcat-seltext_l = 'Local currency of airline'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
2. Second way is to active the EDIT field of layout. This way gets the whole report editable.
We can edit each and every field. Statement is as follows.
wa_layout-colwidth_optimize = 'X'.
wa_layout-edit = 'X'. "This activation will let all fields editable
wa_layout-edit = 'X'. "This activation will let all fields editable
In the following example we have demonstrated the first approach where we are manually using
the editable fields by field catalog.
REPORT zsr_test1 NO STANDARD PAGE HEADING.
TABLES scarr.
TYPE-POOLS slis.
DATA: wa_title TYPE lvc_title VALUE 'Editable ALV Report',
"This will show the report title
it_scarr TYPE TABLE OF scarr,
wa_fcat TYPE slis_fieldcat_alv,
it_fcat TYPE slis_t_fieldcat_alv,
wa_layout TYPE slis_layout_alv,
wa_top TYPE slis_listheader,
it_top TYPE slis_t_listheader.
INITIALIZATION.
SELECT-OPTIONS s_carrid FOR scarr-carrid.
START-OF-SELECTION. PERFORM get_flight. "Get data from database table
PERFORM field_catalog. "Creating the field catalog manually
PERFORM layout. "Creating the layout
PERFORM alv_grid_display."ALV grid output
TOP-OF-PAGE. PERFORM top_of_page. "Top of page of editable ALV
TABLES scarr.
TYPE-POOLS slis.
DATA: wa_title TYPE lvc_title VALUE 'Editable ALV Report',
"This will show the report title
it_scarr TYPE TABLE OF scarr,
wa_fcat TYPE slis_fieldcat_alv,
it_fcat TYPE slis_t_fieldcat_alv,
wa_layout TYPE slis_layout_alv,
wa_top TYPE slis_listheader,
it_top TYPE slis_t_listheader.
INITIALIZATION.
SELECT-OPTIONS s_carrid FOR scarr-carrid.
START-OF-SELECTION. PERFORM get_flight. "Get data from database table
PERFORM field_catalog. "Creating the field catalog manually
PERFORM layout. "Creating the layout
PERFORM alv_grid_display."ALV grid output
TOP-OF-PAGE. PERFORM top_of_page. "Top of page of editable ALV
*&---------------------------------------------------------------------*
*& Form get_flight
*&---------------------------------------------------------------------*
* Get data from database table
*----------------------------------------------------------------------*
FORM get_flight .
IF s_carrid[] IS NOT INITIAL.
SELECT * FROM scarr INTO TABLE it_scarr
WHERE carrid IN s_carrid.
IF sy-subrc = 0.
SORT it_scarr.
ENDIF.
ENDIF.
ENDFORM. " get_flight
*&---------------------------------------------------------------------*
*& Form field_catalog
*&---------------------------------------------------------------------*
* Creating the field catalog manually
*----------------------------------------------------------------------*
FORM field_catalog .
DATA lv_col TYPE i VALUE 0.
IF it_scarr IS NOT INITIAL.
lv_col = 1 + lv_col.
wa_fcat-col_pos = lv_col.
wa_fcat-fieldname = 'CARRID'.
wa_fcat-tabname = 'IT_SCARR'.
wa_fcat-seltext_l = 'Airline Code'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
lv_col = 1 + lv_col.
wa_fcat-col_pos = lv_col.
wa_fcat-fieldname = 'CARRNAME'.
wa_fcat-tabname = 'IT_SCARR'.
wa_fcat-seltext_l = 'Airline Name'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
lv_col = 1 + lv_col.
wa_fcat-col_pos = lv_col.
wa_fcat-fieldname = 'CURRCODE'.
wa_fcat-tabname = 'IT_SCARR'.
wa_fcat-edit = 'X'. "Editable field
wa_fcat-seltext_l = 'Local currency of airline'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
lv_col = 1 + lv_col.
wa_fcat-col_pos = lv_col.
wa_fcat-fieldname = 'URL'.
wa_fcat-tabname = 'IT_SCARR'.
wa_fcat-edit = 'X'. "Editable field
wa_fcat-seltext_l = 'Airline URL'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ENDIF.
ENDFORM. " field_catalog
*&---------------------------------------------------------------------*
*& Form layout
*&---------------------------------------------------------------------*
* Creating the layout
*----------------------------------------------------------------------*
FORM layout .
wa_layout-colwidth_optimize = 'X'.
wa_layout-zebra = 'X'.
ENDFORM. " layout
*&---------------------------------------------------------------------*
*& Form alv_grid_display
*&---------------------------------------------------------------------*
* ALV grid output
*----------------------------------------------------------------------*
FORM alv_grid_display .
IF it_fcat IS NOT INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_top_of_page = 'TOP_OF_PAGE'
i_grid_title = wa_title
is_layout = wa_layout
it_fieldcat = it_fcat
TABLES
t_outtab = it_scarr
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDIF.
ENDFORM. " alv_grid_display
*&---------------------------------------------------------------------*
*& Form top_of_page
*&---------------------------------------------------------------------*
* Top of page of editable ALV
*----------------------------------------------------------------------*
FORM top_of_page.
DATA date TYPE char10.
CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
EXPORTING
date_internal = sy-datum
IMPORTING
date_external = date
EXCEPTIONS
date_internal_is_invalid = 1
OTHERS = 2.
REFRESH it_top.
wa_top-typ = 'H'.
wa_top-info = 'Airline Information'.
APPEND wa_top TO it_top.
CLEAR wa_top.
wa_top-typ = 'S'.
wa_top-info = 'Date: '.
CONCATENATE wa_top-info date INTO wa_top-info.
APPEND wa_top TO it_top.
CLEAR wa_top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_top.
ENDFORM. "top_of_page
The output is as follows.
The basic output.
Now we can edit those two fields as per requirement.
Now we are using the second approach where we need to activate the EDIT field of layout.
With this approach the whole report will be editable.
REPORT zsr_test1 NO STANDARD PAGE HEADING.
TABLES scarr.
TYPE-POOLS slis.
DATA: wa_title TYPE lvc_title VALUE 'Editable ALV Report',
"This will show the report title
it_scarr TYPE TABLE OF scarr,
it_fcat TYPE slis_t_fieldcat_alv,
wa_layout TYPE slis_layout_alv,
wa_top TYPE slis_listheader,
it_top TYPE slis_t_listheader.
INITIALIZATION.
SELECT-OPTIONS s_carrid FOR scarr-carrid.
START-OF-SELECTION. PERFORM get_flight. "Get data from database table
PERFORM field_catalog. "Creating the field catalog
PERFORM layout. "Creating the layout
PERFORM alv_grid_display."ALV grid output
TOP-OF-PAGE. PERFORM top_of_page. "Top of page of editable ALV
*&---------------------------------------------------------------------*
*& Form get_flight
*&---------------------------------------------------------------------*
* Get data from database table
*----------------------------------------------------------------------*
FORM get_flight .
IF s_carrid[] IS NOT INITIAL.
SELECT * FROM scarr INTO TABLE it_scarr
WHERE carrid IN s_carrid.
IF sy-subrc = 0.
SORT it_scarr.
ENDIF.
ENDIF.
ENDFORM. " get_flight
*&---------------------------------------------------------------------*
*& Form field_catalog
*&---------------------------------------------------------------------*
* Creating the field catalog
*----------------------------------------------------------------------*
FORM field_catalog .
IF it_scarr IS NOT INITIAL.
"Since the whole structure is involved, we use field catalog merge
"to create the field catalog
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'IT_SCARR'
i_structure_name = 'SCARR'
CHANGING
ct_fieldcat = it_fcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE 'Internal error of field catalog merge' TYPE 'I'.
ENDIF.
ENDIF.
ENDFORM. " field_catalog
*&---------------------------------------------------------------------*
*& Form layout
*&---------------------------------------------------------------------*
* Creating the layout
*----------------------------------------------------------------------*
FORM layout .
wa_layout-colwidth_optimize = 'X'.
wa_layout-edit = 'X'. "This activation will let all fields editable
ENDFORM. " layout
*&---------------------------------------------------------------------*
*& Form alv_grid_display
*&---------------------------------------------------------------------*
* ALV grid output
*----------------------------------------------------------------------*
FORM alv_grid_display .
IF it_fcat IS NOT INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_top_of_page = 'TOP_OF_PAGE'
i_grid_title = wa_title
is_layout = wa_layout
it_fieldcat = it_fcat
TABLES
t_outtab = it_scarr
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDIF.
ENDFORM. " alv_grid_display
*&---------------------------------------------------------------------*
*& Form top_of_page
*&---------------------------------------------------------------------*
* Top of page of editable ALV
*----------------------------------------------------------------------*
FORM top_of_page.
DATA date TYPE char10.
CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
EXPORTING
date_internal = sy-datum
IMPORTING
date_external = date
EXCEPTIONS
date_internal_is_invalid = 1
OTHERS = 2.
REFRESH it_top.
wa_top-typ = 'H'.
wa_top-info = 'Airline Information'.
APPEND wa_top TO it_top.
CLEAR wa_top.
wa_top-typ = 'S'.
wa_top-info = 'Date: '.
CONCATENATE wa_top-info date INTO wa_top-info.
APPEND wa_top TO it_top.
CLEAR wa_top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_top.
ENDFORM. "top_of_page
TABLES scarr.
TYPE-POOLS slis.
DATA: wa_title TYPE lvc_title VALUE 'Editable ALV Report',
"This will show the report title
it_scarr TYPE TABLE OF scarr,
it_fcat TYPE slis_t_fieldcat_alv,
wa_layout TYPE slis_layout_alv,
wa_top TYPE slis_listheader,
it_top TYPE slis_t_listheader.
INITIALIZATION.
SELECT-OPTIONS s_carrid FOR scarr-carrid.
START-OF-SELECTION. PERFORM get_flight. "Get data from database table
PERFORM field_catalog. "Creating the field catalog
PERFORM layout. "Creating the layout
PERFORM alv_grid_display."ALV grid output
TOP-OF-PAGE. PERFORM top_of_page. "Top of page of editable ALV
*&---------------------------------------------------------------------*
*& Form get_flight
*&---------------------------------------------------------------------*
* Get data from database table
*----------------------------------------------------------------------*
FORM get_flight .
IF s_carrid[] IS NOT INITIAL.
SELECT * FROM scarr INTO TABLE it_scarr
WHERE carrid IN s_carrid.
IF sy-subrc = 0.
SORT it_scarr.
ENDIF.
ENDIF.
ENDFORM. " get_flight
*&---------------------------------------------------------------------*
*& Form field_catalog
*&---------------------------------------------------------------------*
* Creating the field catalog
*----------------------------------------------------------------------*
FORM field_catalog .
IF it_scarr IS NOT INITIAL.
"Since the whole structure is involved, we use field catalog merge
"to create the field catalog
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'IT_SCARR'
i_structure_name = 'SCARR'
CHANGING
ct_fieldcat = it_fcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE 'Internal error of field catalog merge' TYPE 'I'.
ENDIF.
ENDIF.
ENDFORM. " field_catalog
*&---------------------------------------------------------------------*
*& Form layout
*&---------------------------------------------------------------------*
* Creating the layout
*----------------------------------------------------------------------*
FORM layout .
wa_layout-colwidth_optimize = 'X'.
wa_layout-edit = 'X'. "This activation will let all fields editable
ENDFORM. " layout
*&---------------------------------------------------------------------*
*& Form alv_grid_display
*&---------------------------------------------------------------------*
* ALV grid output
*----------------------------------------------------------------------*
FORM alv_grid_display .
IF it_fcat IS NOT INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_top_of_page = 'TOP_OF_PAGE'
i_grid_title = wa_title
is_layout = wa_layout
it_fieldcat = it_fcat
TABLES
t_outtab = it_scarr
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDIF.
ENDFORM. " alv_grid_display
*&---------------------------------------------------------------------*
*& Form top_of_page
*&---------------------------------------------------------------------*
* Top of page of editable ALV
*----------------------------------------------------------------------*
FORM top_of_page.
DATA date TYPE char10.
CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
EXPORTING
date_internal = sy-datum
IMPORTING
date_external = date
EXCEPTIONS
date_internal_is_invalid = 1
OTHERS = 2.
REFRESH it_top.
wa_top-typ = 'H'.
wa_top-info = 'Airline Information'.
APPEND wa_top TO it_top.
CLEAR wa_top.
wa_top-typ = 'S'.
wa_top-info = 'Date: '.
CONCATENATE wa_top-info date INTO wa_top-info.
APPEND wa_top TO it_top.
CLEAR wa_top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_top.
ENDFORM. "top_of_page
Below is the output where we can see every field is available to edit.
We have edited one as per requirement.
No comments:
Post a Comment