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