一 测试
*&---------------------------------------------------------------------*
*& Report ZLXF12
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZLXF12.
DATA: ls_goodsmvt_header TYPE bapi2017_gm_head_01,
ls_goodsmvt_code TYPE bapi2017_gm_code.
DATA: ls_goodsmvt_item LIKE bapi2017_gm_item_create,
lt_goodsmvt_item LIKE TABLE OF bapi2017_gm_item_create.
DATA: lv_materialdocument TYPE bapi2017_gm_head_ret-mat_doc.
DATA: lv_matdocumentyear TYPE bapi2017_gm_head_ret-doc_year.
DATA: ls_return TYPE bapiret2,
lt_return TYPE TABLE OF bapiret2.
DATA: lv_msg TYPE string.
DATA: lv_message TYPE string.
ls_goodsmvt_header-pstng_date = '20170630'." 凭证中的过帐日期
ls_goodsmvt_header-doc_date = '20170630'."凭证中的凭证日期
ls_goodsmvt_header-header_txt = 'bapi create ' ."凭证抬头文本
ls_goodsmvt_code-gm_code = '05'.
* LOOP AT gt_item INTO gs_item WHERE zsfsl > 0 AND mblnr IS INITIAL.
ls_goodsmvt_item-material = '10.130.000001'."物料号
ls_goodsmvt_item-plant = '1000'."工厂
ls_goodsmvt_item-stge_loc = '1001'."库存地点
ls_goodsmvt_item-move_type = '511'."移动类型
* ls_goodsmvt_item-item_text = gs_head-zlldj."领料单号
* ls_goodsmvt_item-gr_rcpt = gs_item-zxuha."序号
* ls_goodsmvt_item-orderid = gs_item-aufnr."生产订单号
ls_goodsmvt_item-entry_qnt = 520.
ls_goodsmvt_item-entry_uom = 'ST' .
* ls_goodsmvt_item-quantity = gs_item-zsfsl.
APPEND ls_goodsmvt_item TO lt_goodsmvt_item.
CLEAR: ls_goodsmvt_item.
* ENDLOOP.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = ls_goodsmvt_header
goodsmvt_code = ls_goodsmvt_code
IMPORTING
materialdocument = lv_materialdocument
matdocumentyear = lv_matdocumentyear
TABLES
goodsmvt_item = lt_goodsmvt_item
return = lt_return.
IF lv_materialdocument IS NOT INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
IF sy-subrc EQ 0.
COMMIT WORK.
* MESSAGE s000 WITH '过账成功，凭证号' lv_materialdocument.
MESSAGE lv_materialdocument TYPE 'S' .
LEAVE TO SCREEN 0.
ELSE.
ROLLBACK WORK.
* MESSAGE s000 WITH '过账成功，凭证号' lv_materialdocument '数据保存失败！'.
MESSAGE '数据保存失败！' TYPE 'W' .
LEAVE TO SCREEN 0.
ENDIF.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
LOOP AT lt_return INTO ls_return WHERE type EQ 'A' OR type EQ 'E'.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
msgid = ls_return-id
msgnr = ls_return-number
msgv1 = ls_return-message_v1
msgv2 = ls_return-message_v2
msgv3 = ls_return-message_v3
msgv4 = ls_return-message_v4
IMPORTING
message_text_output = lv_msg.
IF lv_message IS INITIAL.
lv_message = lv_msg.
ELSE.
CONCATENATE lv_msg '/' lv_message INTO lv_message.
ENDIF.
CLEAR: ls_return.
ENDLOOP.
* MESSAGE i000 WITH lv_msg DISPLAY LIKE 'E'.
MESSAGE lv_msg TYPE 'W' .
ENDIF.
二 委外 ==================================================
FORM frm_post .
DATA: lt_zmmt009c LIKE TABLE OF zmmt009c,
ls_zmmt009c LIKE zmmt009c.
DATA: lt_zmmt009b LIKE TABLE OF zmmt009b,
ls_zmmt009b LIKE zmmt009b.
DATA: lt_009b LIKE TABLE OF zmmt009b.
DATA: ls_goodsmvt_header TYPE bapi2017_gm_head_01,
ls_goodsmvt_code TYPE bapi2017_gm_code.
DATA: ls_goodsmvt_item LIKE bapi2017_gm_item_create,
lt_goodsmvt_item LIKE TABLE OF bapi2017_gm_item_create.
DATA: lv_materialdocument TYPE bapi2017_gm_head_ret-mat_doc.
DATA: lv_matdocumentyear TYPE bapi2017_gm_head_ret-doc_year.
DATA: ls_return TYPE bapiret2,
lt_return TYPE TABLE OF bapiret2.
DATA: lv_msg TYPE string.
DATA: lv_message TYPE string.
ls_goodsmvt_header-pstng_date = sy-datum." 凭证中的过帐日期
ls_goodsmvt_header-doc_date = sy-datum."凭证中的凭证日期
ls_goodsmvt_header-header_txt = gs_head-zwwck."凭证抬头文本
ls_goodsmvt_code-gm_code = '04'.
LOOP AT gt_item INTO gs_item WHERE zgzsl > 0 AND mblnr IS INITIAL.
ls_goodsmvt_item-material = gs_item-matnr."物料号
ls_goodsmvt_item-plant = gs_head-werks."工厂
ls_goodsmvt_item-stge_loc = gs_item-lgort."库存地点
ls_goodsmvt_item-move_type = '541'."移动类型
* ls_goodsmvt_item-orderid = gs_item-aufnr."生产订单号
ls_goodsmvt_item-vendor = gs_item-lifnr.
ls_goodsmvt_item-gr_rcpt = gs_item-ebeln.
ls_goodsmvt_item-unload_pt = gs_item-ebelp.
ls_goodsmvt_item-item_text = gs_item-zhxmh."序号
ls_goodsmvt_item-entry_qnt = gs_item-zgzsl.
ls_goodsmvt_item-entry_uom = gs_item-meins.
ls_goodsmvt_item-val_type = gs_item-bwtar.
APPEND ls_goodsmvt_item TO lt_goodsmvt_item.
CLEAR: ls_goodsmvt_item.
ENDLOOP.
IF lt_goodsmvt_item[] IS INITIAL.
MESSAGE s000 WITH '没有符合条件的过账数据，请检查' DISPLAY LIKE 'E'.
EXIT.
ENDIF.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = ls_goodsmvt_header
goodsmvt_code = ls_goodsmvt_code
IMPORTING
materialdocument = lv_materialdocument
matdocumentyear = lv_matdocumentyear
TABLES
goodsmvt_item = lt_goodsmvt_item
return = lt_return.
IF lv_materialdocument IS NOT INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
LOOP AT gt_item INTO gs_item WHERE mblnr IS INITIAL.
IF gs_item-zgzsl > 0.
gs_item-mblnr = lv_materialdocument.
gs_item-mjahr = lv_matdocumentyear.
ELSE.
gs_item-loekz = 'X'.
ENDIF.
gs_item-zhxgd = sy-datum.
gs_item-zhxgr = sy-uname.
MODIFY gt_item FROM gs_item.
CLEAR: gs_item.
ENDLOOP.
SELECT *
INTO TABLE lt_zmmt009b
FROM zmmt009b
FOR ALL ENTRIES IN gt_item
WHERE lifnr = gt_item-lifnr
AND matnr = gt_item-matnr
AND werks = gt_item-werks.
SORT lt_zmmt009b BY lifnr matnr werks.
LOOP AT gt_item INTO gs_item.
MOVE-CORRESPONDING gs_item TO ls_zmmt009c.
APPEND ls_zmmt009c TO lt_zmmt009c.
IF gs_item-loekz IS INITIAL.
CLEAR: ls_zmmt009b.
READ TABLE lt_zmmt009b INTO ls_zmmt009b
WITH KEY lifnr = gs_item-lifnr
matnr = gs_item-matnr
werks = gs_item-werks
BINARY SEARCH.
IF sy-subrc EQ 0.
ls_zmmt009b-zdfkc_ye = ls_zmmt009b-zdfkc_ye + gs_item-zbddf.
ls_zmmt009b-zhxgd = sy-datum.
ls_zmmt009b-zhxgr = sy-uname.
* APPEND ls_zmmt009b TO lt_009b.
MODIFY lt_zmmt009b FROM ls_zmmt009b INDEX sy-tabix.
ELSE.
MOVE-CORRESPONDING gs_item TO ls_zmmt009b.
ls_zmmt009b-zdfkc_ye = gs_item-zbddf.
ls_zmmt009b-zhxgd = sy-datum.
ls_zmmt009b-zhxgr = sy-uname.
* APPEND ls_zmmt009b TO lt_zmmt009b.
COLLECT ls_zmmt009b INTO lt_009b.
ENDIF.
ENDIF.
CLEAR: ls_zmmt009c,gs_item.
ENDLOOP.
IF lt_009b[] IS NOT INITIAL.
APPEND LINES OF lt_009b TO lt_zmmt009b.
ENDIF.
CALL FUNCTION 'DEQUEUE_ALL'.
MODIFY zmmt009c FROM TABLE lt_zmmt009c.
IF sy-subrc EQ 0.
MODIFY zmmt009b FROM TABLE lt_zmmt009b.
COMMIT WORK.
MESSAGE s000 WITH '过账成功，凭证号' lv_materialdocument.
LEAVE TO SCREEN 0.
ELSE.
ROLLBACK WORK.
MESSAGE s000 WITH '过账成功，凭证号' lv_materialdocument '数据保存失败！'.
LEAVE TO SCREEN 0.
ENDIF.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
CALL FUNCTION 'DEQUEUE_ALL'.
LOOP AT lt_return INTO ls_return WHERE type EQ 'A' OR type EQ 'E'.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
msgid = ls_return-id
msgnr = ls_return-number
msgv1 = ls_return-message_v1
msgv2 = ls_return-message_v2
msgv3 = ls_return-message_v3
msgv4 = ls_return-message_v4
IMPORTING
message_text_output = lv_msg.
IF lv_message IS INITIAL.
lv_message = lv_msg.
ELSE.
CONCATENATE lv_msg '/' lv_message INTO lv_message.
ENDIF.
CLEAR: ls_return.
ENDLOOP.
MESSAGE s000 WITH lv_msg DISPLAY LIKE 'E'.
ENDIF.
ENDFORM.