SAP ABAP MIGO交货单gohead-LFSNR字段增强

需求：根据采购订单供应商信息，自动填充交货单字段。

效果：

经过DEBUG及翻译资料。并无合适的增强用来做增强。所以可以采用隐士增强的方式来实现功能。

se38:LMIGOHG2 找到  METHOD pai. 。

创建增强实施：

*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZEP_LMIGOHG2.    "active version
*自动生成交货单号 。
*103收货订单类型：ZNB1\ZNB2\ZNB3\ZNB4\ZNB5\ZNB6\ZNB9\ZNBF\ZNBX\ZNBY
*101收货订单类型：ZNB7\ZNB8
*号码规则：供应商+系统的六位年月日+两位流水（根据供应商送货次数来）
*两位流水：如果此供应商一次送了三张采购订单，则是三位流水，三次送货也是三位流水。
  DATA:LS_EKKO TYPE EKKO.
    DATA:LV_XBLNR TYPE MKPF-XBLNR .
    DATA:LV_STR TYPE CHAR02 .
    DATA:LV_STRS TYPE CHAR02 .
    DATA:LV_NUM TYPE N LENGTH 2 .
    DATA:LV_BSART TYPE EKKO-BSART .
    DATA:LV_LIFNR TYPE EKKO-LIFNR.
    BREAK ZWANGGF.
    if gohead-LFSNR is INITIAL and sy-tcode eq 'MIGO'.
    IF GODYNPRO-ACTION EQ 'A01' AND godynpro-REFDOC EQ 'R01' AND godynpro-PO_NUMBER IS NOT INITIAL .
*自动生成交货单号 。
*103收货订单类型：ZNB1\ZNB2\ZNB3\ZNB4\ZNB5\ZNB6\ZNB9\ZNBF\ZNBX\ZNBY
*101收货订单类型：ZNB7\ZNB8
*号码规则：供应商+系统的六位年月日+两位流水（根据供应商送货次数来）
*两位流水：如果此供应商一次送了三张采购订单，则是三位流水，三次送货也是三位流水。

      CLEAR LV_BSART .
      SELECT SINGLE * INTO LS_EKKO FROM EKKO
        WHERE EBELN = godynpro-PO_NUMBER.
      LV_BSART = LS_EKKO-BSART .
      FIND LV_BSART IN 'ZNB1\ZNB2\ZNB3\ZNB4\ZNB5\ZNB6\ZNB9\ZNBF\ZNBX\ZNBY\ZNB7\ZNB8' .
      IF SY-SUBRC = 0 .
*查询已经流水的记录。
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
          EXPORTING
            INPUT  = LS_EKKO-LIFNR
          IMPORTING
            OUTPUT = LV_LIFNR.
        CONCATENATE LV_LIFNR SY-DATUM+2(6) '*' INTO LV_XBLNR .
        SELECT
          MKPF~MBLNR,
          MKPF~XBLNR
          INTO TABLE @DATA(LT_HIS)
          FROM MKPF INNER JOIN MSEG ON MSEG~MBLNR EQ MKPF~MBLNR AND MSEG~MJAHR EQ MKPF~MJAHR
          WHERE
          MKPF~CPUDT EQ @SY-DATUM
          AND MKPF~VGART EQ 'WE'
          AND MSEG~LIFNR EQ @LS_EKKO-LIFNR .
*获取系统中的记录数据。
        DELETE LT_HIS WHERE XBLNR NP LV_XBLNR .
        SORT LT_HIS BY XBLNR DESCENDING .
        LOOP AT LT_HIS INTO DATA(LS_HIS) .
          LV_STR = LS_HIS-XBLNR+13(2) .
          CALL FUNCTION 'CATS_NUMERIC_INPUT_CHECK'
            EXPORTING
              INPUT      = LV_STR
*             INTERNAL   = 'X'
            IMPORTING
              OUTPUT     = LV_STRS
            EXCEPTIONS
              NO_NUMERIC = 1
*             OTHERS     = 2
            .
          IF SY-SUBRC <> 0.
            CONTINUE .
          ELSE .
            LV_NUM =  LV_STR .
            EXIT .
          ENDIF.
        ENDLOOP .
        IF LV_NUM IS INITIAL .
          LV_NUM = 01 .
        ELSE .
          LV_NUM = LV_NUM + 1 .
        ENDIF .
        CONCATENATE LV_LIFNR SY-DATUM+2(6) LV_NUM INTO gohead-LFSNR .
      ENDIF .
  ENDIF .
  endif .
ENDENHANCEMENT.

如果通过MIGO_DIALOG函数跳转，需要设置 I_REF_DOC_NO参数即可。