1. REPORT YTEST01.
  2.  
  3. DATA:GS_POHEADER TYPE BAPIMEPOHEADER,
  4. GS_POHEADERX TYPE BAPIMEPOHEADERX,
  5. GT_RETURN TYPE STANDARD TABLE OF BAPIRET2,
  6. GWA_RETURN TYPE BAPIRET2,
  7. GT_ITEM TYPE STANDARD TABLE OF BAPIMEPOITEM,
  8. GWA_ITEM TYPE BAPIMEPOITEM,
  9. GT_ITEMX TYPE STANDARD TABLE OF BAPIMEPOITEMX,
  10. GWA_ITEMX TYPE BAPIMEPOITEMX,
  11. GT_POSCHEDULE TYPE STANDARD TABLE OF BAPIMEPOSCHEDULE,
  12. GWA_POSCHEDULE TYPE BAPIMEPOSCHEDULE,
  13. GT_POSCHEDULEX TYPE STANDARD TABLE OF BAPIMEPOSCHEDULX,
  14. GWA_POSCHEDULEX TYPE BAPIMEPOSCHEDULX,
  15. GT_POCOND TYPE STANDARD TABLE OF BAPIMEPOCOND,
  16. GWA_POCOND TYPE BAPIMEPOCOND,
  17. GT_POCONDX TYPE STANDARD TABLE OF BAPIMEPOCONDX,
  18. GWA_POCONDX TYPE BAPIMEPOCONDX,
  19. GT_POCOMPONENTS TYPE STANDARD TABLE OF BAPIMEPOCOMPONENT,
  20. GWA_POCOMPONENTS TYPE BAPIMEPOCOMPONENT,
  21. GWA_POCOMPONENTS_TEMP TYPE BAPIMEPOCOMPONENT,
  22. GT_POCOMPONENTSX TYPE STANDARD TABLE OF BAPIMEPOCOMPONENTX,
  23. GWA_POCOMPONENTSX TYPE BAPIMEPOCOMPONENTX.
  24. DATA:LV_NUM TYPE BAPIMEPOHEADER-PO_NUMBER.
  25.  
  26. GS_POHEADER-DOC_TYPE = ''.
  27. GS_POHEADER-VENDOR = ''.
  28. GS_POHEADER-PURCH_ORG = ''.
  29. GS_POHEADER-PUR_GROUP = 'A06'.
  30. GS_POHEADER-COMP_CODE = ''.
  31. GS_POHEADER-CURRENCY = 'CNY'."货币
  32. GS_POHEADER-DOC_DATE = SY-DATUM.
  33. GS_POHEADER-LANGU = SY-LANGU.
  34. GS_POHEADER-STATUS = 'I'.
  35. * GS_POHEADER-INFO_UPD = 'I'.
  36. * GS_POHEADER-ITEM_INTVL = ''.
  37. * GS_POHEADER-ITEM_INTVL = ''.
  38.  
  39. GS_POHEADERX-DOC_TYPE = 'X'.
  40. GS_POHEADERX-VENDOR = 'X'.
  41. GS_POHEADERX-PURCH_ORG = 'X'.
  42. GS_POHEADERX-PUR_GROUP = 'X'.
  43. GS_POHEADERX-COMP_CODE = 'X'.
  44. GS_POHEADERX-DOC_DATE = 'X'.
  45. GS_POHEADERX-LANGU = 'X'.
  46. GS_POHEADERX-CURRENCY = 'X'."货币
  47. GS_POHEADERX-STATUS = 'X'."货币
  48. * GS_POHEADERX-ITEM_INTVL = 'X'.
  49.  
  50. GWA_ITEM-PO_ITEM = ''. "采购凭证的项目编号
  51. GWA_ITEM-MATERIAL = ''.
  52. GWA_ITEM-ITEM_CAT = 'L'.
  53. GWA_ITEM-SHORT_TEXT = 'SHORT'."短文本
  54. GWA_ITEM-QUANTITY = ."采购订单数量
  55. GWA_ITEM-PO_UNIT = 'PC' ."采购订单的计量单位
  56. GWA_ITEM-PLANT = ''. "工厂
  57. GWA_ITEM-STGE_LOC = ''."库存地点
  58. GWA_ITEM-TAX_CODE = 'J0'.
  59. GWA_ITEM-DATE_QTY_FIXED = 'X'.
  60. APPEND GWA_ITEM TO GT_ITEM.
  61.  
  62. GWA_ITEMX-PO_ITEM = ''. "采购凭证的项目编号
  63. GWA_ITEMX-MATERIAL = 'X'.
  64. GWA_ITEMX-SHORT_TEXT = 'X'."短文本
  65. GWA_ITEMX-QUANTITY = 'X'."采购订单数量
  66. GWA_ITEMX-PO_UNIT = 'X' ."采购订单的计量单位
  67. GWA_ITEMX-PLANT = 'X'."工厂
  68. GWA_ITEMX-STGE_LOC = 'X'. "库存地点
  69. GWA_ITEMX-ITEM_CAT = 'X'.
  70. GWA_ITEMX-TAX_CODE = 'X'.
  71. GWA_ITEMX-DATE_QTY_FIXED = 'X'.
  72. APPEND GWA_ITEMX TO GT_ITEMX.
  73.  
  74. GWA_POSCHEDULE-PO_ITEM = ''. "采购凭证的项目编号
  75. GWA_POSCHEDULE-SCHED_LINE = . "采购凭证的项目编号
  76. GWA_POSCHEDULE-DEL_DATCAT_EXT = 'D'."交货日期的类别
  77. GWA_POSCHEDULE-DELIVERY_DATE = SY-DATUM."交货日期
  78. GWA_POSCHEDULE-QUANTITY = ."采购订单数量
  79. APPEND GWA_POSCHEDULE TO GT_POSCHEDULE.
  80.  
  81. GWA_POSCHEDULEX-PO_ITEM = ''. "采购凭证的项目编号
  82. GWA_POSCHEDULEX-SCHED_LINE = . "采购凭证的项目编号
  83. GWA_POSCHEDULEX-DEL_DATCAT_EXT = 'X'."交货日期的类别
  84. GWA_POSCHEDULEX-DELIVERY_DATE = 'X'."交货日期
  85. GWA_POSCHEDULEX-QUANTITY = 'X'."采购订单数量
  86. APPEND GWA_POSCHEDULEX TO GT_POSCHEDULEX.
  87.  
  88. GWA_POCOND-ITM_NUMBER = ''.
  89. GWA_POCOND-COND_TYPE = 'PB00'.
  90. GWA_POCOND-COND_VALUE = . "价格
  91. GWA_POCOND-COND_UNIT = 'PC'. "条件单位
  92. GWA_POCOND-COND_P_UNT = ."GS_EXCEL_RAW0-PEINH. "价格单位
  93. GWA_POCOND-CURRENCY = 'CNY'.
  94. GWA_POCOND-CHANGE_ID = 'I'.
  95. APPEND GWA_POCOND TO GT_POCOND.
  96.  
  97. GWA_POCONDX-ITM_NUMBER = ''.
  98. GWA_POCONDX-COND_TYPE = 'X'.
  99. GWA_POCONDX-COND_VALUE = 'X'.
  100. GWA_POCONDX-COND_UNIT = 'X'. "条件单位
  101. GWA_POCONDX-COND_P_UNT = 'X'. "价格单位
  102. GWA_POCONDX-CURRENCY = 'X'.
  103. GWA_POCONDX-CHANGE_ID = 'X'.
  104. APPEND GWA_POCONDX TO GT_POCONDX.
  105. "如果有BOM,自动带出组件,如果使用下面代码会添加组件
  106. * GWA_POCOMPONENTS-PO_ITEM = '00010' .
  107. * GWA_POCOMPONENTS-SCHED_LINE = 0001.
  108. ** lwa_pocomponents-item_no = '0010'.
  109. * GWA_POCOMPONENTS-MATERIAL = '000000000013008278'.
  110. * GWA_POCOMPONENTS-ENTRY_QUANTITY = 1.
  111. * GWA_POCOMPONENTS-ENTRY_UOM = 'PC'.
  112. * GWA_POCOMPONENTS-REQ_DATE = SY-DATUM - 1. "组件需求日期
  113. * GWA_POCOMPONENTS-PLANT = '1010'.
  114. * GWA_POCOMPONENTS-CHANGE_ID = 'I'.
  115. * APPEND GWA_POCOMPONENTS TO GT_POCOMPONENTS.
  116. *
  117. * GWA_POCOMPONENTSX-PO_ITEM = '00010'.
  118. * GWA_POCOMPONENTSX-SCHED_LINE = 0001.
  119. ** lwa_pocomponentsx-item_no = '0010'.
  120. * GWA_POCOMPONENTSX-MATERIAL = 'X'.
  121. * GWA_POCOMPONENTSX-ENTRY_QUANTITY = 'X'.
  122. * GWA_POCOMPONENTSX-ENTRY_UOM = 'X'.
  123. * GWA_POCOMPONENTSX-REQ_DATE = 'X'.
  124. * GWA_POCOMPONENTSX-PLANT = 'X'.
  125. * GWA_POCOMPONENTSX-CHANGE_ID = 'X'.
  126. * APPEND GWA_POCOMPONENTSX TO GT_POCOMPONENTSX.
  127.  
  128. CALL FUNCTION 'BAPI_PO_CREATE1'
  129. EXPORTING
  130. POHEADER = GS_POHEADER
  131. POHEADERX = GS_POHEADERX
  132. * POADDRVENDOR =
  133. * TESTRUN =
  134. * MEMORY_UNCOMPLETE =
  135. * MEMORY_COMPLETE =
  136. * POEXPIMPHEADER =
  137. * POEXPIMPHEADERX =
  138. * VERSIONS =
  139. * NO_MESSAGING =
  140. * NO_MESSAGE_REQ =
  141. * NO_AUTHORITY =
  142. NO_PRICE_FROM_PO = 'X'
  143. * PARK_COMPLETE =
  144. * PARK_UNCOMPLETE =
  145. IMPORTING
  146. EXPPURCHASEORDER = LV_NUM
  147. * EXPHEADER =
  148. * EXPPOEXPIMPHEADER =
  149. TABLES
  150. RETURN = GT_RETURN
  151. POITEM = GT_ITEM
  152. POITEMX = GT_ITEMX
  153. * POADDRDELIVERY =
  154. POSCHEDULE = GT_POSCHEDULE
  155. POSCHEDULEX = GT_POSCHEDULEX
  156. * POACCOUNT =
  157. * POACCOUNTPROFITSEGMENT =
  158. * POACCOUNTX =
  159. * POCONDHEADER =
  160. * POCONDHEADERX =
  161. POCOND = GT_POCOND
  162. POCONDX = GT_POCONDX
  163. * POLIMITS =
  164. * POCONTRACTLIMITS =
  165. * POSERVICES =
  166. * POSRVACCESSVALUES =
  167. * POSERVICESTEXT =
  168. * EXTENSIONIN =
  169. * EXTENSIONOUT =
  170. * POEXPIMPITEM =
  171. * POEXPIMPITEMX =
  172. * POTEXTHEADER =
  173. * POTEXTITEM =
  174. * ALLVERSIONS =
  175. * POPARTNER =
  176. POCOMPONENTS = GT_POCOMPONENTS
  177. POCOMPONENTSX = GT_POCOMPONENTSX .
  178.  
  179. IF SY-SUBRC = .
  180. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  181. EXPORTING
  182. WAIT = 'X'.
  183. WRITE LV_NUM.
  184. ELSE.
  185. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  186. ENDIF.

审批:BAPI_PO_RELEASE

反审:BAPI_PO_RESET_RELEASE

参数:单号+批准代码

函数使用一:采购订单BAPI_PO_CREATE1的更多相关文章

  1. 批量创建采购订单 BAPI_PO_CREATE1

    *&---------------------------------------------------------------------* *& REPORT  ZMM_PO_C ...

  2. MM--发票校验 及基于采购订单的MIRO发票校验过程(

    一.介绍发票校验是物料管理(MM)系统的一部分.它提供物料管理部分和财务会计, 成本控制和资产管理部分的连接.物料管理模块的发票校验为以下目的服务:它完成物料采购的全过程 - 物料采购从采购申请开始, ...

  3. SAP采购订单审批记录增强

    采购订单审核函数: BAPI_PO_RELEASE 结尾加上 ENHANCEMENT ZME28_PO. "active version DATA:LS_EKKO TYPE EKKO. DA ...

  4. SAP交货单过账自动生产采购订单、采购订单自动收货入库

    公司间需要买卖操作,由于发货和收货都是同一批人在操作,为了减少业务人员的工作量,提高工作效率,特实现以上功能 1.增强实现:增强点为交货单过账成功时触发,在提交前触发,如果遇到不可预知问题,可能造成数 ...

  5. 采购订单打印并预览PDF

    *&---------------------------------------------------------------------* *& Report Z01MMF019 ...

  6. 采购订单审批与撤销审批BAPI

    *"---------------------------------------------------------------------- *"*"本地接口: *& ...

  7. U8采购订单联查采购入库单

    1.表头rdrecord01,字段ipurorderid(采购订单ID), cOrderCode(采购订单号)要与采购订单表头主键和单号对应 表体rdrecords01,字段cPOID(采购订单号), ...

  8. SAP采购订单历史明细报表源代码(自己收藏)

    SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF } ...

  9. SAP公司间采购订单关联交货单报表源代码(自己收藏)

    SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF } ...

随机推荐

  1. (转载)C#控件缩写规范

    标准控件缩写规范 类 型 前 缀 示 例 Adrotator adrt adrtTopAd BulletedList blst blstCity Button btn btnSubmit Calend ...

  2. Git 提交的正确姿势:Commit message 编写指南

    http://www.ruanyifeng.com/blog/2016/01/commit_message_change_log.html Git 每次提交代码,都要写 Commit message( ...

  3. Lintcode27-Reverse 3-digit Integer

    Reverse a 3-digit integer. Example Example 1: Input: number = 123 Output: 321 Example 2: Input: numb ...

  4. BaseEditor

    using UnityEngine;using System.Collections.Generic;using UnityEditor;using System.Text;using System. ...

  5. IDEA 的Class not found: "..."Empty test suite

    Junit测试的时候出现  IDEA 的Class not found: "..."Empty test suite问题. 尝试一下解决方法: 第一种方法: 1.modules&g ...

  6. Qt532.线程(_beginthread)

    1.(20180928)环境:Win7x64.Qt5.3.2 MSVC2010 OpenGL.ms2010 2.测试代码: ZC:我记得 之前在 VC6.vs08 上,还要选择 使用的是哪种 运行时线 ...

  7. leecode第七十题(爬楼梯)

    class Solution { public: int climbStairs(int n) { vector<unsigned long long> num;//斐波那契数列 num. ...

  8. MySQL学习(九)

    1 一道面试题 新建两张表 mysql> create table m -> ( -> mid int, -> hid int, -> gid int, -> mr ...

  9. 全排列问题Ⅰ(Java实现)

    给定一个没有重复数字的序列,返回其所有可能的全排列. 示例: 输入: [1,2,3] 输出: [ [1,2,3], [1,3,2], [2,1,3], [2,3,1], [3,1,2], [3,2,1 ...

  10. Axure 第一次交互 实现跳转页面