1
1
CLASS zcl_dbbr_addtext_bl DEFINITION
2
- PUBLIC
3
- FINAL
4
- CREATE PRIVATE .
2
+ PUBLIC FINAL
3
+ CREATE PRIVATE .
5
4
6
5
PUBLIC SECTION .
7
-
8
6
CLASS-METHODS get_instance
9
7
RETURNING
10
- VALUE (rr_instance ) TYPE REF TO zcl_dbbr_addtext_bl .
8
+ VALUE (rr_instance ) TYPE REF TO zcl_dbbr_addtext_bl.
11
9
12
- "! <p class="shorttext synchronized" lang="en" >Check if there is a text field for the given field</p>
10
+ "! <p class="shorttext synchronized">Check if there is a text field for the given field</p>
13
11
METHODS text_exists
14
12
IMPORTING
15
- ! is_data_element_info TYPE dfies
13
+ is_data_element_info TYPE dfies
16
14
RETURNING
17
- VALUE (rf_exists ) TYPE boolean .
18
- "! <p class="shorttext synchronized" lang="en">Retrieve text fields</p>
15
+ VALUE (rf_exists ) TYPE boolean.
16
+
17
+ "! <p class="shorttext synchronized">Retrieve text fields</p>
19
18
METHODS get_text_fields
20
19
IMPORTING
21
- ! iv_tablename TYPE tabname
22
- ! iv_fieldname TYPE fieldname
20
+ iv_tablename TYPE tabname
21
+ iv_fieldname TYPE fieldname
23
22
RETURNING
24
- VALUE (rt_text_info ) TYPE zdbbr_addtext_data_itab .
23
+ VALUE (rt_text_info ) TYPE zdbbr_addtext_data_itab.
24
+
25
25
METHODS add_text_fields_to_list
26
26
IMPORTING
27
27
ir_tabfields TYPE REF TO zcl_dbbr_tabfield_list
28
28
is_ref_tabfield TYPE zdbbr_tabfield_info_ui
29
29
if_post_select TYPE abap_bool OPTIONAL
30
30
iv_position TYPE tabfdpos
31
- is_altcoltext TYPE zdbbr_altcoltext_data .
32
- "! <p class="shorttext synchronized" lang="en">Determines text fields for table (new)</p>
31
+ is_altcoltext TYPE zdbbr_altcoltext_data.
32
+
33
+ "! <p class="shorttext synchronized">Determines text fields for table (new)</p>
33
34
METHODS determine_text_fields
34
35
IMPORTING
35
- iv_entity type zsat_entity_id
36
- iv_entity_type type zsat_entity_type.
36
+ iv_entity TYPE zsat_entity_id
37
+ iv_entity_type TYPE zsat_entity_type.
37
38
38
- "! <p class="shorttext synchronized" lang="en" >Determines manually created text fields for table</p>
39
+ "! <p class="shorttext synchronized">Determines manually created text fields for table</p>
39
40
METHODS determine_manual_text_fields
40
41
IMPORTING
41
42
iv_entity TYPE tabname.
42
- PROTECTED SECTION .
43
+
43
44
PRIVATE SECTION .
44
45
TYPES :
45
46
BEGIN OF ty_text_tab_map,
@@ -57,92 +58,80 @@ CLASS zcl_dbbr_addtext_bl DEFINITION
57
58
DATA mv_id_field TYPE fieldname.
58
59
DATA ms_dtel_info TYPE dfies.
59
60
DATA mr_addtext_factory TYPE REF TO zcl_dbbr_addtext_factory.
61
+
60
62
CLASS-DATA sr_instance TYPE REF TO zcl_dbbr_addtext_bl.
61
63
62
- "! <p class="shorttext synchronized" lang="en" >Create text from manual data</p>
64
+ "! <p class="shorttext synchronized">Create text from manual data</p>
63
65
METHODS create_addtext_from_manual
64
66
IMPORTING
65
67
is_manual_addtext TYPE zdbbr_addtext.
66
68
67
- "! <p class="shorttext synchronized" lang="en" >CONSTRUCTOR</p>
69
+ "! <p class="shorttext synchronized">CONSTRUCTOR</p>
68
70
METHODS constructor.
69
- "! <p class="shorttext synchronized" lang="en" >Delete all existing fields for the given key</p>
71
+ "! <p class="shorttext synchronized">Delete all existing fields for the given key</p>
70
72
METHODS delete_existing_for_key.
71
73
ENDCLASS .
72
74
73
75
74
-
75
76
CLASS zcl_dbbr_addtext_bl IMPLEMENTATION .
76
-
77
77
METHOD add_text_fields_to_list .
78
+ LOOP AT mt_addtext_info ASSIGNING FIELD-SYMBOL (<ls_text_field> ) USING KEY key_for_source WHERE id_table = is_ref_tabfield-tabname
79
+ AND id_field = is_ref_tabfield-fieldname.
78
80
79
- LOOP AT mt_addtext_info ASSIGNING FIELD-SYMBOL (<ls_text_field> ) USING KEY key_for_source WHERE id_table = is_ref_tabfield-tabname
80
- AND id_field = is_ref_tabfield-fieldname.
81
-
82
- IF ( <ls_text_field> -text_field IS NOT INITIAL
83
- OR <ls_text_field> -selection_type = zif_dbbr_c_text_selection_type=>domain_value ).
84
-
85
- DATA (ls_text_tabfield ) = VALUE zdbbr_tabfield_info_ui(
86
- tabname = is_ref_tabfield-tabname
87
- tabname_alias = is_ref_tabfield-tabname_alias
88
- fieldname = is_ref_tabfield-fieldname
89
- fieldname_raw = is_ref_tabfield-fieldname_raw
90
- rollname = is_ref_tabfield-rollname
91
- domname = is_ref_tabfield-domname
92
- is_key = abap_false
93
- is_foreign_key = abap_false
94
- field_ddtext = is_ref_tabfield-field_ddtext
95
- ddic_order = iv_position " text field gets the same ddic position for the moment
96
- selection_active = abap_false " text fields are not selectedable
97
- output_active = abap_false
98
- f4_available = abap_false
99
- is_numeric = abap_false
100
- is_text_field = abap_true
101
- is_virtual_join_field = if_post_select
102
- std_short_text = is_ref_tabfield-std_short_text
103
- std_medium_text = is_ref_tabfield-std_medium_text
104
- std_long_text = is_ref_tabfield-std_long_text
105
- alt_medium_text = is_altcoltext-alt_short_text
106
- alt_long_text = is_altcoltext-alt_long_text
107
- ).
108
- ir_tabfields->add( REF #( ls_text_tabfield ) ).
81
+ IF <ls_text_field> -text_field IS INITIAL
82
+ AND <ls_text_field> -selection_type <> zif_dbbr_c_text_selection_type=>domain_value.
83
+ CONTINUE .
109
84
ENDIF .
110
85
111
- ENDLOOP .
86
+ DATA (ls_text_tabfield ) = VALUE zdbbr_tabfield_info_ui( tabname = is_ref_tabfield-tabname
87
+ tabname_alias = is_ref_tabfield-tabname_alias
88
+ fieldname = is_ref_tabfield-fieldname
89
+ fieldname_raw = is_ref_tabfield-fieldname_raw
90
+ rollname = is_ref_tabfield-rollname
91
+ domname = is_ref_tabfield-domname
92
+ is_key = abap_false
93
+ is_foreign_key = abap_false
94
+ field_ddtext = is_ref_tabfield-field_ddtext
95
+ ddic_order = iv_position " text field gets the same ddic position for the moment
96
+ selection_active = abap_false " text fields are not selectedable
97
+ output_active = abap_false
98
+ f4_available = abap_false
99
+ is_numeric = abap_false
100
+ is_text_field = abap_true
101
+ is_virtual_join_field = if_post_select
102
+ std_short_text = is_ref_tabfield-std_short_text
103
+ std_medium_text = is_ref_tabfield-std_medium_text
104
+ std_long_text = is_ref_tabfield-std_long_text
105
+ alt_medium_text = is_altcoltext-alt_short_text
106
+ alt_long_text = is_altcoltext-alt_long_text ).
107
+ ir_tabfields->add( REF #( ls_text_tabfield ) ).
112
108
109
+ ENDLOOP .
113
110
ENDMETHOD .
114
111
115
-
116
112
METHOD constructor .
117
113
mr_addtext_factory = NEW #( ).
118
114
ENDMETHOD .
119
115
120
-
121
116
METHOD create_addtext_from_manual .
122
117
DATA (ls_manual_addtext ) = CORRESPONDING zdbbr_addtext_data( is_manual_addtext ).
123
- ls_manual_addtext-is_manual = abap_true .
118
+ ls_manual_addtext-is_manual = abap_true .
124
119
ls_manual_addtext-selection_type = zif_dbbr_c_text_selection_type=>text_table.
125
120
126
121
APPEND ls_manual_addtext TO mt_addtext_info.
127
122
ENDMETHOD .
128
123
129
-
130
124
METHOD delete_existing_for_key .
131
- DELETE mt_addtext_info WHERE id_table = mv_id_table
132
- AND id_field = mv_id_field.
125
+ DELETE mt_addtext_info WHERE id_table = mv_id_table
126
+ AND id_field = mv_id_field.
133
127
ENDMETHOD .
134
128
135
-
136
129
METHOD determine_text_fields .
137
- lcl_text_field_reader=>determine_text_fields(
138
- EXPORTING
139
- iv_entity = iv_entity
140
- iv_entity_type = iv_entity_type
141
- CHANGING
142
- ct_addtext = mt_addtext_info ).
130
+ lcl_text_field_reader=>determine_text_fields( EXPORTING iv_entity = iv_entity
131
+ iv_entity_type = iv_entity_type
132
+ CHANGING ct_addtext = mt_addtext_info ).
143
133
ENDMETHOD .
144
134
145
-
146
135
METHOD get_instance .
147
136
IF sr_instance IS INITIAL .
148
137
sr_instance = NEW #( ).
@@ -151,24 +140,22 @@ CLASS zcl_dbbr_addtext_bl IMPLEMENTATION.
151
140
rr_instance = sr_instance.
152
141
ENDMETHOD .
153
142
154
-
155
143
METHOD get_text_fields .
156
144
rt_text_info = FILTER #(
157
145
mt_addtext_info USING KEY key_for_source
158
- WHERE id_table = iv_tablename
159
- AND id_field = iv_fieldname ).
146
+ WHERE id_table = iv_tablename
147
+ AND id_field = iv_fieldname ).
160
148
ENDMETHOD .
161
149
162
-
163
150
METHOD text_exists .
164
- rf_exists = xsdbool ( line_exists ( mt_addtext_info[ KEY key_for_source id_table = is_data_element_info-tabname
165
- id_field = is_data_element_info-fieldname ] ) ).
151
+ rf_exists = xsdbool ( line_exists ( mt_addtext_info[ KEY key_for_source
152
+ id_table = is_data_element_info-tabname
153
+ id_field = is_data_element_info-fieldname ] ) ).
166
154
ENDMETHOD .
167
155
168
-
169
156
METHOD determine_manual_text_fields .
170
- DELETE mt_addtext_info WHERE addtext_id IS NOT INITIAL
171
- AND id_table = iv_entity.
157
+ DELETE mt_addtext_info WHERE addtext_id IS NOT INITIAL
158
+ AND id_table = iv_entity.
172
159
173
160
NEW zcl_dbbr_addtext_factory( )->find_add_texts( EXPORTING iv_id_table = iv_entity
174
161
IMPORTING et_add_texts = DATA (lt_addtext ) ).
@@ -178,6 +165,4 @@ CLASS zcl_dbbr_addtext_bl IMPLEMENTATION.
178
165
<ls_addtext_info> -selection_type = zif_dbbr_c_text_selection_type=>text_table.
179
166
ENDLOOP .
180
167
ENDMETHOD .
181
-
182
-
183
168
ENDCLASS .
0 commit comments