MIGO物料凭证冲销BAPI
FUNCTION zsdfu014.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" VALUE(I_ID) TYPE ZRFC_LOGID OPTIONAL
*" VALUE(I_CANUM) TYPE CANUM OPTIONAL
*" EXPORTING
*" VALUE(E_CODE) TYPE MSGTY
*" VALUE(E_MSG) TYPE MSGTXT
*" VALUE(E_FLOW_END) TYPE CHAR01
*" TABLES
*" ET_RETURN STRUCTURE ZRFCT005 OPTIONAL
*"----------------------------------------------------------------------
DATA:ls_zsdt022 TYPE zsdt022.
DATA:ls_zsdt013_1 TYPE zsdt013,
lt_zsdt013 TYPE TABLE OF zsdt013,
ls_zsdt013_2 TYPE zsdt013.
SELECT * INTO TABLE @DATA(lt_zsdt022) FROM zsdt022 WHERE zrfc_logid = @i_id.
IF lt_zsdt022 IS INITIAL.
e_code = 'E'.
e_msg = '无可执行数据'.
RETURN.
ENDIF.
DATA:ls_head TYPE bapi2017_gm_head_02,
ls_head_ret TYPE bapi2017_gm_head_ret,
lt_return TYPE TABLE OF bapiret2,
ls_return TYPE bapiret2.
DATA:message TYPE c LENGTH 200.
DATA:ls_zrfct002 TYPE zrfct002,
ls_zsdt013 TYPE zsdt013,
ls_zrfct005 TYPE zrfct005.
DATA:ls_head_im TYPE bapi2017_gm_head_01,
ls_head_ex TYPE bapi2017_gm_head_ret,
lt_item TYPE TABLE OF bapi2017_gm_item_create,
ls_item TYPE bapi2017_gm_item_create.
DATA:lv_mblnr TYPE bapi2017_gm_serialnumber.
LOOP AT lt_zsdt022 INTO ls_zsdt022.
ls_head_im-pstng_date = ls_zsdt022-budat.
ls_head_im-ref_doc_no = ls_zsdt022-xblnr.
ls_head_im-doc_date = ls_zsdt022-budat.
ls_head_im-pr_uname = sy-uname.
ls_item-material = ls_zsdt022-matnr.
ls_item-plant = ls_zsdt022-werks.
ls_item-stge_loc = ls_zsdt022-lgort.
ls_item-batch = ls_zsdt022-charg.
ls_item-move_type = ls_zsdt022-bwart.
ls_item-entry_qnt = ls_zsdt022-menge.
ls_item-mvt_ind = 'B'.
ls_item-po_number = ls_zsdt022-ebeln.
ls_item-po_item = ls_zsdt022-ebelp.
ls_item-ref_doc = ls_zsdt022-zmblnr.
ls_item-ref_doc_it = ls_zsdt022-zeile.
ls_item-move_reas = ls_zsdt022-grund.
APPEND ls_item TO lt_item.
SELECT SINGLE * INTO ls_zsdt013_1 FROM zsdt013 WHERE zmblnr = ls_zsdt022-zmblnr.
ls_zsdt013-zrfc_logid = i_id.
ls_zsdt013-canum = i_canum.
ls_zsdt013-zzrfc_logid = ls_zsdt013_1-zrfc_logid.
ls_zsdt013-zcanum = ls_zsdt013_1-canum.
ls_zsdt013-mblnr = ls_zsdt022-mblnr.
ls_zsdt013-mjahr = ls_zsdt022-mjahr.
ls_zsdt013-zrfc_logid_2 = ls_zsdt013_1-zrfc_logid.
ls_zsdt013-canum_2 = ls_zsdt013_1-canum.
ls_zsdt013-zzrfc_logid_2 = ls_zsdt013_1-zzrfc_logid.
ls_zsdt013-zcanum_2 = ls_zsdt013_1-zcanum.
ls_zsdt013-objtype = 'GS'.
ls_zsdt013-objkey = ls_zsdt013_1-objkey.
ls_zsdt013-zobjtype = 'PO'.
ls_zsdt013-zobjkey = ls_zsdt013_1-zobjkey.
ls_zsdt013-zrfcid = ls_zsdt013_1-zrfcid.
APPEND ls_zsdt013 TO lt_zsdt013.
CLEAR:ls_zsdt022,ls_item,ls_zsdt013,ls_zsdt013_1.
ENDLOOP.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = ls_head_im
goodsmvt_code = '01'
IMPORTING
goodsmvt_headret = ls_head_ex
TABLES
goodsmvt_item = lt_item
return = lt_return.
LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'.
CONCATENATE message ls_return-message INTO message SEPARATED BY '/'.
ENDLOOP.
IF sy-subrc NE 0.
CALL METHOD zcl_rfc=>get_source
EXPORTING
i_id = i_id
i_canum = i_canum
IMPORTING
e_zrfct002 = ls_zrfct002.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
e_code = 'S'.
CONCATENATE ls_head-mat_doc '冲销成功' INTO e_msg.
CLEAR:ls_zrfct005.
ls_zrfct005-status = '53'.
ls_zrfct005-msgty = e_code.
ls_zrfct005-msgid = '00'.
ls_zrfct005-msgno = '001'.
ls_zrfct005-msgv1 = e_msg.
ls_zrfct005-msgv4 = ls_head_ex-mat_doc.
APPEND ls_zrfct005 TO et_return.
ls_zsdt013_2-zmblnr = ls_head_ex-mat_doc.
ls_zsdt013_2-fkstol = 'X'.
MODIFY lt_zsdt013 FROM ls_zsdt013_2
TRANSPORTING zmblnr fkstol
WHERE zmblnr IS INITIAL.
MODIFY zsdt013 FROM TABLE lt_zsdt013.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
e_code = 'E'.
e_msg = message.
ENDIF.
ENDFUNCTION.
MIGO:工单发料
*----------------------------------------------------------------------*
***INCLUDE LZMMFG_OA002F01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form frm_generate_mblnr
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> IT_INFO
*& <-- EV_TYPE
*& <-- EV_MESSAGE
*&---------------------------------------------------------------------*
FORM frm_generate_mblnr TABLES pt_info STRUCTURE zsmmfu002_info
USING pv_bldat pv_budat pv_bktxt
CHANGING pv_type pv_message pv_mblnr pv_mjahr.
DATA:goodsmvt_header LIKE bapi2017_gm_head_01,
itab TYPE TABLE OF bapi2017_gm_item_create WITH HEADER LINE,
return LIKE TABLE OF bapiret2 WITH HEADER LINE,
mat_doc LIKE bapi2017_gm_head_ret-mat_doc,
mjahr TYPE bapi2017_gm_head_ret-doc_year.
DATA:ls_ztsnro TYPE ztsnro,
lt_ztsnro2 TYPE TABLE OF ztsnro,
lt_data TYPE TABLE OF zsmmfu002_info.
CLEAR:goodsmvt_header.
goodsmvt_header-doc_date = pv_bldat. "凭证中的凭证日期
goodsmvt_header-pstng_date = pv_budat. "凭证中的过帐日期
goodsmvt_header-pr_uname = sy-datum. "用户名
goodsmvt_header-header_txt = pv_bktxt. "抬头文本
SORT pt_info BY zeile.
READ TABLE pt_info INDEX 1.
IF sy-subrc EQ 0 AND pt_info-bwart EQ 'Z26'.
lt_data = pt_info[].
"查询物料对应的流水号-日期
WITH +i AS ( SELECT DISTINCT matnr
FROM @lt_data AS g )
SELECT a~*
FROM +i AS i
LEFT JOIN ztsnro AS a
ON i~matnr EQ a~matnr
WHERE datum EQ @sy-datum
INTO TABLE @DATA(lt_ztsnro).
SORT lt_ztsnro BY matnr.
ENDIF.
LOOP AT pt_info.
itab-plant = pt_info-werks."工厂
itab-material = pt_info-matnr."物料编码
itab-entry_qnt = pt_info-menge."数量
itab-entry_uom = pt_info-meins."单位
itab-move_type = pt_info-bwart."移动类型
itab-costcenter = pt_info-kostl."成本中心
itab-stge_loc = pt_info-lgort."库存地点
IF pt_info-bwart EQ 'Z26'."散件需要自动生成批次号
READ TABLE lt_ztsnro INTO ls_ztsnro
WITH KEY matnr = pt_info-matnr
BINARY SEARCH.
IF sy-subrc EQ 0.
"查到后,流水号+1
ls_ztsnro-snro = ls_ztsnro-snro + 1.
ELSE.
"没查到,重新生成流水号
ls_ztsnro-matnr = pt_info-matnr.
ls_ztsnro-snro = 1.
ls_ztsnro-datum = sy-datum.
ENDIF.
"流水号
itab-batch = |{ sy-datum+2(6) }{ ls_ztsnro-snro }|.
APPEND ls_ztsnro TO lt_ztsnro2.
CLEAR:ls_ztsnro.
ELSE.
itab-batch = pt_info-charg."成品批次编号-手动赋值
ENDIF.
APPEND itab.
CLEAR itab.
ENDLOOP.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = '03'
IMPORTING
materialdocument = mat_doc
matdocumentyear = mjahr
TABLES
goodsmvt_item = itab
return = return.
LOOP AT return WHERE type CA 'EAX'.
IF pv_message IS INITIAL.
pv_message = return-message.
ELSE.
pv_message = |{ pv_message },{ return-message }|.
ENDIF.
ENDLOOP.
IF sy-subrc = 0.
pv_type = 'E'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
pv_type = 'S'.
pv_message = '物料凭证创建成功'.
pv_mblnr = mat_doc.
pv_mjahr = mjahr.
"更新流水号表
IF lt_ztsnro2 IS NOT INITIAL.
MODIFY ztsnro FROM TABLE lt_ztsnro2.
COMMIT WORK AND WAIT.
ENDIF.
ENDIF.
ENDFORM.
