├── .abapgit.xml
├── .github
├── ISSUE_TEMPLATE
│ ├── bug_report.md
│ ├── custom.md
│ └── feature_request.md
└── PULL_REQUEST_TEMPLATE
│ └── PULL_REQUEST_TEMPLATE.md
├── CODE_OF_CONDUCT.md
├── LICENSE
├── README.md
└── src
├── package.devc.xml
├── zcl_html_button.clas.abap
├── zcl_html_button.clas.xml
├── zcl_html_button_cntl.clas.abap
├── zcl_html_button_cntl.clas.xml
├── zcx_dpg_html_btn_not_exists.clas.abap
├── zcx_dpg_html_btn_not_exists.clas.xml
├── zcx_html_button.clas.abap
├── zcx_html_button.clas.xml
├── zcx_html_button_cntl.clas.abap
├── zcx_html_button_cntl.clas.xml
├── zhtml_btn_install.prog.abap
├── zhtml_btn_install.prog.xml
├── zhtml_btn_typess.tobj.xml
├── zhtml_button.fugr.lzhtml_buttonf00.abap
├── zhtml_button.fugr.lzhtml_buttonf00.xml
├── zhtml_button.fugr.lzhtml_buttoni00.abap
├── zhtml_button.fugr.lzhtml_buttoni00.xml
├── zhtml_button.fugr.lzhtml_buttont00.abap
├── zhtml_button.fugr.lzhtml_buttont00.xml
├── zhtml_button.fugr.lzhtml_buttontop.abap
├── zhtml_button.fugr.lzhtml_buttontop.xml
├── zhtml_button.fugr.saplzhtml_button.abap
├── zhtml_button.fugr.saplzhtml_button.xml
├── zhtml_button.fugr.tableframe_zhtml_button.abap
├── zhtml_button.fugr.tableproc_zhtml_button.abap
├── zhtml_button.fugr.xml
├── zhtml_button.msag.xml
├── zhtml_button_demo
├── package.devc.xml
├── zhtml_btn_demo.tran.xml
├── zhtml_button_demo.fugr.lzhtml_button_demof01.abap
├── zhtml_button_demo.fugr.lzhtml_button_demof01.xml
├── zhtml_button_demo.fugr.lzhtml_button_demoi01.abap
├── zhtml_button_demo.fugr.lzhtml_button_demoi01.xml
├── zhtml_button_demo.fugr.lzhtml_button_demoo01.abap
├── zhtml_button_demo.fugr.lzhtml_button_demoo01.xml
├── zhtml_button_demo.fugr.lzhtml_button_demotop.abap
├── zhtml_button_demo.fugr.lzhtml_button_demotop.xml
├── zhtml_button_demo.fugr.saplzhtml_button_demo.abap
├── zhtml_button_demo.fugr.saplzhtml_button_demo.xml
└── zhtml_button_demo.fugr.xml
├── zhtml_colorss.tobj.xml
├── zhtmlbutton_ddic
├── package.devc.xml
├── zcl_html_button_db.clas.abap
├── zcl_html_button_db.clas.macros.abap
├── zcl_html_button_db.clas.xml
├── zhtml_btn_lvc_button.tabl.xml
├── zhtml_btn_lvc_button_tt.ttyp.xml
├── zhtml_btn_pointer.tabl.xml
├── zhtml_btn_pointer_tt.ttyp.xml
├── zhtml_btn_text.dtel.xml
├── zhtml_btn_type.dtel.xml
├── zhtml_btn_types.tabl.xml
├── zhtml_btn_types_key.tabl.xml
├── zhtml_btn_types_tt.ttyp.xml
├── zhtml_button.tabl.xml
├── zhtml_button_fields.tabl.xml
├── zhtml_color_code.dtel.xml
├── zhtml_color_name.dtel.xml
├── zhtml_colors.tabl.xml
├── zhtml_colors_tt.ttyp.xml
└── zhtml_guid.dtel.xml
├── zif_html_button.intf.abap
├── zif_html_button.intf.xml
├── zif_html_button_cntl.intf.abap
└── zif_html_button_cntl.intf.xml
/.abapgit.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 | E
6 | /src/
7 | FULL
8 |
9 |
10 |
11 |
--------------------------------------------------------------------------------
/.github/ISSUE_TEMPLATE/bug_report.md:
--------------------------------------------------------------------------------
1 | ---
2 | <<<<<<< HEAD
3 | name: Bug report
4 | =======
5 | name: Bug report
6 | >>>>>>> refs/heads/master
7 | about: Create a report to help us improve
8 | title: ''
9 | labels: bug
10 | assignees: ''
11 |
12 | ---
13 |
14 | **Describe the bug**
15 | A clear and concise description of what the bug is.
16 |
17 | **To Reproduce**
18 | Steps to reproduce the behavior:
19 | 1. Go to '...'
20 | 2. Click on '....'
21 | 3. Scroll down to '....'
22 | 4. See error
23 |
24 | **Expected behavior**
25 | A clear and concise description of what you expected to happen.
26 |
27 | **Screenshots**
28 | If applicable, add screenshots to help explain your problem.
29 |
30 | **SAP Product Version (please complete the following information):**
31 | -
32 |
33 |
34 | **Additional context**
35 | Add any other context about the problem here.
36 |
--------------------------------------------------------------------------------
/.github/ISSUE_TEMPLATE/custom.md:
--------------------------------------------------------------------------------
1 | ---
2 | name: Custom issue template
3 | about: Describe this issue template's purpose here.
4 | title: ''
5 | labels: ''
6 | assignees: ''
7 |
8 | ---
9 |
10 | <<<<<<< HEAD
11 | =======
12 |
13 | >>>>>>> refs/heads/master
14 |
--------------------------------------------------------------------------------
/.github/ISSUE_TEMPLATE/feature_request.md:
--------------------------------------------------------------------------------
1 | ---
2 | name: Feature request
3 | about: Suggest an idea for this project
4 | title: ''
5 | labels: ''
6 | assignees: ''
7 | <<<<<<< HEAD
8 |
9 | =======
10 |
11 | >>>>>>> refs/heads/master
12 | ---
13 |
14 | **Is your feature request related to a problem? Please describe.**
15 | A clear and concise description of what the problem is. Ex. I'm always frustrated when [...]
16 |
17 | **Describe the solution you'd like**
18 | A clear and concise description of what you want to happen.
19 |
20 | **Describe alternatives you've considered**
21 | A clear and concise description of any alternative solutions or features you've considered.
22 |
23 | **Additional context**
24 | Add any other context or screenshots about the feature request here.
25 |
--------------------------------------------------------------------------------
/.github/PULL_REQUEST_TEMPLATE/PULL_REQUEST_TEMPLATE.md:
--------------------------------------------------------------------------------
1 | ## Status
2 | **READY/IN DEVELOPMENT/HOLD**
3 |
4 | ## Migrations
5 | YES | NO
6 | <<<<<<< HEAD
7 |
8 | =======
9 |
10 | >>>>>>> refs/heads/master
11 | ## Description
12 | A few sentences describing the overall goals of the pull request's commits.
13 |
14 | ## Related PRs
15 | List related PRs against other branches:
16 |
17 | branch | PR
18 | ------ | ------
19 | other_pr_production | [link]()
20 | other_pr_master | [link]()
21 |
22 |
23 | ## Todos
24 | - [ ] Tests
25 | - [ ] Documentation
26 |
27 |
28 | ## Deploy Notes
29 | Notes regarding deployment the contained body of work. These should note any
30 | db migrations, etc.
31 |
32 | ## Steps to Test or Reproduce
33 | Outline the steps to test or reproduce the PR here.
34 |
35 | ```sh
36 | git pull --prune
37 | git checkout
38 | bundle; script/server
39 | ```
40 |
41 | 1.
42 |
43 | ## Impacted Areas in Application
44 | List general components of the application that this PR will affect:
45 |
46 | *
--------------------------------------------------------------------------------
/CODE_OF_CONDUCT.md:
--------------------------------------------------------------------------------
1 | # Contributor Covenant Code of Conduct
2 |
3 | ## Our Pledge
4 |
5 | We as members, contributors, and leaders pledge to make participation in our
6 | community a harassment-free experience for everyone, regardless of age, body
7 | size, visible or invisible disability, ethnicity, sex characteristics, gender
8 | identity and expression, level of experience, education, socio-economic status,
9 | nationality, personal appearance, race, religion, or sexual identity
10 | and orientation.
11 |
12 | We pledge to act and interact in ways that contribute to an open, welcoming,
13 | diverse, inclusive, and healthy community.
14 |
15 | ## Our Standards
16 |
17 | Examples of behavior that contributes to a positive environment for our
18 | community include:
19 |
20 | * Demonstrating empathy and kindness toward other people
21 | * Being respectful of differing opinions, viewpoints, and experiences
22 | * Giving and gracefully accepting constructive feedback
23 | * Accepting responsibility and apologizing to those affected by our mistakes,
24 | and learning from the experience
25 | * Focusing on what is best not just for us as individuals, but for the
26 | overall community
27 |
28 | Examples of unacceptable behavior include:
29 |
30 | * The use of sexualized language or imagery, and sexual attention or
31 | advances of any kind
32 | * Trolling, insulting or derogatory comments, and personal or political attacks
33 | * Public or private harassment
34 | * Publishing others' private information, such as a physical or email
35 | address, without their explicit permission
36 | * Other conduct which could reasonably be considered inappropriate in a
37 | professional setting
38 |
39 | ## Enforcement Responsibilities
40 |
41 | Community leaders are responsible for clarifying and enforcing our standards of
42 | acceptable behavior and will take appropriate and fair corrective action in
43 | response to any behavior that they deem inappropriate, threatening, offensive,
44 | or harmful.
45 |
46 | Community leaders have the right and responsibility to remove, edit, or reject
47 | comments, commits, code, wiki edits, issues, and other contributions that are
48 | not aligned to this Code of Conduct, and will communicate reasons for moderation
49 | decisions when appropriate.
50 |
51 | ## Scope
52 |
53 | This Code of Conduct applies within all community spaces, and also applies when
54 | an individual is officially representing the community in public spaces.
55 | Examples of representing our community include using an official e-mail address,
56 | posting via an official social media account, or acting as an appointed
57 | representative at an online or offline event.
58 |
59 | ## Enforcement
60 |
61 | Instances of abusive, harassing, or otherwise unacceptable behavior may be
62 | reported to the community leaders responsible for enforcement at
63 | .
64 | All complaints will be reviewed and investigated promptly and fairly.
65 |
66 | All community leaders are obligated to respect the privacy and security of the
67 | reporter of any incident.
68 |
69 | ## Enforcement Guidelines
70 |
71 | Community leaders will follow these Community Impact Guidelines in determining
72 | the consequences for any action they deem in violation of this Code of Conduct:
73 |
74 | ### 1. Correction
75 |
76 | **Community Impact**: Use of inappropriate language or other behavior deemed
77 | unprofessional or unwelcome in the community.
78 |
79 | **Consequence**: A private, written warning from community leaders, providing
80 | clarity around the nature of the violation and an explanation of why the
81 | behavior was inappropriate. A public apology may be requested.
82 |
83 | ### 2. Warning
84 |
85 | **Community Impact**: A violation through a single incident or series
86 | of actions.
87 |
88 | **Consequence**: A warning with consequences for continued behavior. No
89 | interaction with the people involved, including unsolicited interaction with
90 | those enforcing the Code of Conduct, for a specified period of time. This
91 | includes avoiding interactions in community spaces as well as external channels
92 | like social media. Violating these terms may lead to a temporary or
93 | permanent ban.
94 |
95 | ### 3. Temporary Ban
96 |
97 | **Community Impact**: A serious violation of community standards, including
98 | sustained inappropriate behavior.
99 |
100 | **Consequence**: A temporary ban from any sort of interaction or public
101 | communication with the community for a specified period of time. No public or
102 | private interaction with the people involved, including unsolicited interaction
103 | with those enforcing the Code of Conduct, is allowed during this period.
104 | Violating these terms may lead to a permanent ban.
105 |
106 | ### 4. Permanent Ban
107 |
108 | **Community Impact**: Demonstrating a pattern of violation of community
109 | standards, including sustained inappropriate behavior, harassment of an
110 | individual, or aggression toward or disparagement of classes of individuals.
111 |
112 | **Consequence**: A permanent ban from any sort of public interaction within
113 | the community.
114 |
115 | ## Attribution
116 |
117 | This Code of Conduct is adapted from the [Contributor Covenant][homepage],
118 | version 2.0, available at
119 | https://www.contributor-covenant.org/version/2/0/code_of_conduct.html.
120 |
121 | Community Impact Guidelines were inspired by [Mozilla's code of conduct
122 | enforcement ladder](https://github.com/mozilla/diversity).
123 |
124 | [homepage]: https://www.contributor-covenant.org
125 |
126 | For answers to common questions about this code of conduct, see the FAQ at
127 | https://www.contributor-covenant.org/faq. Translations are available at
128 | https://www.contributor-covenant.org/translations.
129 |
--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
1 | MIT License
2 |
3 | Copyright (c) 2021 Peter Reinboth
4 |
5 | Permission is hereby granted, free of charge, to any person obtaining a copy
6 | of this software and associated documentation files (the "Software"), to deal
7 | in the Software without restriction, including without limitation the rights
8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
9 | copies of the Software, and to permit persons to whom the Software is
10 | furnished to do so, subject to the following conditions:
11 |
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 |
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
21 | SOFTWARE.
22 |
--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
1 | # abapHtmlButton
2 | HTML button for your sap screen
3 |
4 |
5 | Inspired by and expanded from the book "ABAP Cookbook"
6 |
7 | - Version requirement: 702
8 | - MIT License
9 |
10 | ### Installation
11 | - install via [abapGit](https://github.com/larshp/abapGit)
12 | - install all html colors and demo buttons via report "ZHTML_BTN_INSTALL" (optional)
13 |
14 | ### Customizing
15 | - Colors in DDIC-Tab "ZHTML_COLORS" (Colorname, Hex-Code)
16 | - Buttons in DDIC-Tab "ZHTML_BTN_TYPES" (TYPE, TEXT, Color, FUNC-Code)
17 |
18 |
19 | ### Demo
20 | Transaction "ZHTML_BTN_DEMO"
21 |
--------------------------------------------------------------------------------
/src/package.devc.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | Html Button
7 |
8 |
9 |
10 |
11 |
--------------------------------------------------------------------------------
/src/zcl_html_button.clas.abap:
--------------------------------------------------------------------------------
1 | "! HTML Button
2 | CLASS zcl_html_button DEFINITION
3 | PUBLIC
4 | CREATE PUBLIC .
5 |
6 | PUBLIC SECTION.
7 |
8 | INTERFACES zif_html_button .
9 |
10 | ALIASES get_btn_fields
11 | FOR zif_html_button~get_btn_fields .
12 | ALIASES get_btn_type
13 | FOR zif_html_button~get_btn_type .
14 | ALIASES set_active
15 | FOR zif_html_button~set_active .
16 |
17 | TYPES:
18 | ty_html_table TYPE STANDARD TABLE OF text1000 .
19 |
20 | "! CONSTRUCTOR
21 | METHODS constructor
22 | IMPORTING
23 | !i_btn TYPE zhtml_button .
24 | PROTECTED SECTION.
25 | PRIVATE SECTION.
26 |
27 | DATA mt_events TYPE cntl_simple_events .
28 | DATA:
29 | ms_event LIKE LINE OF mt_events .
30 | DATA:
31 | mt_html TYPE STANDARD TABLE OF text1000
32 | WITH NON-UNIQUE DEFAULT KEY .
33 | DATA:
34 | mv_html LIKE LINE OF mt_html .
35 | DATA mv_url TYPE text1000 .
36 | DATA mv_color TYPE string .
37 | DATA mo_container TYPE REF TO cl_gui_container .
38 | DATA mo_html TYPE REF TO cl_gui_html_viewer .
39 | DATA mv_inactive TYPE char01 .
40 | "! HTML Button
41 | DATA s_btn TYPE zhtml_button .
42 | "! HTML Button Fields
43 | DATA s_btn_fields TYPE zhtml_button_fields .
44 |
45 | METHODS handle_sapevent
46 | FOR EVENT sapevent OF cl_gui_html_viewer
47 | IMPORTING
48 | !action
49 | !frame
50 | !getdata
51 | !postdata
52 | !query_table .
53 | METHODS build_html_code
54 | IMPORTING
55 | !iv_text TYPE clike
56 | !iv_color TYPE clike
57 | !iv_ok_code TYPE clike
58 | CHANGING
59 | !ct_html TYPE ty_html_table .
60 | METHODS read_btn_db
61 | IMPORTING
62 | !i_btn_type TYPE zhtml_button-btn_type .
63 | METHODS set_controls .
64 | METHODS set_btn_color .
65 | ENDCLASS.
66 |
67 |
68 |
69 | CLASS ZCL_HTML_BUTTON IMPLEMENTATION.
70 |
71 |
72 | METHOD build_html_code.
73 | DATA lv_html LIKE LINE OF ct_html.
74 |
75 | CONCATENATE
76 | ''
77 | 'BUTTON '
78 | ''
84 | ''
85 | ''
86 | ' '
89 | ''
90 | INTO lv_html.
91 | APPEND lv_html TO ct_html.
92 |
93 | ENDMETHOD.
94 |
95 |
96 | METHOD constructor.
97 |
98 | DATA: lt_events TYPE cntl_simple_events,
99 | ls_event LIKE LINE OF lt_events,
100 | lt_html TYPE ty_html_table,
101 | lv_url TYPE text1000.
102 |
103 | s_btn = i_btn.
104 |
105 | set_controls( ).
106 |
107 |
108 | *== check if container is bound
109 | CHECK s_btn-container IS BOUND.
110 |
111 | read_btn_db( i_btn-btn_type ).
112 |
113 | set_btn_color( ).
114 |
115 | **== create HTML control
116 | CREATE OBJECT mo_html
117 | EXPORTING
118 | parent = s_btn-container.
119 |
120 | CHECK mo_html IS BOUND.
121 |
122 | *== Register SAPEVENT
123 | CALL METHOD mo_html->get_registered_events
124 | IMPORTING
125 | events = lt_events.
126 | ls_event-eventid = cl_gui_html_viewer=>m_id_sapevent.
127 | ls_event-appl_event = ' '.
128 | READ TABLE lt_events TRANSPORTING NO FIELDS WITH KEY eventid = ls_event-eventid.
129 | IF sy-subrc <> 0.
130 | APPEND ls_event TO lt_events.
131 | mo_html->set_registered_events( lt_events ).
132 | ENDIF.
133 |
134 | SET HANDLER handle_sapevent FOR mo_html.
135 |
136 | *== build HTML code for Button
137 | CALL METHOD build_html_code
138 | EXPORTING
139 | iv_text = s_btn_fields-btn_text
140 | iv_color = s_btn_fields-btn_color
141 | iv_ok_code = s_btn_fields-ok_code
142 | CHANGING
143 | ct_html = lt_html.
144 |
145 | *== load created HTML code into HTML control
146 | CALL METHOD mo_html->load_data
147 | IMPORTING
148 | assigned_url = lv_url
149 | CHANGING
150 | data_table = lt_html.
151 |
152 | *== show HTML page
153 | mo_html->show_url( lv_url ).
154 |
155 | ENDMETHOD.
156 |
157 |
158 | METHOD handle_sapevent.
159 | *== data
160 | DATA ucomm TYPE syucomm.
161 |
162 | *== button active?
163 | CHECK mv_inactive = space.
164 |
165 | *== cast user command
166 | ucomm = action.
167 | *== set user command
168 | cl_gui_cfw=>set_new_ok_code( ucomm ).
169 | ENDMETHOD.
170 |
171 |
172 | METHOD read_btn_db.
173 | SELECT SINGLE * FROM zhtml_btn_types INTO CORRESPONDING FIELDS OF s_btn_fields WHERE type EQ i_btn_type.
174 | ENDMETHOD.
175 |
176 |
177 | METHOD set_btn_color.
178 |
179 | IF s_btn_fields-btn_color IS INITIAL.
180 | *== set default color
181 | s_btn_fields-btn_color = '#F2E1AF'.
182 | ENDIF.
183 |
184 | ENDMETHOD.
185 |
186 |
187 | METHOD set_controls.
188 |
189 | * DATA lr_container TYPE REF TO cl_gui_container.
190 |
191 | IF s_btn-cc_name <> space AND s_btn-container IS INITIAL.
192 | *== create custom container
193 | CREATE OBJECT s_btn-container
194 | TYPE
195 | cl_gui_custom_container
196 | EXPORTING
197 | container_name = s_btn-cc_name.
198 | * ELSE.
199 | **== use given container
200 | * lr_container = s_btn-container.
201 | ENDIF.
202 | ENDMETHOD.
203 |
204 |
205 | METHOD zif_html_button~get_btn_fields.
206 |
207 | ENDMETHOD.
208 |
209 |
210 | METHOD zif_html_button~get_btn_type.
211 |
212 | ENDMETHOD.
213 |
214 |
215 | METHOD zif_html_button~set_active.
216 |
217 | DATA lt_html TYPE ty_html_table.
218 | DATA lv_url TYPE text1000.
219 |
220 | *== set flag for handler
221 | mv_inactive = ''.
222 |
223 | *== build HTML code for Button
224 | CALL METHOD build_html_code
225 | EXPORTING
226 | iv_text = s_btn_fields-btn_text
227 | iv_color = 'grey'
228 | iv_ok_code = s_btn_fields-ok_code
229 | CHANGING
230 | ct_html = lt_html.
231 |
232 | *== load created HTML code into HTML control
233 | CALL METHOD mo_html->load_data
234 | IMPORTING
235 | assigned_url = lv_url
236 | CHANGING
237 | data_table = lt_html.
238 |
239 | *== show HTML page
240 | mo_html->show_url( lv_url ).
241 | ENDMETHOD.
242 |
243 |
244 | method ZIF_HTML_BUTTON~SET_INACTIVE.
245 | DATA lt_html TYPE ty_html_table.
246 | DATA lv_url TYPE text1000.
247 |
248 | *== set flag for handler
249 | mv_inactive = 'X'.
250 |
251 | *== build HTML code for Button
252 | CALL METHOD build_html_code
253 | EXPORTING
254 | iv_text = s_btn_fields-btn_text
255 | iv_color = 'grey'
256 | iv_ok_code = s_btn_fields-ok_code
257 | CHANGING
258 | ct_html = lt_html.
259 |
260 | *== load created HTML code into HTML control
261 | CALL METHOD mo_html->load_data
262 | IMPORTING
263 | assigned_url = lv_url
264 | CHANGING
265 | data_table = lt_html.
266 |
267 | *== show HTML page
268 | mo_html->show_url( lv_url ).
269 | endmethod.
270 | ENDCLASS.
271 |
--------------------------------------------------------------------------------
/src/zcl_html_button.clas.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZCL_HTML_BUTTON
7 | E
8 | HTML Button
9 | 1
10 | X
11 | X
12 | X
13 |
14 |
15 |
16 | ZCL_HTML_BUTTON
17 | CONSTRUCTOR
18 | E
19 | CONSTRUCTOR
20 |
21 |
22 | ZCL_HTML_BUTTON
23 | S_BTN
24 | E
25 | HTML Button
26 |
27 |
28 | ZCL_HTML_BUTTON
29 | S_BTN_FIELDS
30 | E
31 | HTML Button Fields
32 |
33 |
34 |
35 |
36 |
37 |
--------------------------------------------------------------------------------
/src/zcl_html_button_cntl.clas.abap:
--------------------------------------------------------------------------------
1 | "! HTML Button CNTL
2 | CLASS zcl_html_button_cntl DEFINITION
3 | PUBLIC
4 | FINAL
5 | CREATE PUBLIC .
6 |
7 | PUBLIC SECTION.
8 |
9 | INTERFACES zif_appl_object .
10 | INTERFACES zif_html_button_cntl .
11 |
12 | ALIASES appl_type
13 | FOR zif_appl_object~appl_type .
14 | ALIASES o_appl_message
15 | FOR zif_appl_object~o_appl_message .
16 | ALIASES create_btn
17 | FOR zif_html_button_cntl~create_btn .
18 | ALIASES get_appl_type
19 | FOR zif_appl_object~get_appl_type .
20 | ALIASES get_btn_by_guid
21 | FOR zif_html_button_cntl~get_btn_by_guid .
22 | ALIASES set_appl_type
23 | FOR zif_appl_object~set_appl_type .
24 |
25 | "! CONSTRUCTOR
26 | METHODS constructor .
27 | PROTECTED SECTION.
28 | PRIVATE SECTION.
29 |
30 | "! Button Pointer
31 | DATA t_pointer TYPE zhtml_btn_pointer_tt .
32 | DATA o_btn_db TYPE REF TO zif_appl_object_db .
33 |
34 | METHODS get_obj_btn
35 | IMPORTING
36 | !i_btn TYPE zhtml_button
37 | RETURNING
38 | VALUE(ro_button) TYPE REF TO zif_html_button .
39 | ENDCLASS.
40 |
41 |
42 |
43 | CLASS ZCL_HTML_BUTTON_CNTL IMPLEMENTATION.
44 |
45 |
46 | METHOD constructor.
47 |
48 | o_appl_message = zcl_appl_cntl=>get_appl_message( ).
49 |
50 | o_btn_db ?= zcl_appl_cntl=>get_single_obj( 'HTML_BUTTON_DB' ).
51 |
52 | ENDMETHOD.
53 |
54 |
55 | METHOD get_obj_btn.
56 | DATA: lo_button TYPE REF TO zif_html_button,
57 | ls_btn TYPE zhtml_button,
58 | lt_param TYPE abap_parmbind_tab,
59 | ls_param TYPE abap_parmbind,
60 | ls_pointer TYPE zhtml_btn_pointer,
61 | lv_index TYPE sytabix.
62 |
63 | ls_btn = i_btn.
64 |
65 | TRY.
66 | ls_btn-guid = cl_system_uuid=>create_uuid_x16_static( ).
67 | CATCH cx_uuid_error INTO DATA(e_txt).
68 | ENDTRY.
69 |
70 | " Prepare parameter table
71 | ls_param-name = 'I_BTN'.
72 | ls_param-kind = cl_abap_objectdescr=>exporting.
73 | GET REFERENCE OF ls_btn INTO ls_param-value.
74 | INSERT ls_param INTO TABLE lt_param.
75 |
76 | TRY.
77 | CREATE OBJECT lo_button
78 | TYPE ('ZCL_HTML_BUTTON')
79 | PARAMETER-TABLE lt_param.
80 | CATCH cx_sy_create_object_error.
81 | ENDTRY.
82 |
83 | READ TABLE t_pointer ASSIGNING FIELD-SYMBOL() WITH KEY guid = ls_btn-guid.
84 | IF sy-subrc <> 0.
85 | lv_index = sy-tabix.
86 | IF lv_index EQ 0.
87 | lv_index = 1.
88 | ENDIF.
89 | ls_pointer-guid = ls_btn-guid.
90 | ls_pointer-object = lo_button.
91 | INSERT ls_pointer INTO t_pointer INDEX lv_index.
92 | ENDIF.
93 |
94 | ro_button = ls_pointer-object.
95 |
96 | ENDMETHOD.
97 |
98 |
99 | METHOD zif_html_button_cntl~create_btn.
100 |
101 | DATA: lo_button TYPE REF TO zif_html_button.
102 |
103 | lo_button = get_obj_btn( im_btn ).
104 |
105 |
106 | ENDMETHOD.
107 |
108 |
109 | METHOD zif_html_button_cntl~get_btn_by_guid.
110 |
111 |
112 | ENDMETHOD.
113 | ENDCLASS.
114 |
--------------------------------------------------------------------------------
/src/zcl_html_button_cntl.clas.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZCL_HTML_BUTTON_CNTL
7 | E
8 | HTML Button CNTL
9 | 1
10 | X
11 | X
12 | X
13 |
14 |
15 |
16 | ZCL_HTML_BUTTON_CNTL
17 | CONSTRUCTOR
18 | E
19 | CONSTRUCTOR
20 |
21 |
22 | ZCL_HTML_BUTTON_CNTL
23 | O_BTN_DB
24 | E
25 | DB Object
26 |
27 |
28 | ZCL_HTML_BUTTON_CNTL
29 | T_POINTER
30 | E
31 | Button Pointer
32 |
33 |
34 |
35 |
36 |
37 |
--------------------------------------------------------------------------------
/src/zcx_dpg_html_btn_not_exists.clas.abap:
--------------------------------------------------------------------------------
1 | class ZCX_DPG_HTML_BTN_NOT_EXISTS definition
2 | public
3 | inheriting from CX_STATIC_CHECK
4 | final
5 | create public .
6 |
7 | public section.
8 |
9 | interfaces IF_T100_DYN_MSG .
10 | interfaces IF_T100_MESSAGE .
11 |
12 | constants:
13 | begin of ZCX_DPG_HTML_BTN_NOT_EXISTS,
14 | msgid type symsgid value 'ZHTML_BUTTON',
15 | msgno type symsgno value '001',
16 | attr1 type scx_attrname value 'HTML_BTN',
17 | attr2 type scx_attrname value '',
18 | attr3 type scx_attrname value '',
19 | attr4 type scx_attrname value '',
20 | end of ZCX_DPG_HTML_BTN_NOT_EXISTS .
21 | data HTML_BTN type ZHTML_BTN_TYPE .
22 |
23 | methods CONSTRUCTOR
24 | importing
25 | !TEXTID like IF_T100_MESSAGE=>T100KEY optional
26 | !PREVIOUS like PREVIOUS optional
27 | !HTML_BTN type ZHTML_BTN_TYPE optional .
28 | protected section.
29 | private section.
30 | ENDCLASS.
31 |
32 |
33 |
34 | CLASS ZCX_DPG_HTML_BTN_NOT_EXISTS IMPLEMENTATION.
35 |
36 |
37 | method CONSTRUCTOR.
38 | CALL METHOD SUPER->CONSTRUCTOR
39 | EXPORTING
40 | PREVIOUS = PREVIOUS
41 | .
42 | me->HTML_BTN = HTML_BTN .
43 | clear me->textid.
44 | if textid is initial.
45 | IF_T100_MESSAGE~T100KEY = ZCX_DPG_HTML_BTN_NOT_EXISTS .
46 | else.
47 | IF_T100_MESSAGE~T100KEY = TEXTID.
48 | endif.
49 | endmethod.
50 | ENDCLASS.
51 |
--------------------------------------------------------------------------------
/src/zcx_dpg_html_btn_not_exists.clas.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZCX_DPG_HTML_BTN_NOT_EXISTS
7 | E
8 | html button not exists
9 | 40
10 | 1
11 | X
12 | X
13 | X
14 |
15 |
16 |
17 | ZCX_DPG_HTML_BTN_NOT_EXISTS
18 | CONSTRUCTOR
19 | E
20 | CONSTRUCTOR
21 |
22 |
23 | ZCX_DPG_HTML_BTN_NOT_EXISTS
24 | HTML_BTN
25 | E
26 | Html Button Type
27 |
28 |
29 |
30 |
31 |
32 |
--------------------------------------------------------------------------------
/src/zcx_html_button.clas.abap:
--------------------------------------------------------------------------------
1 | class ZCX_HTML_BUTTON definition
2 | public
3 | inheriting from CX_STATIC_CHECK
4 | final
5 | create public .
6 |
7 | public section.
8 |
9 | interfaces IF_T100_DYN_MSG .
10 | interfaces IF_T100_MESSAGE .
11 |
12 | methods CONSTRUCTOR
13 | importing
14 | !TEXTID like IF_T100_MESSAGE=>T100KEY optional
15 | !PREVIOUS like PREVIOUS optional .
16 | protected section.
17 | private section.
18 | ENDCLASS.
19 |
20 |
21 |
22 | CLASS ZCX_HTML_BUTTON IMPLEMENTATION.
23 |
24 |
25 | method CONSTRUCTOR.
26 | CALL METHOD SUPER->CONSTRUCTOR
27 | EXPORTING
28 | PREVIOUS = PREVIOUS
29 | .
30 | clear me->textid.
31 | if textid is initial.
32 | IF_T100_MESSAGE~T100KEY = IF_T100_MESSAGE=>DEFAULT_TEXTID.
33 | else.
34 | IF_T100_MESSAGE~T100KEY = TEXTID.
35 | endif.
36 | endmethod.
37 | ENDCLASS.
38 |
--------------------------------------------------------------------------------
/src/zcx_html_button.clas.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZCX_HTML_BUTTON
7 | E
8 | Exceptions Html Button
9 | 40
10 | 1
11 | X
12 | X
13 | X
14 |
15 |
16 |
17 | ZCX_HTML_BUTTON
18 | CONSTRUCTOR
19 | E
20 | CONSTRUCTOR
21 |
22 |
23 |
24 |
25 |
26 |
--------------------------------------------------------------------------------
/src/zcx_html_button_cntl.clas.abap:
--------------------------------------------------------------------------------
1 | class ZCX_HTML_BUTTON_CNTL definition
2 | public
3 | inheriting from CX_STATIC_CHECK
4 | final
5 | create public .
6 |
7 | public section.
8 |
9 | interfaces IF_T100_DYN_MSG .
10 | interfaces IF_T100_MESSAGE .
11 |
12 | methods CONSTRUCTOR
13 | importing
14 | !TEXTID like IF_T100_MESSAGE=>T100KEY optional
15 | !PREVIOUS like PREVIOUS optional .
16 | protected section.
17 | private section.
18 | ENDCLASS.
19 |
20 |
21 |
22 | CLASS ZCX_HTML_BUTTON_CNTL IMPLEMENTATION.
23 |
24 |
25 | method CONSTRUCTOR.
26 | CALL METHOD SUPER->CONSTRUCTOR
27 | EXPORTING
28 | PREVIOUS = PREVIOUS
29 | .
30 | clear me->textid.
31 | if textid is initial.
32 | IF_T100_MESSAGE~T100KEY = IF_T100_MESSAGE=>DEFAULT_TEXTID.
33 | else.
34 | IF_T100_MESSAGE~T100KEY = TEXTID.
35 | endif.
36 | endmethod.
37 | ENDCLASS.
38 |
--------------------------------------------------------------------------------
/src/zcx_html_button_cntl.clas.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZCX_HTML_BUTTON_CNTL
7 | E
8 | Exceptions Hmtl Button Cntl
9 | 40
10 | 1
11 | X
12 | X
13 | X
14 |
15 |
16 |
17 | ZCX_HTML_BUTTON_CNTL
18 | CONSTRUCTOR
19 | E
20 | CONSTRUCTOR
21 |
22 |
23 |
24 |
25 |
26 |
--------------------------------------------------------------------------------
/src/zhtml_btn_install.prog.abap:
--------------------------------------------------------------------------------
1 | *&---------------------------------------------------------------------*
2 | *& Report ZHTML_BTN_INSTALL
3 | *&---------------------------------------------------------------------*
4 | *&
5 | *&---------------------------------------------------------------------*
6 | REPORT zhtml_btn_install.
7 |
8 | DATA: t_colors TYPE STANDARD TABLE OF zhtml_colors,
9 | t_button_types TYPE STANDARD TABLE OF zhtml_btn_types.
10 |
11 | INITIALIZATION.
12 |
13 |
14 | t_colors = VALUE zhtml_colors_tt(
15 |
16 | ( color_name = 'aliceblue' color_code = '#f0f8ff' )
17 | ( color_name = 'antiquewhite' color_code = '#faebd7' )
18 | ( color_name = 'aquamarine' color_code = '#7fffd4' )
19 | ( color_name = 'azure' color_code = '#f0ffff' )
20 | ( color_name = 'beige' color_code = '#f5f5dc' )
21 | ( color_name = 'bisque' color_code = '#ffe4c4' )
22 | ( color_name = 'black' color_code = '#000000' )
23 | ( color_name = 'blanchedalmond' color_code = '#ffebcd' )
24 | ( color_name = 'blue' color_code = '#0000ff' )
25 | ( color_name = 'blueviolet' color_code = '#8a2be2' )
26 | ( color_name = 'brown' color_code = '#a52a2a' )
27 | ( color_name = 'burlywood' color_code = '#deb887' )
28 | ( color_name = 'cadetblue' color_code = '#5f9ea0' )
29 | ( color_name = 'chartreuse' color_code = '#7fff00' )
30 | ( color_name = 'chocolate' color_code = '#d2691e' )
31 | ( color_name = 'coral' color_code = '#ff7f50' )
32 | ( color_name = 'cornflowerblue' color_code = '#6495ed' )
33 | ( color_name = 'cornsilk' color_code = '#fff8dc' )
34 | ( color_name = 'crimson' color_code = '#dc143c' )
35 | ( color_name = 'cyan' color_code = '#00ffff' )
36 | ( color_name = 'darkblue' color_code = '#00008b' )
37 | ( color_name = 'darkcyan' color_code = '#008b8b' )
38 | ( color_name = 'darkgoldenrod' color_code = '#b8860b' )
39 | ( color_name = 'darkgreen' color_code = '#006400' )
40 | ( color_name = 'darkgrey' color_code = '#a9a9a9' )
41 | ( color_name = 'darkkhaki' color_code = '#bdb76b' )
42 | ( color_name = 'darkmagenta' color_code = '#8b008b' )
43 | ( color_name = 'darkolivegreen' color_code = '#556b2f' )
44 | ( color_name = 'darkorange' color_code = '#ff8c00' )
45 | ( color_name = 'darkorchid' color_code = '#9932cc' )
46 | ( color_name = 'darkred' color_code = '#8b0000' )
47 | ( color_name = 'darksalmon' color_code = '#e9967a' )
48 | ( color_name = 'darkseagreen' color_code = '#8fbc8f' )
49 | ( color_name = 'darkslateblue' color_code = '#483d8b' )
50 | ( color_name = 'darkslategrey' color_code = '#2f4f4f' )
51 | ( color_name = 'darkturquoise' color_code = '#00ced1' )
52 | ( color_name = 'darkviolet' color_code = '#9400d3' )
53 | ( color_name = 'deeppink' color_code = '#ff1493' )
54 | ( color_name = 'deepskyblue' color_code = '#00bfff' )
55 | ( color_name = 'dimgray' color_code = '#696969' )
56 | ( color_name = 'dodgerblue' color_code = '#1e90ff' )
57 | ( color_name = 'firebrick' color_code = '#b22222' )
58 | ( color_name = 'floralwhite' color_code = '#fffaf0' )
59 | ( color_name = 'forestgreen' color_code = '#228b22' )
60 | ( color_name = 'gainsboro' color_code = '#dcdcdc' )
61 | ( color_name = 'ghostwhite' color_code = '#f8f8ff' )
62 | ( color_name = 'gold' color_code = '#ffd700' )
63 | ( color_name = 'goldenrod' color_code = '#daa520' )
64 | ( color_name = 'green' color_code = '#008000' )
65 | ( color_name = 'greenyellow' color_code = '#adff2f' )
66 | ( color_name = 'grey' color_code = '#808080' )
67 | ( color_name = 'honeydew' color_code = '#f0fff0' )
68 | ( color_name = 'hotpink' color_code = '#ff69b4' )
69 | ( color_name = 'indianred' color_code = '#cd5c5c' )
70 | ( color_name = 'indigo' color_code = '#4b0082' )
71 | ( color_name = 'ivory' color_code = '#fffff0' )
72 | ( color_name = 'khaki' color_code = '#f0e68c' )
73 | ( color_name = 'lavender' color_code = '#e6e6fa' )
74 | ( color_name = 'lavenderblush' color_code = '#fff0f5' )
75 | ( color_name = 'lawngreen' color_code = '#7cfc00' )
76 | ( color_name = 'lemonchiffon' color_code = '#fffacd' )
77 | ( color_name = 'lightblue' color_code = '#add8e6' )
78 | ( color_name = 'lightcoral' color_code = '#f08080' )
79 | ( color_name = 'lightcyan' color_code = '#e0ffff' )
80 | ( color_name = 'lightgoldenrodyellow' color_code = '#fafad2' )
81 | ( color_name = 'lightgreen' color_code = '#90ee90' )
82 | ( color_name = 'lightgrey' color_code = '#d3d3d3' )
83 | ( color_name = 'lightpink' color_code = '#ffb6c1' )
84 | ( color_name = 'lightsalmon' color_code = '#ffa07a' )
85 | ( color_name = 'lightseagreen' color_code = '#20b2aa' )
86 | ( color_name = 'lightskyblue' color_code = '#87cefa' )
87 | ( color_name = 'lightslategray' color_code = '#778899' )
88 | ( color_name = 'lightsteelblue' color_code = '#b0c4de' )
89 | ( color_name = 'lightyellow' color_code = '#ffffe0' )
90 | ( color_name = 'lime' color_code = '#00ff00' )
91 | ( color_name = 'limegreen' color_code = '#32cd32' )
92 | ( color_name = 'linen' color_code = '#faf0e6' )
93 | ( color_name = 'magenta' color_code = '#ff00ff' )
94 | ( color_name = 'maroon' color_code = '#800000' )
95 | ( color_name = 'mediumaquamarine' color_code = '#66cdaa' )
96 | ( color_name = 'mediumblue' color_code = '#0000cd' )
97 | ( color_name = 'mediumorchid' color_code = '#ba55d3' )
98 | ( color_name = 'mediumpurple' color_code = '#9370db' )
99 | ( color_name = 'mediumseagreen' color_code = '#3cb371' )
100 | ( color_name = 'mediumslateblue' color_code = '#7b68ee' )
101 | ( color_name = 'mediumspringgreen' color_code = '#00fa9a' )
102 | ( color_name = 'mediumturquoise' color_code = '#48d1cc' )
103 | ( color_name = 'mediumvioletred' color_code = '#c71585' )
104 | ( color_name = 'midnightblue' color_code = '#191970' )
105 | ( color_name = 'mintcream' color_code = '#f5fffa' )
106 | ( color_name = 'mistyrose' color_code = '#ffe4e1' )
107 | ( color_name = 'moccasin' color_code = '#ffe4b5' )
108 | ( color_name = 'navajowhite' color_code = '#ffdead' )
109 | ( color_name = 'navy' color_code = '#000080' )
110 | ( color_name = 'oldlace' color_code = '#fdf5e6' )
111 | ( color_name = 'olive' color_code = '#808000' )
112 | ( color_name = 'olivedrab' color_code = '#6b8e23' )
113 | ( color_name = 'orange' color_code = '#ffa500' )
114 | ( color_name = 'orangered' color_code = '#ff4500' )
115 | ( color_name = 'orchid' color_code = '#da70d6' )
116 | ( color_name = 'palegoldenrod' color_code = '#eee8aa' )
117 | ( color_name = 'palegreen' color_code = '#98fb98' )
118 | ( color_name = 'paleturquoise' color_code = '#afeeee' )
119 | ( color_name = 'palevioletred' color_code = '#db7093' )
120 | ( color_name = 'papayawhip' color_code = '#ffefd5' )
121 | ( color_name = 'peachpuff' color_code = '#ffdab9' )
122 | ( color_name = 'peru' color_code = '#cd853f' )
123 | ( color_name = 'pink' color_code = '#ffc0cb' )
124 | ( color_name = 'plum' color_code = '#dda0dd' )
125 | ( color_name = 'powderblue' color_code = '#b0e0e6' )
126 | ( color_name = 'purple' color_code = '#800080' )
127 | ( color_name = 'RebeccaPurple' color_code = '#663399' )
128 | ( color_name = 'red' color_code = '#ff0000' )
129 | ( color_name = 'rosybrown' color_code = '#bc8f8f' )
130 | ( color_name = 'royalblue' color_code = '#4169e1' )
131 | ( color_name = 'saddlebrown' color_code = '#8b4513' )
132 | ( color_name = 'salmon' color_code = '#fa8072' )
133 | ( color_name = 'sandybrown' color_code = '#f4a460' )
134 | ( color_name = 'seagreen' color_code = '#2e8b57' )
135 | ( color_name = 'seashell' color_code = '#fff5ee' )
136 | ( color_name = 'sienna' color_code = '#a0522d' )
137 | ( color_name = 'silver' color_code = '#c0c0c0' )
138 | ( color_name = 'skyblue' color_code = '#87ceeb' )
139 | ( color_name = 'slateblue' color_code = '#6a5acd' )
140 | ( color_name = 'slategray' color_code = '#708090' )
141 | ( color_name = 'snow' color_code = '#fffafa' )
142 | ( color_name = 'springgreen' color_code = '#00ff7f' )
143 | ( color_name = 'steelblue' color_code = '#4682b4' )
144 | ( color_name = 'tan' color_code = '#d2b48c' )
145 | ( color_name = 'teal' color_code = '#008080' )
146 | ( color_name = 'thistle' color_code = '#d8bfd8' )
147 | ( color_name = 'tomato' color_code = '#ff6347' )
148 | ( color_name = 'turquoise' color_code = '#40e0d0' )
149 | ( color_name = 'violet' color_code = '#ee82ee' )
150 | ( color_name = 'wheat' color_code = '#f5deb3' )
151 | ( color_name = 'white' color_code = '#ffffff' )
152 | ( color_name = 'whitesmoke' color_code = '#f5f5f5' )
153 | ( color_name = 'yellow' color_code = '#ffff00' )
154 | ( color_name = 'yellowgreen' color_code = '#9acd32' )
155 |
156 | ).
157 |
158 | LOOP AT t_colors ASSIGNING FIELD-SYMBOL().
159 | TRANSLATE -color_name TO UPPER CASE.
160 | TRANSLATE -color_code TO UPPER CASE.
161 | ENDLOOP.
162 |
163 | t_button_types = VALUE zhtml_btn_types_tt(
164 |
165 | ( type ='DEMO1' btn_text ='DEMO 1' btn_color ='BROWN' ok_code = 'DEMO1' )
166 | ( type ='DEMO2' btn_text ='DEMO 2' btn_color ='CORAL' ok_code = 'DEMO2' )
167 | ( type ='DEMO3' btn_text ='DEMO 3' btn_color ='OLDLACE' ok_code = 'DEMO3' )
168 | ( type ='DEMO4' btn_text ='DEMO 4' btn_color ='GOLD' ok_code = 'DEMO4' )
169 | ( type ='DEMO5' btn_text ='DEMO 5' btn_color ='TOMATO' ok_code = 'DEMO5' )
170 | ( type ='DEMO6' btn_text ='DEMO 6' btn_color ='VIOLET' ok_code = 'DEMO6' )
171 | ( type ='DEMO7' btn_text ='DEMO 7' btn_color ='LIGHTBLUE' ok_code = 'DEMO7' )
172 | ).
173 |
174 |
175 | START-OF-SELECTION.
176 | DELETE FROM zhtml_colors.
177 | MODIFY zhtml_colors FROM TABLE t_colors.
178 |
179 | MODIFY zhtml_btn_types FROM TABLE t_button_types.
180 |
--------------------------------------------------------------------------------
/src/zhtml_btn_install.prog.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_INSTALL
7 | 1
8 | E
9 | X
10 | X
11 |
12 |
13 | -
14 |
R
15 | first install Html Button
16 | 25
17 |
18 |
19 |
20 |
21 |
22 |
--------------------------------------------------------------------------------
/src/zhtml_btn_typess.tobj.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_TYPES
7 | S
8 | X
9 | CUST
10 | 3
11 |
12 |
13 | E
14 | ZHTML_BTN_TYPES
15 | S
16 | HMTL Button Types
17 |
18 |
19 |
20 | ZHTML_BTN_TYPES
21 | S
22 | ZHTML_BTN_TYPES
23 | X
24 | X
25 |
26 |
27 |
28 |
29 | ZHTML_BTN_TYPES
30 | &NC&
31 |
32 |
33 | ZHTML_BTN_TYPES
34 | ZHTML_BUTTON
35 | ZHTMLBUTTON
36 | 1
37 | 0002
38 | X
39 | X
40 |
41 |
42 |
43 |
44 |
45 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.lzhtml_buttonf00.abap:
--------------------------------------------------------------------------------
1 | *---------------------------------------------------------------------*
2 | * view related FORM routines
3 | *---------------------------------------------------------------------*
4 |
5 | * base table related FORM-routines.............
6 | INCLUDE LSVIMFTX .
7 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.lzhtml_buttonf00.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | LZHTML_BUTTONF00
7 | X
8 | I
9 | E
10 |
11 |
12 |
13 |
14 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.lzhtml_buttoni00.abap:
--------------------------------------------------------------------------------
1 | *---------------------------------------------------------------------*
2 | * view related PAI modules
3 | *---------------------------------------------------------------------*
4 |
5 | INCLUDE LSVIMITX . "base table related PAI modules
6 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.lzhtml_buttoni00.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | LZHTML_BUTTONI00
7 | X
8 | I
9 | E
10 |
11 |
12 |
13 |
14 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.lzhtml_buttont00.abap:
--------------------------------------------------------------------------------
1 | *---------------------------------------------------------------------*
2 | * view related data declarations
3 | *---------------------------------------------------------------------*
4 | *...processing: ZHTML_BTN_TYPES.................................*
5 | DATA: BEGIN OF STATUS_ZHTML_BTN_TYPES . "state vector
6 | INCLUDE STRUCTURE VIMSTATUS.
7 | DATA: END OF STATUS_ZHTML_BTN_TYPES .
8 | CONTROLS: TCTRL_ZHTML_BTN_TYPES
9 | TYPE TABLEVIEW USING SCREEN '0002'.
10 | *...processing: ZHTML_COLORS....................................*
11 | DATA: BEGIN OF STATUS_ZHTML_COLORS . "state vector
12 | INCLUDE STRUCTURE VIMSTATUS.
13 | DATA: END OF STATUS_ZHTML_COLORS .
14 | CONTROLS: TCTRL_ZHTML_COLORS
15 | TYPE TABLEVIEW USING SCREEN '0001'.
16 | *.........table declarations:.................................*
17 | TABLES: *ZHTML_BTN_TYPES .
18 | TABLES: *ZHTML_COLORS .
19 | TABLES: ZHTML_BTN_TYPES .
20 | TABLES: ZHTML_COLORS .
21 |
22 | * general table data declarations..............
23 | INCLUDE LSVIMTDT .
24 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.lzhtml_buttont00.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | LZHTML_BUTTONT00
7 | I
8 | E
9 |
10 |
11 |
12 |
13 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.lzhtml_buttontop.abap:
--------------------------------------------------------------------------------
1 | * regenerated at 30.08.2021 10:53:50
2 | FUNCTION-POOL ZHTML_BUTTON MESSAGE-ID SV.
3 |
4 | * INCLUDE LZHTML_BUTTOND... " Local class definition
5 | INCLUDE LSVIMDAT . "general data decl.
6 | INCLUDE LZHTML_BUTTONT00 . "view rel. data dcl.
7 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.lzhtml_buttontop.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | LZHTML_BUTTONTOP
7 | S
8 | D$
9 | I
10 | S
11 | X
12 | D$S
13 | X
14 |
15 |
16 |
17 |
18 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.saplzhtml_button.abap:
--------------------------------------------------------------------------------
1 | * regenerated at 30.08.2021 10:53:50
2 | *******************************************************************
3 | * System-defined Include-files. *
4 | *******************************************************************
5 | INCLUDE LZHTML_BUTTONTOP. " Global Declarations
6 | INCLUDE LZHTML_BUTTONUXX. " Function Modules
7 |
8 | *******************************************************************
9 | * User-defined Include-files (if necessary). *
10 | *******************************************************************
11 | * INCLUDE LZHTML_BUTTONF... " Subroutines
12 | * INCLUDE LZHTML_BUTTONO... " PBO-Modules
13 | * INCLUDE LZHTML_BUTTONI... " PAI-Modules
14 | * INCLUDE LZHTML_BUTTONE... " Events
15 | * INCLUDE LZHTML_BUTTONP... " Local class implement.
16 | * INCLUDE LZHTML_BUTTONT99. " ABAP Unit tests
17 | INCLUDE LZHTML_BUTTONF00 . " subprograms
18 | INCLUDE LZHTML_BUTTONI00 . " PAI modules
19 | INCLUDE LSVIMFXX . " subprograms
20 | INCLUDE LSVIMOXX . " PBO modules
21 | INCLUDE LSVIMIXX . " PAI modules
22 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.saplzhtml_button.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | SAPLZHTML_BUTTON
7 | X
8 | S
9 | D$
10 | F
11 | S
12 | E
13 | X
14 | D$S
15 | X
16 |
17 |
18 |
19 |
20 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.tableframe_zhtml_button.abap:
--------------------------------------------------------------------------------
1 | *---------------------------------------------------------------------*
2 | * program for: TABLEFRAME_ZHTML_BUTTON
3 | * generation date: 30.08.2021 at 11:01:38
4 | * view maintenance generator version: #001407#
5 | *---------------------------------------------------------------------*
6 | FUNCTION TABLEFRAME_ZHTML_BUTTON .
7 |
8 | PERFORM TABLEFRAME TABLES X_HEADER X_NAMTAB DBA_SELLIST DPL_SELLIST
9 | EXCL_CUA_FUNCT
10 | USING CORR_NUMBER VIEW_ACTION VIEW_NAME.
11 |
12 | ENDFUNCTION.
13 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.tableproc_zhtml_button.abap:
--------------------------------------------------------------------------------
1 | *---------------------------------------------------------------------*
2 | * program for: TABLEPROC_ZHTML_BUTTON
3 | * generation date: 30.08.2021 at 11:01:38
4 | * view maintenance generator version: #001407#
5 | *---------------------------------------------------------------------*
6 | FUNCTION TABLEPROC_ZHTML_BUTTON .
7 |
8 | PERFORM TABLEPROC.
9 |
10 | ENDFUNCTION.
11 |
--------------------------------------------------------------------------------
/src/zhtml_button.fugr.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 | Extended Table Maintenance (Generated)
6 |
7 | LZHTML_BUTTONF00
8 | LZHTML_BUTTONI00
9 | LZHTML_BUTTONT00
10 | LZHTML_BUTTONTOP
11 | SAPLZHTML_BUTTON
12 |
13 |
14 | -
15 |
TABLEFRAME_ZHTML_BUTTON
16 | Extended Table Maintenance: Upper Level
17 |
18 |
19 | VIEW_ACTION
20 | 'S'
21 |
22 |
23 | VIEW_NAME
24 | DD02V-TABNAME
25 |
26 |
27 | CORR_NUMBER
28 | E070-TRKORR
29 | ' '
30 |
31 |
32 |
33 |
34 | DBA_SELLIST
35 | VIMSELLIST
36 |
37 |
38 | DPL_SELLIST
39 | VIMSELLIST
40 |
41 |
42 | EXCL_CUA_FUNCT
43 | VIMEXCLFUN
44 |
45 |
46 | X_HEADER
47 | VIMDESC
48 |
49 |
50 | X_NAMTAB
51 | VIMNAMTAB
52 |
53 |
54 |
55 |
56 | MISSING_CORR_NUMBER
57 |
58 |
59 |
60 |
61 | VIEW_ACTION
62 | P
63 | Aktion mit Tabelle: anz./änd./transp. (S/U/T)
64 |
65 |
66 | VIEW_NAME
67 | P
68 | Name der Tabelle
69 |
70 |
71 | CORR_NUMBER
72 | P
73 | Korrekturnummer für durchgeführte Änderungen
74 |
75 |
76 | DBA_SELLIST
77 | P
78 | Selektionsbedingungen für den DB-Zugriff
79 |
80 |
81 | DPL_SELLIST
82 | P
83 | Selektionsbedingungen für die Anzeige
84 |
85 |
86 | EXCL_CUA_FUNCT
87 | P
88 | Tabelle mit dynam. zu deaktivierenden CUA-Funkt.
89 |
90 |
91 | X_HEADER
92 | P
93 | Kontrollblocktabelle für die Tabelle
94 |
95 |
96 | X_NAMTAB
97 | P
98 | Kontrollblocktabelle für die Tabellen-Felder
99 |
100 |
101 | MISSING_CORR_NUMBER
102 | X
103 | Korrekturnummer fehlt
104 |
105 |
106 |
107 | -
108 |
TABLEPROC_ZHTML_BUTTON
109 | X
110 | Lower-level extended table maintenance
111 |
112 |
113 | FCODE
114 | 'RDED'
115 |
116 |
117 | VIEW_ACTION
118 | 'S'
119 |
120 |
121 | VIEW_NAME
122 | DD02V-TABNAME
123 |
124 |
125 | CORR_NUMBER
126 | E070-TRKORR
127 | ' '
128 |
129 |
130 |
131 |
132 | LAST_ACT_ENTRY
133 |
134 |
135 | UCOMM
136 |
137 |
138 | UPDATE_REQUIRED
139 |
140 |
141 |
142 |
143 | CORR_KEYTAB
144 | E071K
145 |
146 |
147 | DBA_SELLIST
148 | VIMSELLIST
149 |
150 |
151 | DPL_SELLIST
152 | VIMSELLIST
153 |
154 |
155 | EXCL_CUA_FUNCT
156 | VIMEXCLFUN
157 |
158 |
159 | EXTRACT
160 |
161 |
162 | TOTAL
163 |
164 |
165 | X_HEADER
166 | VIMDESC
167 |
168 |
169 | X_NAMTAB
170 | VIMNAMTAB
171 |
172 |
173 |
174 |
175 | MISSING_CORR_NUMBER
176 |
177 |
178 | SAVING_CORRECTION_FAILED
179 |
180 |
181 |
182 |
183 | FCODE
184 | P
185 | gewünschte Funktion des Bausteins
186 |
187 |
188 | VIEW_ACTION
189 | P
190 | Aktion mit Tabelle: anz./änd./transp. (S/U/T)
191 |
192 |
193 | VIEW_NAME
194 | P
195 | Name der Tabelle
196 |
197 |
198 | CORR_NUMBER
199 | P
200 | Korrekturnummer für durchgeführte Änderungen
201 |
202 |
203 | LAST_ACT_ENTRY
204 | P
205 | Index der Cursorposition in der Anzeigetabelle
206 |
207 |
208 | UCOMM
209 | P
210 | letztes User-command innerhalb der Viewpflege
211 |
212 |
213 | UPDATE_REQUIRED
214 | P
215 | Flag: Einträge verändert, Sichern erforderlich
216 |
217 |
218 | CORR_KEYTAB
219 | P
220 | Tabelle mit den Keys der zu transport. Einträge
221 |
222 |
223 | DBA_SELLIST
224 | P
225 | Selektionsbedingungen für den DB-Zugriff
226 |
227 |
228 | DPL_SELLIST
229 | P
230 | Selektionsbedingungen für die Anzeige
231 |
232 |
233 | EXCL_CUA_FUNCT
234 | P
235 | Tab. der nicht zu aktivierenden CUA-Funktionen
236 |
237 |
238 | EXTRACT
239 | P
240 | Tab. der gerade sichtbaren Daten (Anzeigetabelle
241 |
242 |
243 | TOTAL
244 | P
245 | Tabelle, mit allen von der DB gelesenen Daten
246 |
247 |
248 | X_HEADER
249 | P
250 | Kontrollblocktabelle für die Tabelle
251 |
252 |
253 | X_NAMTAB
254 | P
255 | Kontrollblocktabelle für die Tabellen-Felder
256 |
257 |
258 | MISSING_CORR_NUMBER
259 | X
260 | Korrekturnummer fehlt
261 |
262 |
263 | SAVING_CORRECTION_FAILED
264 | X
265 | Fehler beim Sichern der Korrektureinträge
266 |
267 |
268 |
269 |
270 |
271 | -
272 |
273 | SAPLZHTML_BUTTON
274 | 0001
275 | E
276 | View Maintenance: Overview Screen ZHTML_COLORS
277 | N
278 | 0001
279 | 061
280 | 255
281 |
282 |
283 |
284 | SCREEN
285 | SCREEN
286 |
287 |
288 | TABLE_CTRL
289 | TCTRL_ZHTML_COLORS
290 | SCREEN
291 | 001
292 | 001
293 | 255
294 | 059
295 | X
296 | X
297 | X
298 | X
299 | ENTRY
300 | X
301 | X
302 | X
303 | X
304 | X
305 | MULTIPLE
306 | NONE
307 | X
308 | 002
309 |
310 |
311 |
312 |
313 | SCREEN
314 | SCREEN
315 | PUSH_TMPL
316 | VIM_POSI_PUSH
317 | ____________________
318 | 061
319 | 019
320 | 020
321 | 020
322 | 001
323 | POSI
324 | CHAR
325 | X
326 | N
327 |
328 |
329 | SCREEN
330 | SCREEN
331 | TEMPLATE
332 | VIM_POSITION_INFO
333 | ______________________________
334 | 061
335 | 040
336 | 030
337 | 030
338 | 001
339 | CHAR
340 | X
341 | X
342 | X
343 | N
344 | <_--32_DIMENS>X
345 |
346 |
347 | SCREEN
348 | SCREEN
349 | OKCODE
350 | OK_CODE
351 | ____________________
352 | 020
353 | 020
354 | 001
355 | CHAR
356 | X
357 |
358 |
359 | TABLE_CTRL
360 | TCTRL_ZHTML_COLORS
361 | TEMPLATE
362 | VIM_FRAME_FIELD
363 | ____________________________________________________________
364 | 001
365 | 060
366 | 060
367 | 001
368 | CHAR
369 | X
370 | X
371 | N
372 | X
373 |
374 |
375 | TABLE_CTRL
376 | TCTRL_ZHTML_COLORS
377 | TEXT
378 | *ZHTML_COLORS-COLOR_NAME
379 | Color_Name______________________________
380 | 001
381 | 001
382 | 040
383 | 030
384 | 001
385 | CHAR
386 | X
387 | V
388 | N
389 | X
390 |
391 |
392 | TABLE_CTRL
393 | TCTRL_ZHTML_COLORS
394 | TEXT
395 | *ZHTML_COLORS-COLOR_CODE
396 | Color_Code______________________________
397 | 001
398 | 002
399 | 040
400 | 010
401 | 001
402 | CHAR
403 | X
404 | 1
405 | N
406 | X
407 |
408 |
409 | TABLE_CTRL
410 | TCTRL_ZHTML_COLORS
411 | CHECK
412 | VIM_MARKED
413 | 001
414 | 001
415 | 001
416 | 001
417 | CHAR
418 | X
419 | X
420 | X
421 |
422 |
423 | TABLE_CTRL
424 | TCTRL_ZHTML_COLORS
425 | TEMPLATE
426 | ZHTML_COLORS-COLOR_NAME
427 | ______________________________
428 | 001
429 | 001
430 | 030
431 | 030
432 | 001
433 | KEY
434 | CHAR
435 | X
436 | X
437 | X
438 | N
439 |
440 |
441 | TABLE_CTRL
442 | TCTRL_ZHTML_COLORS
443 | TEMPLATE
444 | ZHTML_COLORS-COLOR_CODE
445 | ________
446 | 001
447 | 002
448 | 008
449 | 010
450 | 001
451 | KEY
452 | CHAR
453 | X
454 | X
455 | X
456 | N
457 |
458 |
459 |
460 |
461 | PROCESS BEFORE OUTPUT.
462 |
463 |
464 | MODULE LISTE_INITIALISIEREN.
465 |
466 |
467 | LOOP AT EXTRACT WITH CONTROL
468 |
469 |
470 | TCTRL_ZHTML_COLORS CURSOR NEXTLINE.
471 |
472 |
473 | MODULE LISTE_SHOW_LISTE.
474 |
475 |
476 | ENDLOOP.
477 |
478 |
479 | *
480 |
481 |
482 | PROCESS AFTER INPUT.
483 |
484 |
485 | MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND.
486 |
487 |
488 | MODULE LISTE_BEFORE_LOOP.
489 |
490 |
491 | LOOP AT EXTRACT.
492 |
493 |
494 | MODULE LISTE_INIT_WORKAREA.
495 |
496 |
497 | CHAIN.
498 |
499 |
500 | FIELD ZHTML_COLORS-COLOR_NAME .
501 |
502 |
503 | FIELD ZHTML_COLORS-COLOR_CODE .
504 |
505 |
506 | MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST.
507 |
508 |
509 | ENDCHAIN.
510 |
511 |
512 | FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX.
513 |
514 |
515 | CHAIN.
516 |
517 |
518 | FIELD ZHTML_COLORS-COLOR_NAME .
519 |
520 |
521 | FIELD ZHTML_COLORS-COLOR_CODE .
522 |
523 |
524 | MODULE LISTE_UPDATE_LISTE.
525 |
526 |
527 | ENDCHAIN.
528 |
529 |
530 | ENDLOOP.
531 |
532 |
533 | MODULE LISTE_AFTER_LOOP.
534 |
535 |
536 |
537 | - 0
538 | - 1
539 | - 1
540 | - 2
541 | - 3
542 | - 1
543 | - 0
544 | - 0
545 | - 1
546 | - 1
547 | - 1
548 | - 3
549 | - 3
550 | - 4
551 | - 4
552 | - 4
553 | - 3
554 | - 3
555 | - 3
556 | - 4
557 | - 4
558 | - 4
559 | - 3
560 | - 1
561 | - 1
562 |
563 |
564 | -
565 |
566 | SAPLZHTML_BUTTON
567 | 0002
568 | E
569 | View Maintenance: Overview Screen ZHTML_BTN_TYPES
570 | N
571 | 0002
572 | 061
573 | 255
574 |
575 |
576 |
577 | SCREEN
578 | SCREEN
579 |
580 |
581 | TABLE_CTRL
582 | TCTRL_ZHTML_BTN_TYPES
583 | SCREEN
584 | 001
585 | 001
586 | 255
587 | 059
588 | X
589 | X
590 | X
591 | X
592 | ENTRY
593 | X
594 | X
595 | X
596 | X
597 | X
598 | MULTIPLE
599 | NONE
600 | X
601 | 001
602 |
603 |
604 |
605 |
606 | SCREEN
607 | SCREEN
608 | PUSH_TMPL
609 | VIM_POSI_PUSH
610 | ____________________
611 | 061
612 | 019
613 | 020
614 | 020
615 | 001
616 | POSI
617 | CHAR
618 | X
619 | N
620 |
621 |
622 | SCREEN
623 | SCREEN
624 | TEMPLATE
625 | VIM_POSITION_INFO
626 | ______________________________
627 | 061
628 | 040
629 | 030
630 | 030
631 | 001
632 | CHAR
633 | X
634 | X
635 | X
636 | N
637 | <_--32_DIMENS>X
638 |
639 |
640 | SCREEN
641 | SCREEN
642 | OKCODE
643 | OK_CODE
644 | ____________________
645 | 020
646 | 020
647 | 001
648 | CHAR
649 | X
650 |
651 |
652 | TABLE_CTRL
653 | TCTRL_ZHTML_BTN_TYPES
654 | TEMPLATE
655 | VIM_FRAME_FIELD
656 | ____________________________________________________________
657 | 001
658 | 060
659 | 060
660 | 001
661 | CHAR
662 | X
663 | X
664 | N
665 | X
666 |
667 |
668 | TABLE_CTRL
669 | TCTRL_ZHTML_BTN_TYPES
670 | TEXT
671 | *ZHTML_BTN_TYPES-TYPE
672 | +_______________________________________
673 | 001
674 | 001
675 | 040
676 | 020
677 | 001
678 | CHAR
679 | N
680 | X
681 |
682 |
683 | TABLE_CTRL
684 | TCTRL_ZHTML_BTN_TYPES
685 | TEXT
686 | *ZHTML_BTN_TYPES-BTN_TEXT
687 | Button_Text_____________________________
688 | 001
689 | 002
690 | 040
691 | 080
692 | 001
693 | CHAR
694 | X
695 | V
696 | N
697 | X
698 |
699 |
700 | TABLE_CTRL
701 | TCTRL_ZHTML_BTN_TYPES
702 | TEXT
703 | *ZHTML_BTN_TYPES-BTN_COLOR
704 | Color_Name______________________________
705 | 001
706 | 003
707 | 040
708 | 030
709 | 001
710 | CHAR
711 | X
712 | V
713 | N
714 | X
715 |
716 |
717 | TABLE_CTRL
718 | TCTRL_ZHTML_BTN_TYPES
719 | TEXT
720 | *ZHTML_BTN_TYPES-OK_CODE
721 | Current_Function_Code___________________
722 | 001
723 | 004
724 | 040
725 | 070
726 | 001
727 | CHAR
728 | X
729 | V
730 | N
731 | X
732 |
733 |
734 | TABLE_CTRL
735 | TCTRL_ZHTML_BTN_TYPES
736 | CHECK
737 | VIM_MARKED
738 | 001
739 | 001
740 | 001
741 | 001
742 | CHAR
743 | X
744 | X
745 | X
746 |
747 |
748 | TABLE_CTRL
749 | TCTRL_ZHTML_BTN_TYPES
750 | TEMPLATE
751 | ZHTML_BTN_TYPES-TYPE
752 | ____________________
753 | 001
754 | 001
755 | 020
756 | 020
757 | 001
758 | KEY
759 | CHAR
760 | X
761 | X
762 | X
763 | N
764 |
765 |
766 | TABLE_CTRL
767 | TCTRL_ZHTML_BTN_TYPES
768 | TEMPLATE
769 | ZHTML_BTN_TYPES-BTN_TEXT
770 | ________________________________________________________________________________
771 | 001
772 | 002
773 | 080
774 | 080
775 | 001
776 | CHAR
777 | X
778 | X
779 | X
780 | X
781 |
782 |
783 | TABLE_CTRL
784 | TCTRL_ZHTML_BTN_TYPES
785 | TEMPLATE
786 | ZHTML_BTN_TYPES-BTN_COLOR
787 | ______________________________
788 | 001
789 | 003
790 | 030
791 | 030
792 | 001
793 | CHAR
794 | X
795 | X
796 | X
797 | X
798 | X
799 | X
800 |
801 |
802 | TABLE_CTRL
803 | TCTRL_ZHTML_BTN_TYPES
804 | TEMPLATE
805 | ZHTML_BTN_TYPES-OK_CODE
806 | ______________________________________________________________________
807 | 001
808 | 004
809 | 070
810 | 070
811 | 001
812 | CHAR
813 | X
814 | X
815 | X
816 | X
817 |
818 |
819 |
820 |
821 | PROCESS BEFORE OUTPUT.
822 |
823 |
824 | MODULE LISTE_INITIALISIEREN.
825 |
826 |
827 | LOOP AT EXTRACT WITH CONTROL
828 |
829 |
830 | TCTRL_ZHTML_BTN_TYPES CURSOR NEXTLINE.
831 |
832 |
833 | MODULE LISTE_SHOW_LISTE.
834 |
835 |
836 | ENDLOOP.
837 |
838 |
839 | *
840 |
841 |
842 | PROCESS AFTER INPUT.
843 |
844 |
845 | MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND.
846 |
847 |
848 | MODULE LISTE_BEFORE_LOOP.
849 |
850 |
851 | LOOP AT EXTRACT.
852 |
853 |
854 | MODULE LISTE_INIT_WORKAREA.
855 |
856 |
857 | CHAIN.
858 |
859 |
860 | FIELD ZHTML_BTN_TYPES-TYPE .
861 |
862 |
863 | FIELD ZHTML_BTN_TYPES-BTN_TEXT .
864 |
865 |
866 | FIELD ZHTML_BTN_TYPES-BTN_COLOR .
867 |
868 |
869 | FIELD ZHTML_BTN_TYPES-OK_CODE .
870 |
871 |
872 | MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST.
873 |
874 |
875 | ENDCHAIN.
876 |
877 |
878 | FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX.
879 |
880 |
881 | CHAIN.
882 |
883 |
884 | FIELD ZHTML_BTN_TYPES-TYPE .
885 |
886 |
887 | MODULE LISTE_UPDATE_LISTE.
888 |
889 |
890 | ENDCHAIN.
891 |
892 |
893 | ENDLOOP.
894 |
895 |
896 | MODULE LISTE_AFTER_LOOP.
897 |
898 |
899 |
900 | - 0
901 | - 1
902 | - 1
903 | - 2
904 | - 3
905 | - 1
906 | - 0
907 | - 0
908 | - 1
909 | - 1
910 | - 1
911 | - 3
912 | - 3
913 | - 4
914 | - 4
915 | - 4
916 | - 4
917 | - 4
918 | - 3
919 | - 3
920 | - 3
921 | - 4
922 | - 4
923 | - 3
924 | - 1
925 | - 1
926 |
927 |
928 |
929 |
930 |
931 |
932 |
--------------------------------------------------------------------------------
/src/zhtml_button.msag.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BUTTON
7 | E
8 | Hmtl Button
9 |
10 |
11 |
12 | E
13 | ZHTML_BUTTON
14 | 001
15 | html button not found
16 |
17 |
18 | E
19 | ZHTML_BUTTON
20 | 002
21 | html button &1 already exists
22 |
23 |
24 |
25 |
26 |
27 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/package.devc.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | Html Button Demo
7 |
8 |
9 |
10 |
11 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_btn_demo.tran.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_DEMO
7 | SAPLZHTML_BUTTON_DEMO
8 | 0100
9 |
10 |
11 | ZHTML_BTN_DEMO
12 | 1
13 | X
14 | X
15 |
16 |
17 | E
18 | ZHTML_BTN_DEMO
19 | Demo HTML Button
20 |
21 |
22 |
23 |
24 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_button_demo.fugr.lzhtml_button_demof01.abap:
--------------------------------------------------------------------------------
1 | *----------------------------------------------------------------------*
2 | ***INCLUDE LZHTML_BUTTON_DEMOF01.
3 | *----------------------------------------------------------------------*
4 | *&---------------------------------------------------------------------*
5 | *& Form init_html_buttons
6 | *&---------------------------------------------------------------------*
7 | *& text
8 | *&---------------------------------------------------------------------*
9 | *& --> p1 text
10 | *& <-- p2 text
11 | *&---------------------------------------------------------------------*
12 | FORM init_html_buttons .
13 | DATA: ls_btn TYPE zhtml_button .
14 | STATICS created.
15 |
16 | CHECK created IS INITIAL.
17 |
18 |
19 | IF mo_btn_cntl IS NOT BOUND.
20 | CREATE OBJECT mo_btn_cntl.
21 | ENDIF.
22 |
23 | ls_btn-btn_type = 'DEMO1'.
24 | ls_btn-cc_name = 'CONT_01'.
25 | ls_btn-ok_code = 'DEMO1'.
26 | mo_btn_cntl->create_btn( ls_btn ).
27 | CLEAR ls_btn.
28 |
29 | ls_btn-btn_type = 'DEMO2'.
30 | ls_btn-cc_name = 'CONT_02'.
31 | ls_btn-ok_code = 'DEMO2'.
32 | mo_btn_cntl->create_btn( ls_btn ).
33 | CLEAR ls_btn.
34 |
35 | ls_btn-btn_type = 'DEMO3'.
36 | ls_btn-cc_name = 'CONT_03'.
37 | ls_btn-ok_code = 'DEMO3'.
38 | mo_btn_cntl->create_btn( ls_btn ).
39 | CLEAR ls_btn.
40 |
41 | ls_btn-btn_type = 'DEMO4'.
42 | ls_btn-cc_name = 'CONT_04'.
43 | ls_btn-ok_code = 'DEMO4'.
44 | mo_btn_cntl->create_btn( ls_btn ).
45 | CLEAR ls_btn.
46 |
47 | ls_btn-btn_type = 'DEMO5'.
48 | ls_btn-cc_name = 'CONT_05'.
49 | ls_btn-ok_code = 'DEMO5'.
50 | mo_btn_cntl->create_btn( ls_btn ).
51 | CLEAR ls_btn.
52 |
53 | ls_btn-btn_type = 'DEMO6'.
54 | ls_btn-cc_name = 'CONT_06'.
55 | ls_btn-ok_code = 'DEMO6'.
56 | mo_btn_cntl->create_btn( ls_btn ).
57 | CLEAR ls_btn.
58 |
59 | ls_btn-btn_type = 'DEMO7'.
60 | ls_btn-cc_name = 'CONT_07'.
61 | ls_btn-ok_code = 'DEMO7'.
62 | mo_btn_cntl->create_btn( ls_btn ).
63 | CLEAR ls_btn.
64 |
65 | created = abap_true.
66 |
67 | ENDFORM.
68 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_button_demo.fugr.lzhtml_button_demof01.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | LZHTML_BUTTON_DEMOF01
7 | I
8 | S
9 | E
10 | X
11 |
12 |
13 | -
14 |
R
15 | Include LZHTML_BUTTON_DEMOF01
16 | 29
17 |
18 |
19 |
20 |
21 |
22 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_button_demo.fugr.lzhtml_button_demoi01.abap:
--------------------------------------------------------------------------------
1 | *----------------------------------------------------------------------*
2 | ***INCLUDE LZHTML_BUTTON_DEMOI01.
3 | *----------------------------------------------------------------------*
4 | *&---------------------------------------------------------------------*
5 | *& Module USER_COMMAND_0100 INPUT
6 | *&---------------------------------------------------------------------*
7 | * text
8 | *----------------------------------------------------------------------*
9 | MODULE user_command_0100 INPUT.
10 | CASE sy-ucomm.
11 | WHEN 'DEMO1'.
12 | CALL FUNCTION 'POPUP_TO_INFORM'
13 | EXPORTING
14 | titel = 'HTML Button'
15 | txt1 = 'pressed button'
16 | txt2 = 'DEMO1'.
17 | WHEN 'DEMO2'.
18 | WHEN OTHERS.
19 | ENDCASE.
20 | ENDMODULE.
21 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_button_demo.fugr.lzhtml_button_demoi01.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | LZHTML_BUTTON_DEMOI01
7 | I
8 | S
9 | E
10 | X
11 |
12 |
13 | -
14 |
R
15 | Include LZHTML_BUTTON_DEMOI01
16 | 29
17 |
18 |
19 |
20 |
21 |
22 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_button_demo.fugr.lzhtml_button_demoo01.abap:
--------------------------------------------------------------------------------
1 | *----------------------------------------------------------------------*
2 | ***INCLUDE LZHTML_BUTTON_DEMOO01.
3 | *----------------------------------------------------------------------*
4 | *&---------------------------------------------------------------------*
5 | *& Module PBO_0100 OUTPUT
6 | *&---------------------------------------------------------------------*
7 | *&
8 | *&---------------------------------------------------------------------*
9 | MODULE pbo_0100 OUTPUT.
10 | PERFORM init_html_buttons.
11 | ENDMODULE.
12 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_button_demo.fugr.lzhtml_button_demoo01.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | LZHTML_BUTTON_DEMOO01
7 | I
8 | S
9 | E
10 | X
11 |
12 |
13 | -
14 |
R
15 | Include LZHTML_BUTTON_DEMOO01
16 | 29
17 |
18 |
19 |
20 |
21 |
22 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_button_demo.fugr.lzhtml_button_demotop.abap:
--------------------------------------------------------------------------------
1 | FUNCTION-POOL zhtml_button_demo. "MESSAGE-ID ..
2 |
3 | * INCLUDE LZHTML_BUTTON_DEMOD... " Local class definition
4 |
5 | DATA mo_btn_cntl TYPE REF TO zcl_html_button_cntl.
6 |
7 | INITIALIZATION.
8 |
9 | CREATE OBJECT mo_btn_cntl.
10 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_button_demo.fugr.lzhtml_button_demotop.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | LZHTML_BUTTON_DEMOTOP
7 | S
8 | D$
9 | I
10 | S
11 | X
12 | D$S
13 | X
14 |
15 |
16 |
17 |
18 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_button_demo.fugr.saplzhtml_button_demo.abap:
--------------------------------------------------------------------------------
1 | *******************************************************************
2 | * System-defined Include-files. *
3 | *******************************************************************
4 | INCLUDE LZHTML_BUTTON_DEMOTOP. " Global Declarations
5 | INCLUDE LZHTML_BUTTON_DEMOUXX. " Function Modules
6 |
7 | *******************************************************************
8 | * User-defined Include-files (if necessary). *
9 | *******************************************************************
10 | * INCLUDE LZHTML_BUTTON_DEMOF... " Subroutines
11 | * INCLUDE LZHTML_BUTTON_DEMOO... " PBO-Modules
12 | * INCLUDE LZHTML_BUTTON_DEMOI... " PAI-Modules
13 | * INCLUDE LZHTML_BUTTON_DEMOE... " Events
14 | * INCLUDE LZHTML_BUTTON_DEMOP... " Local class implement.
15 | * INCLUDE LZHTML_BUTTON_DEMOT99. " ABAP Unit tests
16 |
17 | INCLUDE lzhtml_button_demoo01.
18 |
19 | INCLUDE lzhtml_button_demoi01.
20 |
21 | INCLUDE lzhtml_button_demof01.
22 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_button_demo.fugr.saplzhtml_button_demo.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | SAPLZHTML_BUTTON_DEMO
7 | S
8 | D$
9 | F
10 | S
11 | E
12 | X
13 | D$S
14 | X
15 |
16 |
17 |
18 |
19 |
--------------------------------------------------------------------------------
/src/zhtml_button_demo/zhtml_button_demo.fugr.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 | Html Button Demo
6 |
7 | LZHTML_BUTTON_DEMOF01
8 | LZHTML_BUTTON_DEMOI01
9 | LZHTML_BUTTON_DEMOO01
10 | LZHTML_BUTTON_DEMOTOP
11 | SAPLZHTML_BUTTON_DEMO
12 |
13 |
14 | -
15 |
16 | SAPLZHTML_BUTTON_DEMO
17 | 0100
18 | E
19 | Html Buttons
20 | N
21 | 0100
22 | 027
23 | 120
24 |
25 |
26 |
27 | SCREEN
28 | SCREEN
29 |
30 |
31 | CUST_CTRL
32 | CONT_01
33 | SCREEN
34 | 002
35 | 001
36 | 025
37 | 005
38 |
39 |
40 | CUST_CTRL
41 | CONT_02
42 | SCREEN
43 | 002
44 | 030
45 | 025
46 | 005
47 |
48 |
49 | CUST_CTRL
50 | CONT_03
51 | SCREEN
52 | 009
53 | 013
54 | 060
55 | 005
56 |
57 |
58 | CUST_CTRL
59 | CONT_04
60 | SCREEN
61 | 017
62 | 069
63 | 010
64 | 010
65 |
66 |
67 | CUST_CTRL
68 | CONT_05
69 | SCREEN
70 | 017
71 | 081
72 | 010
73 | 010
74 |
75 |
76 | CUST_CTRL
77 | CONT_06
78 | SCREEN
79 | 019
80 | 010
81 | 020
82 | 002
83 |
84 |
85 | CUST_CTRL
86 | CONT_07
87 | SCREEN
88 | 022
89 | 010
90 | 020
91 | 002
92 |
93 |
94 |
95 |
96 | SCREEN
97 | SCREEN
98 | OKCODE
99 | ____________________
100 | 020
101 | 020
102 | 001
103 | CHAR
104 | X
105 |
106 |
107 |
108 |
109 | PROCESS BEFORE OUTPUT.
110 |
111 |
112 | MODULE pbo_0100.
113 |
114 |
115 |
116 | PROCESS AFTER INPUT.
117 |
118 |
119 | MODULE user_command_0100.
120 |
121 |
122 |
123 | - 0
124 | - 2
125 | - 0
126 | - 0
127 | - 2
128 |
129 |
130 |
131 |
132 |
133 |
134 |
--------------------------------------------------------------------------------
/src/zhtml_colorss.tobj.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_COLORS
7 | S
8 | X
9 | CUST
10 | 3
11 |
12 |
13 | E
14 | ZHTML_COLORS
15 | S
16 | HTML Colors
17 |
18 |
19 |
20 | ZHTML_COLORS
21 | S
22 | ZHTML_COLORS
23 | X
24 | X
25 |
26 |
27 |
28 |
29 | ZHTML_COLORS
30 | &NC&
31 |
32 |
33 | ZHTML_COLORS
34 | ZHTML_BUTTON
35 | ZHTMLBUTTON
36 | 1
37 | 0001
38 | X
39 | X
40 |
41 |
42 |
43 |
44 |
45 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/package.devc.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | Html Button Dictionary
7 |
8 |
9 |
10 |
11 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zcl_html_button_db.clas.abap:
--------------------------------------------------------------------------------
1 | CLASS zcl_html_button_db DEFINITION
2 | PUBLIC
3 | INHERITING FROM zcl_appl_db_admin
4 | CREATE PUBLIC .
5 |
6 | PUBLIC SECTION.
7 |
8 | INTERFACES zif_appl_object .
9 | INTERFACES zif_appl_object_db .
10 |
11 | ALIASES appl_type
12 | FOR zif_appl_object~appl_type .
13 | ALIASES o_appl_message
14 | FOR zif_appl_object~o_appl_message .
15 | ALIASES get_appl_type
16 | FOR zif_appl_object~get_appl_type .
17 | ALIASES set_appl_type
18 | FOR zif_appl_object~set_appl_type .
19 |
20 | METHODS constructor
21 | IMPORTING
22 | !im_table_name TYPE tabname OPTIONAL .
23 |
24 | PROTECTED SECTION.
25 | PRIVATE SECTION.
26 |
27 | ALIASES read_buffer
28 | FOR zif_appl_object_db~read_buffer .
29 | ALIASES read_data
30 | FOR zif_appl_object_db~read_data .
31 | ALIASES save_data
32 | FOR zif_appl_object_db~save_data .
33 | ALIASES data_saved
34 | FOR zif_appl_object_db~data_saved .
35 |
36 |
37 | TYPES:
38 | ty_data_tab TYPE HASHED TABLE OF zhtml_btn_types WITH UNIQUE KEY type .
39 | TYPES ty_data_key TYPE zhtml_btn_types_key .
40 |
41 | DATA gv_table_name TYPE tabname .
42 | DATA flg_on_save TYPE xfeld .
43 | DATA t_backup_delete TYPE ty_data_tab .
44 | DATA t_backup_insert TYPE ty_data_tab .
45 | DATA t_backup_update TYPE ty_data_tab .
46 | DATA t_data_delete TYPE ty_data_tab .
47 | DATA t_data_insert TYPE ty_data_tab .
48 | DATA t_data_old TYPE ty_data_tab .
49 | DATA t_data_update TYPE ty_data_tab .
50 |
51 | METHODS set_handler
52 | IMPORTING
53 | !im_activation TYPE xfeld .
54 | METHODS on_buffer_backup
55 | FOR EVENT buffer_backup OF zcl_appl_cntl .
56 | METHODS on_buffer_refresh
57 | FOR EVENT buffer_refresh OF zcl_appl_cntl
58 | IMPORTING
59 | !im_all_objects .
60 | METHODS on_buffer_restore
61 | FOR EVENT buffer_restore OF zcl_appl_cntl .
62 | METHODS on_buffer_save
63 | FOR EVENT buffer_save OF zcl_appl_cntl .
64 | METHODS save .
65 |
66 | ENDCLASS.
67 |
68 |
69 |
70 | CLASS zcl_html_button_db IMPLEMENTATION.
71 |
72 |
73 | METHOD constructor.
74 |
75 | super->constructor( ).
76 |
77 | IF NOT im_table_name IS INITIAL.
78 | gv_table_name = im_table_name.
79 | ELSE.
80 | gv_table_name = 'ZHTML_BTN_TYPES'.
81 | ENDIF.
82 |
83 | ENDMETHOD.
84 |
85 |
86 | METHOD on_buffer_backup.
87 | _on_buffer_backup.
88 | ENDMETHOD.
89 |
90 |
91 | METHOD on_buffer_refresh.
92 | _on_buffer_refresh.
93 | ENDMETHOD.
94 |
95 |
96 | METHOD on_buffer_restore.
97 | _on_buffer_restore.
98 | ENDMETHOD.
99 |
100 |
101 | METHOD on_buffer_save.
102 | _on_save.
103 | ENDMETHOD.
104 |
105 |
106 | METHOD save.
107 | _save 'ZHTML_BTN_TYPES'.
108 | ENDMETHOD.
109 |
110 |
111 | METHOD set_handler.
112 |
113 | CHECK flg_on_save <> im_activation.
114 | flg_on_save = im_activation.
115 |
116 | " Register for Appl events
117 | SET HANDLER on_buffer_save ACTIVATION im_activation.
118 | SET HANDLER on_buffer_refresh ACTIVATION im_activation.
119 | SET HANDLER on_buffer_backup ACTIVATION im_activation.
120 |
121 | ENDMETHOD.
122 |
123 |
124 | METHOD zif_appl_object_db~clear_data.
125 |
126 | DATA: ls_key TYPE ty_data_key.
127 |
128 | ls_key = im_key.
129 |
130 | DELETE TABLE t_data_delete
131 | WITH TABLE KEY type = ls_key-type.
132 | DELETE TABLE t_data_insert
133 | WITH TABLE KEY type = ls_key-type.
134 | DELETE TABLE t_data_old
135 | WITH TABLE KEY type = ls_key-type.
136 | DELETE TABLE t_data_update
137 | WITH TABLE KEY type = ls_key-type.
138 |
139 | ENDMETHOD.
140 |
141 |
142 | METHOD zif_appl_object_db~read_buffer.
143 |
144 | DATA: ls_data_key TYPE ty_data_key.
145 |
146 | ls_data_key = im_key.
147 |
148 | CLEAR ex_data.
149 |
150 | READ TABLE t_data_update INTO ex_data
151 | WITH TABLE KEY type = ls_data_key-type.
152 | CHECK sy-subrc <> 0.
153 |
154 | READ TABLE t_data_insert INTO ex_data
155 | WITH TABLE KEY type = ls_data_key-type.
156 | CHECK sy-subrc <> 0.
157 |
158 | READ TABLE t_data_delete INTO ex_data
159 | WITH TABLE KEY type = ls_data_key-type.
160 | CHECK sy-subrc <> 0.
161 |
162 | READ TABLE t_data_old INTO ex_data
163 | WITH TABLE KEY type = ls_data_key-type.
164 | CHECK sy-subrc <> 0.
165 |
166 | CALL METHOD read_data
167 | EXPORTING
168 | im_key = im_key
169 | IMPORTING
170 | ex_data = ex_data.
171 |
172 | ENDMETHOD.
173 |
174 |
175 | METHOD zif_appl_object_db~read_data.
176 | DATA: ls_data LIKE LINE OF t_data_old.
177 |
178 | * ls_data = im_key.
179 | MOVE-CORRESPONDING im_key TO ls_data.
180 |
181 | IF ls_data-guid IS NOT INITIAL.
182 | SELECT SINGLE * FROM zhtml_btn_types INTO ex_data
183 | WHERE guid = ls_data-guid.
184 | ELSEIF ls_data-type IS NOT INITIAL.
185 | SELECT SINGLE * FROM zhtml_btn_types INTO ex_data
186 | WHERE type = ls_data-type.
187 | ENDIF.
188 |
189 | IF sy-subrc = 0.
190 | CLEAR ex_new.
191 | * MOVE-CORRESPONDING ls_data to ex_data.
192 | INSERT ex_data INTO TABLE t_data_old.
193 | IF sy-subrc <> 0.
194 | MODIFY TABLE t_data_old FROM ex_data.
195 | ENDIF.
196 |
197 | ELSE.
198 |
199 | ex_new = 'X'.
200 | ex_data = ls_data.
201 |
202 | " Mark new line for saving
203 | IF im_add_new_line = 'X'.
204 | CALL METHOD save_data
205 | EXPORTING
206 | im_data = ex_data.
207 | ENDIF.
208 |
209 | ENDIF.
210 |
211 |
212 | ENDMETHOD.
213 |
214 |
215 | METHOD zif_appl_object_db~save_data.
216 |
217 |
218 | DATA: ls_data LIKE LINE OF t_data_old,
219 | ls_im_data LIKE LINE OF t_data_old,
220 | lv_new TYPE xfeld.
221 |
222 | CALL METHOD set_handler( 'X' ).
223 |
224 | ls_im_data = im_data.
225 |
226 | READ TABLE t_data_old INTO ls_data
227 | WITH TABLE KEY type = ls_im_data-type.
228 | IF sy-subrc <> 0.
229 | lv_new = 'X'.
230 | ENDIF.
231 |
232 | IF im_delete IS INITIAL.
233 | IF lv_new = 'X'.
234 | IF ls_im_data-guid IS INITIAL.
235 | ls_im_data-guid = zcl_appl_services=>get_new_guid( ).
236 | ENDIF.
237 | new_data( EXPORTING im_data = ls_im_data
238 | IMPORTING ex_data = ls_im_data ).
239 | INSERT ls_im_data INTO TABLE t_data_insert.
240 | IF sy-subrc <> 0.
241 | MODIFY TABLE t_data_insert FROM ls_im_data.
242 | ENDIF.
243 |
244 | ELSE.
245 | change_data( EXPORTING im_data = ls_im_data
246 | IMPORTING ex_data = ls_im_data ).
247 | INSERT ls_im_data INTO TABLE t_data_update.
248 | IF sy-subrc <> 0.
249 | MODIFY TABLE t_data_update FROM ls_im_data.
250 | ENDIF.
251 | DELETE TABLE t_data_delete
252 | WITH TABLE KEY type = ls_im_data-type.
253 | ENDIF.
254 | ELSE.
255 | IF lv_new = 'X'.
256 | DELETE TABLE t_data_insert
257 | WITH TABLE KEY type = ls_im_data-type.
258 | ELSE.
259 | DELETE TABLE t_data_update
260 | WITH TABLE KEY type = ls_im_data-type.
261 | INSERT ls_im_data INTO TABLE t_data_delete.
262 |
263 | ENDIF.
264 |
265 | ENDIF.
266 | *ex_data = ls_im_data.
267 | ENDMETHOD.
268 |
269 |
270 | METHOD zif_appl_object~get_appl_type.
271 | re_type = appl_type.
272 | ENDMETHOD.
273 |
274 |
275 | METHOD zif_appl_object~set_appl_type.
276 | appl_type = im_type.
277 | ENDMETHOD.
278 | ENDCLASS.
279 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zcl_html_button_db.clas.macros.abap:
--------------------------------------------------------------------------------
1 | *"* use this source file for any macro definitions you need
2 | *"* in the implementation part of the class
3 | INCLUDE zappl_include_db.
4 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zcl_html_button_db.clas.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZCL_HTML_BUTTON_DB
7 | E
8 | db
9 | 1
10 | X
11 | X
12 | X
13 |
14 |
15 |
16 |
17 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_btn_lvc_button.tabl.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_LVC_BUTTON
7 | E
8 | INTTAB
9 | Customer Buttons
10 |
11 |
12 |
13 | ZHTML_BTN_LVC_BUTTON
14 | LAYOUT_NAME
15 | 0001
16 | LVC_TNAME
17 | 0
18 | E
19 |
20 |
21 | ZHTML_BTN_LVC_BUTTON
22 | BUTTON_NAME
23 | 0002
24 | UI_FUNC
25 | 0
26 | E
27 |
28 |
29 | ZHTML_BTN_LVC_BUTTON
30 | ICON
31 | 0003
32 | ICONNAME
33 | 0
34 | E
35 |
36 |
37 | ZHTML_BTN_LVC_BUTTON
38 | BUTTON_TYPE
39 | 0004
40 | TB_BTYPE
41 | 0
42 | X
43 | F
44 | E
45 |
46 |
47 | ZHTML_BTN_LVC_BUTTON
48 | BUTTON_FUNCTION
49 | 0005
50 | RS38L_FNAM
51 | 0
52 | E
53 |
54 |
55 | ZHTML_BTN_LVC_BUTTON
56 | BUTTON_POSITION
57 | E
58 | 0006
59 | 0
60 | X
61 | 000001
62 | INT1
63 | 000003
64 | INT1
65 |
66 |
67 | ZHTML_BTN_LVC_BUTTON
68 | DISPLAY_MODE
69 | 0007
70 | ZAPPL_CTMENU_DISPLAYMODE
71 | 0
72 | X
73 | F
74 | E
75 |
76 |
77 | ZHTML_BTN_LVC_BUTTON
78 | PARENT_BUTTON
79 | 0008
80 | UI_FUNC
81 | 0
82 | E
83 |
84 |
85 | ZHTML_BTN_LVC_BUTTON
86 | QUICKINFO
87 | 0009
88 | ICONQUICK
89 | 0
90 | E
91 |
92 |
93 | ZHTML_BTN_LVC_BUTTON
94 | BUTTON_TEXT
95 | 0010
96 | TEXT40
97 | 0
98 | E
99 |
100 |
101 | ZHTML_BTN_LVC_BUTTON
102 | ACTIVE
103 | 0011
104 | XFELD
105 | 0
106 | X
107 | F
108 | E
109 |
110 |
111 |
112 |
113 |
114 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_btn_lvc_button_tt.ttyp.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_LVC_BUTTON_TT
7 | E
8 | ZHTML_BTN_LVC_BUTTON
9 | S
10 | STRU
11 | T
12 | D
13 | N
14 | Table Type for ZHTML_BTN_LVC_BUTTON
15 |
16 |
17 |
18 |
19 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_btn_pointer.tabl.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_POINTER
7 | E
8 | INTTAB
9 | Button Pointer
10 | 4
11 |
12 |
13 |
14 | ZHTML_BTN_POINTER
15 | GUID
16 | 0001
17 | ZHTML_GUID
18 | 0
19 | E
20 |
21 |
22 | ZHTML_BTN_POINTER
23 | OBJECT
24 | 0002
25 | ZIF_HTML_BUTTON
26 | 0
27 | REF
28 | REF RI
29 | R
30 | I
31 |
32 |
33 |
34 |
35 |
36 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_btn_pointer_tt.ttyp.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_POINTER_TT
7 | E
8 | ZHTML_BTN_POINTER
9 | S
10 | STRU
11 | T
12 | D
13 | N
14 | Button Pointer
15 |
16 |
17 |
18 |
19 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_btn_text.dtel.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_TEXT
7 | E
8 | 55
9 | 10
10 | 20
11 | 40
12 | Html Button Text
13 | Button Text
14 | Btn Text
15 | Button Text
16 | Button Text
17 | E
18 | CHAR
19 | 000080
20 | 000080
21 |
22 |
23 |
24 |
25 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_btn_type.dtel.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_TYPE
7 | E
8 | 11
9 | 08
10 | 11
11 | 11
12 | Html Button Type
13 | Button Type
14 | Btn Type
15 | Button Type
16 | Button Type
17 | E
18 | CHAR
19 | 000020
20 | 000020
21 |
22 |
23 |
24 |
25 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_btn_types.tabl.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_TYPES
7 | E
8 | TRANSP
9 | X
10 | X
11 | HMTL Button Types
12 | X
13 | C
14 | 3
15 |
16 |
17 | ZHTML_BTN_TYPES
18 | A
19 | 0
20 | APPL2
21 | N
22 |
23 |
24 |
25 | ZHTML_BTN_TYPES
26 | MANDT
27 | 0001
28 | X
29 | MANDT
30 | 0
31 | X
32 | E
33 |
34 |
35 | ZHTML_BTN_TYPES
36 | .INCLUDE
37 | E
38 | 0002
39 | X
40 | 0
41 | ZHTML_BTN_TYPES_KEY
42 | X
43 | S
44 | Html Button Key
45 | S
46 |
47 |
48 | ZHTML_BTN_TYPES
49 | .INCLUDE
50 | E
51 | 0005
52 | 0
53 | ZHTML_BUTTON_FIELDS
54 | X
55 | S
56 | HTML Button Fields
57 | S
58 |
59 |
60 | ZHTML_BTN_TYPES
61 | .INCLUDE
62 | E
63 | 0009
64 | 0
65 | ZAPPL_ADMIN
66 | X
67 | S
68 | Administrative data
69 | S
70 |
71 |
72 |
73 |
74 |
75 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_btn_types_key.tabl.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_TYPES_KEY
7 | E
8 | INTTAB
9 | Html Button Key
10 | 1
11 |
12 |
13 |
14 | ZHTML_BTN_TYPES_KEY
15 | GUID
16 | 0001
17 | ZAPPL_GUID
18 | 0
19 | E
20 |
21 |
22 | ZHTML_BTN_TYPES_KEY
23 | TYPE
24 | 0002
25 | ZHTML_BTN_TYPE
26 | 0
27 | E
28 |
29 |
30 |
31 |
32 |
33 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_btn_types_tt.ttyp.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BTN_TYPES_TT
7 | E
8 | ZHTML_BTN_TYPES
9 | S
10 | STRU
11 | T
12 | D
13 | N
14 | HTML Button Types
15 |
16 |
17 |
18 |
19 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_button.tabl.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BUTTON
7 | E
8 | INTTAB
9 | HTML Button
10 | E
11 | 4
12 |
13 |
14 |
15 | ZHTML_BUTTON
16 | CC_NAME
17 | E
18 | 0001
19 | 0
20 | C
21 | 000264
22 | CHAR
23 | 000132
24 | CHAR
25 |
26 |
27 | ZHTML_BUTTON
28 | CONTAINER
29 | 0002
30 | CL_GUI_CONTAINER
31 | 0
32 | REF
33 | REF RC
34 | R
35 | C
36 |
37 |
38 | ZHTML_BUTTON
39 | BTN_TYPE
40 | 0003
41 | ZHTML_BTN_TYPE
42 | 0
43 | E
44 |
45 |
46 | ZHTML_BUTTON
47 | GUID
48 | 0004
49 | ZHTML_GUID
50 | 0
51 | E
52 |
53 |
54 | ZHTML_BUTTON
55 | OK_CODE
56 | 0005
57 | SYUCOMM
58 | 0
59 | E
60 |
61 |
62 |
63 |
64 |
65 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_button_fields.tabl.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_BUTTON_FIELDS
7 | E
8 | INTTAB
9 | HTML Button Fields
10 | 3
11 |
12 |
13 |
14 | ZHTML_BUTTON_FIELDS
15 | BTN_TEXT
16 | 0001
17 | ZHTML_BTN_TEXT
18 | 0
19 | E
20 |
21 |
22 | ZHTML_BUTTON_FIELDS
23 | BTN_COLOR
24 | 0002
25 | ZHTML_COLOR_NAME
26 | ZHTML_COLORS
27 | 0
28 | P
29 | E
30 |
31 |
32 | ZHTML_BUTTON_FIELDS
33 | OK_CODE
34 | 0003
35 | SYUCOMM
36 | 0
37 | E
38 |
39 |
40 |
41 |
42 | ZHTML_BUTTON_FIELDS
43 | BTN_COLOR
44 | SYST
45 | MANDT
46 | ZHTML_COLORS
47 | MANDT
48 | 0001
49 | MANDT
50 | CLNT
51 | 000003
52 |
53 |
54 | ZHTML_BUTTON_FIELDS
55 | BTN_COLOR
56 | ZHTML_BUTTON_FIELDS
57 | BTN_COLOR
58 | ZHTML_COLORS
59 | COLOR_NAME
60 | 0002
61 | CHAR
62 | 000030
63 |
64 |
65 | ZHTML_BUTTON_FIELDS
66 | BTN_COLOR
67 | *
68 | ZHTML_COLORS
69 | COLOR_CODE
70 | 0003
71 | CHAR
72 | 000008
73 |
74 |
75 |
76 |
77 | ZHTML_BUTTON_FIELDS
78 | BTN_COLOR
79 | E
80 | ZHTML_COLORS
81 | *
82 |
83 |
84 |
85 |
86 |
87 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_color_code.dtel.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_COLOR_CODE
7 | E
8 | 55
9 | 10
10 | 20
11 | 40
12 | Color code
13 | Color Code
14 | Color Code
15 | Color Code
16 | Color Code
17 | E
18 | CHAR
19 | 000008
20 | 000008
21 |
22 |
23 |
24 |
25 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_color_name.dtel.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_COLOR_NAME
7 | E
8 | 55
9 | 10
10 | 20
11 | 40
12 | Color Name
13 | Color Name
14 | Color Name
15 | Color Name
16 | Color Name
17 | E
18 | CHAR
19 | 000030
20 | 000030
21 |
22 |
23 |
24 |
25 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_colors.tabl.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_COLORS
7 | E
8 | TRANSP
9 | X
10 | HTML Colors
11 | X
12 | C
13 | 3
14 |
15 |
16 | ZHTML_COLORS
17 | A
18 | 0
19 | APPL2
20 | N
21 |
22 |
23 |
24 | ZHTML_COLORS
25 | MANDT
26 | 0001
27 | X
28 | MANDT
29 | T000
30 | 0
31 | X
32 | P
33 | E
34 |
35 |
36 | ZHTML_COLORS
37 | COLOR_NAME
38 | 0002
39 | X
40 | ZHTML_COLOR_NAME
41 | 0
42 | X
43 | E
44 |
45 |
46 | ZHTML_COLORS
47 | COLOR_CODE
48 | 0003
49 | X
50 | ZHTML_COLOR_CODE
51 | 0
52 | X
53 | E
54 |
55 |
56 |
57 |
58 | ZHTML_COLORS
59 | MANDT
60 | ZHTML_COLORS
61 | MANDT
62 | T000
63 | MANDT
64 | 0001
65 | MANDT
66 | CLNT
67 | 000003
68 |
69 |
70 |
71 |
72 | ZHTML_COLORS
73 | MANDT
74 | E
75 | T000
76 |
77 |
78 |
79 |
80 |
81 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_colors_tt.ttyp.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_COLORS_TT
7 | E
8 | ZHTML_COLORS
9 | S
10 | STRU
11 | T
12 | D
13 | N
14 | HTML Colors
15 |
16 |
17 |
18 |
19 |
--------------------------------------------------------------------------------
/src/zhtmlbutton_ddic/zhtml_guid.dtel.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZHTML_GUID
7 | E
8 | SYSUUID_X16
9 | 04
10 | 04
11 | 04
12 | 04
13 | Guid
14 | Guid
15 | Guid
16 | Guid
17 | Guid
18 | E
19 | D
20 |
21 |
22 |
23 |
24 |
--------------------------------------------------------------------------------
/src/zif_html_button.intf.abap:
--------------------------------------------------------------------------------
1 | "! HTML Button
2 | INTERFACE zif_html_button
3 | PUBLIC .
4 |
5 | METHODS set_active .
6 | METHODS set_inactive .
7 | METHODS get_btn_fields
8 | RETURNING
9 | VALUE(re_btn_fields) TYPE zhtml_button .
10 | METHODS get_btn_type
11 | RETURNING
12 | VALUE(re_btn_type) TYPE zhtml_btn_type .
13 | ENDINTERFACE.
14 |
--------------------------------------------------------------------------------
/src/zif_html_button.intf.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZIF_HTML_BUTTON
7 | E
8 | HTML Button
9 | 2
10 | 1
11 | X
12 |
13 |
14 |
15 |
16 |
--------------------------------------------------------------------------------
/src/zif_html_button_cntl.intf.abap:
--------------------------------------------------------------------------------
1 | "! HTML Button Cntl
2 | INTERFACE zif_html_button_cntl
3 | PUBLIC .
4 |
5 |
6 | INTERFACES zif_appl_object .
7 |
8 | METHODS create_btn
9 | IMPORTING
10 | !im_btn TYPE zhtml_button
11 | RETURNING
12 | VALUE(ro_button) TYPE REF TO zif_html_button .
13 | METHODS delete_btn
14 | IMPORTING
15 | !im_btn TYPE zhtml_button.
16 | METHODS get_btn_by_guid
17 | IMPORTING
18 | !im_guid TYPE zhtml_guid
19 | RETURNING
20 | VALUE(ro_button) TYPE REF TO zif_html_button .
21 | METHODS get_btn_by_type .
22 | ENDINTERFACE.
23 |
--------------------------------------------------------------------------------
/src/zif_html_button_cntl.intf.xml:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | ZIF_HTML_BUTTON_CNTL
7 | E
8 | HTML Button Cntl
9 | 2
10 | 1
11 | X
12 |
13 |
14 |
15 | ZIF_HTML_BUTTON_CNTL
16 | CREATE_BTN
17 | E
18 | Create a HTML Button
19 |
20 |
21 | ZIF_HTML_BUTTON_CNTL
22 | DELETE_BTN
23 | E
24 | Delete a HTML Button
25 |
26 |
27 | ZIF_HTML_BUTTON_CNTL
28 | GET_BTN_BY_GUID
29 | E
30 | get object of HTML Button by guid
31 |
32 |
33 | ZIF_HTML_BUTTON_CNTL
34 | GET_BTN_BY_TYPE
35 | E
36 | get object of HTML Button by type/identifier
37 |
38 |
39 |
40 |
41 |
42 |
--------------------------------------------------------------------------------