Marcel/DATA-Hawk
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v1.5.3

Browse Source
This commit is contained in:
Marcel
2025-12-03 09:33:29 +00:00
parent 2a48800a34
commit 144d6bb2e5
7 changed files with 108 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
src/#deso#dh_a.suso.xml Normal file
View File

@@ -0,0 +1,37 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_SUSO" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<TOBJ>
<OBJCT>/DESO/DH_A</OBJCT>
<FIEL1>ACTVT</FIEL1>
<OCLSS>AAAB</OCLSS>
</TOBJ>
<TOBJT>
<LANGU>D</LANGU>
<OBJECT>/DESO/DH_A</OBJECT>
<TTEXT>DATA Hawk Analyse Berechtigung</TTEXT>
</TOBJT>
<TOBJVORFLG>
<OBJCT>/DESO/DH_A</OBJCT>
<FLAG3>N</FLAG3>
<FLAG4>A</FLAG4>
<FLAG5>A</FLAG5>
</TOBJVORFLG>
<TACTZ>
<TACTZ>
<BROBJ>/DESO/DH_A</BROBJ>
<ACTVT>02</ACTVT>
</TACTZ>
<TACTZ>
<BROBJ>/DESO/DH_A</BROBJ>
<ACTVT>03</ACTVT>
</TACTZ>
<TACTZ>
<BROBJ>/DESO/DH_A</BROBJ>
<ACTVT>16</ACTVT>
</TACTZ>
</TACTZ>
</asx:values>
</asx:abap>
</abapGit>

6
src/#deso#dh_hawk.prog.abap
View File

@@ -16,4 +16,10 @@ START-OF-SELECTION.
mac_check_lizenz.
AUTHORITY-CHECK OBJECT '/DESO/DH_A'
ID 'ACTVT' FIELD '03'.
IF sy-subrc ne 0.
MESSAGE 'Keine Berechtigungen zum Starten des Tools!' TYPE 'A'.
endif.
CALL SCREEN 9000.

9
src/#deso#dh_hawk_btc.prog.abap
View File

@@ -38,6 +38,15 @@ PARAMETERS: pa_btc." NO-DISPLAY.
START-OF-SELECTION.
AUTHORITY-CHECK OBJECT '/DESO/DH_A'
ID 'ACTVT' DUMMY.
IF sy-subrc ne 0.
MESSAGE 'Keine Berechtigungen zum Ausführen des Programs' TYPE 'A'.
endif.
IF NOT so_gpart IS INITIAL.
SELECT 'ISUPARTNER' AS objekt, partner AS objkey FROM but100
APPENDING TABLE @gt_sel

7
src/#deso#dh_hawk_btc_start.prog.abap
View File

@@ -14,7 +14,12 @@ PARAMETERS: pa_prel TYPE flag. "ZP-Beziehungen lesen und Daten zu den in der Bez
SELECT-OPTIONS so_sel for ls_sel_txt.
START-OF-SELECTION.
AUTHORITY-CHECK OBJECT '/DESO/DH_A'
ID 'ACTVT' DUMMY.
IF sy-subrc ne 0.
MESSAGE 'Keine Berechtigungen zum Ausführen des Programs' TYPE 'A'.
endif.
LOOP AT so_sel ASSIGNING FIELD-SYMBOL(<fs_so_sel>).
ls_sel-object = <fs_so_sel>-low(10).
ls_sel-objkey = <fs_so_sel>-low+10.

7
src/#deso#dh_hawk_correct.prog.abap
View File

@@ -20,6 +20,13 @@ PARAMETERS: pa_view TYPE /deso/dh_view,
START-OF-SELECTION.
AUTHORITY-CHECK OBJECT '/DESO/DH_A'
ID 'ACTVT' FIELD '16'.
IF sy-subrc ne 0.
MESSAGE 'Keine Berechtigungen zum Ausführen des Programs' TYPE 'A'.
endif.
SELECT * FROM /deso/dh_message
INTO TABLE @DATA(lt_message)
WHERE check_view = @pa_view

3
src/#deso#dh_hawk_da.prog.abap
View File

@@ -28,6 +28,9 @@
CALL TRANSACTION '/DESO/DH_CUST'.
LEAVE PROGRAM.
ENDIF.
END-OF-DEFINITION.
*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TABSTRIP'

40
src/#deso#dh_hawk_mo.prog.abap
View File

@@ -119,6 +119,18 @@ ENDMODULE.
MODULE status_9000 OUTPUT.
SET PF-STATUS '9000'.
SET TITLEBAR '/DESO/DH_HAWK'.
AUTHORITY-CHECK OBJECT '/DESO/DH_A'
ID 'ACTVT' FIELD '02'.
IF sy-subrc ne 0.
LOOP AT SCREEN.
IF screen-name = 'BUT_CUST'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
endif.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
@@ -242,6 +254,19 @@ MODULE status_9003 OUTPUT.
gs_variant-variant = cl_st.
gs_variant-handle = '9003'.
AUTHORITY-CHECK OBJECT '/DESO/DH_A'
ID 'ACTVT' FIELD '16'.
IF sy-subrc ne 0.
LOOP AT SCREEN.
IF screen-name = 'BUT_KORREKTUR'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
PERFORM build_fieldcat_result.
PERFORM build_layout.
@@ -344,6 +369,21 @@ MODULE status_9001 OUTPUT.
gs_variant-variant = cl_st.
gs_variant-handle = '9001'.
AUTHORITY-CHECK OBJECT '/DESO/DH_A'
ID 'ACTVT' FIELD '02'.
IF sy-subrc ne 0.
LOOP AT SCREEN.
IF screen-name = 'BUT_CREATE'
or screen-name = 'BUT_SAVE'
or screen-name = 'BUT_DELETE'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
endif.
PERFORM build_fieldcat.
PERFORM build_layout.