第一个BAPI程序

第一个BAPI程序*&**&ReportZ01*&*&**&*&*&*REPORTz01.DATAlv_headerTYPEbapimereqheader.DATAlv_headerxTYPEbapimereqheade

大家好,欢迎来到IT知识分享网。第一个BAPI程序"

*&---------------------------------------------------------------------*
*& Report  Z01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT z01.

DATA lv_header TYPE bapimereqheader.
DATA lv_headerx TYPE bapimereqheaderx.


lv_header-pr_type = 'NB'.
lv_headerx-pr_type = 'X'.


DATA wa_item TYPE bapimereqitemimp.
DATA wa_itemx TYPE bapimereqitemx.

DATA t_item TYPE TABLE OF bapimereqitemimp.
DATA t_itemx TYPE TABLE OF bapimereqitemx.



wa_item-material = 'A01'.
wa_itemx-material = 'X'.

wa_item-plant = '8010'.
wa_itemx-plant = 'X'.


wa_item-pur_group = '001'.
wa_itemx-pur_group = 'X'.


wa_item-quantity = '999'.
wa_itemx-quantity = 'X'.

APPEND wa_item TO t_item.
APPEND wa_itemx TO t_itemx.

DATA return TYPE TABLE OF bapiret2.
DATA lv_number TYPE bapimereqheader-preq_no.

CALL FUNCTION 'BAPI_PR_CREATE'
  EXPORTING
    prheader  = lv_header
    prheaderx = lv_headerx
*   TESTRUN   =
  IMPORTING
    number    = lv_number
*   PRHEADEREXP                  =
  TABLES
    return    = return
    pritem    = t_item
    pritemx   = t_itemx
*   PRITEMEXP =
*   PRITEMSOURCE                 =
*   PRACCOUNT =
*   PRACCOUNTPROITSEGMENT        =
*   PRACCOUNTX                   =
*   PRADDRDELIVERY               =
*   PRITEMTEXT                   =
*   PRHEADERTEXT                 =
*   EXTENSIONIN                  =
*   EXTENSIONOUT                 =
*   PRVERSION =
*   PRVERSIONX                   =
*   ALLVERSIONS                  =
*   PRCOMPONENTS                 =
*   PRCOMPONENTSX                =
*   SERVICEOUTLINE               =
*   SERVICEOUTLINEX              =
*   SERVICELINES                 =
*   SERVICELINESX                =
*   SERVICELIMIT                 =
*   SERVICELIMITX                =
*   SERVICECONTRACTLIMITS        =
*   SERVICECONTRACTLIMITSX       =
*   SERVICEACCOUNT               =
*   SERVICEACCOUNTX              =
*   SERVICELONGTEXTS             =
*   SERIALNUMBER                 =
*   SERIALNUMBERX                =
  .


CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  EXPORTING
    wait = 'X'
* IMPORTING
*   RETURN        =
  .

COMMIT WORK AND WAIT.

WRITE lv_number.

 

免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://yundeesoft.com/34290.html

(0)

相关推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注

关注微信