mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 20:03:20 +08:00
27f712a47b
* rewrite * Update abaplint.json * Update abaplint.json * move to include where its used * Update .gitignore * Update abaplint.json * Update package.json * Update package.json
75 lines
2.7 KiB
ABAP
75 lines
2.7 KiB
ABAP
REPORT zabapgit LINE-SIZE 100.
|
|
|
|
* See http://www.abapgit.org
|
|
|
|
********************************************************************************
|
|
* The MIT License (MIT)
|
|
*
|
|
* Copyright (c) 2014 abapGit Contributors
|
|
*
|
|
* Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
* of this software and associated documentation files (the "Software"), to deal
|
|
* in the Software without restriction, including without limitation the rights
|
|
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
* copies of the Software, and to permit persons to whom the Software is
|
|
* furnished to do so, subject to the following conditions:
|
|
*
|
|
* The above copyright notice and this permission notice shall be included in all
|
|
* copies or substantial portions of the Software.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
|
* SOFTWARE.
|
|
********************************************************************************
|
|
|
|
SELECTION-SCREEN BEGIN OF SCREEN 1001.
|
|
* dummy for triggering screen on Java SAP GUI
|
|
SELECTION-SCREEN END OF SCREEN 1001.
|
|
|
|
TABLES sscrfields.
|
|
|
|
INCLUDE zabapgit_password_dialog. " !!! Contains SELECTION SCREEN
|
|
|
|
* create class ZCL_ABAPGIT_AUTH_EXIT implementing ZIF_ABAPGIT_AUTH in following include,
|
|
* if using the development version of abapGit create a global class instead
|
|
* place the object in a different package than ZABAPGIT
|
|
INCLUDE zabapgit_authorizations_exit IF FOUND.
|
|
|
|
* create class ZCL_ABAPGIT_USER_EXIT implementing ZIF_ABAPGIT_EXIT in following include,
|
|
* if using the development version of abapGit create a global class instead
|
|
* place the object in a different package than ZABAPGIT
|
|
INCLUDE zabapgit_user_exit IF FOUND.
|
|
|
|
INCLUDE zabapgit_gui_pages_userexit IF FOUND.
|
|
|
|
INCLUDE zabapgit_forms.
|
|
|
|
**********************************************************************
|
|
INITIALIZATION.
|
|
PERFORM remove_toolbar USING '1001'. " Remove toolbar on html screen
|
|
lcl_password_dialog=>on_screen_init( ).
|
|
|
|
START-OF-SELECTION.
|
|
PERFORM run.
|
|
|
|
* Hide Execute button from screen
|
|
AT SELECTION-SCREEN OUTPUT.
|
|
IF sy-dynnr = lcl_password_dialog=>c_dynnr.
|
|
lcl_password_dialog=>on_screen_output( ).
|
|
ELSE.
|
|
PERFORM output.
|
|
ENDIF.
|
|
|
|
* SAP back command re-direction
|
|
AT SELECTION-SCREEN ON EXIT-COMMAND.
|
|
PERFORM exit.
|
|
|
|
AT SELECTION-SCREEN.
|
|
IF sy-dynnr = lcl_password_dialog=>c_dynnr.
|
|
lcl_password_dialog=>on_screen_event( sscrfields-ucomm ).
|
|
ENDIF.
|