BAPI_PO_CREATE1 的用法(转)

初步对BAPI_PO_CREATE1有了一点了解,下面对这个bapi做一些我的体会讲解:

下面先将程式上传, 在程式中我只简单的对poheader和poitem做了一些输入,产生了一张po,并且po中只可以有一个项被采购,其实其中还有其他可以加入,例如: schedule,account,一起其他一些东西,,在这个程式中我就不在做介绍了,我将在后续的文章中说出我对这个bapi的其他体会,希望大家关注我的博克,谢!

REPORT  ZCREATPOBAPI                            .

TABLES BAPIMEPOHEADER.

CONSTANTS : C_X VALUE 'X'.

DATA WA_POHEADER TYPE BAPIMEPOHEADER.  "所要增加的内容
DATA WA_POHEADERX TYPE BAPIMEPOHEADERX. "针对要增加的内容做一个标记,其实标记过了才可以被修改的
DATA WA_POITEM    TYPE BAPIMEPOITEM.   "po中item的内容,工作区
DATA ITAB_POITEM LIKE TABLE OF WA_POITEM. po中item的内容,内表

DATA WA_POITEMX TYPE BAPIMEPOITEMX.  "po中item增加内容的标记 工作区
DATA ITAB_POITEMX LIKE TABLE OF WA_POITEMX."po中item增加内容的标记 内表
DATA WA_RETURN  TYPE BAPIRET2.     "消息 返回 ,工作区
DATA ITAB_RETURN LIKE TABLE OF WA_RETURN. "消息返回, 内表

*HEADER.
PARAMETERS: P_NUMBER LIKE  BAPIMEPOHEADER-PO_NUMBER,
            P_COCODE LIKE  BAPIMEPOHEADER-COMP_CODE DEFAULT 'CN01',
            P_DOTYPE LIKE  BAPIMEPOHEADER-DOC_TYPE  DEFAULT 'ZST3',
            P_STATUS LIKE  BAPIMEPOHEADER-STATUS    DEFAULT 'I',
            P_CRDATE LIKE  BAPIMEPOHEADER-CREAT_DATE ,
            P_CRDABY LIKE  BAPIMEPOHEADER-CREATED_BY DEFAULT SY-UNAME,
            P_ITEMIN LIKE  BAPIMEPOHEADER-ITEM_INTVL DEFAULT '1',
            P_VENDOR LIKE  BAPIMEPOHEADER-VENDOR     DEFAULT 'TWM4',
            P_LANGU  LIKE  BAPIMEPOHEADER-LANGU,
            P_PMNTTR LIKE  BAPIMEPOHEADER-PMNTTRMS   DEFAULT 'COD',
            P_PURCH  LIKE  BAPIMEPOHEADER-PURCH_ORG  DEFAULT 'CN01',
            P_PURGR  LIKE  BAPIMEPOHEADER-PUR_GROUP  DEFAULT  'KXX',
            P_DOCDAT LIKE  BAPIMEPOHEADER-DOC_DATE,
            P_VATCN  LIKE  BAPIMEPOHEADER-VAT_CNTRY  DEFAULT  'CNY'.
*ITEM
SELECTION-SCREEN SKIP.
PARAMETERS: P_POITEM    LIKE BAPIMEPOITEM-PO_ITEM DEFAULT '1',
            P_MATNER    LIKE BAPIMEPOITEM-MATERIAL,
            P_PLANT     LIKE BAPIMEPOITEM-PLANT DEFAULT 'CKH1',
            P_LOCT      LIKE BAPIMEPOITEM-STGE_LOC DEFAULT '0000',
            P_QUANTI    LIKE BAPIMEPOITEM-QUANTITY ,
            P_NETPRI    LIKE BAPIMEPOITEM-NET_PRICE,
            P_PRICEU    LIKE BAPIMEPOITEM-PRICE_UNIT,
            P_RENAME    LIKE BAPIMEPOITEM-PREQ_NAME DEFAULT SY-UNAME,
            P_PRDATE    LIKE BAPIMEPOITEM-PERIOD_IND_EXPIRATION_DATE DEFAULT 'D'.

 

 

*herader data
wa_poheader-po_number   = P_NUMBER .
wa_poheader-comp_code   = P_COCODE .
wa_poheader-doc_type    = P_DOTYPE .
wa_poheader-status      = P_STATUS .
wa_poheader-creat_date  = P_CRDATE.
wa_poheader-CREATED_BY = P_CRDABY.
wa_poheader-item_intvl = P_ITEMIN.
wa_poheader-vendor     = P_VENDOR.
wa_poheader-langu      = P_LANGU .
wa_poheader-pmnttrms   = P_PMNTTR.
wa_poheader-purch_org  = P_PURCH .
wa_poheader-pur_group  = P_PURGR .
wa_poheader-doc_date   = P_DOCDAT.
wa_poheader-vat_cntry   = P_VATCN .

*po header flag
wa_poheaderx-po_number   = 'X' .
wa_poheaderx-comp_code   = 'X' .
wa_poheaderx-doc_type    = 'X' .
wa_poheaderx-status      = 'X' .
wa_poheaderx-creat_date  = 'X'.
wa_poheaderx-created_by = 'X'.
wa_poheaderx-item_intvl = 'X'.
wa_poheaderx-vendor     = 'X'.
wa_poheaderx-langu      = 'X' .
wa_poheaderx-pmnttrms   = 'X'.
wa_poheaderx-purch_org  = 'X' .
wa_poheaderx-pur_group  = 'X' .
wa_poheaderx-doc_date   = 'X'.
wa_poheaderx-vat_cntry   = 'X' .

*po item data
wa_poitem-po_item                    = P_POITEM.
wa_poitem-MATERIAL                   = P_MATNER .
wa_poitem-PLANT                      = P_PLANT  .
WA_POITEM-STGE_LOC                   = P_LOCT .
wa_poitem-QUANTITY                   = P_QUANTI .
wa_poitem-NET_PRICE                  = P_NETPRI .
wa_poitem-PRICE_UNIT                 = P_PRICEU .
wa_poitem-PREQ_NAME                  = P_RENAME .
wa_poitem-PERIOD_IND_EXPIRATION_DATE = P_PRDATE .
APPEND WA_POITEM TO ITAB_POITEM.

*po item flag
wa_poitemx-po_item                   = p_poitem.
wa_poitemx-po_itemx                   = 'X'.
wa_poitemx-MATERIAL                   = 'X' .
wa_poitemx-PLANT                      = 'X'.
WA_POITEMX-STGE_LOC                   = 'X'.
wa_poitemx-QUANTITY                   = 'X'.
wa_poitemx-NET_PRICE                  = 'X'.
wa_poitemx-PRICE_UNIT                 = 'X'.
wa_poitemx-PREQ_NAME                  = 'X'.
wa_poitemx-PERIOD_IND_EXPIRATION_DATE = 'X'.
append wa_poitemx to itab_poitemx.

*call bapi
  CALL FUNCTION 'BAPI_PO_CREATE1'
    EXPORTING
      POHEADER    = wa_poheader
      POHEADERX   = wa_poheaderX
    TABLES
      RETURN      = ITAB_RETURN
      POITEM      = ITAB_POITEM
      POITEMX     = itab_poitemx.
*      POACCOUNT   = I_PO_ACCOUNT
*      POACCOUNTX  = I_PO_ACCOUNTX
*      POSCHEDULE  = I_PO_SCHEDULE
*      POSCHEDULEX = I_PO_SCHEDULEX.

DATA ERROR_LOG TYPE C.
LOOP AT ITAB_RETURN INTO WA_RETURN.
  IF WA_RETURN-TYPE = 'E'.
    ERROR_LOG = 'X'.
    EXIT.
  ENDIF.
  CLEAR WA_RETURN.
ENDLOOP.
IF ERROR_LOG = 'X'.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
    .
  WRITE 'MESSAGE ERROR'.
  LOOP AT ITAB_RETURN INTO WA_RETURN.
    WRITE: / WA_RETURN-TYPE, WA_RETURN-MESSAGE.
    CLEAR WA_RETURN.
  ENDLOOP.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT   = 'X'.
  LOOP AT ITAB_RETURN INTO WA_RETURN.
    WRITE: / WA_RETURN-TYPE ,WA_RETURN-MESSAGE.
    CLEAR WA_RETURN.
  ENDLOOP.
ENDIF.

 

from http://blog.sina.com.cn/s/blog_50e6797e01009e2s.html