一步一步跟我学函数出口增强开发图解教程文档格式.docx

一步一步跟我学函数出口增强开发图解教程文档格式.docx

《一步一步跟我学函数出口增强开发图解教程文档格式.docx》由会员分享，可在线阅读，更多相关《一步一步跟我学函数出口增强开发图解教程文档格式.docx（10页珍藏版）》请在冰豆网上搜索。

2.输入上面找到的函数出口名称，选取组件，并点击【显示】按钮进入下一个窗口界面；

3.双击某个出口功能模块，进入下一个窗口界面；

4.双击系统预留函数名称，并创建它；

Step3:

实现增强逻辑

1.根据实际业务需求编写自已的程序逻辑；

2.激活并测试，一定要记得激活，否则将无效。

五、附增强逻辑代码：

*&

--------------------------------------------------------------*

包括 

ZXMBCU02

auther:

euler

date:

20130807

data:

lv_type 

type 

mseg-bwart,"

移动类型

lv_prefix1 

c,"

生产订单编码前缀

lv_prefix2 

物料编码前缀

lv_temp 

makt-matnr,"

临时变量，用于临时存储生产订单编码或者物料编码

lv_quan 

afko-igmng,"

生产订单确认数量

lv_sum1 

aufm-menge,"

生产订单已入库数

lv_sum2 

生产订单已入库数-冲销的

lv_yxsl 

可收货入库的有效数量

lv_yxsl2 

string."

可收货入库的有效数量,将负号前提

clear:

lv_type, 

lv_prefix1, 

lv_prefix2, 

lv_temp, 

lv_quan, 

lv_sum1, 

lv_sum2, 

lv_yxsl, 

lv_yxsl2.

= 

I_MSEG-bwart.

clear 

lv_temp.

I_MSEG-aufnr.

shift 

left 

deleting 

leading 

'

0'

.

lv_temp+0

（1）.

I_MSEG-matnr.

if 

101'

and 

6'

"

取生产订单已确认数量

select 

single 

igmng

into 

（lv_quan）

from 

afko

where 

aufnr 

取生订订单已入库数量

sum（ 

menge 

（lv_sum1）

aufm

bwart 

matnr 

I_MSEG-matnr 

取生产订单已入库数量-冲销的

（lv_sum2）

102'

可收货入库数量

- 

（ 

）.

lv_yxsl.

<

0.

CALL 

FUNCTION 

CLOI_PUT_SIGN_IN_FRONT'

CHANGING

value 

endif.

收货入库数量不能大于可收货入库数量

I_MSEG-erfmg 

>

MESSAGE 

ID 

00'

TYPE 

E'

NUMBER 

001'

WITH 

收货数量不能大于生产订单报工数量！

允许收货入库数量为：

I_MSEG-erfme.

exit.

六、附查找事务码用户出口程序源代码：

*****************************************************************

* 

System 

:

丰彩ERP项目

Module 

PP 

AND 

QM

Program 

U005

查找事务码用户出口

Author 

Date 

08.08.2013 

16:

11:

57

Description 

Modified 

Recorder 

C#NO 

Content

----------- 

------- 

------------------ 

---------------

20130808

REPORT 

ZFC_PP_U005.

TABLES 

tstc, 

SAP 

Transaction 

Codes（SAP 

事务代码）

tadir, 

Directory 

of 

Repository 

Objects（资源库对象的目录）

modsapt, 

Enhancements 

Short 

Texts（SAP增强-短文件）

modact, 

Modifications（修正）

trdir, 

table 

TRDIR（系统表 

TRDIR）

tfdir, 

Function 

Module（功能模块）

enlfdir, 

Additional 

Attributes 

for 

Modules（功能模块的附加属性）

tstct. 

Code 

Texts（事务代码文本）

DATA 

jtab 

LIKE 

tadir 

OCCURS 

0 

HEADER 

LINE.

field1（30）.

v_devclass 

tadir-devclass.

SELECTION-SCREEN 

BEGIN 

OF 

BLOCK 

a01 

FRAME 

TITLE 

text-001.

SKIP.

PARAMETERS 

p_tcode 

tstc-tcode 

OBLIGATORY.

END 

a01.

START-OF-SELECTION.

SELECT 

SINGLE 

FROM 

tstc 

WHERE 

tcode 

EQ 

p_tcode.

IF 

sy-subrc 

tadir

pgmid 

R3TR'

object 

PROG'

obj_name 

tstc-pgmna.

MOVE 

tadir-devclass 

TO 

v_devclass.

NE 

trdir

name 

trdir-subc 

F'

tfdir

pname 

enlfdir

funcname 

tfdir-funcname.

FUGR'

enlfdir-area.

ENDIF.

INTO 

TABLE 

jtab

SMOD'

devclass 

tstct

sprsl 

sy-langu

FORMAT 

COLOR 

COL_POSITIVE 

INTENSIFIED 

OFF.

WRITE:

/（12） 

事务代码 

13（20） 

p_tcode,

34（10） 

功能 

45（50） 

tstct-ttext.

NOT 

jtab[] 

IS 

INITIAL.

/（95） 

sy-uline.

COL_HEADING 

ON.

/1 

sy-vline,

2 

Exit 

Name'

21 

sy-vline 

22 

Description'

95 

sy-vline.

LOOP 

AT 

jtab.

modsapt

sy-langu 

AND

jtab-obj_name.

COL_NORMAL 

jtab-obj_name 

HOTSPOT 

ON,

modsapt-modtext,

ENDLOOP.

DESCRIBE 

COL_TOTAL 

/ 

用户出口数量:

sy-tfill.

ELSE.

COL_NEGATIVE 

此TCode没有用户出口！

事务代码不存在！

LINE-SELECTION.

GET 

CURSOR 

FIELD 

field1.

CHECK 

field1（4） 

JTAB'

SET 

PARAMETER 

MON'

sy-lisel+1（10）.

TRANSACTION 

SKIP 

FIRST 

SCREEN.