1.收获/公司调拨/转储等等
LOOP AT gt_item ASSIGNING <fs>.
"Head
goodsmvt_header-pstng_date = sy-datum.
goodsmvt_header-doc_date = sy-datum.
IF <fs>-flag = '1'.
"goodsmvt_header-header_txt = '返回生产'.
goodsmvt_code-gm_code = '04'.
ELSEIF <fs>-flag = '2'.
"goodsmvt_header-header_txt = '成本中心消耗'.
goodsmvt_code-gm_code = '03'.
ENDIF.
"Item
goodsmvt_item-plant = <fs>-werks . "源工厂
goodsmvt_item-stge_loc = <fs>-lgort. "源库存地点
goodsmvt_item-move_plant = <fs>-umwrk. "目标工厂
goodsmvt_item-move_stloc = <fs>-umlgo. "目标存地点
m_alpha <fs>-sernr tsernr.
SELECT SINGLE matnr INTO goodsmvt_item-material FROM equi WHERE sernr = tsernr.
CONDENSE <fs>-bwart NO-GAPS.
IF <fs>-flag = '1'.
goodsmvt_item-move_type = '301'.
ELSEIF <fs>-flag = '2'.
goodsmvt_item-move_type = <fs>-bwart.
ENDIF.
goodsmvt_item-entry_qnt = 1.
SELECT SINGLE meins INTO goodsmvt_item-entry_uom FROM mara WHERE matnr = goodsmvt_item-material.
goodsmvt_item-costcenter = <fs>-kostl.
APPEND goodsmvt_item.
CLEAR goodsmvt_item.
"serial
gm_serialnumber-matdoc_itm = l_lines.
gm_serialnumber-serialno = tsernr.
APPEND gm_serialnumber.
CLEAR gm_serialnumber.
l_lines = l_lines + 1.
ENDLOOP.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = goodsmvt_header
goodsmvt_code = goodsmvt_code
IMPORTING
materialdocument = materialdocument
TABLES
goodsmvt_item = goodsmvt_item
goodsmvt_serialnumber = gm_serialnumber
return = return.
2. 公司间调拨做采购订单
*&---------------------------------------------------------------------*
*& Form bapi_po_create1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form bapi_po_create1.
data: l_ebelp like ekpo-ebelp,
l_ebeln like ekpo-ebeln.
data: lt_poitem like bapimepoitem occurs 0 with header line,
lt_poitemx like bapimepoitemx occurs 0 with header line,
lt_poschedule like bapimeposchedule occurs 0 with header line,
lt_poschedulex like bapimeposchedulx occurs 0 with header line,
lt_return like bapiret2 occurs 0 with header line.
data: lw_poheader like bapimepoheader,
lw_poheaderx like bapimepoheaderx.
data: meng like bapicm61v-wkbst.
lw_poheader-doc_type = 'ZCB'. "采购凭证类型
lw_poheader-comp_code = '6000'. "公司代码
lw_poheader-purch_org = '6100'. "采购组织
lw_poheader-pur_group = '5
SAP 销售业务BAPI
最新推荐文章于 2024-10-10 16:11:56 发布