Perşembe , 14 Aralık 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 tarafından 3 yıl önce tarihinde güncellendi.

1 yazı görüntüleniyor (toplam 1)
  • Yazar
    Yazılar
  • #1333

    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.