增强

文章

VF01 and VF11 enhancements V60A0001 RV60AFZC

通过调整SAP预制的标准增强点（V60A0001）实现禁止跨月发票冲销需求，V60A0001的触发点是用户敲下VF01或者VF11那一刻、但是还未填充Billing值前的操作。通…

ag
2018.02.12
5.3K200
文章

SAP模块常用增强总结

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

ag
2017.05.30
3.3K300

文章

[转]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.

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.

2017.05.16

2.5K010

文章

SAP发票拆分增强

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

ag
2017.05.15
5.3K220
文章

[转载]SAP 增强

SAP 中如何寻找增强方法一、利用TCODE寻找增强（第二代的增强）执行一个程序（源代码后附），在选择屏幕处输入你所需要增强的程序TCODE，执行後，就会出现一个列表，那里就有…

ag
2017.05.08
2.6K000

增强

VF01 and VF11 enhancements V60A0001 RV60AFZC

SAP模块常用增强总结

[转]SAP User Exit查找工具

SAP发票拆分增强

[转载]SAP 增强