生产订单报工/取消

CO11N:报工

    "定义BAPI变量
    DATA: LS_RETURN       TYPE BAPIRET1.
    DATA: LT_TIMETICKETS  TYPE TABLE OF BAPI_PP_TIMETICKET .
    DATA: LS_TIMETICKETS  TYPE BAPI_PP_TIMETICKET .
    DATA: LT_DETAIL       TYPE TABLE OF BAPI_CORU_RETURN .
    DATA: LS_DETAIL       TYPE  BAPI_CORU_RETURN .
    DATA: LT_GM           TYPE TABLE OF BAPI2017_GM_ITEM_CREATE.
    DATA: LS_GM           TYPE  BAPI2017_GM_ITEM_CREATE.
    DATA: L_MSG           TYPE STRING.



    LOOP AT _T_CONF ASSIGNING FIELD-SYMBOL(<FS_CONF>)
                              WHERE MATNR = IS_CONF-MATNR
                                AND WERKS = IS_CONF-WERKS
                                AND VORNR = IS_CONF-VORNR.

      LS_TIMETICKETS-ORDERID         = <FS_CONF>-AUFNR ."订单
      LS_TIMETICKETS-OPERATION       = <FS_CONF>-VORNR ."工序
      LS_TIMETICKETS-POSTG_DATE      = <FS_CONF>-BUDAT ."记帐日期
      LS_TIMETICKETS-FIN_CONF        = '1' .          "部分确认space\自动最终确认1\最后确认X


      LS_TIMETICKETS-CONF_ACTIVITY1  = <FS_CONF>-LMNGA."数量
      LS_TIMETICKETS-CONF_ACTI_UNIT1 = <FS_CONF>-MEINS."单位
      LS_TIMETICKETS-CONF_ACTIVITY2  = <FS_CONF>-LMNGA."数量
      LS_TIMETICKETS-CONF_ACTI_UNIT2 = <FS_CONF>-MEINS."单位
      LS_TIMETICKETS-CONF_ACTIVITY3  = <FS_CONF>-LMNGA."数量
      LS_TIMETICKETS-CONF_ACTI_UNIT3 = <FS_CONF>-MEINS."单位
      LS_TIMETICKETS-CONF_ACTIVITY4  = <FS_CONF>-LMNGA."数量
      LS_TIMETICKETS-CONF_ACTI_UNIT4 = <FS_CONF>-MEINS."单位
      LS_TIMETICKETS-CONF_ACTIVITY5  = <FS_CONF>-LMNGA."数量
      LS_TIMETICKETS-CONF_ACTI_UNIT5 = <FS_CONF>-MEINS."单位
      LS_TIMETICKETS-CONF_ACTIVITY6  = <FS_CONF>-LMNGA."数量
      LS_TIMETICKETS-CONF_ACTI_UNIT6 = <FS_CONF>-MEINS."单位


      APPEND LS_TIMETICKETS TO LT_TIMETICKETS.



      IF I_TEST IS NOT INITIAL.

        "检查时任务清单组号不跳号
        CL_FS4MIG_CONTEXT=>SET_ACTIVE( ABAP_TRUE ).
        CL_FS4MIG_CONTEXT=>SET_IN_SIMULATION( ABAP_TRUE ).

      ELSE.

        "创建流水号或者使用流水号
        CL_FS4MIG_CONTEXT=>SET_ACTIVE( SPACE ).
        CL_FS4MIG_CONTEXT=>SET_IN_SIMULATION( SPACE ).

      ENDIF.

      CALL FUNCTION 'BAPI_PRODORDCONF_CREATE_TT'
        EXPORTING
          POST_WRONG_ENTRIES = '1'
*         TESTRUN            = ''
        IMPORTING
          RETURN             = LS_RETURN
        TABLES
          TIMETICKETS        = LT_TIMETICKETS
          DETAIL_RETURN      = LT_DETAIL.

      IF LINE_EXISTS( LT_DETAIL[ TYPE = 'I' ID = 'RU' NUMBER = '100'  ] ).
        "处理成功
        IF I_TEST IS INITIAL.

          MODIFY _T_CONF FROM VALUE #( MESSAGE = |生产订单{ <FS_CONF>-AUFNR  }确认成功!|
                                                             ISTAT = '3' )
                                           TRANSPORTING MESSAGE ISTAT WHERE WERKS = <FS_CONF>-WERKS
                                                                        AND AUFNR = <FS_CONF>-AUFNR
                                                                        AND VORNR = <FS_CONF>-VORNR.


          CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
            EXPORTING
              WAIT = 'X'.



        ELSE.
          "清空缓存、回滚、检查成功
          CALL FUNCTION 'ROUTING_CLEARBUFFER'.

          CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

          MODIFY _T_CONF FROM VALUE #( MESSAGE = |检查通过!|  ISTAT = '2' )
                TRANSPORTING MESSAGE ISTAT WHERE WERKS = <FS_CONF>-WERKS
                                             AND AUFNR = <FS_CONF>-AUFNR
                                             AND VORNR = <FS_CONF>-VORNR.

          R_TESTOK = ABAP_TRUE.

        ENDIF.


      ELSE.

        CALL FUNCTION 'ROUTING_CLEARBUFFER'.

        CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

        LOOP AT LT_DETAIL INTO LS_DETAIL WHERE TYPE = 'E' OR TYPE = 'A'.
          L_MSG = |{ L_MSG };{ LS_DETAIL-MESSAGE }|.
        ENDLOOP.

        MODIFY _T_CONF FROM VALUE #( MESSAGE = L_MSG ISTAT = '1' )
             TRANSPORTING MESSAGE ISTAT   WHERE MATNR = IS_CONF-MATNR
                                            AND WERKS = IS_CONF-WERKS
                                            AND VORNR = IS_CONF-VORNR.

      ENDIF.
    ENDLOOP.

    CLEAR: LS_TIMETICKETS,LT_TIMETICKETS,L_MSG,LS_RETURN,LT_DETAIL.

 

CO13：取DATA:LS_RETURN TYPE BAPIRET1    DATA:L_BUDAT TYPE B

"获取正常的生产订单
    SELECT SINGLE RUECK,RMZHL
      FROM AFRU
      WHERE  AUFNR = @MS_OUT-AUFNR
         AND STOKZ = ''
         AND STZHL = ''
       INTO @DATA(LS_AFRU).
    CHECK sy-SUBRC = 0.

    CALL FUNCTION 'BAPI_PRODORDCONF_CANCEL'
      EXPORTING
        CONFIRMATION        = LS_AFRU-RUECK
        CONFIRMATIONCOUNTER = LS_AFRU-RMZHL
        POSTG_DATE          = L_BUDAT                "过账日期
        CONF_TEXT           = '取消原因测试'           "取消原因
      IMPORTING
        RETURN              = LS_RETURN.


 IF LS_RETURN-TYPE = 'E'.
　　ROLLBACK WORK.
 ELSE.
   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = 'X'. 
 ENDIF.