您的位置: 首页  >  文章  >  【三代增强干货一枚】外向交货单Delivery （VL01N）Header屏幕增强

【三代增强干货一枚】外向交货单Delivery （VL01N）Header屏幕增强

分类: 文章 • 2024-09-21 14:16:40
1、SE11 Append Structure 在交货单抬头增强需要在Likp中添加新结构
【三代增强干货一枚】外向交货单Delivery （VL01N）Header屏幕增强 
增强的结构的字段，我们一般已ZZ / YY开头。
【三代增强干货一枚】外向交货单Delivery （VL01N）Header屏幕增强 

2、SE80创建一个Function Group函数组：YDELIVER_HEAD（Deliver Header:customer Fields）
分别创建两个Function module：
Y_GET_DATA_DELI_HEAD（get values for screen）
【三代增强干货一枚】外向交货单Delivery （VL01N）Header屏幕增强 
source code：
  1.   cs_likp-yyfull     = gv_full.
  2.   cs_likp-yypartial  = gv_partial.
  3.   cs_likp-yyveh_no   = gv_veh_no.
  4.   cs_likp-yylr_dkt_no = gv_lr_dkt_no.
  5.   cs_likp-yylr_dkt_dt = gv_lr_dkt_dt.
  6.   cs_likp-yydriver    = gv_driver.
  7.   cs_likp-yyinote_num = gv_inote_num .
  8.   cs_likp-yyinote_dt  = gv_inote_dt.
  9.   cs_likp-yyinote_cntr = gv_inote_cntr.
  10.   cs_likp-yytrnsp      = gv_trnsp.
复制代码

Y_SET_DATA_DELI_ITEM（set values for screen）
【三代增强干货一枚】外向交货单Delivery （VL01N）Header屏幕增强 
source code：
  1.   gv_full       = is_likp-yyfull  .
  2.   gv_partial    = is_likp-yypartial .
  3.   gv_veh_no     = is_likp-yyveh_no  .
  4.   gv_lr_dkt_no  = is_likp-yylr_dkt_no.
  5.   gv_lr_dkt_dt  = is_likp-yylr_dkt_dt .
  6.   gv_driver     = is_likp-yydriver .
  7.   gv_inote_num  = is_likp-yyinote_num .
  8.   gv_inote_dt   = is_likp-yyinote_dt .
  9.   gv_inote_cntr = is_likp-yyinote_cntr.
  10.   gv_trnsp      = is_likp-yytrnsp.
复制代码

3、创建一个Subscreen屏幕9000
【三代增强干货一枚】外向交货单Delivery （VL01N）Header屏幕增强 
画出屏幕增强需要的字段
【三代增强干货一枚】外向交货单Delivery （VL01N）Header屏幕增强 
输入*，点击Get From Program按钮，获取程序中所有的变量，选中想要的即可
别忘了**全部元素

4、查找相应的BADI
查找方法请参考：SAP第三代增强BADI的实现方法及查找方式
Delivery Header level：LE_SHP_TAB_CUST_HEAD
Delivery Item level：LE_SHP_TAB_CUST_ITEM
这里Additional tab，我们只需要LE_SHP_TAB_CUST_HEAD

5、SE18 BADI实施
【三代增强干货一枚】外向交货单Delivery （VL01N）Header屏幕增强 
在BADI对象的方法中实现我们相应的代码
【三代增强干货一枚】外向交货单Delivery （VL01N）Header屏幕增强 
IF_EX_LE_SHP_TAB_CUST_HEAD~ACTIVATE_TAB_PAGE
  1.   METHOD if_ex_le_shp_tab_cust_head~activate_tab_page.
  2.     ef_caption = text-000. " screen caption
  3.     ef_program = 'SAPLYDELIVER_HEAD'."FunctionPool：sapl + function group name
  4.     ef_position = 4. "tab position
  5.     ef_dynpro  = '9000'. "screen number
  6.     cs_v50agl_cust = 'X'.
  7.   ENDMETHOD.
复制代码

IF_EX_LE_SHP_TAB_CUST_HEAD~TRANSFER_DATA_TO_SUBSCREEN
  1.   METHOD if_ex_le_shp_tab_cust_head~transfer_data_to_subscreen.
  2.     CALL FUNCTION 'Y_SET_DATA_DELI_ITEM'
  3.       EXPORTING
  4.         is_likp = is_likp.
  5.   ENDMETHOD.
复制代码

IF_EX_LE_SHP_TAB_CUST_HEAD~TRANSFER_DATA_FROM_SUBSCREEN
  1.   METHOD if_ex_le_shp_tab_cust_head~transfer_data_from_subscreen.
  2.     CALL FUNCTION 'Y_GET_DATA_DELI_HEAD'
  3.       IMPORTING
  4.         cs_likp = cs_likp.
  5.   ENDMETHOD.
复制代码

**代码，**BADI对象
这里的FUNCTION的import/export为什么是CS_LIKP、IS_LIKP？能不能自己随便定义能？
当然不能，我们可以在Interface：IF_EX_LE_SHP_TAB_CUST_HEAD中Parameter中查找我们所需的传入、传出参数

相关推荐