Çarşamba , 26 Temmuz 2017

ABAP Yekti kontorlü örnek kod

Home Forumlar SAP ABAP Forum ABAP Genel ABAP Yekti kontorlü örnek kod

Bu konu 0 yanıt ve 1 izleyen içeriyor ve en son SAPprof Editör’in profil fotoğrafı SAPprof Editör tarafından 2 yıl 7 ay önce tarihinde güncellendi.

1 yazı görüntüleniyor (toplam 1)
  • Yazar
    Yazılar
  • #1333
    SAPprof Editör’in profil fotoğrafı
    SAPprof Editör
    Katılımcı

    Aşağıdaki kodu kullananarak abap programınız içine yetki kontrolü yapabilirsiniz, ayrıca kendi yetki objenizi oluşturarak bunun ile yetkilendirme yapısı kurarak gerekli kontrolleri yapabilirsiniz.

    DATA : BEGIN OF lt_werks OCCURS 0,
    werks LIKE t001w-werks,
    END OF lt_werks.
    SELECT werks INTO TABLE lt_werks
    FROM t001w
    WHERE werks IN s_werks.
    REFRESH s_werks.CLEAR s_werks.
    LOOP AT lt_werks.
    AUTHORITY-CHECK OBJECT ‘M_MATE_WRK’
    ID ‘ACTVT’ FIELD ’03’
    ID ‘WERKS’ FIELD lt_werks-werks.
    IF sy-subrc EQ 0.
    s_werks-sign = ‘I’ .
    s_werks-option = ‘EQ’ .
    s_werks-low = lt_werks-werks.
    APPEND s_werks.
    ENDIF.
    ENDLOOP.
    IF s_werks[] IS INITIAL.
    MESSAGE e007(zmm_msg).
    ENDIF.

1 yazı görüntüleniyor (toplam 1)

Bu konuyu yanıtlamak için giriş yapmış olmalısınız.