CALL FUNCTION 'BAPI_PO_CREATE1' 相关报错

*&---------------------------------------------------------------------*
*& Report  ZQJ06
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZQJ06.
CONSTANTS : C_X VALUE 'X'.

data: wa_POHEADER TYPE BAPIMEPOHEADER.
DATA WA_POHEADERX TYPE BAPIMEPOHEADERX. "针对要增加的内容做一个标记,其实标记过了才可以被修改的

data:  EXPPURCHASEORDER TYPE BAPIMEPOHEADER-PO_NUMBER.
data: EXPHEADER LIKE  BAPIMEPOHEADER.
data: wa_poitem like  BAPIMEPOITEM .
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_POSCHEDULE  type BAPIMEPOSCHEDULE.
data: itab_poshedule like TABLE OF wa_poschedule.

DATA WA_RETURN  TYPE BAPIRET2.     "消息 返回 ,工作区

DATA ITAB_RETURN LIKE TABLE OF WA_RETURN. "消息返回, 内表
data:RETURN LIKE    table of BAPIRET2.

 

 wa_POHEADER-comp_code = '1000'.     "公司代碼
 wa_POHEADER-doc_type = 'NB'.             "採購文件類型
 wa_POHEADER-purch_org = '1000'.          "採購組織
 wa_POHEADER-pur_group = '000'.           "採購群組
 wa_POHEADER-vendor = '0000000015'.     "供貨（發貨）工廠  有可能是位数不够
 wa_POHEADER-CREAT_DATE = sy-datum.

 wa_poheader-created_by = sy-uname.
 wa_poheader-doc_date   = sy-datum.

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' .

wa_poitem-po_item                    = '10'.  "行项目
*wa_poitem-PO_UNIT   = 'M'.
wa_poitem-MATERIAL    =  '100-100'.
wa_poitem-QUANTITY     = '1320' .
wa_poitem-MATL_GROUP = '001'.
wa_poitem-PLANT      = '1000'.

wa_poitem-PREQ_NAME                  = 'qianjun' .
wa_poitem-PLAN_DEL       = 20.
wa_poitem-PERIOD_IND_EXPIRATION_DATE = sy-datum.
append wa_poitem to itab_poitem.

wa_poitemx-po_item                   = '10'.
wa_poitemx-po_itemx                   = 'Y'.
wa_poitemx-MATERIAL                   = 'Y' .
wa_poitemx-PLANT                      = 'X'.
WA_POITEMX-STGE_LOC                   = 'X'.
wa_poitemx-QUANTITY                   = 'Y'.
wa_poitemx-NET_PRICE                  = 'Y'.
wa_poitemx-PRICE_UNIT                 = 'Y'.
wa_poitemx-PREQ_NAME                  = 'X'.
wa_poitemx-PERIOD_IND_EXPIRATION_DATE = 'Y'.
append wa_poitemx to itab_poitemx.
wa_poschedule-po_item = 10.
wa_POSCHEDULE-DELIVERY_DATE = '20110510'.

append wa_POSCHEDULE to itab_poshedule.

CALL FUNCTION 'BAPI_PO_CREATE1'
  EXPORTING
    POHEADER                     = wa_poheader
    POHEADERX                    =  wa_poheaderx
*   POADDRVENDOR                 =
*   TESTRUN                      =
*   MEMORY_UNCOMPLETE            =
*   MEMORY_COMPLETE              =
*   POEXPIMPHEADER               =
*   POEXPIMPHEADERX              =
*   VERSIONS                     =
*   NO_MESSAGING                 =
*   NO_MESSAGE_REQ               =
*   NO_AUTHORITY                 =
*   NO_PRICE_FROM_PO             =
 IMPORTING
   EXPPURCHASEORDER             =  EXPPURCHASEORDER
   EXPHEADER                    =  EXPHEADER
*   EXPPOEXPIMPHEADER            =
 TABLES
   RETURN                       =  ITAB_RETURN

   POITEM                       =  itab_poitem
   POITEMX                      =  itab_poitemx
*   POADDRDELIVERY               =
*   POSCHEDULE                   =  itab_poshedule
*   POSCHEDULEX                  =
*   POACCOUNT                    =
*   POACCOUNTPROFITSEGMENT       =
*   POACCOUNTX                   =
*   POCONDHEADER                 =
*   POCONDHEADERX                =
*   POCOND                       =
*   POCONDX                      =
*   POLIMITS                     =
*   POCONTRACTLIMITS             =
*   POSERVICES                   =
*   POSRVACCESSVALUES            =
*   POSERVICESTEXT               =
*   EXTENSIONIN                  =
*   EXTENSIONOUT                 =
*   POEXPIMPITEM                 =
*   POEXPIMPITEMX                =
*   POTEXTHEADER                 =
*   POTEXTITEM                   =
*   ALLVERSIONS                  =
*   POPARTNER                    =
*   POCOMPONENTS                 =
*   POCOMPONENTSX                =
*   POSHIPPING                   =
*   POSHIPPINGX                  =
*   POSHIPPINGEXP                =
          .
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.