回车校验

AT  SELECTION-SCREEN .
   IF SSCRFIELDS -UCOMM  =  'ONLI' .
     PERFORM AUTHORITY_CHECK .

  ENDIF.

FORM AUTHORITY_CHECK .
  DATA:LT_TVKO LIKE TABLE OF TVKO WITH HEADER LINE.

  LOOP AT LT_TVKO.
    R_VKORG-LOW = LT_TVKO-VKORG.
    R_VKORG-OPTION = 'EQ'.
    AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'
             ID 'VKORG' FIELD LT_TVKO-VKORG
             ID 'VTWEG' DUMMY
             ID 'SPART' DUMMY
             ID 'ACTVT' FIELD '03'.
    IF SY-SUBRC <> 0.
      R_VKORG-SIGN = 'E'.
    ELSE.
      R_VKORG-SIGN = 'I'.
    ENDIF.
    APPEND R_VKORG.
    CLEAR R_VKORG.
  ENDLOOP.


ENDFORM.