自己写的销售组织分销渠道的权限检查增强

DATA LT_TVKOT TYPE TABLE OF TVKOT WITH HEADER LINE.

  DATA LT_TVTWT TYPE TABLE OF TVTWT WITH HEADER LINE.

  SELECT * FROM TVKOT INTO TABLE LT_TVKOT WHERE VKORG IN svkorg AND SPRAS = '1'.

  SELECT * FROM TVTWT INTO TABLE LT_TVTWT  WHERE VTWEG IN svtweg AND SPRAS = '1'.

  LOOP AT LT_TVKOT.

    AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'

        ID 'VKORG' FIELD LT_TVKOT-VKORG

        ID 'VTWEG' DUMMY

        ID 'SPART' DUMMY

        ID 'ACTVT' DUMMY.

    IF SY-SUBRC NE 0.

      MESSAGE E899(MM) WITH '没有销售组织' LT_TVKOT-VKORG '的权限'.

    ENDIF.

    AUTHORITY-CHECK OBJECT 'V_VBRK_VKO'

          ID 'VKORG' FIELD LT_TVKOT-VKORG

          ID 'ACTVT' DUMMY.

    IF SY-SUBRC NE 0.

      MESSAGE E899(MM) WITH '没有销售组织' LT_TVKOT-VKORG '的权限'.

    ENDIF.

    CLEAR LT_TVKOT.

  ENDLOOP.

  LOOP AT LT_TVTWT.

    AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'

    ID 'VKORG' DUMMY

    ID 'VTWEG' FIELD LT_TVTWT-VTWEG

    ID 'SPART' DUMMY

    ID 'ACTVT' DUMMY.

    IF SY-SUBRC NE 0.

      MESSAGE E899(MM) WITH '没有分销渠道' LT_TVTWT-VTWEG '的权限'.

    ENDIF.

    CLEAR LT_TVTWT.

  ENDLOOP.

*..........................................

  DATA LT_TVTWT TYPE TABLE OF TVTWT WITH HEADER LINE.

  SELECT * FROM TVTWT INTO TABLE LT_TVTWT  WHERE VTWEG IN S_VTWEG AND SPRAS = '1'.

    AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'

        ID 'VKORG' FIELD P_VKORG

        ID 'VTWEG' DUMMY

        ID 'SPART' DUMMY

        ID 'ACTVT' DUMMY.

    IF SY-SUBRC NE 0.

      MESSAGE E899(MM) WITH '没有销售组织' P_VKORG '的权限'.

    ENDIF.

    AUTHORITY-CHECK OBJECT 'V_VBRK_VKO'

          ID 'VKORG' FIELD P_VKORG

          ID 'ACTVT' DUMMY.

    IF SY-SUBRC NE 0.

      MESSAGE E899(MM) WITH '没有销售组织' P_VKORG '的权限'.

    ENDIF.

  LOOP AT LT_TVTWT.

    AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'

    ID 'VKORG' DUMMY

    ID 'VTWEG' FIELD LT_TVTWT-VTWEG

    ID 'SPART' DUMMY

    ID 'ACTVT' DUMMY.

    IF SY-SUBRC eq 0.

      s_VTWEG-sign = 'I'.

      s_VTWEG-option = 'EQ'.

      s_VTWEG-low = LT_TVTWT-VTWEG.

      APPEND s_VTWEG.

    ENDIF.

     CLEAR: s_VTWEG,LT_TVTWT.

  ENDLOOP.

 loop at p_gt_fvkdfi.

if p_gt_fvkdfi-vtweg not in s_VTWEG[].

  delete p_gt_fvkdfi where vtweg = p_gt_fvkdfi-vtweg.

        delete p_gt_fvkdfi  where vtweg = p_gt_fvkdfi-vtweg.

  ENDIF.

CLEAR p_gt_fvkdfi.

   endloop.