关闭

BAPI_PO_CREATE

659人阅读 评论(0) 收藏 举报
分类:
*&---------------------------------------------------------------------*
*& 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.
0
0
查看评论
发表评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场

采购订单批量创建 BAPI_PO_CREATE1

采购订单批量创建 BAPI_PO_CREATE1
  • champaignwolf
  • champaignwolf
  • 2015-03-19 16:26
  • 3634

BAPI_PO_CREATE1 创建采购订单时价格的处理函数

When you create a purchase order, values I, U and D refer to the conditionsthat were derived automat...
  • zhongguomao
  • zhongguomao
  • 2018-01-09 09:13
  • 54

BAPI_PO_CREATE创建采购订单

*&---------------------------------------------------------------------* *& Report  ZBAPI_PO_CREATE...
  • CS0123456789
  • CS0123456789
  • 2011-12-08 08:58
  • 1954

根据BAPI_PO_CREATE1创建采购订单

REPORT  zlm_test_026. DATA:BEGIN OF gt_data OCCURS 0,           bsart TYPE string,"采购凭证类型       ...
  • senlinmu110
  • senlinmu110
  • 2014-01-22 09:23
  • 705

采购订单批量创建 BAPI_PO_CREATE1

采购订单批量创建 BAPI_PO_CREATE1
  • champaignwolf
  • champaignwolf
  • 2015-03-19 16:26
  • 3634

SE37 创建PO订单BAPI_PO_CREATE1

DATA:BEGIN OF gt_data OCCURS 0,           bsart TYPE string,"采购凭证类型           lifnr  TYPE ...
  • pzc_ch
  • pzc_ch
  • 2015-09-15 14:53
  • 739

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

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

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

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

BAPI调用 - 创建po的bapi BAPI_PO_CREATE1

*/--------- 採購單 表頭資訊 LOOP AT ITAB_PO_HEADER .     POHEAD-COMP_CODE = ITAB_PO_HEADER-BUKRS .     " 公...
  • wanglei880526
  • wanglei880526
  • 2013-08-26 20:14
  • 1723

SAP Auto Create PO when DO GR

  • 2009-10-14 16:32
  • 112KB
  • 下载
    个人资料
    • 访问:4375817次
    • 积分:62195
    • 等级:
    • 排名:第47名
    • 原创:1739篇
    • 转载:2520篇
    • 译文:101篇
    • 评论:329条
    博客专栏
    最新评论
    微信公众号
      为你推荐最新的博文~更有惊喜等着你