ABAP-控制VF02、VF03（会计批准按钮）

SE38：MV60AF0E
*---------------------------------------------------------------------*
*       FORM EXCLUDE_FUNCTION_TRTYP.                                  *
*---------------------------------------------------------------------*
*       Bei Anzeigen sind gewisse FCODE nicht zulässig                *
*---------------------------------------------------------------------*
FORM EXCLUDE_FUNCTION_TRTYP.

""""""""""" ...................省略
 
ENHANCEMENT-POINT EXCLUDE_FUNCTION_TRTYP_01 SPOTS ES_SAPMV60A.
*$*$-Start: EXCLUDE_FUNCTION_TRTYP_01-----------------------------------------------------------$*$*
*$*$-End:   EXCLUDE_FUNCTION_TRTYP_01-----------------------------------------------------------$*$*
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form EXCLUDE_FUNCTION_TRTYP, End                                                                                                                  A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZIM_MV60AF0E_01.    "active version
DATA: lt_data LIKE TABLE OF us335 WITH HEADER LINE.

DATA:l_vkorg TYPE vkorg.
data:l_status type c.

CALL FUNCTION 'GET_AUTH_VALUES'
  EXPORTING
    object1           = 'V_VBRK_VKO'
    user              = sy-uname
  TABLES
    values            = lt_data
  EXCEPTIONS
    user_doesnt_exist = 1
    OTHERS            = 2.

LOOP AT lt_data WHERE field  = 'VKORG' AND lowval <> '*'.
  l_vkorg = lt_data-lowval.
  if l_vkorg+0(2) = 'XB'.
    l_status = 'X'.
    exit.
  endif.
ENDLOOP.

 IF l_status = 'X'.
  IF sy-tcode = 'VF02'.
    cua_exclude-function = 'FKFR'.
    APPEND cua_exclude.
  ELSEIF sy-tcode = 'VF03'.
    DELETE cua_exclude WHERE function = 'FKFR'.
  ENDIF.
ENDIF.

ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ENDFORM.
*eject
ABAP-控制VF02、VF03（会计批准按钮）

猜你喜欢
