BAPI:BAPI_PRODORDCONF_CREATE_TT （TCODE：CO11N）
*&---------------------------------------------------------------------*
*& 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