FUNCTION Z_MON_METHOD_PAINT_HU
IMPORTING
IV_LGNUM TYPE /SCWM/LGNUM
IT_DATA TYPE /SCWM/TT_LIME_ALL_MON.
*Allow just 1 line
IF lines( it_data ) <> 1.
"Please select exactly 1 line for this method!
MESSAGE s003 DISPLAY LIKE 'W'.
RETURN.
ELSE.
DATA(ls_hu_data) = it_data[ 1 ].
ENDIF.
*Ask for Input ("what colour to paint the HU?")
gs_hu_paint_dynpro-huident = ls_hu_data-huident
CALL SCREEN c_screen_paint_HU STARTING AT 10 10 .
*make sure no cancel etc.
IF g_fcode NE c_fcode_save.
RETURN.
ENDIF.
* do the actual work in ABAP OO:
go_my_mon_node->paint_hu_in_colour( i_huident = gs_hu_paint_dynpro-huident
i_colour = gs_hu_paint_dynpro-colour_to_paint ).
ENDFUNCTION.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
3 | |
2 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 |