ABAP交货单增强【完整版】

你不是你、

已于 2024-05-29 13:53:30 修改

阅读量4.8k

点赞数 87

分类专栏： ABAP 文章标签：开发语言

于 2024-03-21 15:21:35 首次发布

本文链接：https://blog.csdn.net/weixin_42510881/article/details/136905748

版权

这篇博客详细介绍了如何在ABAP中增强VL01N、VL02N、VL03N交货单的屏幕字段，包括交货单抬头和行项目的增强方法、函数组代码以及交货单保存和修改时的增强实施步骤。同时，讨论了BAPI在修改和创建交货单时如何处理增强字段。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

文章目录

一、VL01N、VL02N、VL03N屏幕增强字段
二、增强实施
三、BAPI
- 1.修改交货单 BAPI_OUTB_DELIVERY_CHANGE
- 2.创建交货单 BAPI_OUTB_DELIVERY_CREATE_SLS

提示：以下是本篇文章正文内容，下面案例可供参考

一、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.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*

最低0.47元/天解锁文章