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-14 16:07:27 +01:00
parent 7f99b0d51b
commit d2c25c38f9
1 changed files with 20 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -187,29 +187,31 @@ ENDCLASS.
CLASS lcl_events IMPLEMENTATION. CLASS lcl_events IMPLEMENTATION.
METHOD click_hotspot. METHOD click_hotspot.
TRY. READ TABLE itab4alv INTO DATA(wa_dc) INDEX row.
ASSIGN itab4alv[ row ]-(column) TO FIELD-SYMBOL(<val_sc>). IF sy-subrc = 0.
IF <val_sc> IS ASSIGNED. ASSIGN COMPONENT column OF STRUCTURE wa_dc TO FIELD-SYMBOL(<val_dc>).
MESSAGE |Single click event. You clicked on row { row } in column { column }. { COND #( WHEN column = 'CONNID' THEN `Value: ` && <val_sc> ) }| TYPE 'I'. IF <val_dc> IS ASSIGNED.
ELSE. MESSAGE |Single click event. You clicked on row { row } in column { column }. Value: { <val_dc> }| TYPE 'I'.
MESSAGE `Single click event` TYPE 'I'. ELSE.
ENDIF.
CATCH cx_root.
MESSAGE `Single click event` TYPE 'I'. MESSAGE `Single click event` TYPE 'I'.
ENDTRY. ENDIF.
ELSE.
MESSAGE `Single click event` TYPE 'I'.
ENDIF.
ENDMETHOD. ENDMETHOD.
METHOD double_click. METHOD double_click.
TRY. READ TABLE itab4alv INTO DATA(wa_dc) INDEX row.
ASSIGN itab4alv[ row ]-(column) TO FIELD-SYMBOL(<val_dc>). IF sy-subrc = 0.
IF <val_dc> IS ASSIGNED. ASSIGN COMPONENT column OF STRUCTURE wa_dc TO FIELD-SYMBOL(<val_dc>).
MESSAGE |Double click event. You clicked on row { row } in column { column }. Value: { <val_dc> }| TYPE 'I'. IF <val_dc> IS ASSIGNED.
ELSE. MESSAGE |Double click event. You clicked on row { row } in column { column }. Value: { <val_dc> }| TYPE 'I'.
MESSAGE `Double click event` TYPE 'I'. ELSE.
ENDIF.
CATCH cx_root.
MESSAGE `Double click event` TYPE 'I'. MESSAGE `Double click event` TYPE 'I'.
ENDTRY. ENDIF.
ELSE.
MESSAGE `Double click event` TYPE 'I'.
ENDIF.
ENDMETHOD. ENDMETHOD.
METHOD func_click. METHOD func_click.
@@ -247,7 +249,6 @@ CLASS lcl_events IMPLEMENTATION.
LOOP AT itab4alv REFERENCE INTO DATA(calc). LOOP AT itab4alv REFERENCE INTO DATA(calc).
calc->seatsfree = calc->seatsmax - calc->seatsocc. calc->seatsfree = calc->seatsmax - calc->seatsocc.
TRY. TRY.
DATA(test) = calc->seatsocc / calc->seatsmax * 100.
calc->occrate = |{ CONV decfloat34( ( calc->seatsocc / calc->seatsmax ) * 100 ) DECIMALS = 2 }|. calc->occrate = |{ CONV decfloat34( ( calc->seatsocc / calc->seatsmax ) * 100 ) DECIMALS = 2 }|.
IF calc->occrate >= 95. IF calc->occrate >= 95.
calc->seatstat = icon_red_light. calc->seatstat = icon_red_light.