b.santos/abap-cheat-sheets
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update

Browse Source
This commit is contained in:
danrega
2023-12-15 15:37:26 +01:00
parent 6080939353
commit 5fa7bd1fcc
1 changed files with 10 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/test_abap_cheat_sheets_classic/zdemo_abap_alv.prog.abap
View File

@@ -187,28 +187,24 @@ ENDCLASS.
CLASS lcl_events IMPLEMENTATION. CLASS lcl_events IMPLEMENTATION.
METHOD click_hotspot. METHOD click_hotspot.
READ TABLE itab4alv INTO DATA(wa_dc) INDEX row. READ TABLE itab4alv INDEX row REFERENCE INTO DATA(sc_ref).
IF sy-subrc = 0. IF sy-subrc = 0.
ASSIGN COMPONENT column OF STRUCTURE wa_dc TO FIELD-SYMBOL(<val_dc>). ASSIGN sc_ref->(column) TO FIELD-SYMBOL(<fs_sc>).
IF <val_dc> IS ASSIGNED. MESSAGE `Single click event. ` &&
MESSAGE |Single click event. You clicked on row { row } in column { column }. Value: { <val_dc> }| TYPE 'I'. |Row: { row } { COND #( WHEN column IS NOT INITIAL THEN `Column: ` && column ) } | &&
ELSE. |{ COND #( WHEN <fs_sc> IS ASSIGNED THEN `Value: ` && <fs_sc> ) }| TYPE 'I'.
MESSAGE `Single click event` TYPE 'I'.
ENDIF.
ELSE. ELSE.
MESSAGE `Single click event` TYPE 'I'. MESSAGE `Single click event` TYPE 'I'.
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
METHOD double_click. METHOD double_click.
READ TABLE itab4alv INTO DATA(wa_dc) INDEX row. READ TABLE itab4alv INDEX row REFERENCE INTO DATA(dc_ref).
IF sy-subrc = 0. IF sy-subrc = 0.
ASSIGN COMPONENT column OF STRUCTURE wa_dc TO FIELD-SYMBOL(<val_dc>). ASSIGN dc_ref->(column) TO FIELD-SYMBOL(<fs_dc>).
IF <val_dc> IS ASSIGNED. MESSAGE `Double click event. ` &&
MESSAGE |Double click event. You clicked on row { row } in column { column }. Value: { <val_dc> }| TYPE 'I'. |Row: { row } { COND #( WHEN column IS NOT INITIAL THEN `Column: ` && column ) } | &&
ELSE. |{ COND #( WHEN <fs_dc> IS ASSIGNED THEN `Value: ` && <fs_dc> ) }| TYPE 'I'.
MESSAGE `Double click event` TYPE 'I'.
ENDIF.
ELSE. ELSE.
MESSAGE `Double click event` TYPE 'I'. MESSAGE `Double click event` TYPE 'I'.
ENDIF. ENDIF.