co11n——生产订单确认的BAPI

通过C#访问SAP RFC没问题，但如果在RFC里使用BDC程序，就不能实际，返回错误信息。

现只能通过BAPI来解决。

 

REPORT TEST.
DATA: WA_ITEM      TYPE ZDT_PRD_ENSURE_ITEM,
        WA_HEADER    TYPE ZDT_PRD_ENSURE_RPHEADER,
        IT_TT        TYPE TABLE OF BAPI_PP_TIMETICKET,
        WA_TT        TYPE BAPI_PP_TIMETICKET,
        IT_DR        TYPE TABLE OF BAPI_CORU_RETURN,
        WA_DR        TYPE BAPI_CORU_RETURN,
        WA_RETURN    TYPE BAPIRET1,
*        wa_e_header TYPE zstr_xi_err_header,
*        wa_e_items   TYPE zstr_xi_err_items,
*        it_e_items   TYPE TABLE OF zstr_xi_err_items,
        I_ERRMSG     TYPE BAPIRET2-MESSAGE,"记录返回消息中的错误消息
        IMPORT_PARA TYPE ZMT_AS_MS_MES2SAP_OUT,
        RPHEADER     TYPE ZDT_AS_MS_MES2SAP_RPHEADER,
        ITEM         TYPE ZDT_AS_MS_MES2SAP_ITEM,
        I_TIME(14)   TYPE C, "传送时间
*        i_text(255) TYPE c,
        I_ERRFLG     TYPE C,
*        i_log        TYPE c,
        I_COUNT      TYPE I."用于对导入数据的行数记录
PARAMETERS : P_AUFNR LIKE AFRUD-AUFNR OBLIGATORY DEFAULT '50000319',
               P_VORNR LIKE AFRUD-VORNR OBLIGATORY DEFAULT '0010',
               P_LMNGA LIKE AFRUD-LMNGA OBLIGATORY DEFAULT '3' ,
*               p_unit like AFRUD-MEINH OBLIGATORY DEFAULT 'TON',
               P_BUDAT LIKE AFRUD-BUDAT OBLIGATORY DEFAULT '20071101'.

* LOOP AT input-mt_prd_ensure_in-item INTO wa_item.
    CLEAR: RPHEADER,ITEM,WA_TT,I_COUNT,I_ERRMSG,
           I_ERRFLG,WA_RETURN.
*    ADD 1 TO i_count.
** 订单号转换
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT = P_AUFNR
      IMPORTING
        OUTPUT = WA_TT-ORDERID.
    WA_TT-OPERATION = P_VORNR.
    WA_TT-YIELD      = P_LMNGA.
*    wa_tt-scrap      = wa_item-xmnga.
    WA_TT-POSTG_DATE = P_BUDAT.

***新增 2008-05-16*******
*********计算工时********
DATA:
       C_VORNR TYPE AFVC-VORNR,
       C_AUFNR TYPE AFKO-AUFNR,
       C_APLZL TYPE AFVC-APLZL,
       C_AUFPL TYPE AFVC-AUFPL,
       WA_AFVV TYPE AFVV.

    SELECT SINGLE AFVC~APLZL AFVC~AUFPL
                  INTO (C_APLZL, C_AUFPL)
                  FROM AFVC INNER JOIN AFKO
                  ON    AFVC~AUFPL = AFKO~AUFPL
                  WHERE AFKO~AUFNR = WA_TT-ORDERID
                  AND   AFVC~VORNR = P_VORNR.

    SELECT SINGLE * FROM AFVV INTO WA_AFVV
                    WHERE AUFPL = C_AUFPL
                    AND   APLZL = C_APLZL.
*    wa_tt-CONF_QUAN_UNIT = p_unit.
    WA_TT-CONF_ACTI_UNIT1 = WA_AFVV-VGE01.
    WA_TT-CONF_ACTI_UNIT2 = WA_AFVV-VGE02.
    WA_TT-CONF_ACTI_UNIT3 = WA_AFVV-VGE03.
    WA_TT-CONF_ACTI_UNIT4 = WA_AFVV-VGE04.
    WA_TT-CONF_ACTI_UNIT5 = WA_AFVV-VGE05.
    WA_TT-CONF_ACTI_UNIT6 = WA_AFVV-VGE06.
    WA_TT-CONF_ACTIVITY1 = WA_TT-YIELD * WA_AFVV-VGW01 / WA_AFVV-BMSCH.
    WA_TT-CONF_ACTIVITY2 = WA_TT-YIELD * WA_AFVV-VGW02 / WA_AFVV-BMSCH.
    WA_TT-CONF_ACTIVITY3 = WA_TT-YIELD * WA_AFVV-VGW03 / WA_AFVV-BMSCH.
    WA_TT-CONF_ACTIVITY4 = WA_TT-YIELD * WA_AFVV-VGW04 / WA_AFVV-BMSCH.
    WA_TT-CONF_ACTIVITY5 = WA_TT-YIELD * WA_AFVV-VGW05 / WA_AFVV-BMSCH.
    WA_TT-CONF_ACTIVITY6 = WA_TT-YIELD * WA_AFVV-VGW06 / WA_AFVV-BMSCH.
*************************

    APPEND WA_TT TO IT_TT.
    CALL FUNCTION 'BAPI_PRODORDCONF_CREATE_TT'   “主要是这个BAPI
      IMPORTING
        RETURN        = WA_RETURN
      TABLES
        TIMETICKETS   = IT_TT
        DETAIL_RETURN = IT_DR.

*   处理BAPI错误
    LOOP AT IT_DR INTO WA_DR.
      IF WA_DR-TYPE = 'E'.
        I_ERRFLG = 'X'.
        RPHEADER-FREEUSE1 = 'ERR'.
* 生成outbound数据item段error message
        ITEM-TYPE = WA_DR-TYPE.
* 合并错误message
        CALL FUNCTION 'Z_XI_GET_ERRMESSAGE'
          EXPORTING
            I_MESSAGE1 = WA_DR-MESSAGE
            I_MESSAGE2 = I_ERRMSG
          IMPORTING
            O_MESSAGE = ITEM-MESSAGE.
        I_ERRMSG = WA_DR-MESSAGE.
      ELSE.
        RPHEADER-FREEUSE1 = 'OK'.
        ITEM-MAT_DO     = WA_DR-CONF_NO. "生产订单确认号
        ITEM-HEADER_TXT = WA_TT-ORDERID. "生产订单号
        ITEM-BILL_OF_LADING = WA_DR-CONF_CNT. "确认计数器
        SHIFT ITEM-MAT_DO LEFT DELETING LEADING '0'.
        SHIFT ITEM-HEADER_TXT LEFT DELETING LEADING '0'.
        SHIFT ITEM-BILL_OF_LADING LEFT DELETING LEADING '0'.
      ENDIF.

      IF I_ERRFLG IS INITIAL.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            WAIT = 'X'.
      ELSE.
        CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      ENDIF.
    ENDLOOP.

* 处理返回信息
    APPEND ITEM TO IMPORT_PARA-MT_AS_MS_MES2SAP_OUT-ITEM.

* 对上传数据进行判断

    RPHEADER-FREEUSE1 = 'ERR'.
    ITEM-TYPE = 'E'.
    ITEM-MESSAGE = 'Item数据为空,无法确认生产订单'.
    APPEND ITEM TO IMPORT_PARA-MT_AS_MS_MES2SAP_OUT-ITEM.

* 生成outbound数据head段
RPHEADER-TLGNAME = WA_HEADER-TLGNAME.
RPHEADER-TLGID    = WA_HEADER-TLGID.
RPHEADER-RECEIVER = WA_HEADER-SENDER.

CALL FUNCTION 'Z_XI_ASYNCHRONISM_SEND'
    TABLES
      ITEM         = IMPORT_PARA-MT_AS_MS_MES2SAP_OUT-ITEM
    CHANGING
      RPHEADER     = RPHEADER
    EXCEPTIONS
      SYSTEM_ERROR = 1.
IF SY-SUBRC = 1.
ENDIF.