├── .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 | --------------------------------------------------------------------------------