Application Development Blog Posts
Learn and share on deeper, cross technology development topics such as integration and connectivity, automation, cloud extensibility, developing at scale, and security.
cancel
Showing results for 
Search instead for 
Did you mean: 
kraghavanbindhu
Contributor
Introduction:

Hope everyone is well. I am PP functional consultant gathering ABAP technical Knowledge. In ABAP for self learning we need more sample program to get clarification on understanding things better. In SAP blog the availability of sample program is less. So I am writing this.

Main Part

This program will fetch the material details details and changing the values in alv will update the ztable.

Below is the program.
REPORT zr.

TYPES: BEGIN OF ty_final,
matnr TYPE mara-matnr,
maktx TYPE makt-maktx,
cellcolor TYPE lvc_t_scol,
END OF ty_final.

TYPES: BEGIN OF ty_mara,
matnr TYPE mara-matnr,
END OF ty_mara.

TYPES : BEGIN OF ty_makt,
matnr TYPE makt-matnr,
maktx TYPE makt-maktx,
END OF ty_makt.

DATA: it_final TYPE TABLE OF ty_final,
wa_final TYPE ty_final,
it_mara TYPE TABLE OF ty_mara,
wa_mara TYPE ty_mara,
it_makt TYPE TABLE OF ty_makt,
wa_makt TYPE ty_makt,
matnr TYPE mara-matnr,
lv_index TYPE sy-tabix,
wa_cellcolor TYPE lvc_s_scol, " for cell color
wa_layout TYPE slis_layout_alv,
ref1 TYPE REF TO cl_gui_alv_grid, " to capture changes in alv
it_zfinal TYPE TABLE OF ty_final, "temproary final internal table
wa_zfinal TYPE ty_final,
wa_zzfinal TYPE ty_makt, " temproary work area
*to move changed values in alv
it_fieldcat TYPE slis_t_fieldcat_alv, " for Alv
wa_fieldcat TYPE slis_fieldcat_alv.


SELECTION-SCREEN BEGIN OF BLOCK a.
SELECT-OPTIONS: s_matnr FOR matnr.
SELECTION-SCREEN END OF BLOCK a.

START-OF-SELECTION.
PERFORM : getdata.
PERFORM: f_build_layout .
PERFORM: dispaly.

FORM getdata .

SELECT matnr FROM mara INTO TABLE it_mara WHERE matnr IN S_matnr.
IF it_mara IS NOT INITIAL.
SELECT matnr maktx FROM makt INTO TABLE it_makt
FOR ALL ENTRIES IN it_mara WHERE matnr = it_mara-matnr AND spras = 'EN'.
ENDIF.
* moving values from temproary internal table to final internal table
LOOP AT it_mara INTO wa_mara.
wa_final-matnr = wa_mara-matnr.
READ TABLE it_makt INTO wa_makt WITH KEY matnr = wa_mara-matnr.
wa_final-maktx = wa_makt-maktx.
wa_final-matnr = wa_mara-matnr.
APPEND wa_final TO it_final.
ENDLOOP.

IF it_final IS INITIAL.
MESSAGE 'no values' TYPE 'I'.
LEAVE TO CURRENT TRANSACTION.
ENDIF.
*color code for the cells based on condition
LOOP AT it_FINAL INTO wa_FINAL.
lv_index = sy-tabix.
IF wa_final-matnr+0(1) = '0'.
wa_cellcolor-fname = 'MATNR'.
wa_cellcolor-color-col = 6.
wa_cellcolor-color-int = '1'.
wa_cellcolor-color-inv = '0'.
APPEND wa_cellcolor TO wa_FINAL-cellcolor.
CLEAR: wa_cellcolor.
MODIFY it_final FROM wa_final INDEX lv_index TRANSPORTING cellcolor.
CLEAR wa_final.
ENDIF.
ENDLOOP.
ENDFORM.
END-OF-SELECTION.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_pf_status_set = 'PF_STATUS'
i_callback_user_command = 'USER_COMMAND'
is_layout = wa_layout
it_fieldcat = it_fieldcat
TABLES
t_outtab = it_final
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
*appending values to fieldcatalogue.
FORM dispaly .

wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-seltext_m = 'Material'.

APPEND wa_fieldcat TO it_fieldcat.
CLEAR: wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-fieldname = 'MAKTX'.
wa_fieldcat-seltext_m = 'Description'.
wa_fieldcat-edit ='X'.

APPEND wa_fieldcat TO it_fieldcat.
CLEAR: wa_fieldcat.
*appending values form final internal table to
* temproary final table for data comparision
it_zfinal[] = it_final[].

ENDFORM.

*syntax for declarin usercommand
FORM user_command USING p_ucomm TYPE sy-ucomm
p_selfield TYPE slis_selfield.
CASE p_ucomm.
WHEN '&IC1'.
LOOP AT it_final INTO wa_final.
READ TABLE it_final INTO wa_final WITH KEY matnr = wa_final-matnr.
WRITE: / wa_final-matnr.
ENDLOOP.

WHEN 'SAVE'.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' "Capturing changes in ALV
IMPORTING
e_grid = ref1.
CALL METHOD ref1->check_changed_data.
*moving changed value into ztable on saving
LOOP AT it_final INTO wa_final.
READ TABLE it_zfinal INTO wa_zfinal WITH KEY matnr = wa_final-matnr.
IF wa_zfinal-matnr = wa_final-matnr AND wa_zfinal-maktx NE wa_final-maktx.
MOVE-CORRESPONDING wa_final TO wa_zzfinal.
MODIFY zfinal FROM wa_zzfinal.
ENDIF.
ENDLOOP.
CLEAR: wa_final,wa_zfinal, wa_zzfinal.
ENDCASE.
ENDFORM.
*se41 create, generate, activate the buttons and assing it.
FORM pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZPF_STATUS'.
ENDFORM.
*color code building for FM
FORM f_build_layout .
CLEAR wa_layout.
wa_layout-colwidth_optimize = 'X'.
wa_layout-coltab_fieldname = 'CELLCOLOR'.

ENDFORM.

 

Output is like below


Here the second field is editable and I have changed it and saved it and it got updated in zfinal table.


Conclusion

Hope this may helpful.

It will be helpful if you share your thoughts like Ron in https://blogs.sap.com/2023/04/20/abap-sample-report-program-with-join-condition-and-using-cl_salv_ta...

Have a look into the below.

https://erproof.com/abap/sap-abap-training/alv-report-in-sap-abap/
1 Comment