DEMO:PR添加新行项目BAPI_PR_CHANGE_SAP刘梦_新浪博客

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

*& Report  ZLM_PR_CHANGE

*&

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

*&

*&

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

REPORT ZLM_PR_CHANGE.

PARAMETERS : P_BANFN TYPE VBEP-BANFN OBLIGATORY.

DATA:

  LS_PRHEADER  LIKE BAPIMEREQHEADER, "

  LS_PRHEADERX LIKE BAPIMEREQHEADERX, "

  TESTRUN      TYPE BAPIFLAG-BAPIFLAG, "

  LT_RETURN    LIKE TABLE OF BAPIRET2 WITH HEADER LINE, "

  LT_PRITEM    LIKE TABLE OF BAPIMEREQITEM WITH HEADER LINE, "

  LT_PRITEMX   LIKE TABLE OF BAPIMEREQITEMX WITH HEADER LINE, "

  LS_PRITEMX   TYPE BAPIMEREQITEMX,

  IV_BANFN     TYPE EBAN-BANFN.  "OK

DATA: LT_PRITEM1           TYPE TABLE OF BAPIMEREQITEMIMP WITH HEADER LINE. "

DATA: LS_PRITEM            TYPE BAPIMEREQITEM.

DATA: LV_LINECNT           TYPE N.

IV_BANFN = P_BANFN.

CALL FUNCTION 'BAPI_PR_GETDETAIL'

  EXPORTING

    NUMBER             = IV_BANFN

    ACCOUNT_ASSIGNMENT = 'X'

    ITEM_TEXT          = 'X'

    HEADER_TEXT        = 'X'

    DELIVERY_ADDRESS   = 'X'

    VERSION            = 'X' "version

  IMPORTING

    PRHEADER           = LS_PRHEADER

  TABLES

    PRITEM             = LT_PRITEM

    RETURN             = LT_RETURN

  EXCEPTIONS

    OTHERS             = 0.

CLEAR : LS_PRITEM.

LOOP AT LT_PRITEM INTO LS_PRITEM.

  MOVE-CORRESPONDING LS_PRITEM TO LT_PRITEM1.

  APPEND LT_PRITEM1.

  CLEAR : LS_PRITEM, LT_PRITEM1.

ENDLOOP.

LS_PRHEADERX-PREQ_NO = 'X'.

LS_PRHEADERX-ITEM_INTVL = 'X'.

 

READ TABLE LT_PRITEM INTO LS_PRITEM INDEX 1.

MOVE-CORRESPONDING LS_PRITEM TO LT_PRITEM1.

LT_PRITEM1-PREQ_ITEM = 20.

APPEND LT_PRITEM1.

LS_PRITEMX-PREQ_ITEM      = LV_LINECNT   10.

LS_PRITEMX-PREQ_ITEMX     = 'X'.

LS_PRITEMX-MATERIAL       = 'X'.

LS_PRITEMX-PLANT          = 'X'.

LS_PRITEMX-STORE_LOC      = 'X'.

LS_PRITEMX-PUR_GROUP      = 'X'.

LS_PRITEMX-QUANTITY       = 'X'.

LS_PRITEMX-UNIT           = 'X'.

LS_PRITEMX-DEL_DATCAT_EXT = 'X'.

LS_PRITEMX-DELIV_DATE     = 'X'.

LS_PRITEMX-FIXED_VEND     = 'X'.

LS_PRITEMX-PREQ_PRICE     = 'X'.

LS_PRITEMX-PRICE_UNIT     = 'X'.

LS_PRITEMX-PURCH_ORG      = 'X'.

LS_PRITEMX-VEND_MAT       = 'X'.

APPEND LS_PRITEMX TO LT_PRITEMX.

CALL FUNCTION 'BAPI_PR_CHANGE'

  EXPORTING

    NUMBER  = IV_BANFN

*   PRHEADER               = ls_PRHEADER

*   PRHEADERX              = ls_PRHEADERX

*   testrun = testrun

*IMPORTING

*   PRHEADEREXP            = ls_PRHEADEREXP

  TABLES

    PRITEMX = LT_PRITEMX

    PRITEM  = LT_PRITEM1

    RETURN  = LT_RETURN

  EXCEPTIONS

    OTHERS  = 01.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

  EXPORTING

    WAIT = 'X'.

 

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

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