ABAP-SD BAPI产生交货单条件类型ZP01两条，增强控制

本文链接：https://blog.youkuaiyun.com/qq_40977705/article/details/124244569

系统自动产生一个ZP01的条件类型，条件计数器为001，写入的是002

隐式增强位置：MV45AFZZ

出口：userexit_save_document_prepare

*       FORM USEREXIT_SAVE_DOCUMENT_PREPARE *
*---------------------------------------------------------------------*
*       This userexit can be used for changes or checks, before a  *
*       document is saved. *
*                                                                     *
*       If field T180-TRTYP contents 'H', the document will be        *
*       created, else it will be changed. *
*                                                                     *
*       This form is called at the beginning of form BELEG_SICHERN    *
*                                                                     *

    READ TABLE xkomv INTO ls_xkomv3 WITH KEY kschl = 'ZP01'.
    IF SY-SUBRC = 0.
      READ TABLE xkomv INTO ls_xkomv1 WITH KEY zaehk = '002' kschl = 'ZP01'.
      IF SY-SUBRC = 0.
        READ TABLE xkomv INTO ls_xkomv2 WITH KEY zaehk = '001' kschl = 'ZP01'.
        IF SY-SUBRC = 0.
          ls_xkomv2-KBETR = ls_xkomv1-KBETR.
          MODIFY xkomv FROM ls_xkomv2 TRANSPORTING KBETR WHERE zaehk = '001' AND kschl = 'ZP01'.
          DELETE xkomv WHERE zaehk = '002' AND kschl = 'ZP01'.
        ENDIF.
      ENDIF.
    ENDIF.