创建计划订单(MD11)与根据MRP控制者删除计划订单(MD16)

  MD11:

* START BDC
    CLEAR: BDCDATA,BDCDATA[],BDCMESS,BDCMESS[].

    PERFORM BDC_DYNPRO      USING 'SAPMM61P' '0100'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE' '/00'.
    PERFORM BDC_FIELD       USING 'RM61P-PASCH' 'LA'.
    PERFORM BDC_DYNPRO      USING 'SAPLM61O' '0110'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE' '/00'.
    PERFORM BDC_FIELD       USING 'PLAF-MATNR' P_MATNR_TMP.
    PERFORM BDC_FIELD       USING 'PLAF-BERID' P_BERID_TMP.
    PERFORM BDC_FIELD       USING 'PLAF-GSMNG' P_BDMNG_TMP.
    PERFORM BDC_FIELD       USING 'PLAF-PEDTR' P_STRMP_TMP.
    PERFORM BDC_FIELD       USING 'PLAF-PSTTR' P_STRMP_TMP.
    PERFORM BDC_FIELD       USING 'PLAF-AUFFX' 'X'.
    PERFORM BDC_FIELD       USING 'PLAF-UMSKZ' 'X'.
    PERFORM BDC_DYNPRO      USING 'SAPLM61O' '0110'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE' '=HZPL'.

    BDC_MODE = P_MODE.
    CALL TRANSACTION 'MD11' USING BDCDATA
                              UPDATE 'S' MODE  BDC_MODE
                              MESSAGES INTO BDCMESS.
    IF SY-SUBRC = 0.
        COMMIT WORK.
        UPDATE ZZJJH_SYZN SET COLOR = 'C510'
                     WHERE MATNR = P_MATNR_TMP
                       AND STRMP = P_STRMP_TMP_JH.
    ELSE.
        ROLLBACK WORK.
    ENDIF.
* END BDC

 

MD16:

* START BDC
    CLEAR: BDCDATA,BDCDATA[],BDCMESS,BDCMESS[].

    PERFORM BDC_DYNPRO      USING 'SAPMM61P' '0500'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE' '/00'.
    PERFORM BDC_FIELD       USING 'RM61H-DISSL' 'X'.
    PERFORM BDC_DYNPRO      USING 'SAPMM61P' '0510'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE' '=ENTE'.
    PERFORM BDC_FIELD       USING 'RM61H-WERKS' '1910'.
    PERFORM BDC_FIELD       USING 'RM61H-DISPO' '125'.
    PERFORM BDC_DYNPRO      USING 'SAPMM61P' '0410'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE' '=MALL'.
    PERFORM BDC_DYNPRO      USING 'SAPMM61P' '0410'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE' '=DELE'.
    PERFORM BDC_DYNPRO      USING 'SAPLSPO1' '0100'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE' '=YES'.

    BDC_MODE = P_MODE.
    CALL TRANSACTION 'MD16' USING BDCDATA
                              UPDATE 'S' MODE  BDC_MODE
                              MESSAGES INTO BDCMESS.
    IF SY-SUBRC = 0.
        COMMIT WORK.
    ELSE.
        ROLLBACK WORK.
    ENDIF.
* END BDC


 

你可能感兴趣的:(c)