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

[BAPI] ME52N修改采购申请BAPI_REQUISITION_CHANGE

Twilight发表于 2019-06-10 16:09Twilight 最后回复于 2019-06-10 16:09 [复制链接] 4992 0


修改采购申请也有两个BAPI：BAPI_REQUISITION_CHANGE /BAPI_PR_CHANGE，BAPI_PR_CHANGE除了支持BOM的PR修改，其次修改的字段比BAPI_REQUISITION_CHANGE多

程序代码：
  1. FUNCTION zpufm003.
  2. *"----------------------------------------------------------------------
  3. *"*"本地接口：
  4. *"  IMPORTING
  5. *"     VALUE(I_BANFN) TYPE  BANFN
  6. *"  EXPORTING
  7. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
  8. *"  TABLES
  9. *"      T_ITEM STRUCTURE  ZPUS003
  10. *"      T_TEXT STRUCTURE  ZPUS004 OPTIONAL
  11. *"      T_ACCOUNT STRUCTURE  ZPUS005 OPTIONAL
  12. *"----------------------------------------------------------------------

  14.   DATA:lt_items   TYPE TABLE OF bapieban   WITH HEADER LINE.
  15.   DATA:lt_account TYPE TABLE OF bapiebkn   WITH HEADER LINE.
  16.   DATA:lt_text    TYPE TABLE OF bapiebantx WITH HEADER LINE.
  17.   DATA:lt_items_old   TYPE TABLE OF bapiebanv WITH HEADER LINE.
  18.   DATA:lt_account_old TYPE TABLE OF bapiebknv WITH HEADER LINE.
  19.   DATA:lt_text_old    TYPE TABLE OF bapiebantx WITH HEADER LINE.
  20.   DATA:lt_items_new   TYPE TABLE OF bapiebanv  WITH HEADER LINE.
  21.   DATA:lt_account_new TYPE TABLE OF bapiebknv  WITH HEADER LINE.
  22.   DATA:lt_text_new    TYPE TABLE OF bapiebantx WITH HEADER LINE.
  23.   DATA:lt_return TYPE TABLE OF bapireturn WITH HEADER LINE.

  25.   PERFORM frm_inputsap_banfn CHANGING i_banfn.

  27.   CALL FUNCTION 'BAPI_REQUISITION_GETDETAIL'
  28.     EXPORTING
  29.       number                         = i_banfn
  30.       account_assignment             = 'X'
  31.       item_texts                     = 'X'
  32.     TABLES
  33.       requisition_items              = lt_items
  34.       requisition_account_assignment = lt_account
  35.       requisition_text               = lt_text
  36.       return                         = lt_return.
  37.   LOOP AT lt_return WHERE type CA 'AEX'.
  38.     IF e_message-message IS INITIAL.
  39.       e_message-message   = lt_return-message.
  40.     ELSE.
  41.       CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
  42.     ENDIF.
  43.   ENDLOOP.
  44.   IF sy-subrc = 0.
  45.     e_message-type   = 'E'.
  46.   ELSE.
  47. *-->采购申请基本数据
  48.     LOOP AT t_item.
  49.       READ TABLE lt_items WITH KEY preq_item = t_item-bnfpo.
  50.       IF sy-subrc = 0.
  51.         CLEAR:lt_items_new,lt_items_old.
  52.         MOVE-CORRESPONDING lt_items TO lt_items_old.
  53.         APPEND lt_items_old.

  55.         MOVE-CORRESPONDING lt_items TO lt_items_new.
  56.         IF t_item-flief IS NOT INITIAL.
  57.           PERFORM frm_conv_input CHANGING t_item-flief.
  58.         ENDIF.
  59.         IF t_item-infnr IS NOT INITIAL.
  60.           PERFORM frm_conv_input CHANGING t_item-infnr.
  61.         ENDIF.
  62.         IF t_item-lifnr IS NOT INITIAL.
  63.           PERFORM frm_conv_input CHANGING t_item-lifnr.
  64.         ENDIF.
  65.         lt_items_new-preq_item = t_item-bnfpo.
  66. *        lt_items_new-doc_type  = t_item-bsart.
  67. *        lt_items_new-item_cat = t_item-pstyp.
  68. *        lt_items_new-acctasscat = t_item-knttp.
  69.         lt_items_new-distrib = t_item-vrtkz.
  70. *        IF t_item-matnr IS NOT INITIAL.
  71. *          PERFORM frm_conversion_matnr_input CHANGING t_item-matnr.
  72. *          lt_items_new-material = t_item-matnr.
  73. *        ENDIF.
  74.         lt_items_new-batch      = t_item-charg.
  75.         lt_items_new-short_text = t_item-txz01.
  76.         lt_items_new-mat_grp    = t_item-matkl.
  77.         lt_items_new-vend_mat   = t_item-idnlf.
  78.         lt_items_new-quantity   = t_item-menge.
  79.         lt_items_new-unit       = t_item-meins.
  80.         lt_items_new-del_datcat = t_item-lpein.
  81.         lt_items_new-deliv_date = t_item-lfdat.
  82. *        lt_items_new-preq_date = t_item-badat.
  83.         lt_items_new-rel_date   = t_item-frgdt.
  84.         lt_items_new-gr_ind     = t_item-wepos.
  85.         lt_items_new-gr_non_val = t_item-weunb.
  86.         lt_items_new-ir_ind     = t_item-repos.
  87.         lt_items_new-agreement  = t_item-konnr.
  88.         lt_items_new-agmt_item  = t_item-ktpnr.
  89.         lt_items_new-fixed_vend = t_item-flief.
  90.         lt_items_new-info_rec   = t_item-infnr.
  91.         lt_items_new-des_vendor = t_item-lifnr.
  92.         lt_items_new-purch_org  = t_item-ekorg.
  93. *        lt_items_new-suppl_plnt = t_item-reswk.
  94. *        lt_items_new-req_blocked = t_item-blckd.
  95. *        lt_items_new-reason_blocking = t_item-blckt.
  96. *        lt_items_new-preq_name = t_item-afnam.
  97.         lt_items_new-trackingno = t_item-bednr.
  98.         lt_items_new-pur_group  = t_item-ekgrp.
  99. *        lt_items_new-mrp_contr = t_item-dispo.
  100. *        lt_items_new-plant = t_item-werks.
  101.         lt_items_new-store_loc  = t_item-lgort.
  102. *        lt_items_new-delete_ind = t_item-LOEKZ.
  103.         APPEND lt_items_new.
  104.       ENDIF.
  105.     ENDLOOP.

  107. *-->科目分配
  108.     LOOP AT t_account.
  109.       READ TABLE lt_account WITH KEY preq_item = t_account-bnfpo.
  110.       IF sy-subrc = 0.
  111.         CLEAR:lt_items_new,lt_account_old.
  112.         MOVE-CORRESPONDING lt_account TO lt_account_old.
  113.         APPEND lt_account_old.

  115.         MOVE-CORRESPONDING lt_account TO lt_account_new.
  116.         IF t_account-sakto IS NOT INITIAL.
  117.           PERFORM frm_conv_input CHANGING t_account-sakto.
  118.         ENDIF.
  119.         IF t_account-kostl IS NOT INITIAL.
  120.           PERFORM frm_conv_input CHANGING t_account-kostl.
  121.         ENDIF.
  122.         IF t_account-anln1 IS NOT INITIAL.
  123.           PERFORM frm_conv_input CHANGING t_account-anln1.
  124.         ENDIF.
  125.         IF t_account-anln2 IS NOT INITIAL.
  126.           PERFORM frm_conv_input CHANGING t_account-anln2.
  127.         ENDIF.
  128.         IF t_account-aufnr IS NOT INITIAL.
  129.           PERFORM frm_conv_input CHANGING t_account-aufnr.
  130.         ENDIF.
  131.         IF t_account-vbeln IS NOT INITIAL.
  132.           PERFORM frm_conv_input CHANGING t_account-vbeln.
  133.         ENDIF.
  134.         lt_account_new-preq_item = t_account-bnfpo.
  135.         lt_account_new-serial_no = t_account-dzebkn.
  136.         lt_account_new-preq_qty  = t_account-menge.
  137.         lt_account_new-unload_pt = t_account-ablad.
  138.         lt_account_new-g_l_acct  = t_account-sakto.
  139.         lt_account_new-co_area   = t_account-kokrs.
  140.         lt_account_new-cost_ctr  = t_account-kostl.
  141.         lt_account_new-asset_no  = t_account-anln1.
  142.         lt_account_new-sub_number = t_account-anln2.
  143.         lt_account_new-order_no  = t_account-aufnr.
  144.         lt_account_new-sd_doc    = t_account-vbeln.
  145.         lt_account_new-sdoc_item = t_account-vbelp.
  146.         lt_account_new-delete_ind = t_account-loekz.
  147.         APPEND lt_account_new.
  148.       ENDIF.
  149.     ENDLOOP.
  150. *-->抬头&项目文本
  151.     LOOP AT lt_text.
  152.       CLEAR:lt_text_old.
  153.       MOVE-CORRESPONDING lt_text TO lt_text_old.
  154.       APPEND lt_text_old.
  155.     ENDLOOP.
  156.     LOOP AT t_text.
  157.       CLEAR:lt_text_new.
  158.       MOVE-CORRESPONDING t_text TO lt_text_new.
  159.       lt_text_new-preq_no    = t_text-banfn.
  160.       lt_text_new-preq_item  = t_text-bnfpo.
  161.       APPEND lt_text_new.
  162.     ENDLOOP.

  164.     CALL FUNCTION 'BAPI_REQUISITION_CHANGE'
  165.       EXPORTING
  166.         number                  = i_banfn
  167.       TABLES
  168.         requisition_items_old   = lt_items_old
  169.         requisition_items_new   = lt_items_new
  170.         requisition_account_old = lt_account_old
  171.         requisition_account_new = lt_account_new
  172.         requisition_text_old    = lt_text_old
  173.         requisition_text_new    = lt_text_new
  174.         return                  = lt_return.
  175.   ENDIF.

  177.   LOOP AT lt_return WHERE type CA 'AEX'.
  178.     IF e_message-message IS INITIAL.
  179.       e_message-message   = lt_return-message.
  180.     ELSE.
  181.       CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
  182.     ENDIF.
  183.   ENDLOOP.
  184.   IF sy-subrc = 0.
  185.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  186.     e_message-type   = 'E'.
  187.   ELSE.
  188.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  189.       EXPORTING
  190.         wait = 'X'.
  191.     e_message-type    = 'S'.
  192.     e_message-message = '采购申请修改成功！'.
  193.   ENDIF.

  195. ENDFUNCTION.
  196. FORM frm_inputsap_banfn CHANGING pc_vbeln TYPE eban-banfn.
  197.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  198.     EXPORTING
  199.       input  = pc_vbeln
  200.     IMPORTING
  201.       output = pc_vbeln.
  202. ENDFORM.
复制代码


采购申请, ME52N

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 840 主题
  2. 965 帖子
  3. 10805 积分
收听TA 发消息

Ta最近发表

快速回帖

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

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

GMT+8, 2024-4-26 03:42 , Processed in 0.130771 second(s), 9 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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