一步一步跟我学函数出口增强开发图解教程.docx
《一步一步跟我学函数出口增强开发图解教程.docx》由会员分享，可在线阅读，更多相关《一步一步跟我学函数出口增强开发图解教程.docx（10页珍藏版）》请在冰豆网上搜索。
一步一步跟我学函数出口增强开发图解教程
一步一步跟我学函数出口增强开发-图解教程
部门：
IT服务部作者：
肖剑锋
一、案例需求：
财务要求管控成品生产订单收货，成品生产订单收货入库数量不能大于成品生产订单报工确认数量，换句话说，报工多少数量，就只能收货入库多少数量。
二、增强背景：
从成本角度看现在成品生产报工与入库并无关联，成品仓只需根据车间开具的成品入库单就可录入系统并做发货操作，因此存在问题有三：
第一、如果车间未报工，成品入库后其生产成本无法自动计入；
第二、只能进行补报工，但成本也需人工手动投入，费时费工；
第三、是成品仓录入数据多与少无法比对（订单数量往往和生产实际数量不一致）。
若做关联，成品仓就会起到应有的复核把关监督的职能，弥补系统流程上的漏洞，减少生产报工和仓库录入的错误，促进和改善系统运行。
但就现实状况来讲对生产报工的压力增大，报工不及时或出错，会造成成品入库不及时，势必影响到订单出货。
三、增强开发的利弊分析：
利：
1.规范生产交货、仓储收货行为；
2.督促生产及时报工；
3.减少漏报工问题；
4.避免货已交客户，但生产尚未报工的现象出现；
5.减少对财务月结的影响；
弊：
在紧急情况下，销售等不及生产报工完成便要出货，那这一控制便是一个障碍，至于这个障碍时间有多长，则取决于生产报工的态度。
（针对一个生产订单的报工时间一般是几分钟便可完成，可忽略不计。
）
四、实现步聚：
Step1:
查找某个事务码的用户出口
1.录入事务码ZPPU018后，回车执行；
2.录入某个可能需要增强的事务码，比如生产收货事务码：
MIGO/MB31；点击执行按钮，或者直接按F8执行；
3.分析找到的函数出口名称；
Step2:
分析函数出口
1.录入事务码SMOD/CMOD，回车执行；
2.输入上面找到的函数出口名称，选取组件，并点击【显示】按钮进入下一个窗口界面；
3.双击某个出口功能模块，进入下一个窗口界面；
4.双击系统预留函数名称，并创建它；
Step3:
实现增强逻辑
1.根据实际业务需求编写自已的程序逻辑；
2.激活并测试，一定要记得激活，否则将无效。
五、附增强逻辑代码：
*&--------------------------------------------------------------*
*& 包括 ZXMBCU02
*& auther:
euler
*& date:
20130807
*&--------------------------------------------------------------*
data:
lv_type type mseg-bwart,"移动类型
lv_prefix1 type c,"生产订单编码前缀
lv_prefix2 type c,"物料编码前缀
lv_temp type makt-matnr,"临时变量，用于临时存储生产订单编码或者物料编码
lv_quan type afko-igmng,"生产订单确认数量
lv_sum1 type aufm-menge,"生产订单已入库数
lv_sum2 type aufm-menge,"生产订单已入库数-冲销的
lv_yxsl type aufm-menge,"可收货入库的有效数量
lv_yxsl2 type string."可收货入库的有效数量,将负号前提
clear:
lv_type, lv_prefix1, lv_prefix2, lv_temp, lv_quan, lv_sum1, lv_sum2, lv_yxsl, lv_yxsl2.
lv_type = I_MSEG-bwart.
clear lv_temp.
lv_temp = I_MSEG-aufnr.
shift lv_temp left deleting leading '0'.
lv_prefix1 = lv_temp+0
（1）.
clear lv_temp.
lv_temp = I_MSEG-matnr.
shift lv_temp left deleting leading '0'.
lv_prefix2 = lv_temp+0
（1）.
if lv_type = '101' and lv_prefix1 = '6' and lv_prefix2 = '6'.
"取生产订单已确认数量
select single igmng
into （lv_quan）
from afko
where aufnr = I_MSEG-aufnr.
"取生订订单已入库数量
select sum（ menge ）
into （lv_sum1）
from aufm
where bwart = '101' and matnr = I_MSEG-matnr and aufnr = I_MSEG-aufnr.
"取生产订单已入库数量-冲销的
select sum（ menge ）
into （lv_sum2）
from aufm
where bwart = '102' and matnr = I_MSEG-matnr and aufnr = I_MSEG-aufnr.
"可收货入库数量
lv_yxsl = lv_quan - （ lv_sum1 - lv_sum2 ）.
lv_yxsl2 = lv_yxsl.
if lv_yxsl < 0.
CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
CHANGING
value = lv_yxsl2.
endif.
"收货入库数量不能大于可收货入库数量
if I_MSEG-erfmg > lv_yxsl.
MESSAGE ID '00' TYPE 'E' NUMBER '001' WITH '收货数量不能大于生产订单报工数量！
允许收货入库数量为：
' lv_yxsl2 I_MSEG-erfme.
exit.
endif.
endif.
六、附查找事务码用户出口程序源代码：
*****************************************************************
* System :
丰彩ERP项目
* Module :
PP AND QM
* Program ID :
U005
* Program :
查找事务码用户出口
* Author :
肖剑锋
* Date :
08.08.2013 16:
11:
57
* Description :
查找事务码用户出口
*****************************************************************
* Modified Recorder :
* Date C#NO Author Content
* ----------- ------- ------------------ ---------------
* 20130808
*****************************************************************
REPORT ZFC_PP_U005.
TABLES :
tstc, "SAP Transaction Codes（SAP 事务代码）
tadir, "Directory of Repository Objects（资源库对象的目录）
modsapt, "SAP Enhancements - Short Texts（SAP增强-短文件）
modact, "Modifications（修正）
trdir, "System table TRDIR（系统表 TRDIR）
tfdir, "Function Module（功能模块）
enlfdir, "Additional Attributes for Function Modules（功能模块的附加属性）
tstct. "Transaction Code Texts（事务代码文本）
DATA :
jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA :
field1（30）.
DATA :
v_devclass LIKE tadir-devclass.
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-SELECTION.
SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.
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.
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:
/（12） '事务代码 - ',
13（20） p_tcode,
34（10） '功能 - ' ,
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:
/ '用户出口数量:
' , sy-tfill.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:
/（95） '此TCode没有用户出口！
'.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:
/（95） '事务代码不存在！
'.
ENDIF.
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.
升级会员 