*&---------------------------------------------------------------------*
*&      Form  FRM_PROCESS_CO11N
*&---------------------------------------------------------------------*
*       传输数据，进行完工入库和消耗物料确认
*----------------------------------------------------------------------*
*      -->P_LT_MSG  text
*      -->P_LS_IFDATAIN_ITEM  text
*      -->P_LS_IFDATAIN_HEAD  text
*      <--P_LV_EIND  text
*----------------------------------------------------------------------*
FORM frm_process_co11n  TABLES  tp_message STRUCTURE zifsret01
                                 tp_item STRUCTURE zrmxpps002
                        USING    up_head TYPE zrmxpps001
                        CHANGING cp_eind TYPE c
                                 cp_aufnr TYPE afko-aufnr
                                 cp_rueck TYPE afwi-rueck
                                 cp_rmzhl TYPE afwi-rmzhl.

DATA:
        ls_item      TYPE zrmxpps002,
        ls_message   TYPE zifsret01.

DATA: ls_afpo      TYPE ty_afpo,
        ls_afpo_find TYPE ty_afpo,
        lt_afpo      TYPE STANDARD TABLE OF ty_afpo,

ls_status    TYPE ty_status,
        lt_status    TYPE STANDARD TABLE OF ty_status.

DATA: lv_index TYPE i.
*--------------------------------------------------------------------*
*1 根据销售合同和行号，取得对应的生产订单号
  IF up_head-vtype = cns_vtype_1 OR   "对外销售-非来料加工类型合同
     up_head-vtype = cns_vtype_2.     "对外销售-来料加工类型合同
    "1,2为对外销售，需要根据销售订单号及行号读取对应的生产订单
    SELECT p~aufnr p~posnr
      INTO TABLE lt_afpo
      FROM afpo AS p
      WHERE p~kdauf = up_head-vbeln
        AND p~kdpos = up_head-posnr.
    IF sy-subrc NE 0.

CLEAR ls_message.
      ls_message-class  = 'BUS'.
      ls_message-msgtyp = 'E'.
      ls_message-msgno  = '101'.
      ls_message-msgtxt = '根据销售合同和行号未找到相应的SAP生产订单号！'.
      APPEND ls_message TO tp_message.

cp_eind = 'X'.
    ENDIF.

ELSEIF up_head-vtype = cns_vtype_3. "站内自用
    "站内自用，需要根据生产出的物料的编码和工厂来找出合适的生产订单
    SELECT a~aufnr a~posnr
      INTO TABLE lt_afpo
      FROM afpo AS a INNER JOIN aufk AS b ON b~aufnr = a~aufnr
      WHERE a~matnr = up_head-matnr
        AND a~pwerk = up_head-werks  "计划工厂，todo 可能要用生产工厂
        AND b~auart = 'ZR02'.        "RMX自用生产订单
    IF sy-subrc NE 0.

CLEAR ls_message.
      ls_message-class  = 'BUS'.
      ls_message-msgtyp = 'E'.
      ls_message-msgno  = '102'.
      ls_message-msgtxt = '根据物料号+工厂未找到相应的SAP生产订单号！'.
      APPEND ls_message TO tp_message.

cp_eind = 'X'.
    ENDIF.
  ELSE.
    CLEAR ls_message.
    ls_message-class  = 'BUS'.
    ls_message-msgtyp = 'E'.
    ls_message-msgno  = '103'.
    ls_message-msgtxt = '销售合同类型定义错误！'.
    APPEND ls_message TO tp_message.

cp_eind = 'X'.

ENDIF.

CHECK cp_eind NE 'X'.

"合并对象号
  FIELD-SYMBOLS:<fs_afpo> LIKE ls_afpo.
  LOOP AT lt_afpo ASSIGNING <fs_afpo>.
    CONCATENATE 'OR' <fs_afpo>-aufnr INTO <fs_afpo>-objnr.
  ENDLOOP.

*--------------------------------------------------------------------*
*2 判断生产订单的状态，找到一个合适的生产订单
  SORT lt_afpo BY objnr.

"读取状态
  SELECT objnr stat inact
    INTO TABLE lt_status
    FROM jest
    FOR ALL ENTRIES IN lt_afpo
    WHERE objnr EQ lt_afpo-objnr
      AND inact EQ space.

*  "删除未激活的状态
*  DELETE lt_status WHERE inact = 'X'.
  "删除不需要的状态
  DELETE lt_status WHERE "txt04 NE 'REL' AND  @v1.10
*                         txt04 NE 'CLSD' AND
*                         txt04 NE 'TECO'.
                          stat NE 'I0045' AND   "TECO
                          stat NE 'I0046' AND   "CLSD
                          stat NE 'E0001'.      "10

SORT lt_status BY objnr stat.

*--------------------------------------------------------------------*
*3 生产订单的状态中必须包括TECO、不包括CLSD
  CLEAR ls_afpo_find.
  LOOP AT lt_afpo INTO ls_afpo.
    lv_index = sy-tabix.

"系统状态必须包含TECO
    READ TABLE lt_status TRANSPORTING NO FIELDS
        WITH KEY objnr = ls_afpo-objnr
                 stat = 'I0045'
                 BINARY SEARCH.
    IF sy-subrc NE 0.
      DELETE lt_afpo INDEX lv_index.
      CONTINUE.
    ENDIF.

"系统状态必须不包含CLSD
    READ TABLE lt_status TRANSPORTING NO FIELDS
        WITH KEY objnr = ls_afpo-objnr
                 stat = 'I0046'
                 BINARY SEARCH.
    IF sy-subrc EQ 0.
      DELETE lt_afpo INDEX lv_index.
      CONTINUE.
    ENDIF.

"用户状态必须为10
    READ TABLE lt_status TRANSPORTING NO FIELDS
        WITH KEY objnr = ls_afpo-objnr
                 stat = 'E0001'
                 BINARY SEARCH.
    IF sy-subrc NE 0.
      DELETE lt_afpo INDEX lv_index.
      CONTINUE.
    ENDIF.

"找到生产订单，退出循环
    ls_afpo_find = ls_afpo.
    EXIT.

ENDLOOP.

IF ls_afpo_find IS INITIAL.
    CLEAR ls_message.
    ls_message-class  = 'BUS'.
    ls_message-msgtyp = 'E'.
    ls_message-msgno  = '104'.
    ls_message-msgtxt = '没有符合要求状态的生产订单！'.
    APPEND ls_message TO tp_message.

cp_eind = 'X'.
  ENDIF.

CHECK cp_eind NE 'X'.

cp_aufnr = ls_afpo_find-aufnr.

*--------------------------------------------------------------------*
*4 Call BAPI
  DATA: ls_propose LIKE bapi_pp_conf_prop.

DATA: lt_time  TYPE STANDARD TABLE OF bapi_pp_timeticket,
        ls_time  TYPE bapi_pp_timeticket,

ls_goods TYPE bapi2017_gm_item_create,
        lt_goods TYPE STANDARD TABLE OF bapi2017_gm_item_create,

ls_link  TYPE bapi_link_conf_goodsmov,
        lt_link  TYPE STANDARD TABLE OF bapi_link_conf_goodsmov,

lt_return_detail TYPE STANDARD TABLE OF bapi_coru_return,
        ls_return_detail TYPE bapi_coru_return,
        ls_return        TYPE bapiret1.

*--------------------------------------------------------------------*
*4.1 需要更新的数据设置
  ls_propose-quantity      = 'X'.
  ls_propose-date_and_time = 'X'.
  ls_propose-goodsmovement = 'X'.

*--------------------------------------------------------------------*
*4.2 timeticket
  CLEAR ls_time.
  ls_time-orderid    = ls_afpo_find-aufnr.  "生产订单号
  ls_time-operation  = '0010'.                              "工序号：0010
  ls_time-postg_date = up_head-budat.       "记账日期
  ls_time-yield      = up_head-menge.       "生产数量
*ls_time-conf_quan_unit = 'PC'.
*ls_time-conf_quan_unit_iso = 'PC'.
  APPEND ls_time TO lt_time.

*--------------------------------------------------------------------*
*4.3 goodsmovements
* 第一次赋值，用于获取相关默认值
  CLEAR ls_goods.
  ls_goods-orderid    = ls_afpo_find-aufnr.  "生产订单号
  ls_goods-order_itno = '0010'.                             "工序号：0010
* VAL_TYPE 评估类型
  APPEND ls_goods TO lt_goods.

*4.4 调用BAPI，获取默认值
  CLEAR: ls_return.

CALL FUNCTION 'BAPI_PRODORDCONF_GET_TT_PROP'
    EXPORTING
      propose            = ls_propose
    IMPORTING
      return             = ls_return
    TABLES
      timetickets        = lt_time
      goodsmovements     = lt_goods
      link_conf_goodsmov = lt_link
      detail_return      = lt_return_detail.

IF ls_return-type = 'E' OR
     ls_return-type = 'A'.

CLEAR ls_message.
    ls_message-class  = 'BUS'.
    ls_message-msgtyp = ls_return-type.
    ls_message-msgno  = ls_return-number.
    ls_message-msgtxt = ls_return-message.
    APPEND ls_message TO tp_message.

cp_eind = 'X'.
  ENDIF.

LOOP AT lt_return_detail INTO ls_return_detail
      WHERE type IS NOT INITIAL.

CLEAR ls_message.
    ls_message-class  = 'BUS'.
    ls_message-msgtyp = ls_return_detail-type.
    ls_message-msgno  = ls_return_detail-number.
    ls_message-msgtxt = ls_return_detail-message.
    APPEND ls_message TO tp_message.

IF ls_return_detail-type = 'E' OR
        ls_return_detail-type = 'A'.
      cp_eind = 'X'.
    ENDIF.
  ENDLOOP.

CHECK cp_eind NE 'X'.

*4.5 若来自RMX系统的信息显示生产订单对应的销售合同为来料加工，
*    则需要由接口程序将默认带出的评估类型PRD改为OEM
  LOOP AT lt_goods INTO ls_goods.
    IF up_head-vtype = cns_vtype_2.
      ls_goods-val_type = 'OEM'.
    ELSE.
      ls_goods-val_type = 'PRD'.
    ENDIF.
    MODIFY lt_goods FROM ls_goods TRANSPORTING val_type.
  ENDLOOP.

*4.6 准备行项目数据
  "lt_goods中已经有生产订单对应的一条行记录，需要将传输的消耗物料信息
  "添加到内表中，进行确认，生成物料凭证
  CLEAR: ls_return, lt_return_detail.

" 产量，lt_time 中默认是生产订单剩余未确认的产量
  LOOP AT lt_time INTO ls_time.
    ls_time-yield      = up_head-menge.  "产量
    ls_time-postg_date = up_head-budat.  "记账日起
    MODIFY lt_time FROM ls_time TRANSPORTING yield postg_date.
  ENDLOOP.

"生产的物料，数量默认为未确认的全部数量
  LOOP AT lt_goods INTO ls_goods.
    ls_goods-entry_qnt = up_head-menge.  "产量
    MODIFY lt_goods FROM ls_goods TRANSPORTING entry_qnt.
  ENDLOOP.

LOOP AT tp_item INTO ls_item.
    lv_index = sy-tabix.

CLEAR ls_goods.
    ls_goods-material  = ls_item-matnr.
    ls_goods-move_type = '261'.
    ls_goods-plant     = ls_item-werks.
    ls_goods-stge_loc  = ls_item-lgort.                     "'0001'.
    ls_goods-entry_qnt = ls_item-menge.
    ls_goods-entry_uom = ls_item-meins.
*   ls_goods-entry_uom_iso = 'PCE'.
    APPEND ls_goods TO lt_goods.

CLEAR ls_link.
    ls_link-index_confirm = 1.
    ls_link-index_goodsmov = lv_index + 1.
    APPEND ls_link TO lt_link.

ENDLOOP.

CALL FUNCTION 'BAPI_PRODORDCONF_CREATE_TT'
*   EXPORTING
*   POST_WRONG_ENTRIES       = '0'
*     testrun                  = ''
   IMPORTING
     return                   = ls_return
    TABLES
     timetickets              = lt_time
     goodsmovements           = lt_goods
     link_conf_goodsmov       = lt_link
     detail_return            = lt_return_detail
            .

IF ls_return-type = 'E' OR
     ls_return-type = 'A'.

CLEAR ls_message.
    ls_message-class  = 'BUS'.
    ls_message-msgtyp = ls_return-type.
    ls_message-msgno  = ls_return-number.
    ls_message-msgtxt = ls_return-message.
    APPEND ls_message TO tp_message.

cp_eind = 'X'.

ENDIF.

LOOP AT lt_return_detail INTO ls_return_detail
      WHERE type IS NOT INITIAL.

CLEAR ls_message.
    ls_message-class  = 'BUS'.
    ls_message-msgtyp = ls_return_detail-type.
    ls_message-msgno  = ls_return_detail-number.
    CONCATENATE ls_return_detail-message
                ';确认号:' ls_return_detail-conf_no
                ';计数器:' ls_return_detail-conf_cnt
           INTO ls_message-msgtxt .
    APPEND ls_message TO tp_message.

IF ls_return_detail-type = 'E' OR
       ls_return_detail-type = 'A'.
      cp_eind = 'X'.
    ELSE.
      IF ls_return_detail-conf_no IS NOT INITIAL.
        cp_rueck = ls_return_detail-conf_no.  "确认号
        cp_rmzhl = ls_return_detail-conf_cnt. "计数器
      ENDIF.
    ENDIF.
  ENDLOOP.

IF cp_eind NE 'X'.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ENDIF.

CHECK  cp_eind NE 'X'.

CLEAR afwi.
  DO 5 TIMES.

SELECT SINGLE *
    FROM afwi
    WHERE rueck = cp_rueck
      AND rmzhl = cp_rmzhl.
*    IF sy-subrc EQ 0.
    IF afwi-mjahr IS NOT INITIAL.
      EXIT.
    ELSE.
      WAIT UP TO 1 SECONDS.
    ENDIF.

ENDDO.

IF afwi IS INITIAL.
    ls_message-class  = 'BUS'.
    ls_message-msgtyp = 'W'.
    ls_message-msgno  = '000'.
    ls_message-msgtxt = '生产完工入库物料凭证未生成成功，请人工处理！'.
    APPEND ls_message TO tp_message.
  ENDIF.

ENDFORM.                    " FRM_PROCESS_CO11N