SMOD增强激活

文章

SAP模块常用增强总结

MM模块：采购订单增强： BADI ：ME_GUI_PO_CUST ME_PROCESS_PO_CUST物料凭证增强： BADI：MB_DOCUMENT_BADI USER-EXI…

ag

2017.05.30

2.9K300

Graphical user interface, text, application Description automatically generated

文章

SAP销售订单行项目利润中心确定

在SAP中录入销售订单时，行项目中的利润中心按照先找替代、找不到再取物料主数据的优先级获得值。替代可通过SAP销售订单利润中心替代实现或者在MV45AFZZ增强的USEREXIT_…

ag

2021.12.01

2.4K010

Graphical user interface, application, table Description automatically generated

文章

SMOD根据增强函数查找增强点

首先，假设我们在SE38增强程序中，通过展开左侧导航清单再展开函数组就基本能定位到增强函数，如果增强函数和include文件不是在一个包，可以SE38查找include的所用处清单…

ag

2022.02.21

889010

文章

SAP销售订单利润中心替代

在SAP系统中，销售订单行项目中的利润中心默认是从物料主数据的“销售-工厂”视图中带出来的（存在于MARC表），如果替换成其他利润中心，需要做一些增强。一般替代销售订单利润中心或…

ag

2021.09.03

3.5K020

文章

FBL3N和FAGLL03添加额外字段

往会计凭证行项目fbl3n、fagll03添加BKPF或者BSEG表里有的科目，直接在后台配置之后，前台查询结果的布局中放出字段即可。如果是BKPF和BSEG没有的字段，需要BT…

ag

2022.06.30

1.4K010

文章

[转]SAP User Exit查找工具

REPORT z_find_userexit NO STANDARD PAGE HEADING.
TABLES : tstc,     "SAP Transaction Codes
         tadir,    "Directory of Repository Objects
         modsapt,  "SAP Enhancements - Short Texts
         modact,   "Modifications
         trdir,    "System table TRDIR
         tfdir,    "Function Module
         enlfdir,  "Additional Attributes for Function Modules
         tstct.    "Transaction Code Texts
*&---------------------------------------------------------------------*
*& Variables
*&---------------------------------------------------------------------*
DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
*&---------------------------------------------------------------------*
*& Selection Screen Parameters
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP.
PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK a01.
*&---------------------------------------------------------------------*
*& Start of main program
*&---------------------------------------------------------------------*
START-OF-SELECTION.
* Validate Transaction Code
  SELECT SINGLE * FROM tstc
    WHERE tcode EQ p_tcode.
* Find Repository Objects for transaction code
  IF sy-subrc EQ 0.
    SELECT SINGLE * FROM tadir
       WHERE pgmid    = 'R3TR'
         AND object   = 'PROG'
         AND obj_name = tstc-pgmna.
    MOVE : tadir-devclass TO v_devclass.
    IF sy-subrc NE 0.
      SELECT SINGLE * FROM trdir
         WHERE name = tstc-pgmna.
      IF trdir-subc EQ 'F'.
        SELECT SINGLE * FROM tfdir
 
          WHERE pname = tstc-pgmna.
 
        SELECT SINGLE * FROM enlfdir
 
          WHERE funcname = tfdir-funcname.
 
        SELECT SINGLE * FROM tadir
 
          WHERE pgmid    = 'R3TR'
 
            AND object   = 'FUGR'
 
            AND obj_name = enlfdir-area.
 
        MOVE : tadir-devclass TO v_devclass.
 
      ENDIF.
 
    ENDIF.
 
* Find SAP Modifactions
 
    SELECT * FROM tadir
 
      INTO TABLE jtab
 
      WHERE pgmid    = 'R3TR'
 
        AND object   = 'SMOD'
 
        AND devclass = v_devclass.
 
    SELECT SINGLE * FROM tstct
 
      WHERE sprsl EQ sy-langu
 
        AND tcode EQ p_tcode.
 
    FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
 
    WRITE:/(19) 'Transaction Code - ',
 
    20(20) p_tcode,
 
    45(50) tstct-ttext.
 
    SKIP.
 
    IF NOT jtab[] IS INITIAL.
 
      WRITE:/(95) sy-uline.
 
      FORMAT COLOR COL_HEADING INTENSIFIED ON.
 
      WRITE:/1 sy-vline,
 
      2 'Exit Name',
 
      21 sy-vline ,
 
      22 'Description',
 
      95 sy-vline.
 
      WRITE:/(95) sy-uline.
 
      LOOP AT jtab.
 
        SELECT SINGLE * FROM modsapt
 
        WHERE sprsl = sy-langu AND
 
        name = jtab-obj_name.
 
        FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
 
        WRITE:/1 sy-vline,
 
        2 jtab-obj_name HOTSPOT ON,
 
        21 sy-vline ,
 
        22 modsapt-modtext,
 
        95 sy-vline.
 
      ENDLOOP.
 
      WRITE:/(95) sy-uline.
 
      DESCRIBE TABLE jtab.
 
      SKIP.
 
      FORMAT COLOR COL_TOTAL INTENSIFIED ON.
 
      WRITE:/ 'No of Exits:' , sy-tfill.
 
    ELSE.
 
      FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
 
      WRITE:/(95) 'No User Exit exists'.
 
    ENDIF.
 
  ELSE.
 
    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
 
    WRITE:/(95) 'Transaction Code Does Not Exist'.
 
  ENDIF.
 
* Take the user to SMOD for the Exit that was selected.
 
AT LINE-SELECTION.
 
  GET CURSOR FIELD field1.
 
  CHECK field1(4) EQ 'JTAB'.
 
  SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
 
  CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

REPORT z_find_userexit NO STANDARD PAGE HEADING.

TABLES : tstc, "SAP Transaction Codes

tadir, "Directory of Repository Objects

modsapt, "SAP Enhancements - Short Texts

modact, "Modifications

trdir, "System table TRDIR

tfdir, "Function Module

enlfdir, "Additional Attributes for Function Modules

tstct. "Transaction Code Texts

*&---------------------------------------------------------------------*

*& Variables

*&---------------------------------------------------------------------*

DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.

DATA : field1(30).

DATA : v_devclass LIKE tadir-devclass.

*&---------------------------------------------------------------------*

*& Selection Screen Parameters

*&---------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.

SELECTION-SCREEN SKIP.

PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN END OF BLOCK a01.

*&---------------------------------------------------------------------*

*& Start of main program

*&---------------------------------------------------------------------*

START-OF-SELECTION.

* Validate Transaction Code

SELECT SINGLE * FROM tstc

WHERE tcode EQ p_tcode.

* Find Repository Objects for transaction code

IF sy-subrc EQ 0.

SELECT SINGLE * FROM tadir

WHERE pgmid = 'R3TR'

AND object = 'PROG'

AND obj_name = tstc-pgmna.

MOVE : tadir-devclass TO v_devclass.

IF sy-subrc NE 0.

SELECT SINGLE * FROM trdir

WHERE name = tstc-pgmna.

IF trdir-subc EQ 'F'.

SELECT SINGLE * FROM tfdir

WHERE pname = tstc-pgmna.

SELECT SINGLE * FROM enlfdir

WHERE funcname = tfdir-funcname.

SELECT SINGLE * FROM tadir

WHERE pgmid = 'R3TR'

AND object = 'FUGR'

AND obj_name = enlfdir-area.

MOVE : tadir-devclass TO v_devclass.

ENDIF.

* Find SAP Modifactions

SELECT * FROM tadir

INTO TABLE jtab

WHERE pgmid = 'R3TR'

AND object = 'SMOD'

AND devclass = v_devclass.

SELECT SINGLE * FROM tstct

WHERE sprsl EQ sy-langu

AND tcode EQ p_tcode.

FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.

WRITE:/(19) 'Transaction Code - ',

20(20) p_tcode,

45(50) tstct-ttext.

SKIP.

IF NOT jtab[] IS INITIAL.

WRITE:/(95) sy-uline.

FORMAT COLOR COL_HEADING INTENSIFIED ON.

WRITE:/1 sy-vline,

2 'Exit Name',

21 sy-vline ,

22 'Description',

95 sy-vline.

WRITE:/(95) sy-uline.

LOOP AT jtab.

SELECT SINGLE * FROM modsapt

WHERE sprsl = sy-langu AND

name = jtab-obj_name.

FORMAT COLOR COL_NORMAL INTENSIFIED OFF.

WRITE:/1 sy-vline,

2 jtab-obj_name HOTSPOT ON,

21 sy-vline ,

22 modsapt-modtext,

95 sy-vline.

ENDLOOP.

WRITE:/(95) sy-uline.

DESCRIBE TABLE jtab.

SKIP.

FORMAT COLOR COL_TOTAL INTENSIFIED ON.

WRITE:/ 'No of Exits:' , sy-tfill.

ELSE.

FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.

WRITE:/(95) 'No User Exit exists'.

ENDIF.

ELSE.

FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.

WRITE:/(95) 'Transaction Code Does Not Exist'.

ENDIF.

* Take the user to SMOD for the Exit that was selected.

AT LINE-SELECTION.

GET CURSOR FIELD field1.

CHECK field1(4) EQ 'JTAB'.

SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).

CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.

ag

2017.05.16

2.3K010

文章

增强SAP VBAK表实现将自定义字段展示到销售订单抬头附加屏幕中

需求：需要在VBAK表中增加一些客制化字段，并将这些字段展示到销售订单抬头的“附加B”屏幕中。当修改销售订单时，这些字段可编辑，反之只能查看。分析： SAP增强的方式有多种，本…

ag

2020.11.25

4.0K030

文章

统计SAP所有tcode使用日志的思路

前提： SAP系统本身有很强大的日志审计功能，但系统标准功能比较复杂，加上考虑到系统性能问题，RZ10未开启系统审计功能。但有统计事务代码、包括标准事剩余80%内容付费后可查看 …

ag

2020.05.13

3.2K000

文章

SAP发票拆分增强

首先，定义销售凭证抬头。里面选择对应的销售订单是与开票相关还是交货相关；然后，事务代码VOFM中定义Billing拆分的Routine。一般可以拷贝一个标准的并以9开头（菜单-数据…

ag

2017.05.15

4.7K220

文章

BAPI_ACC_DOCUMENT_POST生成预制凭证增强

1、找该BAPI增强出口ACC_DOCUMENT（SE24跟踪）； 2、SE19对BADI实例化

READ TABLE c_extension2 INTO wa_extension WITH KEY structure = 'PARK'.
IF sy-subrc = 0.
MOVE '2' TO c_acchd-status_new.
DELETE c_extension2 INDEX sy-tabix.
ENDIF.

1

2

3

4

5

READ TABLE c_extension2 INTO wa_extension WITH KEY structure = 'PARK'.

IF sy-subrc = 0.

MOVE '2' TO c_acchd-status_new.

DELETE c_extension2 INDEX sy-tabix.

ENDIF.

3、自定义程序调…

ag

2017.05.01

4.4K010

SMOD增强激活

相关文章

发表回复