摘要：
本文转载至：https://blog.csdn.net/weixin_43929815/article/details/113928655有两种方法可以增强销售订单标题和行项目屏幕的开发：1使用BADI：BASIC_SLS_HEAD_SCR_CUS下的BADI_SD_sales_BADI和BADI_SLS_item_SCR_CUS实现屏幕增强1。创建一个增强的结构并将其附加到VBAK或VBAP表
此文转载至：https://blog.csdn.net/weixin_43929815/article/details/113928655
在对销售订单抬头和行项目的屏幕做增强开发有两种方法可选：
一.使用BADI：BADI_SD_SALES_BASIC下的BADI_SLS_HEAD_SCR_CUS和BADI_SLS_ITEM_SCR_CUS来实现屏幕增强
1.创建增强结构，附加到VBAK或者VBAP表中，这里以表头为例
2.SE18查看BADI：BADI_SLS_HEAD_SCR_CUS，创建BADI实施ZSD_BADI_SLS_HEAD_SCR_CUS
创建之后可以看到接口下有四个方法，其中1.用来把屏幕挂在销售订单2.将数据读取到子屏幕3.从子屏幕读取数据
3.创建子屏幕
首先创建函数组ZSD_HEAD
新建子屏幕，屏幕内容即为新增的附加结构
新建两个函数模块，用来传递子屏幕的值
以下为这两个函数模块的代码
FUNCTION ZSD_HEAD_INPUT. *"---------------------------------------------------------------------- "“本地接口： *” IMPORTING *" REFERENCE(IS_VBAK) TYPE VBAK *" REFERENCE(IS_T180) TYPE T180 *"---------------------------------------------------------------------- gs_vbak = is_vbak. gs_t180 = is_t180. "这个用来判断是显示还是修改 A代表显示 MOVE-CORRESPONDING is_vbak to zsd_VBAK_1. ENDFUNCTION. FUNCTION ZSD_HEAD_OUTPUT. *"---------------------------------------------------------------------- "“本地接口： *” EXPORTING *" REFERENCE(ES_VBAK) TYPE VBAK *"---------------------------------------------------------------------- MOVE-CORRESPONDING zsd_vbak_1 to gs_vbak. es_vbak = gs_vbak. ENDFUNCTION.
4.在增强实施中的方法调用这个函数组
方法1. method IF_EX_SLS_HEAD_SCR_CUS~ACTIVATE_TAB_PAGE. DATA ls_tab like LINE OF CT_CUS_HEAD_TAB. IF sy-tcode CP ‘VA++’. ls_tab-HEAD_CAPTION = ‘项目信息’. ls_tab-HEAD_PROGRAM = ‘SAPLZSD_HEAD’."函数组主程序名称 ls_tab-HEAD_DYNPRO = ‘9001’. APPEND ls_tab to CT_CUS_HEAD_TAB. ENDIF. endmethod.
方法2. method IF_EX_SLS_HEAD_SCR_CUS~TRANSFER_DATA_TO_SUBSCREEN. CALL FUNCTION ‘ZSD_HEAD_INPUT’ EXPORTING is_vbak = is_vbak is_t180 = is_t180 endmethod.
方法3. method IF_EX_SLS_HEAD_SCR_CUS~TRANSFER_DATA_FROM_SUBSCREEN. CALL FUNCTION ‘ZSD_HEAD_OUTPUT’ IMPORTING ES_VBAK = CS_VBAK endmethod.
二.使用销售订单程序SAPMV45A中预留的屏幕8309，8459实现增强
此种方法实现较简单
1.找到销售订单主程序SAPMV45A，再找到这两个子屏幕
直接根据新增的结构编辑子屏幕
同时增加字段控制代码
MODULE SO_ADD_8309 OUTPUT. LOOP AT SCREEN. IF SY-TCODE = 'VA03' OR SY-TCODE = 'VA23'. SCREEN-INPUT = '0'. ELSE. IF SCREEN-GROUP1 EQ 'Z1'. SCREEN-INPUT = '0'. ELSE. SCREEN-INPUT = '1'. ENDIF. ENDIF. MODIFY SCREEN.
ENDLOOP. ENDMODULE.