v1.5.3

src/#deso#dh_a.suso.xml

@@ -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>

src/#deso#dh_hawk.prog.abap

@@ -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.

src/#deso#dh_hawk_btc.prog.abap

@@ -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

src/#deso#dh_hawk_btc_start.prog.abap

@@ -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.

src/#deso#dh_hawk_correct.prog.abap

@@ -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

src/#deso#dh_hawk_da.prog.abap

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

src/#deso#dh_hawk_mo.prog.abap

@@ -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.