The idea
I got the idea for this when I was working with the web dynpro view editor. I noticed there was something ALV like which was used instead of a classical dynpro to enter values on several fields:
I was wondering if I could use the ALV grid control for simple input areas in my own applications.
The implementation
I created a subclass to CL_GUI_ALV_GRID to achieve this. It uses a fixed output table structure containing a column for the label, one for the value (can be editable), and one for a field description (if we input on a field with domain values).
At the end of this blog, you will find the coding for the sample program.
To get the program running, create a GUI status 0001 with function code END on the SHIFT+F3 button. Create also a GUI title 0001 saying "Test program" or something similar.
Now, if you run the program, you should see something like this:
P_RDONLY starts the input in read only mode, otherwise the edit mode is active
P_SIMPLE: in read only mode, P_SIMPLE activates a simpler display with no key coloring.
Edit mode screen:
The demo class LCL_APP calls the input control with the structur ADDR1_VAL. As you see, you get a complete input for this structure using the call:
create object go_input
exporting
iv_structure_name = 'ADDR1_DATA'
io_parent = go_container
iv_max_outlen = 30
iv_readonly = p_rdonly
iv_simplex = p_simple
iv_max_outlen_d = 30
In the demo program, I used the table parameter it_fieldattr to set the first two fields to read only.
Reusing the code
If you want to reuse the coding, you should extract the following classes from the provided source. Remember to do a find/replace for the class names transforming each "LCL_ICTRL" into "ZCL_ICTRL" and "LIF_ICTRL" into "ZCL_ICTRL" in the codings to get the classes working.
- lif_ictrl_input_check: This interface is useful if you want to code own input checks in your application. Implement it in your application class and pass the object reference to the main class. The interface method input_validate will be called for each input in the table.
- lif_ictrl_types: This interface is needed for the necessary structure and table types.
- lcl_ictrl_alv : The main working class
- lcx_ictrl_fatal: Exception class used in the coding
Comments and hints
Since the coding "lives" in a standard super class, I decided to use a prefix ZICTRL_ for all objects I created in order to not interfer with further inserted attributes and methods in future releases of CL_GUI_ALV_GRID.
The work data structure is accessed by the caller via reference. You can set the reference using method ZICTRL_SET_DATA_BY_REF. In the demo application, a structure GS_DATA is kept as an instance attribute and the ICTRL_ALV class has the reference to it. As soon as GS_DATA is changed, just call ZICTRL_REFRESH to display the new data.
Use case example
I use this class frequently. It is very good in saving space in complex dialogue applications. Here is a screenshot of a productive GUI application:
If you try to put this information on a classical dynpro, you will occupy much more space on the screen.
Another advantage is that this control fits much better in an OO application than classical dynpros.
Disadvantages
Unfortunately there is one problem, which I did not resolve yet: Input fields in ALV grids do not have a frontend history. In some cases, when this is very important for the users, I had to refuse using it.
Conclusion
Feel free to post your comments. Bug annotations are always welcome!
All the best!
Jörg
Sample program
Report source
*&---------------------------------------------------------------------*
*& Report ZP_ICTRL_DEMO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
report zp_ictrl_demo.
interface lif_ictrl_input_check.
methods input_validate
importing
iv_fieldname type dfies-lfieldname
iv_value type any
raising
cx_static_check .
endinterface.
class lcx_ictrl definition inheriting from cx_static_check.
public section.
interfaces if_t100_message.
data mv_handle type balloghndl .
methods constructor
importing
textid like textid optional
previous like previous optional
t100key type scx_t100key optional
mv_message_v1 type symsgv
mv_message_v2 type symsgv
mv_message_v3 type symsgv
mv_message_v4 type symsgv.
endclass.
interface lif_ictrl_main.
constants: cv_long_descr type char1 value 'L',
cv_medium_descr type char1 value space,
cv_short_descr type char1 value 'S'.
data: mv_readonly type abap_bool,
mr_data type ref to data,
mv_title type lvc_title,
mv_width_value type i,
mv_width_descr type i,
mo_input_check type ref to lif_ictrl_input_check,
mv_descr_len type char1.
events: user_command
exporting value(ev_ucomm) type ui_func,
enter_pressed ,
data_has_changed ,
link_clicked
exporting
value(ev_fieldname) type fieldname
value(ev_value) type any,
double_clicked
exporting
value(ev_fieldname) type fieldname
value(ev_value) type any.
methods:
set_data
changing cs_data type any
raising lcx_ictrl,
display
importing iv_optimized type abap_bool optional
raising lcx_ictrl,
set_readonly
importing iv_in type abap_bool default abap_true
raising lcx_ictrl,
hide_field
importing iv_in type lvc_fname,
show_field
importing iv_in type lvc_fname,
refresh
raising lcx_ictrl.
endinterface.
class lcl_ictrl_alv definition
inheriting from cl_gui_alv_grid
final
create public .
public section.
interfaces lif_ictrl_main.
*"* public components of class lcl_ictrl_alv
*"* do not include other source files here!!!
methods constructor
importing
io_parent type ref to cl_gui_container
iv_appl_events type abap_bool optional
raising
lcx_ictrl .
private section.
types: begin of gty_s_output,
fieldlabel type scrtext_l,
fieldvalue type text128,
fielddescr type text128,
ref_field type lvc_rfname,
ref_table type lvc_rtname,
style type lvc_style,
maxlen type int4,
t_styles type lvc_t_styl,
t_colors type lvc_t_scol,
end of gty_s_output,
gty_t_output type standard table of gty_s_output
with default key,
begin of gty_s_fieldattr,
fieldname type fieldname,
hotspot type lvc_hotspt,
readonly type crmt_bsp_readonly,
description_field type fieldname,
no_display type abap_bool,
no_label type abap_bool,
end of gty_s_fieldattr,
gty_t_fieldattr type standard table of gty_s_fieldattr
with default key.
aliases:
cv_long_descr for lif_ictrl_main~cv_long_descr,
cv_medium_descr for lif_ictrl_main~cv_medium_descr,
cv_short_descr for lif_ictrl_main~cv_short_descr,
mv_width_value for lif_ictrl_main~mv_width_value,
mv_width_descr for lif_ictrl_main~mv_width_descr,
mv_readonly for lif_ictrl_main~mv_readonly ,
mr_data for lif_ictrl_main~mr_data ,
mv_title for lif_ictrl_main~mv_title ,
mo_input_check for lif_ictrl_main~mo_input_check,
mv_descr_len for lif_ictrl_main~mv_descr_len.
data: zictrl_mv_optimized type abap_bool,
zictrl_mo_input_check type ref to lif_ictrl_input_check,
zictrl_mv_error type abap_bool,
zictrl_mt_fieldattr type gty_t_fieldattr,
zictrl_mt_fieldcat type lvc_t_fcat,
zictrl_mt_fields type dd03ttyp,
zictrl_mv_structure_name type ddobjname,
zictrl_mv_title type lvc_title,
zictrl_mt_inputs type gty_t_output.
methods:
zictrl_set_fieldattr
importing iv_fieldname type c
iv_attrib type c
iv_value type c,
zictrl_fieldcat_build,
zictrl_error
raising lcx_ictrl,
zictrl_put_log_dch
importing
io_data_changed type ref to cl_alv_changed_data_protocol
is_good type lvc_s_modi ,
zictrl_hotspot_clicked
for event hotspot_click of lcl_ictrl_alv
importing
e_row_id
e_column_id
es_row_no ,
zictrl_f4
for event onf4 of lcl_ictrl_alv
importing
e_fieldname
e_fieldvalue
es_row_no
er_event_data
et_bad_cells
e_display ,
zictrl_double_click
for event double_click of lcl_ictrl_alv
importing
e_row
e_column
es_row_no ,
zictrl_description_fill_forkey
importing
is_field type dd03p
iv_fn_d type fieldname
is_screen type any
changing
cs_input type gty_s_output ,
zictrl_description_fill
importing
is_field type dd03p
iv_value type any
changing
cs_input type gty_s_output
raising lcx_ictrl,
zictrl_after_refresh
for event after_refresh of lcl_ictrl_alv ,
zictrl_convert_input
importing
is_good type lvc_s_modi
io_data_changed type ref to cl_alv_changed_data_protocol
iv_currency type waers
is_field type dd03p
exporting
ev_value type any
ev_error type flag ,
zictrl_convert_output
importing
iv_value type any
iv_currency type waers
iv_unit type meins
returning
value(rv_res) type text128 ,
zictrl_data_changed
for event data_changed of lcl_ictrl_alv
importing
er_data_changed
e_onf4
e_onf4_before
e_onf4_after
e_ucomm ,
zictrl_screen_to_input
importing
iv_refresh type abap_bool default abap_true
raising lcx_ictrl,
zictrl_data_changed_late
for event data_changed_finished of cl_gui_alv_grid
importing
e_modified
et_good_cells ,
zictrl_get_field_ref
importing
is_field type dd03p
io_data_changed type ref to cl_alv_changed_data_protocol optional
is_screen type any
exporting
ev_curr_ref type waers
ev_unit_ref type meins ,
zictrl_input_error
importing
io_data_changed type ref to cl_alv_changed_data_protocol
is_good type lvc_s_modi ,
zictrl_set_style ,
zictrl_build_toolbar_exclude
exporting
et_tab type ui_functions ,
zictrl_input_table_create
raising
lcx_ictrl .
endclass.
class lcl_app definition.
public section.
methods main.
methods controls_init.
private section.
methods:
fill_data_from_outside
raising lcx_ictrl,
toggle_change_edit
raising lcx_ictrl,
user_command for event user_command of lif_ictrl_main
importing ev_ucomm,
hotspot for event link_clicked of lif_ictrl_main
importing ev_fieldname ev_value.
data: mo_alv type ref to lcl_ictrl_alv,
mo_container type ref to cl_gui_custom_container,
mo_input type ref to lif_ictrl_main,
ms_data type addr1_val,
mv_readonly type abap_bool.
endclass.
data: go_app type ref to lcl_app,
gv_ucomm type syucomm.
parameters: p_rdonly as checkbox.
start-of-selection.
create object go_app.
go_app->main( ).
class lcx_ictrl implementation.
method constructor.
call method super->constructor
exporting
textid = textid
previous = previous.
if_t100_message~t100key = t100key.
endmethod.
endclass.
class lcl_app implementation.
method hotspot.
field-symbols <lv_f> type any.
assign component ev_fieldname of structure ms_data to <lv_f>.
message i000(0k)
with 'Clicked on' ev_fieldname ', value' <lv_f>.
endmethod.
* method toolbar.
* data: ls_toolbar type stb_button.
*
**... Normal Button
* clear ls_toolbar.
* ls_toolbar-function = 'FILL'.
* ls_toolbar-icon = icon_generate.
* ls_toolbar-text = 'Fill data'. "#EC NOTEXT
* append ls_toolbar to e_object->mt_toolbar.
*
**... Normal Button
* clear ls_toolbar.
* ls_toolbar-function = 'EDIT_TOGGLE'.
* ls_toolbar-icon = icon_toggle_display_change.
* ls_toolbar-text = 'change/display'. "#EC NOTEXT
* append ls_toolbar to e_object->mt_toolbar.
* endmethod.
method user_command.
try.
case ev_ucomm.
when 'FILL'.
fill_data_from_outside( ).
when 'TOGGLE'.
toggle_change_edit( ).
endcase.
catch lcx_ictrl.
message 'something went wrong' type 'S' display like 'E'.
endtry.
endmethod.
method main.
" for demonstration, fill readonly fields
ms_data = value #( date_from = '20010101'
date_to = '99991231' ).
call screen 1.
endmethod.
method toggle_change_edit.
translate mv_readonly using ' XX '.
mo_input->set_readonly( mv_readonly ).
endmethod.
method fill_data_from_outside.
" fill some data
ms_data = value #( name1 = 'John Doe' title = '0002' ).
mo_input->set_data( changing cs_data = ms_data ).
" refresh the alv display
mo_input->refresh( ).
endmethod.
method controls_init.
try.
if mo_container is bound.
exit.
endif.
create object mo_container
exporting
container_name = 'CTRL_ALL'.
mo_input = new lcl_ictrl_alv( mo_container ).
mo_input->mv_readonly = p_rdonly.
mo_input->mv_width_value = 30.
mo_input->mv_width_descr = 30.
set handler user_command for mo_input.
set handler hotspot for mo_input.
mo_input->set_data( changing cs_data = ms_data ).
mo_input->display( ).
catch lcx_ictrl.
message 'FATAL ERROR' type 'E'.
endtry.
endmethod.
endclass.
class lcl_ictrl_alv implementation.
method lif_ictrl_main~hide_field.
zictrl_set_fieldattr( iv_fieldname = iv_in
iv_attrib = 'NO_DISPLAY'
iv_value = abap_true ).
endmethod.
method lif_ictrl_main~show_field.
zictrl_set_fieldattr( iv_fieldname = iv_in
iv_attrib = 'NO_DISPLAY'
iv_value = abap_false ).
endmethod.
method zictrl_set_fieldattr.
read table zictrl_mt_fieldattr assigning field-symbol(<ls_attr>)
with key fieldname = iv_fieldname.
if sy-subrc <> 0.
append value #( fieldname = iv_fieldname ) to zictrl_mt_fieldattr assigning <ls_attr>.
endif.
assign component iv_attrib of structure <ls_attr> to field-symbol(<lv_val>).
<lv_val> = iv_value.
endmethod.
method constructor.
super->constructor(
exporting
i_parent = io_parent
i_appl_events = iv_appl_events
exceptions
error_cntl_create = 1
error_cntl_init = 2
error_cntl_link = 3
error_dp_create = 4
others = 5
).
if sy-subrc <> 0.
message e000(0k) with 'ERROR creating ALV' into sy-msgli.
zictrl_error( ).
endif.
mv_width_value = 30.
mv_width_descr = 30.
set handler zictrl_data_changed for me.
set handler zictrl_data_changed_late for me.
set handler zictrl_after_refresh for me.
set handler zictrl_double_click for me.
set handler zictrl_hotspot_clicked for me.
mv_descr_len = cv_medium_descr.
register_f4_for_fields( value #( ( fieldname = 'FIELDVALUE'
getbefore = abap_true
register = abap_true
chngeafter = abap_true ) ) ).
set handler zictrl_f4 for me.
me->register_edit_event( mc_evt_enter ).
endmethod.
method lif_ictrl_main~set_data.
data(lv_init) = abap_true.
if mr_data is not initial.
assign mr_data->* to field-symbol(<ls_data>).
if cl_abap_typedescr=>describe_by_data( <ls_data> )->get_relative_name( ) <>
cl_abap_typedescr=>describe_by_data( cs_data )->get_relative_name( ).
message e000(0k) with 'invalid data structure' into sy-msgli.
zictrl_error( ).
endif.
lv_init = abap_false.
endif.
get reference of cs_data into mr_data.
if lv_init = abap_true.
zictrl_mv_structure_name = cl_abap_typedescr=>describe_by_data_ref(
mr_data )->get_relative_name( ).
zictrl_input_table_create( ).
zictrl_fieldcat_build( ).
endif.
endmethod.
method zictrl_after_refresh.
zictrl_set_style( ).
endmethod.
method zictrl_build_toolbar_exclude.
append: cl_gui_alv_grid=>mc_fc_auf to et_tab, " '&AUF', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_average to et_tab, " '&AVERAGE', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_back_classic to et_tab, " '&F03', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_call_abc to et_tab, " '&ABC', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_call_chain to et_tab, " '&BEBN', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_call_crbatch to et_tab, " '&CRBATCH', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_call_crweb to et_tab, " '&CRWEB', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_call_lineitems to et_tab, " '&BEB1', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_call_master_data to et_tab, " '&BEB2', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_call_more to et_tab, " '&BEB3', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_call_report to et_tab, " '&BEB9', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_call_xint to et_tab, " '&XINT', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_call_xxl to et_tab, " '&XXL', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_check to et_tab, " '&CHECK', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_col_invisible to et_tab, " '&COL_INV', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_col_optimize to et_tab, " '&OPTIMIZE', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_count to et_tab, " '&COUNT', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_current_variant to et_tab, " '&COL0', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_data_save to et_tab, " '&DATA_SAVE', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_delete_filter to et_tab, " '&DELETE_FILTER', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_deselect_all to et_tab, " '&SAL', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_detail to et_tab, " '&DETAIL', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_excl_all to et_tab, " '&EXCLALLFC', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_expcrdata to et_tab, " '&CRDATA', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_expcrdesig to et_tab, " '&CRDESIG', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_expcrtempl to et_tab, " '&CRTEMPL', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_expmdb to et_tab, " '&MDB', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_extend to et_tab, " '&EXT', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_f4 to et_tab, " '&F4', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_filter to et_tab, " '&FILTER', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_find to et_tab, " '&FIND', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_fix_columns to et_tab, " '&CFI', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_graph to et_tab, " '&GRAPH', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_help to et_tab, " '&HELP', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_html to et_tab, " '&HTML', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_info to et_tab, " '&INFO', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_load_variant to et_tab, " '&LOAD', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_loc_append_row to et_tab, " '&LOCAL&', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_loc_copy to et_tab, " '&LOCAL©', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_loc_copy_row to et_tab, " '&LOCAL©_ROW', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_loc_cut to et_tab, " '&LOCAL&CUT', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_loc_delete_row to et_tab, " '&LOCAL&DELETE_ROW', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_loc_insert_row to et_tab, " '&LOCAL&INSERT_ROW', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_loc_move_row to et_tab, " '&LOCAL&MOVE_ROW', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_loc_paste to et_tab, " '&LOCAL&PASTE', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_loc_paste_new_row to et_tab, " '&LOCAL&PASTE_NEW_ROW', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_loc_undo to et_tab, " '&LOCAL&UNDO', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_maintain_variant to et_tab, " '&MAINTAIN', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_maximum to et_tab, " '&MAXIMUM', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_minimum to et_tab, " '&MINIMUM', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_pc_file to et_tab, " '&PC', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_print to et_tab, " '&PRINT', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_print_back to et_tab, " '&PRINT_BACK', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_print_prev to et_tab, " '&PRINT_BACK_PREVIEW', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_refresh to et_tab, " '&REFRESH', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_reprep to et_tab, " '&REPREP', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_save_variant to et_tab, " '&SAVE', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_select_all to et_tab, " '&ALL', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_send to et_tab, " '&SEND', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_separator to et_tab, " '&&SEP', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_sort to et_tab, " '&SORT', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_sort_asc to et_tab, " '&SORT_ASC', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_sort_dsc to et_tab, " '&SORT_DSC', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_subtot to et_tab, " '&SUBTOT', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_sum to et_tab, " '&SUMC', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_to_office to et_tab, " '&ML', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_to_rep_tree to et_tab, " '&SERP', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_unfix_columns to et_tab, " '&CDF', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_url_copy_to_clipboard to et_tab, " '&URL_COPY_TO_CLIPBOARD', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_variant_admin to et_tab, " '&VARI_ADMIN', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_views to et_tab, " '&VIEW', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_view_crystal to et_tab, " '&VCRYSTAL', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_view_excel to et_tab, " '&VEXCEL', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_view_grid to et_tab, " '&VGRID', "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_view_lotus to et_tab, " '&VLOTUS'. "#EC NOTEXT
cl_gui_alv_grid=>mc_fc_word_processor to et_tab. " '&AQW'. "#EC NOTEXT
endmethod.
method zictrl_convert_input.
data ls_tabfield type tabfield.
ls_tabfield-tabname = zictrl_mv_structure_name.
ls_tabfield-fieldname = is_field-fieldname.
call function 'RS_CONV_EX_2_IN'
exporting
input_external = is_good-value
table_field = ls_tabfield
currency = iv_currency
* NO_TCURX = ' '
importing
output_internal = ev_value
exceptions
input_not_numerical = 1
too_many_decimals = 2
more_than_one_sign = 3
ill_thousand_separator_dist = 4
too_many_digits = 5
sign_for_unsigned = 6
too_large = 7
too_small = 8
invalid_date_format = 9
invalid_date = 10
invalid_time_format = 11
invalid_time = 12
invalid_hex_digit = 13
unexpected_error = 14
invalid_fieldname = 15
field_and_descr_incompatible = 16
input_too_long = 17
no_decimals = 18
invalid_float = 19
conversion_exit_error = 20
others = 21.
if sy-subrc <> 0.
zictrl_input_error( io_data_changed = io_data_changed is_good = is_good ).
ev_error = abap_true.
endif.
endmethod.
method zictrl_convert_output.
if iv_currency is not initial.
write iv_value to rv_res currency iv_currency.
elseif iv_unit is not initial.
write iv_value to rv_res unit iv_unit.
else.
write iv_value to rv_res.
endif.
condense rv_res.
endmethod.
method zictrl_data_changed.
data: ls_good type lvc_s_modi,
lv_error_in_data type flag,
lv_row_id type int4,
ls_fail type ddfkeyrc,
lt_fail type table of ddfkeyrc,
lv_fn type dfies-lfieldname,
ls_fieldattr_group type gty_s_fieldattr,
ls_fieldattr type gty_s_fieldattr,
lv_value type text128,
lv_curr_ref type waers,
lv_unit_ref type meins.
field-symbols <ls_screen> type any.
field-symbols <ls_input> type gty_s_output.
field-symbols <ls_input_ref> type gty_s_output.
field-symbols <ls_field> type dd03p.
field-symbols <lv_value> type any.
field-symbols <lv_value_group> type any.
assign mr_data->* to <ls_screen>.
lv_error_in_data = space.
zictrl_mv_error = abap_false.
loop at er_data_changed->mt_good_cells into ls_good.
read table zictrl_mt_inputs assigning <ls_input> index ls_good-row_id.
read table zictrl_mt_fields assigning <ls_field> with key fieldname = <ls_input>-ref_field.
assign component <ls_field>-fieldname of structure <ls_screen> to <lv_value>.
read table zictrl_mt_fieldattr into ls_fieldattr with key fieldname = <ls_input>-ref_field.
zictrl_get_field_ref(
exporting
is_field = <ls_field> " DD-Schnittstelle: Tabellenfelder für DDIF_FIELDINFO_GET
* io_data_changed = " Message Protokoll für Dataentry
is_screen = <ls_screen>
importing
ev_curr_ref = lv_curr_ref " Währungsschlüssel
ev_unit_ref = lv_unit_ref " Basismengeneinheit
).
zictrl_convert_input(
exporting
is_good = ls_good
io_data_changed = er_data_changed
iv_currency = lv_curr_ref
is_field = <ls_field>
importing
ev_value = <lv_value>
ev_error = lv_error_in_data
).
if lv_error_in_data = abap_false.
lv_fn = <ls_field>-fieldname.
call function 'DDUT_INPUT_CHECK'
exporting
tabname = <ls_field>-tabname
fieldname = lv_fn
value_list = <ls_screen>
value = <lv_value>
importing
msgid = sy-msgid " ggf. Nachrichtenklasse der Fehlermeldung
msgty = sy-msgty " ggf. Schwere der Fehlermeldung
msgno = sy-msgno " ggf. Nummer der Fehlermeldung
msgv1 = sy-msgv1 " ggf. erster Parameter für die Fehlermeldung
msgv2 = sy-msgv2 " ggf. zweiter Parameter für die Fehlermeldung
msgv3 = sy-msgv3 " ggf. dritter Parameter für die Fehlermeldung
msgv4 = sy-msgv4 " ggf. vierter Parameter für die Fehlermeldung
value_internal = <lv_value>
exceptions
forkey_not_defined = 1
table_not_active = 2
field_unknown = 3
others = 4.
if sy-msgty ca 'EAF'.
zictrl_put_log_dch( io_data_changed = er_data_changed is_good = ls_good ).
lv_error_in_data = abap_true.
endif.
if zictrl_mo_input_check is bound.
try.
zictrl_mo_input_check->input_validate(
iv_fieldname = lv_fn
iv_value = <lv_value> ).
catch cx_static_check.
zictrl_put_log_dch( io_data_changed = er_data_changed is_good = ls_good ).
lv_error_in_data = abap_true.
endtry.
endif.
endif.
endloop.
* §7.Display application log if an error has occured.
if lv_error_in_data = abap_true.
zictrl_mv_error = abap_true.
call method er_data_changed->display_protocol.
endif.
endmethod.
method zictrl_data_changed_late.
check zictrl_mv_error = abap_false.
try.
if e_modified = abap_true.
zictrl_screen_to_input( ).
raise event lif_ictrl_main~data_has_changed.
clear m_eventid.
else.
if m_eventid = evt_enter.
data lo_control type ref to cl_gui_control.
cl_gui_control=>get_focus(
importing
control = lo_control " Control
exceptions
cntl_error = 1
cntl_system_error = 2
others = 3
).
if sy-subrc = 0.
if lo_control = me.
raise event lif_ictrl_main~enter_pressed.
endif.
endif.
endif.
endif.
catch lcx_ictrl into data(lo_err).
endtry.
endmethod.
method zictrl_screen_to_input.
field-symbols: <lv_value_screen> type any,
<ls_field_refd> type dd03p,
<ls_field> type dd03p,
<ls_input> type gty_s_output,
<ls_input_refd> type gty_s_output,
<lv_value_out> type any,
<ls_screen> type any,
<ls_fa> type gty_s_fieldattr.
data: ls_good type lvc_s_modi,
lv_curr_ref type waers,
lv_unit_ref type meins,
lr_value_out type ref to data,
lv_value type text128,
ls_stable type lvc_s_stbl.
assign mr_data->* to <ls_screen>.
loop at zictrl_mt_fields assigning <ls_field>.
read table zictrl_mt_inputs assigning <ls_input> with key ref_field = <ls_field>-fieldname.
check sy-subrc = 0.
assign component <ls_field>-fieldname of structure <ls_screen> to <lv_value_screen>.
check sy-subrc = 0.
create data lr_value_out like <lv_value_screen>.
assign lr_value_out->* to <lv_value_out>.
<lv_value_out> = <lv_value_screen>.
zictrl_get_field_ref(
exporting
is_field = <ls_field> " DD-Schnittstelle: Tabellenfelder für DDIF_FIELDINFO_GET
* io_data_changed = " Message Protokoll für Dataentry
is_screen = <ls_screen>
importing
ev_curr_ref = lv_curr_ref " Währungsschlüssel
ev_unit_ref = lv_unit_ref " Basismengeneinheit
).
case <ls_field>-datatype.
when 'CURR'.
write <lv_value_out> currency lv_curr_ref to <ls_input>-fieldvalue.
when 'QUAN'.
write <lv_value_out> unit lv_unit_ref to <ls_input>-fieldvalue.
when others.
write <lv_value_out> unit lv_unit_ref to <ls_input>-fieldvalue.
endcase.
shift <ls_input>-fieldvalue left deleting leading space.
if mv_width_descr > 0 and
<ls_field>-domname <> 'XFELD'.
zictrl_description_fill( exporting is_field = <ls_field>
iv_value = <lv_value_screen>
changing cs_input = <ls_input> ).
read table zictrl_mt_fieldattr assigning <ls_fa> with key
fieldname = <ls_field>-fieldname.
if sy-subrc = 0.
if <ls_fa>-description_field is not initial.
zictrl_description_fill_forkey(
exporting is_field = <ls_field>
iv_fn_d = <ls_fa>-description_field
is_screen = <ls_screen>
changing cs_input = <ls_input> ).
endif.
endif.
endif.
endloop.
if iv_refresh = abap_true.
ls_stable-row = abap_true.
ls_stable-col = abap_true.
if zictrl_mv_optimized = abap_true.
data ls_layo type lvc_s_layo.
get_frontend_layout(
importing
es_layout = ls_layo " Layout
).
ls_layo-cwidth_opt = abap_true.
set_frontend_layout( ls_layo ).
endif.
refresh_table_display(
exporting
is_stable = ls_stable " zeilen-/spaltenstabil
i_soft_refresh = abap_true " Ohne Sortierung, Filter, etc.
).
endif.
endmethod.
method zictrl_description_fill.
data: lv_desc type string.
* local data
data:
lo_typedescr type ref to cl_abap_elemdescr,
ls_flddescr type dfies,
lt_values type dd07v_tab.
* get type description of field!
lo_typedescr ?= cl_abap_elemdescr=>describe_by_data( iv_value ).
assert lo_typedescr is bound.
* must be a DDIC object!!
if lo_typedescr->is_ddic_type( ) = abap_false.
return.
endif.
ls_flddescr = lo_typedescr->get_ddic_field( ).
* get name of domain
call function 'DDUT_DOMVALUES_GET'
exporting
name = ls_flddescr-domname
langu = sy-langu
texts_only = abap_false
tables
dd07v_tab = lt_values
exceptions
illegal_input = 1
others = 2.
if sy-subrc <> 0.
return.
endif.
read table lt_values assigning field-symbol(<ls_value>)
with key domvalue_l = iv_value.
if sy-subrc = 0.
cs_input-fielddescr = <ls_value>-ddtext.
endif.
endmethod.
method zictrl_description_fill_forkey.
data: lt_cond_tab type table of ddwherecnd,
lt_selection type table of char200,
lt_t type table of ddwherecnd-checktable,
lr_data type ref to data,
lt_fail type table of ddfkeyrc.
field-symbols: <ls_struc> type any,
<lv_result> type any.
check is_field-checktable is not initial.
clear cs_input-fielddescr.
check not cs_input-fieldvalue = space.
call function 'DDUT_FORKEY_CHECK'
exporting
tabname = is_field-tabname
fieldname = is_field-fieldname
value_list = is_screen
tables
cond_tab = lt_cond_tab
failure_tab = lt_fail.
check lt_fail is initial.
loop at lt_cond_tab assigning field-symbol(<ls_cond>).
append <ls_cond>-line to lt_selection.
collect <ls_cond>-checktable into lt_t.
endloop.
if lt_selection is not initial and lines( lt_t ) = 1.
create data lr_data type (is_field-checktable).
assign lr_data->* to <ls_struc>.
select single * from (is_field-checktable) into <ls_struc> where (lt_selection).
assign component iv_fn_d of structure <ls_struc>
to <lv_result>.
cs_input-fielddescr = <lv_result>.
endif.
endmethod.
method lif_ictrl_main~display.
data ls_layout type lvc_s_layo.
data lt_toolbar_exclude type ui_functions.
ls_layout = value #( edit = cond #( when mv_readonly = abap_false then abap_true )
stylefname = cond #( when mv_readonly = abap_false then 'T_STYLES' )
no_headers = abap_true
sel_mode = 'A'
no_rowins = abap_true
no_rowmark = abap_true
grid_title = zictrl_mv_title
smalltitle = abap_true
ctab_fname = 'T_COLORS'
cwidth_opt = iv_optimized ).
zictrl_mv_optimized = iv_optimized.
zictrl_screen_to_input( abap_false ).
zictrl_build_toolbar_exclude( importing et_tab = lt_toolbar_exclude ).
set_table_for_first_display(
exporting
is_layout = ls_layout " Layout
it_toolbar_excluding = lt_toolbar_exclude " excludierte Toolbarstandardfunktionen
changing
it_outtab = zictrl_mt_inputs " Ausgabetabelle
it_fieldcatalog = zictrl_mt_fieldcat " Feldkatalog
exceptions
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
others = 4
).
if sy-subrc <> 0.
message e000(0k) with 'ERROR displaying table' into sy-msgli.
zictrl_error( ).
endif.
endmethod.
method zictrl_double_click.
assign mr_data->* to field-symbol(<ls_screen>).
read table zictrl_mt_inputs assigning field-symbol(<ls_input>) index es_row_no-row_id.
check sy-subrc = 0.
assign component <ls_input>-ref_field of structure <ls_screen> to field-symbol(<lv_value>).
check sy-subrc = 0.
raise event lif_ictrl_main~double_clicked exporting
ev_fieldname = <ls_input>-ref_field
ev_value = <lv_value>.
endmethod.
method zictrl_f4.
data lt_return type hrreturn_tab.
field-symbols <lt_modcell> type lvc_t_modi.
read table zictrl_mt_inputs assigning field-symbol(<ls_input>) index es_row_no-row_id.
call function 'F4IF_FIELD_VALUE_REQUEST'
exporting
tabname = <ls_input>-ref_table
fieldname = <ls_input>-ref_field
tables
return_tab = lt_return.
read table lt_return assigning field-symbol(<ls_return>) index 1.
if sy-subrc <> 0.
assign er_event_data->m_data->* to <lt_modcell>.
append initial line to <lt_modcell> assigning field-symbol(<ls_modcell>).
<ls_modcell>-row_id = es_row_no-row_id.
<ls_modcell>-fieldname = e_fieldname.
<ls_modcell>-value = <ls_return>-fieldval.
endif.
er_event_data->m_event_handled = abap_true.
endmethod.
method zictrl_fieldcat_build.
clear zictrl_mt_fieldcat.
zictrl_mt_fieldcat =
value #( ( fieldname = 'FIELDLABEL'
rollname = 'SCRTEXT_L'
key = abap_true
outputlen = 15
style = mc_style_disabled )
( fieldname = 'FIELDVALUE'
rollname = 'TEXT128'
edit = cond #( when mv_readonly = abap_false then abap_true )
outputlen = mv_width_value )
( fieldname = 'FIELDDESCR'
rollname = 'TEXT128'
outputlen = mv_width_descr
style = mc_style_disabled ) ).
endmethod.
method zictrl_get_field_ref.
field-symbols <lv_value_ref> type c.
data lr_ref type ref to data.
clear: ev_curr_ref, ev_unit_ref.
if is_field-reftable = is_field-tabname.
if is_field-reffield is not initial.
read table zictrl_mt_fields assigning field-symbol(<ls_field_ref>)
with key fieldname = is_field-reffield.
if sy-subrc = 0.
create data lr_ref type (<ls_field_ref>-rollname).
assign lr_ref->* to <lv_value_ref>.
if io_data_changed is bound.
read table io_data_changed->mt_good_cells assigning field-symbol(<ls_good>) with key
fieldname = <ls_field_ref>-fieldname.
if sy-subrc = 0.
create data lr_ref type (<ls_field_ref>-rollname).
assign lr_ref->* to <lv_value_ref>.
<lv_value_ref> = <ls_good>-value.
else.
assign component <ls_field_ref>-fieldname of structure is_screen to <lv_value_ref>.
endif.
else.
assign component <ls_field_ref>-fieldname of structure is_screen to <lv_value_ref>.
endif.
if <ls_field_ref>-datatype = 'CUKY'.
ev_curr_ref = <lv_value_ref>.
elseif <ls_field_ref>-datatype = 'UNIT'.
ev_unit_ref = <lv_value_ref>.
endif.
endif.
endif.
endif.
endmethod.
method zictrl_hotspot_clicked.
field-symbols <ls_screen> type any.
field-symbols <lv_value> type any.
assign mr_data->* to <ls_screen>.
read table zictrl_mt_inputs assigning field-symbol(<ls_input>) index es_row_no-row_id.
check sy-subrc = 0.
assign component <ls_input>-ref_field of structure <ls_screen> to <lv_value>.
check sy-subrc = 0.
raise event lif_ictrl_main~link_clicked exporting
ev_fieldname = <ls_input>-ref_field
ev_value = <lv_value>.
endmethod.
method zictrl_input_error.
call method io_data_changed->add_protocol_entry
exporting
i_msgid = sy-msgid
i_msgno = sy-msgno
i_msgty = sy-msgty
i_msgv1 = sy-msgv1 "Flugzeugtyp
i_msgv2 = sy-msgv2 "Flugzeugtyp
i_msgv3 = sy-msgv3 "Flugzeugtyp
i_msgv4 = sy-msgv4 "Flugzeugtyp
i_fieldname = is_good-fieldname
i_row_id = is_good-row_id.
endmethod.
method zictrl_input_table_create.
data: ls_style type lvc_s_styl,
ls_scol type lvc_s_scol,
lt_domvalues type dd07v_tab.
clear zictrl_mt_inputs.
* get default field list
call function 'DDIF_TABL_GET'
exporting
name = zictrl_mv_structure_name
state = 'A'
langu = sy-langu
tables
dd03p_tab = zictrl_mt_fields
exceptions
illegal_input = 1
others = 2.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 into sy-msgli.
zictrl_error( ).
endif.
delete zictrl_mt_fields where fieldname = '.INCLUDE'.
loop at zictrl_mt_fields assigning field-symbol(<ls_field>).
if <ls_field>-scrtext_l = space.
<ls_field>-scrtext_l = cond #( when <ls_field>-scrtext_m <> space
then <ls_field>-scrtext_m
else <ls_field>-scrtext_s ).
endif.
if <ls_field>-scrtext_m = space.
<ls_field>-scrtext_m = cond #( when <ls_field>-scrtext_s <> space
then <ls_field>-scrtext_s
else <ls_field>-scrtext_l ).
endif.
if <ls_field>-scrtext_s = space.
<ls_field>-scrtext_s = <ls_field>-scrtext_m .
endif.
try.
data(ls_at) = zictrl_mt_fieldattr[ fieldname = <ls_field>-fieldname ].
catch cx_sy_itab_line_not_found.
clear ls_at.
endtry.
if ls_at-no_display = abap_true.
continue.
endif.
append value #( fieldlabel =
cond #( when ls_at-no_label = abap_false then
switch #(
mv_descr_len
when cv_long_descr then <ls_field>-scrtext_l
when cv_medium_descr then <ls_field>-scrtext_m
when cv_short_descr then <ls_field>-scrtext_s
)
)
ref_field = <ls_field>-fieldname
ref_table = <ls_field>-tabname
t_styles =
cond #( when mv_readonly = abap_false
then value #( ( fieldname = 'FIELDLABEL'
style = mc_style_disabled )
( fieldname = 'FIELDDESCR'
style = mc_style_disabled ) )
)
) to zictrl_mt_inputs
assigning field-symbol(<ls_input>).
call function 'DDUT_DOMVALUES_GET'
exporting
name = <ls_field>-domname
langu = sy-langu
texts_only = abap_true
tables
dd07v_tab = lt_domvalues
exceptions
illegal_input = 1
others = 2.
if sy-subrc <> 0.
return.
endif.
if ( <ls_field>-shlpname is not initial or
lt_domvalues is not initial or
<ls_field>-checktable is not initial or
<ls_field>-datatype = 'DATS' or
<ls_field>-datatype = 'TIMS' ) and
<ls_field>-domname <> 'XFELD' and
mv_readonly = abap_false and
ls_at-readonly = abap_false.
insert value #( fieldname = 'FIELDVALUE' style = mc_style_f4 )
into table <ls_input>-t_styles.
endif.
if <ls_field>-outputlen > mv_width_value.
mv_width_value = <ls_field>-outputlen.
endif.
insert value #(
color = value #(
col = cond #( when mv_readonly = abap_true
then col_key
else col_normal ) )
fname = 'FIELDLABEL' )
into table <ls_input>-t_colors.
if ls_at-readonly = abap_true or
mv_readonly = abap_true.
insert value #( color = value #( col = col_normal )
fname = 'FIELDVALUE' )
into table <ls_input>-t_colors.
endif.
endloop.
endmethod.
method zictrl_put_log_dch.
io_data_changed->add_protocol_entry(
exporting
i_msgid = sy-msgid " Message ID
i_msgty = sy-msgty " Message Typ
i_msgno = sy-msgno " Message Nr.
i_msgv1 = sy-msgv1 " Messagevariable1
i_msgv2 = sy-msgv2 " Messagevariable2
i_msgv3 = sy-msgv3 " Messagevariable3
i_msgv4 = sy-msgv4 " Messagevariable4
i_fieldname = 'FIELDVALUE' " Feldname
i_row_id = is_good-row_id " RowID
).
endmethod.
method zictrl_error.
raise exception type lcx_ictrl
exporting
t100key = value #( msgid = sy-msgid
msgno = sy-msgno
attr1 = 'MV_MESSAGE_V1'
attr2 = 'MV_MESSAGE_V2'
attr3 = 'MV_MESSAGE_V3'
attr4 = 'MV_MESSAGE_V4' )
mv_message_v1 = sy-msgv1
mv_message_v2 = sy-msgv2
mv_message_v3 = sy-msgv3
mv_message_v4 = sy-msgv4.
endmethod.
method lif_ictrl_main~refresh.
zictrl_screen_to_input( ).
endmethod.
method lif_ictrl_main~set_readonly.
mv_readonly = iv_in.
zictrl_fieldcat_build( ).
zictrl_input_table_create( ).
lif_ictrl_main~display( ).
endmethod.
method zictrl_set_style.
include <cl_alv_control>.
field-symbols <ls_field> type dd03p.
data ls_inputs type gty_s_output.
data ls_fieldattr type gty_s_fieldattr.
*
data lv_checkbox type recabool.
loop at mt_data assigning field-symbol(<ls_data>).
if <ls_data>-col_pos = 1.
clear lv_checkbox.
read table zictrl_mt_inputs into ls_inputs index <ls_data>-row_pos.
read table zictrl_mt_fields assigning <ls_field> with key fieldname = ls_inputs-ref_field.
clear ls_fieldattr.
read table zictrl_mt_fieldattr into ls_fieldattr with key fieldname = <ls_field>-fieldname.
if <ls_field>-domname = 'XFELD'.
lv_checkbox = abap_true.
endif.
endif.
if <ls_data>-col_pos = 2.
if lv_checkbox = abap_true.
if <ls_data>-value = abap_true.
<ls_data>-style = alv_style_checkbox_checked.
else.
<ls_data>-style = alv_style_checkbox_not_checked.
endif.
endif.
if ls_fieldattr-readonly = abap_true and mv_readonly = abap_false..
<ls_data>-style = <ls_data>-style + alv_style_disabled.
endif.
if ls_fieldattr-hotspot = abap_true.
<ls_data>-style = <ls_data>-style + alv_style_single_clk_event.
endif.
endif.
endloop.
***************
call method me->set_data_table
changing
data_table = mt_data[].
call method set_auto_redraw
exporting
enable = 1.
endmethod.
endclass.
module status_0001 output.
go_app->controls_init( ).
set pf-status '0001'.
set titlebar '0001'.
endmodule. " STATUS_0001 OUTPUT
module user_command_0001 input.
if gv_ucomm = 'END'.
set screen 0.
leave screen.
endif.
endmodule. " USER_COMMAND_0001 INPUTDynpro source
****************************************************************
* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *
* NEVER CHANGE IT MANUALLY, PLEASE ! *
****************************************************************
%_DYNPRO
ZP_ICTRL_DEMO
0001
740
40
%_HEADER
ZP_ICTRL_DEMO 0001 0001 27120192 37 0 0 27120 0G E 20160806110017
%_DESCRIPTION
Träger für ALV-Eingabemaske
%_FIELDS
CTRL_ALL 120 00 00 00 30 00 1 2 0 0 0 27 U 1 1 101
GV_UCOMM CHAR 20 80 10 00 00 00 255 1 O 0 0 0 0 0 0 ____________________ 00
%_FLOWLOGIC
PROCESS BEFORE OUTPUT.
MODULE STATUS_0001.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0001.
%_PARAMS
- SAP Managed Tags:
2 Comments
| User | Count |
|---|---|
| 5 | |
| 5 | |
| 3 | |
| 3 | |
| 2 | |
| 2 | |
| 2 | |
| 2 | |
| 1 | |
| 1 |
