采购申请创建采购订单

FUNCTION zmm_createpofrompr.

*"----------------------------------------------------------------------

*"*"本地接口：

*" TABLES

*" IT_MSEG STRUCTURE MSEG

*"----------------------------------------------------------------------

* 定义数据

DATA: poheader LIKE bapimepoheader,

exppurchaseorder LIKE bapimepoheader-po_number,

expheader LIKE bapimepoheader,

exppoexpimpheader LIKE bapieikp,

RETURN TYPE STANDARD TABLE OF bapiret2 WITH HEADER LIN E,

poitem TYPE STANDARD TABLE OF bapimepoitem WITH HEADER LINE,

poschedule TYPE STANDARD TABLE OF bapimeposchedule WIT H HEADER LINE,

w_return LIKE LINE OF RETURN,

poheaderx LIKE bapimepoheaderx,

poitemx TYPE STANDARD TABLE OF bapimepoitemx WITH HEADE R LINE,

poschedulex TYPE STANDARD TABLE OF bapimeposchedulx WIT H HEADER LINE,

poaccount TYPE STANDARD TABLE OF bapimepoaccount WITH HEA DER LINE,

poaccountx TYPE STANDARD TABLE OF bapimepoaccountx WITH H EADER LINE,

zlifnr TYPE eban-flief,"采购申请供应商

banfn TYPE eban-banfn,"采购申请号

ebeln TYPE ekko-ebeln,"采购订单号

g_werks TYPE eban-werks."工厂变量

*BREAK-POINT.

IF sy-tcode = 'ZMB1A'. "只针对发货的事务代码

IMPORT banfn FROM MEMORY ID 'banfn'.

IMPORT g_werks FROM MEMORY ID 'werks'.

IF banfn IS NOT INITIAL.

* 数据处理

CLEAR : poheader,poitem[],poitem,poitemx[],poitemx,posche dule,poschedule[],poschedulex,poschedulex[],zlifnr.

*采购订单抬头数据

MOVE 'ZP01' TO poheader-doc_type. "采购凭证类型标准

* poheader-comp_code = '1000' . "公司代码

MOVE sy-datum TO poheader-creat_date.

MOVE sy-uname TO poheader-created_by.

SELECT SINGLE werks flief ekgrp INTO (poheader-comp_code ,poheader-vendor,poheader-pur_group) FROM eban WHERE banfn = banfn.

* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

* EXPORTING

* INPUT = zlifnr

* IMPORTING

* OUTPUT = poheader-vendor. "供应商

MOVE '1000' TO poheader-purch_org. "采购组织固定值

* MOVE '001' TO poheader-pur_group. "采购组

MOVE 'X' TO poheaderx-doc_type. "采购凭证类型

MOVE 'X' TO poheaderx-comp_code.

MOVE 'X' TO poheaderx-creat_date.

MOVE 'X' TO poheaderx-created_by.

MOVE 'X' TO poheaderx-vendor.

MOVE 'X' TO poheaderx-purch_org.

MOVE 'X' TO poheaderx-pur_group.

* 采购订单行项目数据

LOOP AT it_mseg WHERE bwart = 'Z01'.

poitem-po_item = it_mseg-zeile * 10. "采购凭证的项目编号

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = it_mseg-matnr

IMPORTING

OUTPUT = poitem-material. "物料编码

* poitem-material = it_mseg-matnr. "物料

* poitem-SHORT_TEXT = '物料描述'.

* poitem-MATL_GROUP = '04999999'. "非自营物料组

* poitem-MATL_GROUP = '99000001'. "非自营物料组

* poitem-PO_UNIT = 'EA'. "非自营物料组

* poitem-acctasscat = 'P'. "科目分配类别

poitem-plant = g_werks."it_mseg-werks. 取采购申请上的工厂 "工厂

poitem-quantity = it_mseg-menge. "采购订单数量

* MOVE sy-datum TO poitem-price_date. "价格确定日期

* poitem-net_price = it_mseg-dmbtr / it_mseg-menge.

* 取移动平均价

SELECT SINGLE verpr peinh INTO (poitem-net_price,poitem-price _unit ) FROM mbew WHERE matnr = it_mseg-matnr AND bwkey = '1000'.

poitem-tax_code = 'J0'." it_mseg-MWSKZ."'J0'."销售税代码

poitem-ref_doc = it_mseg-mblnr. "物料凭证号

poitem-ref_item = it_mseg-zeile * 10."物料凭证行项目

poitem-po_price = '2' .

poitem-calctype = 'B'.

poitem-preq_no = banfn. "采购申请凭证号

poitem-preq_item = it_mseg-zeile * 10."采购申请行项目

poitem-ref_doc = banfn."参考凭证

poitem-ref_item = it_mseg-zeile * 10."参考凭证项目

* poitemx-preq_item = it_mseg-ebelp."采购凭证行项目

APPEND poitem.

CLEAR poitem.

* poitemx-preq_no = banfn.

* poitemx-preq_item = it_mseg-zeile * 10."采购申请行项目

poitemx-po_item = it_mseg-zeile * 10.

MOVE 'X' TO poitemx-material.

* poitemx-SHORT_TEXT = 'X'.

* poitemx-MATL_GROUP = 'X'. "非自营物料组

* poitemx-PO_UNIT = 'X'. "非自营物料组

* poitemx-acctasscat = 'X'.

MOVE 'X' TO poitemx-plant.

MOVE 'X' TO poitemx-quantity.

* MOVE 'X' TO poitemx-price_date.

MOVE 'X' TO poitemx-net_price.

MOVE 'X' TO poitemx-price_unit .

MOVE 'X' TO poitemx-tax_code.

poitemx-ref_doc = 'X'. "物料凭证号

poitemx-ref_item = 'X'."物料凭证行项目

poitemx-po_price = 'X'.

poitemx-calctype = 'X'.

poitemx-preq_no = 'X'. "采购凭证号

poitemx-preq_item = 'X'. "采购申请凭证号

* poitemx-preq_item = 'X'.“参考的采购申请行项目

poitemx-ref_doc = 'X'."参考凭证

poitemx-ref_item = 'X'."参考凭证项目

* poitemx-preq_item = 'X'."采购凭证行项目

APPEND poitemx.

CLEAR poitemx.

poschedule-po_item = it_mseg-zeile * 10.

poschedule-delivery_date = sy-datum.

APPEND poschedule.

CLEAR poschedule.

poschedulex-po_item = it_mseg-zeile * 10.

MOVE 'X' TO poschedulex-delivery_date.

APPEND poschedulex.

CLEAR poschedulex.

* poaccount-po_item = it_mseg-ZEILE.

* poaccount-serial_no = '01'.

* poaccount-WBS_ELEMENT = '11601130100031'. * APPEND poaccount.

* CLEAR poaccount.

*

* poaccountx-po_item = it_mseg-ZEILE.

* poaccountx-serial_no = '01'.

* poaccountx-WBS_ELEMENT = 'X'.

* APPEND poaccountx.

* CLEAR poaccountx.

ENDLOOP.

break abap01.

* 调用ｂａｐｉ创建采购订单

IF poitem[] IS NOT INITIAL.

CALL FUNCTION 'BAPI_PO_CREATE1'

EXPORTING

poheader = poheader

poheaderx = poheaderx

no_price_from_po = 'X'

IMPORTING

exppurchaseorder = exppurchaseorder

expheader = expheader

exppoexpimpheader = exppoexpimpheader

TABLES

RETURN = RETURN

poitem = poitem

poitemx = poitemx

* POADDRDELIVERY =

poschedule = poschedule

poschedulex = poschedulex.

* POACCOUNT = poaccount

* POACCOUNTx = poaccountx.

IF exppurchaseorder IS NOT INITIAL."抛出新生成的采购订单号 ebeln = exppurchaseorder.

EXPORT ebeln TO MEMORY ID 'ebeln'.

ENDIF.

break abap01.

LOOP AT RETURN WHERE TYPE = 'E'.

*CLEAR it_msg.

IF sy-tabix > 2.

CALL FUNCTION 'MESSAGE_TEXT_BUILD'

EXPORTING

msgid = RETURN-ID

msgnr = RETURN-NUMBER

msgv1 = RETURN-message_v1

msgv2 = RETURN-message_v2

msgv3 = RETURN-message_v3

msgv4 = RETURN-message_v4

IMPORTING

message_text_output = RETURN-MESSAGE.

MESSAGE e001(00) WITH RETURN-MESSAGE.

ENDIF.

ENDLOOP.

ENDIF.

ENDIF. ENDIF. ENDFUNCTION.