BAPI_PO_CREATE

转载 2015年07月08日 09:52:23
*&---------------------------------------------------------------------*
*& Report  Z_AF_031
*&
*&---------------------------------------------------------------------*

REPORT  z_af_031.

DATAzpo_header LIKE bapiekkoc,
      zpo_header_add_data LIKE  bapiekkoa,
      zpo_address LIKE bapiaddress,
      zpo_items LIKE bapiekpoc OCCURS 0 WITH HEADER LINE,
      zpo_item_add_data LIKE bapiekpoa OCCURS 0 WITH HEADER LINE,
      zpo_item_schedules LIKE bapieket OCCURS 0 WITH HEADER LINE,
      zpo_item_account_assignment LIKE bapiekkn OCCURS 0 WITH HEADER LINE,
      zpo_business_partner LIKE bapiekkop OCCURS 0 WITH HEADER LINE,
      zpurchaseorder LIKE bapiekkoc-po_number,
      zwait LIKE bapita-wait,
      zreturn LIKE BAPIRETURN OCCURS 0 WITH HEADER LINE,
      zreturn_commit LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATABEGIN OF itab1 OCCURS 0,
      ebeln(20),
      flag(2),
      message(40),
      END OF itab1.

START-OF-SELECTION.

  CLEAR zpo_header.
  CLEAR zpo_header_add_data.
  zpo_header-doc_date sy-datlo.
  zpo_header-doc_type 'NB'.
  zpo_header-doc_cat 'F'.
  zpo_header-co_code '1000' "Company code
  zpo_header-purch_org '1000'.
  zpo_header-vendor '0000001000'.
  zpo_header-pur_group '001'.
  zpo_header-po_number '.
  zpo_header_add_data-currency 'EUR'.
  CLEAR zpo_business_partner.
  zpo_business_partner-partnerdesc 'IP'.
  zpo_business_partner-LANGU 'E'.              " business partner 必须输入语言, 这个在后台有设定
  zpo_business_partner-buspartno '0000001000'.
  APPEND zpo_business_partner.

***PO Item
  CLEAR zpo_items.
  CLEAR zpo_item_schedules.
  CLEAR zpo_item_add_data.
  zpo_items-po_number ''.
  zpo_items-po_item '10'.
 zpo_items-short_text  'af_raw_100'.
  zpo_items-PUR_MAT 'AF_RAW_100'.
  zpo_items-store_loc '0001'.
  zpo_items-plant '1000'.
  zpo_items-item_cat '.
  zpo_items-acctasscat '.
 zpo_items-unit 'PC'.
  zpo_items-net_price 10.
  zpo_items-price_unit 1.
 zpo_items-ORDERPR_UN 'PC'.
  zpo_items-tax_code 'V9'.
  zpo_items-disp_quan 1.
  zpo_items-mat_grp '001'.
  zpo_items-trackingno ''.
  zpo_items-no_rounding 'X'.
 zpo_items-po_price  'X'.
 zpo_items-ret_item 'X'.
  zpo_item_add_data-gr_ind 'X'.
  zpo_item_add_data-ir_ind 'X'.
  zpo_item_schedules-po_item '10'.
  zpo_item_schedules-serial_no  '0001'.
  zpo_item_schedules-deliv_date sy-datum.
  zpo_item_schedules-quantity 1.
  zpo_item_account_assignment-po_item '10'.
 zpo_item_account_assignment-serial_no '01'.
 zpo_item_account_assignment-g_l_acct '0000510918'.
  APPEND zpo_item_schedules.
  CLEAR zpo_item_schedules.
  APPEND zpo_items.
  CLEAR zpo_items.
  APPEND zpo_item_account_assignment.
  CLEAR zpo_item_account_assignment.
***
  CLEAR:zpurchaseorder.
  CLEAR zreturn.
  CALL FUNCTION 'BAPI_PO_CREATE'
    EXPORTING
      po_header                  zpo_header
      po_header_add_data         zpo_header_add_data
      skip_items_with_error      'X'
    IMPORTING
      purchaseorder              zpurchaseorder
    TABLES
      po_items                   zpo_items
      po_item_add_data           zpo_item_add_data
      po_item_schedules          zpo_item_schedules
      po_business_partner        zpo_business_partner
      po_item_account_assignment zpo_item_account_assignment
      return                     zreturn.
  IF sy-subrc 0 AND zpurchaseorder NE '.
    itab1-ebeln zpurchaseorder.
*---------------Commit---------------------*
    CLEAR zreturn.
    zwait 'X'.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait   zwait
      IMPORTING
        return zreturn_commit.
    IF sy-subrc 0.
      itab1-flag 'S'.
      itab1-message 'PO Create ok!'.
    ELSE.
      itab1-flag 'E'.
      itab1-message 'PO Create error11111!'.
    ENDIF.
  ELSE.
    itab1-flag 'E'.
    itab1-message 'PO Create error!'.
  ENDIF.
  APPEND itab1. CLEAR itab1.

  LOOP AT itab1.
    WRITEitab1.
  ENDLOOP.
  LOOP AT zreturn.
    WRITE zreturn-message,
            zreturn-log_no,
            zreturn-MESSAGE_V1.
  ENDLOOP.

相关文章推荐

采购订单批量创建 BAPI_PO_CREATE1

采购订单批量创建 BAPI_PO_CREATE1

BAPI_PO_CREATE创建采购订单

*&---------------------------------------------------------------------* *& Report  ZBAPI_PO_CREATE...

SE37 创建PO订单BAPI_PO_CREATE1

DATA:BEGIN OF gt_data OCCURS 0,           bsart TYPE string,"采购凭证类型           lifnr  TYPE ...

BAPI_PO_CREATE1 批量创建采购订单(可一个PO采购多个材料)

改进http://blog.csdn.net/yang362046076/article/details/49866733 这里的程序,使其能在一个PO里采购多个原材料。需要定义文件格式,来说明输入的...

如何通过 BAPI 更新 PO 采购订单中的 confirmation tab 中的 confirmation date.

答案是   ME_CONFIRMATION_UPDATE  。。   格式我稍后提供 果断上代码 , 这是在PO增强中的一段代码。获取修改信息的时候将自定义的增强TAB上的字段对应入Con...

SAP Auto Create PO when DO GR

  • 2009-10-14 16:32
  • 112KB
  • 下载

BAPI调用 - 创建po的bapi BAPI_PO_CREATE1

*/--------- 採購單 表頭資訊 LOOP AT ITAB_PO_HEADER .     POHEAD-COMP_CODE = ITAB_PO_HEADER-BUKRS .     " 公...

BAPI_GOODSMVT_CREATE移库操作(WMS TO SAP)

移动代码 01 -- MB01 02 -- MB31 03 -- MB1A 04 -- MB1B 05 -- MB1C 06 -- MB11 07 -- MB04 一、收货(101) 说明:采购订单...

BAPI_REQUISITION_CREATE创建服务类的采购申请service

DATA number LIKE bapieban-preq_no. DATA: requisition_items   LIKE bapiebanc OCCURS 0 WITH HEADER LI...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)