DEMO创建PR：BAPI_PR_CREATE_SAP刘梦_新浪博客

直接上干货代码：

*&---------------------------------------------------------------------*

*& Report  ZLM_CREATE_PR

*&

*&---------------------------------------------------------------------*

*& BAPI_REQUISITION_CREATE 和 BAPI_PR_CREATE 相关问题查看NOTE

*& 499627 - FAQ BAPIs for purchase requisitions

*&---------------------------------------------------------------------*

REPORT ZLM_PR_CREATE.

DATA:LV_BANFN       TYPE EBAN-BANFN .

DATA:LV_BNFPO       TYPE EBAN-BNFPO .

DATA:LS_PRITEM      TYPE BAPIMEREQITEMIMP .

DATA:LS_PRITEMX     TYPE BAPIMEREQITEMX .

DATA:LT_PRITEM      TYPE TABLE OF BAPIMEREQITEMIMP .

DATA:LT_PRITEMX     TYPE TABLE OF BAPIMEREQITEMX .

DATA:LS_HEAD        TYPE BAPIMEREQHEADER  .

DATA:LS_HEADX       TYPE BAPIMEREQHEADERX.

DATA:LT_BAPIRETURN  TYPE TABLE OF BAPIRET2 .

*

PARAMETERS:P_MATNR  TYPE MATNR .

PARAMETERS:P_EKORG  TYPE EKORG .

PARAMETERS:P_WERKS  TYPE WERKS_D .

START-OF-SELECTION.

  LS_HEAD-PR_TYPE = 'NB'."订单类型

  LS_HEADX-PR_TYPE = 'X' .

  CLEAR LV_BNFPO.

  LV_BNFPO  = LV_BNFPO    10 ."项目号

  LS_PRITEM-PREQ_ITEM = LV_BNFPO .

  LS_PRITEM-PREQ_NAME = SY-UNAME.

*ls_PRITEM-TRACKINGNO = 'TRACKNO'.

  LS_PRITEM-MATERIAL =   P_MATNR.

  LS_PRITEM-PLANT    =  P_WERKS.

  LS_PRITEM-PURCH_ORG    =  P_EKORG.

  LS_PRITEM-QUANTITY =  10.

  LS_PRITEM-DELIV_DATE = SY-DATUM.

*ls_PRITEM-FIXED = 'X' .

*ls_PRITEM-PUR_GROUP = '109'.

  APPEND LS_PRITEM TO LT_PRITEM .

  LS_PRITEMX-PREQ_ITEM = LV_BNFPO .

  LS_PRITEMX-MATERIAL =   'X'.

  LS_PRITEMX-PLANT    =   'X'.

  LS_PRITEMX-QUANTITY =   'X'.

  LS_PRITEMX-DELIV_DATE = 'X'.

  LS_PRITEMX-PURCH_ORG = 'X'.

*ls_PRITEMX-FIXED = 'X' .

*ls_PRITEMX-PREQ_NAME = 'X'.

*ls_PRITEMX-TRACKINGNO = 'X' .

*IF ls_PRITEM-PUR_GROUP <> '' .

*  ls_PRITEMX-PUR_GROUP = 'X'.

*ENDIF .

  APPEND LS_PRITEMX TO LT_PRITEMX .

  CALL FUNCTION 'BAPI_PR_CREATE'

    EXPORTING

      PRHEADER  = LS_HEAD

      PRHEADERX = LS_HEADX

    IMPORTING

      NUMBER    = LV_BANFN

    TABLES

      RETURN    = LT_BAPIRETURN

      PRITEM    = LT_PRITEM

      PRITEMX   = LT_PRITEMX.

  IF LV_BANFN IS NOT INITIAL.

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

      EXPORTING

        WAIT = 'X'.

    WRITE:LV_BANFN.

  ELSE.

    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

  ENDIF.

以下是纯顾问群~
微信群：SAP干货铺，请联系本人微信 sapliumeng。
QQ群 ：SAP干货铺，  群号：775662808

所有群管理严格，严格禁止一切外来链接、招聘、广告等垃圾信息!