创建物料批次特性

FUNCTION Z_MM000_BATCH_CREATE.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(I_ZDJLSHC) TYPE  ZMMEDJLSHC OPTIONAL
*"     REFERENCE(I_DJLX) TYPE  ZMMEDJLX OPTIONAL
*"     REFERENCE(I_ZMMT0003) TYPE  ZMMT0003
*"  TABLES
*"      T_ZMMT0004 STRUCTURE  ZMMT0004 OPTIONAL
*"      T_RETURN STRUCTURE  BAPIRET2 OPTIONAL
*"----------------------------------------------------------------------
  DATA:S_RETURN     TYPE BAPIRET2,
       S_ZMMT0004   TYPE ZMMT0004,
       LV_CHAR01(1) TYPE C.
  DATA:GT_MCH1 TYPE TABLE OF MCH1,
       GS_MCH1 TYPE          MCH1.
  "输入参数检查
  IF I_ZDJLSHC IS NOT INITIAL.
    SELECT * INTO CORRESPONDING FIELDS OF TABLE T_ZMMT0004
      FROM ZMMT0004 WHERE ZDJLSHC = I_ZDJLSHC.
  ENDIF.

  IF T_ZMMT0004[] IS INITIAL.
    S_RETURN-TYPE = 'E'.
    S_RETURN-ID = 'ZMESG'.
    S_RETURN-NUMBER = '081'.
    S_RETURN-MESSAGE_V1 = '参数缺失,或参数不正确'.
    APPEND S_RETURN TO T_RETURN.
    EXIT.
  ELSE.
    SELECT MATNR CHARG INTO CORRESPONDING FIELDS OF TABLE GT_MCH1
    FROM MCH1 FOR ALL ENTRIES IN T_ZMMT0004
    WHERE MATNR = T_ZMMT0004-ZGSKH
    AND   CHARG = T_ZMMT0004-CHARG.

    DELETE GT_MCH1 WHERE CHARG IS INITIAL.

    IF GT_MCH1[] IS NOT INITIAL.
      SORT GT_MCH1[] BY CHARG.
    ENDIF.

    PERFORM PRM_GET_FIELD_ATT."提前或许ZMMS0004结构字段
  ENDIF.

* 检查批次特性是否被锁
  PERFORM FRM_CHECK_CL02_LOCK CHANGING LS_RETURN.
  IF LS_RETURN IS NOT INITIAL.
    APPEND LS_RETURN TO T_RETURN.
    CHECK LS_RETURN-TYPE NE 'E'.
  ENDIF.

  SELECT SINGLE ZPCSM INTO LV_CHAR01 FROM ZMMT0070 WHERE ZDJLX = I_ZMMT0003-ZDJLX.

  LOOP AT T_ZMMT0004 INTO S_ZMMT0004.

    IF S_ZMMT0004-CHARG IS INITIAL."批号存在检查
      PERFORM PRM_GENERATE_BATCH USING LV_CHAR01 CHANGING S_ZMMT0004-CHARG.
    ENDIF.

    READ TABLE GT_MCH1 INTO GS_MCH1 WITH KEY CHARG = S_ZMMT0004-CHARG BINARY SEARCH.
    IF SY-SUBRC <> 0."物料批次关联检查
      CLEAR:LS_RETURN.
      PERFORM PRM_GENERATE_MC USING S_ZMMT0004-CHARG S_ZMMT0004-ZGSKH CHANGING LS_RETURN.
      IF LS_RETURN IS NOT INITIAL.
        APPEND LS_RETURN TO T_RETURN.
      ENDIF.
    ENDIF.

    MODIFY T_ZMMT0004 FROM S_ZMMT0004."更新结果

  ENDLOOP.

  LOOP AT T_ZMMT0004 INTO S_ZMMT0004.
    CLEAR:LT_ALLOC_NUM[],LS_ALLOC_NUM,LT_ALLOC_CHAR[],LS_ALLOC_CHAR,LT_ALLOC_CURR[],LS_ALLOC_CURR,LS_RETURN.
    PERFORM PRM_SET_BATCH_ATT USING S_ZMMT0004 I_ZMMT0003 CHANGING LS_RETURN.
    IF LS_RETURN IS NOT INITIAL.
      APPEND LS_RETURN TO T_RETURN.
    ENDIF.
  ENDLOOP.



ENDFUNCTION.

FORM FRM_CHECK_CL02_LOCK  CHANGING P_RETURN STRUCTURE BAPIRET2.
  DATA : IT_LOCKS TYPE TABLE OF SEQG3 WITH HEADER LINE,
         LV_KEYS  TYPE          SEQG3-GARG.

  CALL FUNCTION 'ENQUE_READ'
    EXPORTING
      GCLIENT = SY-MANDT
      GNAME   = 'KSSKX'
*     GARG    = LV_KEYS
*     GUNAME  = SY-UNAME
    TABLES
      ENQ     = IT_LOCKS.

  LOOP AT IT_LOCKS WHERE GMODE = 'E'  AND GTARG CS '023Z_CLASS_BATCH'.
    P_RETURN-TYPE = 'E'.
    P_RETURN-ID = 'ZMESG'.
    P_RETURN-NUMBER = '081'.
    P_RETURN-MESSAGE_V1 = '批次被锁定'.
  ENDLOOP.
ENDFORM.                    " FRM_CHECK_CL02_LOCK

FORM PRM_GENERATE_BATCH  USING    P_CHAR01
                         CHANGING P_CHARG.
  DATA:C_CHAR09(9) TYPE C.
  CLEAR:C_CHAR09,LV_LOCK.
  LV_LOCK = 'E'.

  WHILE LV_LOCK IS NOT INITIAL.

    CALL FUNCTION 'NUMBER_RANGE_ENQUEUE'
      EXPORTING
        OBJECT           = 'Z_R_BATCH'
      EXCEPTIONS
        FOREIGN_LOCK     = 1
        OBJECT_NOT_FOUND = 2
        SYSTEM_FAILURE   = 3
        OTHERS           = 4.
    IF SY-SUBRC = 0.
      CALL FUNCTION 'NUMBER_GET_NEXT'
        EXPORTING
          NR_RANGE_NR             = '01'
          OBJECT                  = 'Z_R_BATCH'
        IMPORTING
          NUMBER                  = C_CHAR09
        EXCEPTIONS
          INTERVAL_NOT_FOUND      = 1
          NUMBER_RANGE_NOT_INTERN = 2
          OBJECT_NOT_FOUND        = 3
          QUANTITY_IS_0           = 4
          QUANTITY_IS_NOT_1       = 5
          INTERVAL_OVERFLOW       = 6
          BUFFER_OVERFLOW         = 7
          OTHERS                  = 8.

      CALL FUNCTION 'NUMBER_RANGE_DEQUEUE'
        EXPORTING
          OBJECT           = 'Z_R_BATCH'
        EXCEPTIONS
          OBJECT_NOT_FOUND = 1
          OTHERS           = 2.
      CONCATENATE P_CHAR01 C_CHAR09 INTO P_CHARG.

      CLEAR LV_LOCK.

    ENDIF.
  ENDWHILE.

ENDFORM.                    " PRM_GENERATE_BATCH

FORM PRM_GENERATE_MC  USING    P_S_ZMMT0004_CHARG
                               P_S_ZMMT0004_ZGSKH
                      CHANGING P_LS_RETURN STRUCTURE BAPIRET2.
  DATA:LV_BATCH TYPE CHARG_D.

* Call BAPI 产生物料批次号码
  LS_BATCHCONTROLFIELDS-CLASS_NUM  = 'Z_CLASS_BATCH'.
  LS_BATCHCONTROLFIELDS-DOCLASSIFY = 'X'.

  CALL FUNCTION 'BAPI_BATCH_CREATE'
    EXPORTING
      MATERIAL           = P_S_ZMMT0004_ZGSKH
      BATCH              = P_S_ZMMT0004_CHARG
      BATCHCONTROLFIELDS = LS_BATCHCONTROLFIELDS
    IMPORTING
      BATCH              = LV_BATCH
    TABLES
      RETURN             = LT_RETURN.
  READ TABLE LT_RETURN INTO LS_RETURN WITH KEY TYPE = 'E'.
  IF SY-SUBRC = 0.
    MOVE-CORRESPONDING LS_RETURN TO P_LS_RETURN.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
*      EXPORTING
*        WAIT = 'X'.
  ENDIF.


ENDFORM.                    " PRM_GENERATE_MC

FORM PRM_SET_BATCH_ATT  USING    P_ZMMS0004 STRUCTURE ZMMT0004
                                 P_ZMMT0003  STRUCTURE ZMMT0003
                        CHANGING P_RETURN    STRUCTURE BAPIRET2.
  DATA:LS_ZMMS0004 TYPE ZMMS0004.
  CLEAR:LS_ZMMS0004.
  MOVE-CORRESPONDING P_ZMMS0004 TO LS_ZMMS0004.

  LS_ZMMS0004-ZZSPCH2 = P_ZMMS0004-ZZSPCH1. "主石批次号2
  LS_ZMMS0004-ZZSSL2 = P_ZMMS0004-ZZSSL1. "主石数量1
  LS_ZMMS0004-ZZSZL2 = P_ZMMS0004-ZZSZL1. "主石重量1
  LS_ZMMS0004-ZZSDJ2 = P_ZMMS0004-ZZSDJ1. "主石单价1
  LS_ZMMS0004-ZZSCB2 = P_ZMMS0004-ZZSCB1. "主石成本1
  LS_ZMMS0004-ZGJJCZSH = P_ZMMS0004-ZGJZSH. "国际证书号
  LS_ZMMS0004-ZXSDD    = P_ZMMT0003-VBELN. "销售订单
  LS_ZMMS0004-ZSCCKJ   = P_ZMMS0004-ZSJCB."市场参考价
  LS_ZMMS0004-ZCSSCCKJ = P_ZMMS0004-ZSJCB."初始市场参考价
  LS_ZMMS0004-ZPJSL1   = P_ZMMS0004-ZMENGE1. "配件数量1
  LS_ZMMS0004-ZPJSL2   = P_ZMMS0004-ZMENGE2. "配件数量2
  LS_ZMMS0004-ZJBGF    = P_ZMMS0004-ZJGF. "基本工费
  LS_ZMMS0004-ZXSLX    = P_ZMMT0003-AUART. "销售类型
  LS_ZMMS0004-ZJCS     = P_ZMMS0004-ZJCS.    "成色
  LS_ZMMS0004-ZGJJCJD  = P_ZMMS0004-ZGJJD. "国际净度
  LS_ZMMS0004-ZGJJCYS  = P_ZMMS0004-ZGJSD. "国际色度
  LS_ZMMS0004-ZGJJCQG  = P_ZMMS0004-ZGJQG. "国际切工
  LOOP AT LT_FIELD INTO LS_FIELD WHERE FIELDNAME NE 'ZDJBTHB'.
    CASE LS_FIELD-DATATYPE.
      WHEN 'CHAR'.
        LV_TYPE = '1'.
      WHEN 'DEC' OR 'QUAN'.
        LV_TYPE = '2'.
      WHEN 'CURR'.
        LV_TYPE = '3'.
      WHEN OTHERS.
        ...
    ENDCASE.
    CLEAR LV_FIELD.
    CONCATENATE 'Z_' LS_FIELD-FIELDNAME INTO LV_FIELD.
    ASSIGN COMPONENT LS_FIELD-FIELDNAME OF STRUCTURE LS_ZMMS0004 TO .
    IF SY-SUBRC EQ 0.
      APPEND_ALLOC_VALUE LV_TYPE LV_FIELD .
      UNASSIGN .
    ENDIF.

  ENDLOOP.

  READ TABLE LT_ALLOC_CHAR INTO LS_ALLOC_CHAR WITH KEY CHARACT = 'Z_ZHPBM'.
  IF SY-SUBRC EQ 0.
    LS_ALLOC_CHAR-VALUE_CHAR = P_ZMMS0004-CHARG.
    LS_ALLOC_CHAR-VALUE_NEUTRAL = P_ZMMS0004-CHARG.
    MODIFY LT_ALLOC_CHAR FROM LS_ALLOC_CHAR INDEX SY-TABIX.
  ELSE.
    LS_ALLOC_CHAR-CHARACT = 'Z_ZHPBM'.
    LS_ALLOC_CHAR-VALUE_CHAR = P_ZMMS0004-CHARG.
    LS_ALLOC_CHAR-VALUE_NEUTRAL = P_ZMMS0004-CHARG.
    APPEND LS_ALLOC_CHAR TO LT_ALLOC_CHAR.
  ENDIF.

* 更新物料的批次属性值
  CLEAR LV_KEY.
  LV_KEY+0(18) = P_ZMMS0004-ZGSKH.
  LV_KEY+18(10) = P_ZMMS0004-CHARG.
*--------------------TUS-CHARG-BEGIN---------------------------------*
* Update material class
  CALL FUNCTION 'BAPI_OBJCL_CHANGE'
    EXPORTING
      OBJECTKEY          = LV_KEY
      OBJECTTABLE        = LV_TABLE
      CLASSNUM           = LV_CLASS
      CLASSTYPE          = LV_CLASS_TYPE
      STATUS             = '1'
      KEYDATE            = SY-DATUM
    IMPORTING
      CLASSIF_STATUS     = LV_STATUS
    TABLES
      ALLOCVALUESNUMNEW  = LT_ALLOC_NUM
      ALLOCVALUESCHARNEW = LT_ALLOC_CHAR
      ALLOCVALUESCURRNEW = LT_ALLOC_CURR
      RETURN             = LT_RETURN.
*--------------------TUS-CHARG-END-----------------------------------*
  READ TABLE LT_RETURN INTO LS_RETURN WITH KEY TYPE = 'E'.
  IF SY-SUBRC = 0.
    MOVE-CORRESPONDING LS_RETURN TO P_RETURN.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        WAIT = 'X'.
  ENDIF.

ENDFORM.                    " PRM_SET_BATCH_ATT