设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[BAPI] ME51N创建采购申请BAPI_REQUISITION_CREATE

Twilight发表于 2019-05-10 11:08Twilight 最后回复于 2019-05-10 11:08 [复制链接] 4485 0

创建采购申请有两个BAPI：BAPI_REQUISITION_CREATE/BAPI_PR_CREATE可以使用，BAPI_REQUISITION_CREATE只能创建简单的采购申请，如果创建L类型委外加工，带有BOM的PR，只能用BAPI_PR_CREATE

程序代码：
  1. FUNCTION zpufm002.
  2. *"----------------------------------------------------------------------
  3. *"*"本地接口：
  4. *"  EXPORTING
  5. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
  6. *"     VALUE(E_BANFN) TYPE  BANFN
  7. *"  TABLES
  8. *"      T_ITEM STRUCTURE  ZPUS003
  9. *"      T_TEXT STRUCTURE  ZPUS004 OPTIONAL
  10. *"      T_ACCOUNT STRUCTURE  ZPUS005 OPTIONAL
  11. *"----------------------------------------------------------------------
  12.   DATA:lt_items LIKE TABLE OF  bapiebanc WITH HEADER LINE,
  13.        lt_account LIKE TABLE OF bapiebkn WITH HEADER LINE,
  14.        lt_item_text LIKE TABLE OF bapiebantx WITH HEADER LINE,
  15.        lt_return LIKE bapireturn OCCURS 0 WITH HEADER LINE.

  17.   LOOP AT t_item.
  18.     CLEAR:lt_items.
  19.     IF t_item-banfn IS NOT INITIAL.
  20.       PERFORM frm_conv_input CHANGING t_item-banfn.
  21.     ENDIF.
  22.     IF t_item-flief IS NOT INITIAL.
  23.       PERFORM frm_conv_input CHANGING t_item-flief.
  24.     ENDIF.
  25.     IF t_item-infnr IS NOT INITIAL.
  26.       PERFORM frm_conv_input CHANGING t_item-infnr.
  27.     ENDIF.
  28.     IF t_item-lifnr IS NOT INITIAL.
  29.       PERFORM frm_conv_input CHANGING t_item-lifnr.
  30.     ENDIF.
  31.     lt_items-preq_no    = t_item-banfn.
  32.     lt_items-preq_item  = t_item-bnfpo.
  33.     lt_items-doc_type   = t_item-bsart.
  34.     lt_items-item_cat   = t_item-pstyp.
  35.     lt_items-acctasscat = t_item-knttp.
  36.     lt_items-distrib    = t_item-vrtkz.
  37.     IF t_item-matnr IS NOT INITIAL.
  38.       PERFORM frm_conversion_matnr_input CHANGING t_item-matnr.
  39.       lt_items-material = t_item-matnr.
  40.     ENDIF.
  41.     lt_items-batch      = t_item-charg.
  42.     lt_items-short_text = t_item-txz01.
  43.     lt_items-mat_grp    = t_item-matkl.
  44.     lt_items-vend_mat   = t_item-idnlf.
  45.     lt_items-quantity   = t_item-menge.
  46.     lt_items-unit       = t_item-meins.
  47.     lt_items-del_datcat = t_item-lpein.
  48.     lt_items-deliv_date = t_item-lfdat.
  49.     lt_items-preq_date = t_item-badat.
  50.     lt_items-rel_date = t_item-frgdt.
  51.     lt_items-gr_ind = t_item-wepos.
  52.     lt_items-gr_non_val = t_item-weunb.
  53.     lt_items-ir_ind = t_item-repos.
  54.     lt_items-agreement = t_item-konnr.
  55.     lt_items-agmt_item = t_item-ktpnr.
  56.     lt_items-fixed_vend = t_item-flief.
  57.     lt_items-info_rec = t_item-infnr.
  58.     lt_items-des_vendor = t_item-lifnr.
  59.     lt_items-purch_org = t_item-ekorg.
  60.     lt_items-suppl_plnt = t_item-reswk.
  61.     lt_items-req_blocked = t_item-blckd.
  62.     lt_items-reason_blocking = t_item-blckt.
  63.     lt_items-created_by = sy-uname.
  64.     lt_items-preq_name = t_item-afnam.
  65.     lt_items-trackingno = t_item-bednr.
  66.     lt_items-pur_group = t_item-ekgrp.
  67.     lt_items-mrp_contr = t_item-dispo.
  68.     lt_items-plant = t_item-werks.
  69.     lt_items-store_loc = t_item-lgort.
  70.     APPEND lt_items.
  71.   ENDLOOP.

  73.   IF t_account[] IS NOT INITIAL.
  74.     LOOP AT t_account.
  75.       CLEAR:lt_account.
  76.       IF t_account-banfn IS NOT INITIAL.
  77.         PERFORM frm_conv_input CHANGING t_account-banfn.
  78.       ENDIF.
  79.       IF t_account-sakto IS NOT INITIAL.
  80.         PERFORM frm_conv_input CHANGING t_account-sakto.
  81.       ENDIF.
  82.       IF t_account-kostl IS NOT INITIAL.
  83.         PERFORM frm_conv_input CHANGING t_account-kostl.
  84.       ENDIF.
  85.       IF t_account-anln1 IS NOT INITIAL.
  86.         PERFORM frm_conv_input CHANGING t_account-anln1.
  87.       ENDIF.
  88.       IF t_account-anln2 IS NOT INITIAL.
  89.         PERFORM frm_conv_input CHANGING t_account-anln2.
  90.       ENDIF.
  91.       IF t_account-aufnr IS NOT INITIAL.
  92.         PERFORM frm_conv_input CHANGING t_account-aufnr.
  93.       ENDIF.
  94.       IF t_account-vbeln IS NOT INITIAL.
  95.         PERFORM frm_conv_input CHANGING t_account-vbeln.
  96.       ENDIF.
  97.       lt_account-preq_no   = t_account-banfn.
  98.       lt_account-preq_item = t_account-bnfpo.
  99.       lt_account-serial_no = t_account-dzebkn.
  100.       lt_account-preq_qty  = t_account-menge.
  101.       lt_account-unload_pt = t_account-ablad.
  102.       lt_account-g_l_acct  = t_account-sakto.
  103.       lt_account-co_area   = t_account-kokrs.
  104.       lt_account-cost_ctr  = t_account-kostl.
  105.       lt_account-asset_no  = t_account-anln1.
  106.       lt_account-sub_number = t_account-anln2.
  107.       lt_account-order_no  = t_account-aufnr.
  108.       lt_account-sd_doc    = t_account-vbeln.
  109.       lt_account-sdoc_item = t_account-vbelp.
  110.       lt_account-delete_ind = t_account-loekz.
  111.       APPEND lt_account.
  112.     ENDLOOP.
  113.   ENDIF.

  115.   IF t_text[] IS NOT INITIAL.
  116.     LOOP AT t_text.
  117.       CLEAR:lt_item_text.
  118.       IF t_text-banfn IS NOT INITIAL.
  119.         PERFORM frm_conv_input CHANGING t_text-banfn.
  120.       ENDIF.
  121.       lt_item_text-preq_no   = t_text-banfn.
  122.       lt_item_text-preq_item = t_text-bnfpo.
  123.       lt_item_text-text_id   = t_text-text_id.
  124.       lt_item_text-text_form = t_text-text_form.
  125.       lt_item_text-text_line = t_text-text_line.
  126.       APPEND lt_item_text.
  127.     ENDLOOP.
  128.   ENDIF.


  131.   CALL FUNCTION 'BAPI_REQUISITION_CREATE'
  132. * EXPORTING
  133. *   SKIP_ITEMS_WITH_ERROR                =
  134. *   AUTOMATIC_SOURCE                     = 'X'
  135.     IMPORTING
  136.       number                         = e_banfn
  137.     TABLES
  138.       requisition_items              = lt_items
  139.       requisition_account_assignment = lt_account
  140.       requisition_item_text          = lt_item_text
  141.       return                         = lt_return.

  143.   LOOP AT lt_return WHERE type CA 'AEX'.
  144.     IF e_message-message IS INITIAL.
  145.       e_message-message   = lt_return-message.
  146.     ELSE.
  147.       CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
  148.     ENDIF.
  149.   ENDLOOP.
  150.   IF sy-subrc = 0.
  151.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  152.     e_message-type   = 'E'.
  153.   ELSE.
  154.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  155.       EXPORTING
  156.         wait = 'X'.
  157.     e_message-type    = 'S'.
  158.     e_message-message = '采购申请创建成功！'.
  159.   ENDIF.

  161. ENDFUNCTION.
  162. FORM frm_conversion_matnr_input  CHANGING pc_matnr TYPE mara-matnr.
  163.   CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
  164.     EXPORTING
  165.       input        = pc_matnr
  166.     IMPORTING
  167.       output       = pc_matnr
  168.     EXCEPTIONS
  169.       length_error = 1
  170.       OTHERS       = 2.
  171. ENDFORM.                    " FRM_INPUTSAP_DATA
  172. FORM frm_conv_input CHANGING pc_vbeln.
  173.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  174.     EXPORTING
  175.       input  = pc_vbeln
  176.     IMPORTING
  177.       output = pc_vbeln.
  178. ENDFORM.
复制代码
注意：BAPIEBANTX-TEXT_FORM 采购申请项目长文本，回车多行，直接赋值*即可，BAPI中会自动计算
ME51N, 采购申请

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 846 主题
  2. 125 回帖
  3. 11239 积分
发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-11-21 23:08 , Processed in 0.055327 second(s), 5 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.5

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表