SAPBADI屏幕增强实例MBMIGOBADI.pdf

文档收集于互联网，已重新整理排版.word版本可编辑.欢迎下载支持.

以下根据系统实例做的

最终效果：

1、SE11建立数据表，主要是用于存放附加的数据；

MANDTMANDTCLNT30客户端

MBLNRMBLNRCHAR100物料凭证编号

MJAHRMJAHRNUMC40物料凭证年度

ZEILEMBLPONUMC40物料凭证中的项目

BADI_ERFMGERFMGQUAN133以输入单位计的数量

BADI_ERFMEERFMEUNIT30条目单位

2、建立结构，在屏幕数据交换时使用

3、建立表类型

设置关键字段：

4、SE80建立函数组

创建屏幕1000，

设计格式，插入附加字段

创建function:ZJIM_BADI_EXAMPLE_GET_DATA

*

**Localinterface:

*EXPORTING

*REFERENCE(ES_MIGO_BADI_SCREEN_FIELDS)TYPE

*ZJIM_BADI_EXAMPLE_SCREEN_FIELD

*

*Getalldatafromfieldsofexternalscreen

*Firstmoveallcustomer-fields

MOVE-CORRESPONDINGzjim_badi_examplTOes_migo_badi_screen_field

s.

*SecondmoveallGOITEM-fields(displayedonexternalscreen)

function:ZJIM_BADI_EXAMPLE_PUT_DATA

*

**Localinterface:

*IMPORTING

*REFERENCE(IS_MIGO_BADI_SCREEN_FIELDS)TYPE

*ZJIM_BADI_EXAMPLE_SCREEN_FIELD

*

*Putalldatafromfieldstoexternalscreen

*Firstfillallcustomer-fields

MOVE-CORRESPONDINGis_migo_badi_screen_fieldsTOZJIM_badi_examp

l.

1文档来源为:从网络收集整理.word版本可编辑.

文档收集于互联网，已重新整理排版.wor版本可编辑.欢迎下载支持.

*secondfillallGOITEM-fields(displayedonexternalscreen)

function:ZJIM_BADI_EXAMPLE_UPDATE_DATA

*

**Updatefunctionmodule:

*

**Localinterface:

*TABLES

*IT_MIGO_BADI_EXAMPLESTRUCTUREZJIM_BADI_EXAMPL

*

*Databseupdate:

INSERTzjim_BADI_EXAMPLFROMTABLEIT_MIGO_BADI_EXAMPLE.

IFsy-subrc0.

MESSAGEa398(00)WITHErrorupdateMIGO_BADI_EXAMPL.

ENDIF.

INCLUDE:LZJIM_BADI001TOP

TABLES:Zjim_badi_exampl.

到这里增强的准备工作就做完了，下面开始创建实现：

5、SE19创建实现

6、创建执行类ZCL_I