SAP 批次编码增强（MIGO收货时自动生成批次编号）

MIGO收货的时候自动产生批次编码

*&--- 检查移动类型是否在配置表
    SELECT COUNT(*) FROM zchmmt001 WHERE bwart = cs_goitem-bwart.

    IF sy-subrc = 0.

      IF cs_goitem-charg IS INITIAL.
        cs_goitem-charg = |{ cs_goitem-hsdat+2(6) }0001|.
      ELSE.
        SELECT SINGLE MAX( charg ) FROM mchb WHERE matnr EQ @cs_goitem-matnr AND substring( charg,1,6 ) EQ @cs_goitem-hsdat+2(6) INTO @DATA(lv_charg).

        IF sy-subrc = 0.
          ADD 1 TO lv_charg.
          cs_goitem-charg = lv_charg.
        ENDIF.
      ENDIF.

    ENDIF.