文章目录
提示：以下是本篇文章正文内容，下面案例可供参考
一、VL01N、VL02N、VL03N屏幕增强字段
1.附加结构
2.屏幕增强
1.交货单抬头增强
方法 IF_EX_LE_SHP_TAB_CUST_OVER~ACTIVATE_TAB_PAGE
METHOD if_ex_le_shp_tab_cust_over~activate_tab_page.
ef_caption = '自定义字段'(001).
ef_position = 20.
ef_program = 'SAPLZMMG014'(002).
ef_dynpro = '9100'(003).
cs_v50agl_cust = abap_true.
ENDMETHOD.
方法 IF_EX_LE_SHP_TAB_CUST_OVER~TRANSFER_DATA_TO_SUBSCREEN
METHOD if_ex_le_shp_tab_cust_over~transfer_data_to_subscreen.
CALL FUNCTION 'Z_MM014_HEAD_TO_SUBSCREEN'
EXPORTING
is_likp = is_likp.
ENDMETHOD.
方法 IF_EX_LE_SHP_TAB_CUST_OVER~TRANSFER_DATA_FROM_SUBSCREEN
METHOD if_ex_le_shp_tab_cust_over~transfer_data_from_subscreen.
CALL FUNCTION 'Z_MM014_HEAD_FROM_SUBSCREEN'
IMPORTING
es_likp = cs_likp.
ENDMETHOD.
2.交货单行项增强
方法 IF_EX_LE_SHP_TAB_CUST_ITEM~ACTIVATE_TAB_PAGE
METHOD if_ex_le_shp_tab_cust_item~activate_tab_page.
ef_caption = '自定义字段'(001).
ef_position = 20.
ef_program = 'SAPLZMMG014'(002).
ef_dynpro = '9000'(003).
cs_v50agl_cust = abap_true.
ENDMETHOD.
方法 IF_EX_LE_SHP_TAB_CUST_ITEM~TRANSFER_DATA_TO_SUBSCREEN
METHOD if_ex_le_shp_tab_cust_item~transfer_data_to_subscreen.
CALL FUNCTION 'Z_MM014_ITEM_TO_SUBSCREEN'
EXPORTING
is_lips = is_lips.
ENDMETHOD.
方法 IF_EX_LE_SHP_TAB_CUST_ITEM~TRANSFER_DATA_FROM_SUBSCREEN
METHOD if_ex_le_shp_tab_cust_item~transfer_data_from_subscreen.
CALL FUNCTION 'Z_MM014_ITEM_FROM_SUBSCREEN'
IMPORTING
es_lips = cs_lips.
ENDMETHOD.
3.函数组代码
交货单抬头屏幕
交货单行项目屏幕
LZMMG014TOP
FUNCTION-POOL ZMMG014. "MESSAGE-ID ..
* INCLUDE LZMMG014D... " Local class definition
TABLES: LIKP,LIPS.
FIELD-SYMBOLS: <GFS_ANY>.
CONSTANTS: CNS_C TYPE LIPS-WBSTA VALUE 'C',
CNS_0 TYPE SCREEN-INPUT VALUE '0',
CNS_1 TYPE SCREEN-INPUT VALUE '1',
CNS_TRTYP TYPE STRING VALUE '(SAPMV50A)T180-TRTYP',
CNS_A TYPE T180-TRTYP VALUE 'A',
CNS_01 TYPE ACTIV_AUTH VALUE '01',
CNS_02 TYPE ACTIV_AUTH VALUE '02',
CNS_03 TYPE ACTIV_AUTH VALUE '03',
CNS_VL01N TYPE SY-TCODE VALUE 'VL01N',
CNS_VL01NO TYPE SY-TCODE VALUE 'VL01NO',
CNS_VL02N TYPE SY-TCODE VALUE 'VL02N',
CNS_VL03N TYPE SY-TCODE VALUE 'VL03N',
CNS_VL31N TYPE SY-TCODE VALUE 'VL31N',
CNS_VL32N TYPE SY-TCODE VALUE 'VL32N',
CNS_VL33N TYPE SY-TCODE VALUE 'VL33N',
CNS_V_LIKP_VST TYPE XUOBJECT VALUE 'V_LIKP_VST',
CNS_VSTEL TYPE FIELDNAME VALUE 'VSTEL',
CNS_ACTVT TYPE FIELDNAME VALUE 'ACTVT',
CNS_ZZFHDH TYPE FIELDNAME VALUE 'LIKP-ZZFHDH',
CNS_ZZXSDH TYPE FIELDNAME VALUE 'LIKP-ZZXSDH',
CNS_ZZJFDLX TYPE FIELDNAME VALUE 'LIKP-ZZJFDLX',
CNS_ZZPACKMATNR TYPE FIELDNAME VALUE 'LIPS-ZZPACKMATNR',
CNS_ZZPACKDESC TYPE FIELDNAME VALUE 'LIPS-ZZPACKDESC',
CNS_ZZPACKNUM TYPE FIELDNAME VALUE 'LIPS-ZZPACKNUM',
CNS_ZZVBELN TYPE LVC_S_FCAT-FIELDNAME VALUE 'LIPS-ZZVBELN',
CNS_ZZPOSNR TYPE LVC_S_FCAT-FIELDNAME VALUE 'LIPS-ZZPOSNR',
CNS_ZZVBELNSO TYPE LVC_S_FCAT-FIELDNAME VALUE 'LIPS-ZZVBELNSO',
CNS_ZZPOSNRSO TYPE LVC_S_FCAT-FIELDNAME VALUE 'LIPS-ZZPOSNRSO'.
CONSTANTS: CNS_TABNAME TYPE DFIES-TABNAME VALUE `ZAMMS_LIKP`,
CNS_FNAME_ZZVMODEL TYPE DFIES-FIELDNAME VALUE `ZZVMODEL`,
CNS_DYNPF_ZZVMODEL TYPE HELP_INFO-DYNPROFLD VALUE `LIKP-ZZVMODEL`,
CNS_DYNPF_ZZVMODEL_T TYPE HELP_INFO-DYNPROFLD VALUE `GS_TEXT-ZZVMODEL_T`,
CNS_FNAME_ZZLIFNR TYPE DFIES-FIELDNAME VALUE `ZZLIFNR`,
CNS_DYNPF_ZZLIFNR TYPE HELP_INFO-DYNPROFLD VALUE `LIKP-ZZLIFNR`,
CNS_DYNPF_ZZLIFNR_T TYPE HELP_INFO-DYNPROFLD VALUE `GS_TEXT-ZZLIFNR_T`,
CNS_FNAME_ZZTRATY TYPE DFIES-FIELDNAME VALUE `ZZTRATY`,
CNS_DYNPF_ZZTRATY TYPE HELP_INFO-DYNPROFLD VALUE `LIKP-ZZTRATY`,
CNS_DYNPF_ZZTRATY_T TYPE HELP_INFO-DYNPROFLD VALUE `GS_TEXT-ZZTRATY_T`,
CNS_FNAME_ZZJFDLX TYPE DFIES-FIELDNAME VALUE `ZZJFDLX`,
CNS_DYNPF_ZZJFDLX TYPE HELP_INFO-DYNPROFLD VALUE `LIKP-ZZJFDLX`,
CNS_DYNPF_ZZJFDLX_T TYPE HELP_INFO-DYNPROFLD VALUE `GS_TEXT-ZZJFDLX_T`,
CNS_FNAME_ZZROUTE TYPE DFIES-FIELDNAME VALUE `ZZROUTE`,
CNS_DYNPF_ZZROUTE TYPE HELP_INFO-DYNPROFLD VALUE `LIKP-ZZROUTE`,
CNS_DYNPF_ZZROUTE_T TYPE HELP_INFO-DYNPROFLD VALUE `GS_TEXT-ZZROUTE_T`,
CNS_FNAME_ZZJFFS TYPE DFIES-FIELDNAME VALUE `ZZJFFS`,
CNS_DYNPF_ZZJFFS TYPE HELP_INFO-DYNPROFLD VALUE `LIKP-ZZJFFS`,
CNS_DYNPF_ZZJFFS_T TYPE HELP_INFO-DYNPROFLD VALUE `GS_TEXT-ZZJFFS_T`,
CNS_ZD_JFDLX TYPE DD07T-DOMNAME VALUE `ZD_JFDLX`,
CNS_ZD_ZJFFS TYPE DD07T-DOMNAME VALUE `ZD_ZJFFS`,
CNS_PICK TYPE SY-UCOMM VALUE `PICK`,
CNS_ENT2 TYPE SY-UCOMM VALUE `ENT2`,
CNS_TO TYPE MARA-MEINS VALUE 'TO'.
DATA: GS_TEXT TYPE ZMMS_LIKP_TEXT.
DATA: GT_DYNPFIELDS TYPE TABLE OF DYNPREAD WITH HEADER LINE,
GS_RETURN TYPE DDSHRETVAL,
GV_ROW LIKE SY-TABIX.
DEFINE SET_DYNPFIELDS.
CLEAR: GT_DYNPFIELDS.
CLEAR:GT_DYNPFIELDS.
GT_DYNPFIELDS-FIELDNAME = &1. "填入需要读值的字段名
GT_DYNPFIELDS-STEPL = &2.
GT_DYNPFIELDS-FIELDVALUE = &3.
APPEND GT_DYNPFIELDS.
END-OF-DEFINITION.
LZMMG014I01
*----------------------------------------------------------------------*
***INCLUDE LZMMG014I01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9100 INPUT.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module CHECK_ZCYSL OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE CHECK_ZCYSL INPUT.
IF LIPS-ZCYSL <> 0 AND LIPS-ZCYSL > LIPS-LFIMG.
MESSAGE E147(ZMM_MSG001) DISPLAY LIKE ZIF_BC_CONS=>CNS_S.
ENDIF.
ENDMODULE.
LZMMG014O01
*----------------------------------------------------------------------*
***INCLUDE LZMMG014O01.
*----------------------------------------------------------------------*
*&----------
