函数使用一:采购订单BAPI_PO_CREATE1
- REPORT YTEST01.
- DATA:GS_POHEADER TYPE BAPIMEPOHEADER,
- GS_POHEADERX TYPE BAPIMEPOHEADERX,
- GT_RETURN TYPE STANDARD TABLE OF BAPIRET2,
- GWA_RETURN TYPE BAPIRET2,
- GT_ITEM TYPE STANDARD TABLE OF BAPIMEPOITEM,
- GWA_ITEM TYPE BAPIMEPOITEM,
- GT_ITEMX TYPE STANDARD TABLE OF BAPIMEPOITEMX,
- GWA_ITEMX TYPE BAPIMEPOITEMX,
- GT_POSCHEDULE TYPE STANDARD TABLE OF BAPIMEPOSCHEDULE,
- GWA_POSCHEDULE TYPE BAPIMEPOSCHEDULE,
- GT_POSCHEDULEX TYPE STANDARD TABLE OF BAPIMEPOSCHEDULX,
- GWA_POSCHEDULEX TYPE BAPIMEPOSCHEDULX,
- GT_POCOND TYPE STANDARD TABLE OF BAPIMEPOCOND,
- GWA_POCOND TYPE BAPIMEPOCOND,
- GT_POCONDX TYPE STANDARD TABLE OF BAPIMEPOCONDX,
- GWA_POCONDX TYPE BAPIMEPOCONDX,
- GT_POCOMPONENTS TYPE STANDARD TABLE OF BAPIMEPOCOMPONENT,
- GWA_POCOMPONENTS TYPE BAPIMEPOCOMPONENT,
- GWA_POCOMPONENTS_TEMP TYPE BAPIMEPOCOMPONENT,
- GT_POCOMPONENTSX TYPE STANDARD TABLE OF BAPIMEPOCOMPONENTX,
- GWA_POCOMPONENTSX TYPE BAPIMEPOCOMPONENTX.
- DATA:LV_NUM TYPE BAPIMEPOHEADER-PO_NUMBER.
- GS_POHEADER-DOC_TYPE = ''.
- GS_POHEADER-VENDOR = ''.
- GS_POHEADER-PURCH_ORG = ''.
- GS_POHEADER-PUR_GROUP = 'A06'.
- GS_POHEADER-COMP_CODE = ''.
- GS_POHEADER-CURRENCY = 'CNY'."货币
- GS_POHEADER-DOC_DATE = SY-DATUM.
- GS_POHEADER-LANGU = SY-LANGU.
- GS_POHEADER-STATUS = 'I'.
- * GS_POHEADER-INFO_UPD = 'I'.
- * GS_POHEADER-ITEM_INTVL = ''.
- * GS_POHEADER-ITEM_INTVL = ''.
- GS_POHEADERX-DOC_TYPE = 'X'.
- GS_POHEADERX-VENDOR = 'X'.
- GS_POHEADERX-PURCH_ORG = 'X'.
- GS_POHEADERX-PUR_GROUP = 'X'.
- GS_POHEADERX-COMP_CODE = 'X'.
- GS_POHEADERX-DOC_DATE = 'X'.
- GS_POHEADERX-LANGU = 'X'.
- GS_POHEADERX-CURRENCY = 'X'."货币
- GS_POHEADERX-STATUS = 'X'."货币
- * GS_POHEADERX-ITEM_INTVL = 'X'.
- GWA_ITEM-PO_ITEM = ''. "采购凭证的项目编号
- GWA_ITEM-MATERIAL = ''.
- GWA_ITEM-ITEM_CAT = 'L'.
- GWA_ITEM-SHORT_TEXT = 'SHORT'."短文本
- GWA_ITEM-QUANTITY = ."采购订单数量
- GWA_ITEM-PO_UNIT = 'PC' ."采购订单的计量单位
- GWA_ITEM-PLANT = ''. "工厂
- GWA_ITEM-STGE_LOC = ''."库存地点
- GWA_ITEM-TAX_CODE = 'J0'.
- GWA_ITEM-DATE_QTY_FIXED = 'X'.
- APPEND GWA_ITEM TO GT_ITEM.
- GWA_ITEMX-PO_ITEM = ''. "采购凭证的项目编号
- GWA_ITEMX-MATERIAL = 'X'.
- GWA_ITEMX-SHORT_TEXT = 'X'."短文本
- GWA_ITEMX-QUANTITY = 'X'."采购订单数量
- GWA_ITEMX-PO_UNIT = 'X' ."采购订单的计量单位
- GWA_ITEMX-PLANT = 'X'."工厂
- GWA_ITEMX-STGE_LOC = 'X'. "库存地点
- GWA_ITEMX-ITEM_CAT = 'X'.
- GWA_ITEMX-TAX_CODE = 'X'.
- GWA_ITEMX-DATE_QTY_FIXED = 'X'.
- APPEND GWA_ITEMX TO GT_ITEMX.
- GWA_POSCHEDULE-PO_ITEM = ''. "采购凭证的项目编号
- GWA_POSCHEDULE-SCHED_LINE = . "采购凭证的项目编号
- GWA_POSCHEDULE-DEL_DATCAT_EXT = 'D'."交货日期的类别
- GWA_POSCHEDULE-DELIVERY_DATE = SY-DATUM."交货日期
- GWA_POSCHEDULE-QUANTITY = ."采购订单数量
- APPEND GWA_POSCHEDULE TO GT_POSCHEDULE.
- GWA_POSCHEDULEX-PO_ITEM = ''. "采购凭证的项目编号
- GWA_POSCHEDULEX-SCHED_LINE = . "采购凭证的项目编号
- GWA_POSCHEDULEX-DEL_DATCAT_EXT = 'X'."交货日期的类别
- GWA_POSCHEDULEX-DELIVERY_DATE = 'X'."交货日期
- GWA_POSCHEDULEX-QUANTITY = 'X'."采购订单数量
- APPEND GWA_POSCHEDULEX TO GT_POSCHEDULEX.
- GWA_POCOND-ITM_NUMBER = ''.
- GWA_POCOND-COND_TYPE = 'PB00'.
- GWA_POCOND-COND_VALUE = . "价格
- GWA_POCOND-COND_UNIT = 'PC'. "条件单位
- GWA_POCOND-COND_P_UNT = ."GS_EXCEL_RAW0-PEINH. "价格单位
- GWA_POCOND-CURRENCY = 'CNY'.
- GWA_POCOND-CHANGE_ID = 'I'.
- APPEND GWA_POCOND TO GT_POCOND.
- GWA_POCONDX-ITM_NUMBER = ''.
- GWA_POCONDX-COND_TYPE = 'X'.
- GWA_POCONDX-COND_VALUE = 'X'.
- GWA_POCONDX-COND_UNIT = 'X'. "条件单位
- GWA_POCONDX-COND_P_UNT = 'X'. "价格单位
- GWA_POCONDX-CURRENCY = 'X'.
- GWA_POCONDX-CHANGE_ID = 'X'.
- APPEND GWA_POCONDX TO GT_POCONDX.
- "如果有BOM,自动带出组件,如果使用下面代码会添加组件
- * GWA_POCOMPONENTS-PO_ITEM = '00010' .
- * GWA_POCOMPONENTS-SCHED_LINE = 0001.
- ** lwa_pocomponents-item_no = '0010'.
- * GWA_POCOMPONENTS-MATERIAL = '000000000013008278'.
- * GWA_POCOMPONENTS-ENTRY_QUANTITY = 1.
- * GWA_POCOMPONENTS-ENTRY_UOM = 'PC'.
- * GWA_POCOMPONENTS-REQ_DATE = SY-DATUM - 1. "组件需求日期
- * GWA_POCOMPONENTS-PLANT = '1010'.
- * GWA_POCOMPONENTS-CHANGE_ID = 'I'.
- * APPEND GWA_POCOMPONENTS TO GT_POCOMPONENTS.
- *
- * GWA_POCOMPONENTSX-PO_ITEM = '00010'.
- * GWA_POCOMPONENTSX-SCHED_LINE = 0001.
- ** lwa_pocomponentsx-item_no = '0010'.
- * GWA_POCOMPONENTSX-MATERIAL = 'X'.
- * GWA_POCOMPONENTSX-ENTRY_QUANTITY = 'X'.
- * GWA_POCOMPONENTSX-ENTRY_UOM = 'X'.
- * GWA_POCOMPONENTSX-REQ_DATE = 'X'.
- * GWA_POCOMPONENTSX-PLANT = 'X'.
- * GWA_POCOMPONENTSX-CHANGE_ID = 'X'.
- * APPEND GWA_POCOMPONENTSX TO GT_POCOMPONENTSX.
- CALL FUNCTION 'BAPI_PO_CREATE1'
- EXPORTING
- POHEADER = GS_POHEADER
- POHEADERX = GS_POHEADERX
- * POADDRVENDOR =
- * TESTRUN =
- * MEMORY_UNCOMPLETE =
- * MEMORY_COMPLETE =
- * POEXPIMPHEADER =
- * POEXPIMPHEADERX =
- * VERSIONS =
- * NO_MESSAGING =
- * NO_MESSAGE_REQ =
- * NO_AUTHORITY =
- NO_PRICE_FROM_PO = 'X'
- * PARK_COMPLETE =
- * PARK_UNCOMPLETE =
- IMPORTING
- EXPPURCHASEORDER = LV_NUM
- * EXPHEADER =
- * EXPPOEXPIMPHEADER =
- TABLES
- RETURN = GT_RETURN
- POITEM = GT_ITEM
- POITEMX = GT_ITEMX
- * POADDRDELIVERY =
- POSCHEDULE = GT_POSCHEDULE
- POSCHEDULEX = GT_POSCHEDULEX
- * POACCOUNT =
- * POACCOUNTPROFITSEGMENT =
- * POACCOUNTX =
- * POCONDHEADER =
- * POCONDHEADERX =
- POCOND = GT_POCOND
- POCONDX = GT_POCONDX
- * POLIMITS =
- * POCONTRACTLIMITS =
- * POSERVICES =
- * POSRVACCESSVALUES =
- * POSERVICESTEXT =
- * EXTENSIONIN =
- * EXTENSIONOUT =
- * POEXPIMPITEM =
- * POEXPIMPITEMX =
- * POTEXTHEADER =
- * POTEXTITEM =
- * ALLVERSIONS =
- * POPARTNER =
- POCOMPONENTS = GT_POCOMPONENTS
- POCOMPONENTSX = GT_POCOMPONENTSX .
- IF SY-SUBRC = .
- CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
- EXPORTING
- WAIT = 'X'.
- WRITE LV_NUM.
- ELSE.
- CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
- ENDIF.
审批:BAPI_PO_RELEASE
反审:BAPI_PO_RESET_RELEASE
参数:单号+批准代码
函数使用一:采购订单BAPI_PO_CREATE1的更多相关文章
- 批量创建采购订单 BAPI_PO_CREATE1
*&---------------------------------------------------------------------* *& REPORT ZMM_PO_C ...
- MM--发票校验 及基于采购订单的MIRO发票校验过程(
一.介绍发票校验是物料管理(MM)系统的一部分.它提供物料管理部分和财务会计, 成本控制和资产管理部分的连接.物料管理模块的发票校验为以下目的服务:它完成物料采购的全过程 - 物料采购从采购申请开始, ...
- SAP采购订单审批记录增强
采购订单审核函数: BAPI_PO_RELEASE 结尾加上 ENHANCEMENT ZME28_PO. "active version DATA:LS_EKKO TYPE EKKO. DA ...
- SAP交货单过账自动生产采购订单、采购订单自动收货入库
公司间需要买卖操作,由于发货和收货都是同一批人在操作,为了减少业务人员的工作量,提高工作效率,特实现以上功能 1.增强实现:增强点为交货单过账成功时触发,在提交前触发,如果遇到不可预知问题,可能造成数 ...
- 采购订单打印并预览PDF
*&---------------------------------------------------------------------* *& Report Z01MMF019 ...
- 采购订单审批与撤销审批BAPI
*"---------------------------------------------------------------------- *"*"本地接口: *& ...
- U8采购订单联查采购入库单
1.表头rdrecord01,字段ipurorderid(采购订单ID), cOrderCode(采购订单号)要与采购订单表头主键和单号对应 表体rdrecords01,字段cPOID(采购订单号), ...
- SAP采购订单历史明细报表源代码(自己收藏)
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF } ...
- SAP公司间采购订单关联交货单报表源代码(自己收藏)
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF } ...
随机推荐
- (转载)C#控件缩写规范
标准控件缩写规范 类 型 前 缀 示 例 Adrotator adrt adrtTopAd BulletedList blst blstCity Button btn btnSubmit Calend ...
- Git 提交的正确姿势:Commit message 编写指南
http://www.ruanyifeng.com/blog/2016/01/commit_message_change_log.html Git 每次提交代码,都要写 Commit message( ...
- Lintcode27-Reverse 3-digit Integer
Reverse a 3-digit integer. Example Example 1: Input: number = 123 Output: 321 Example 2: Input: numb ...
- BaseEditor
using UnityEngine;using System.Collections.Generic;using UnityEditor;using System.Text;using System. ...
- IDEA 的Class not found: "..."Empty test suite
Junit测试的时候出现 IDEA 的Class not found: "..."Empty test suite问题. 尝试一下解决方法: 第一种方法: 1.modules&g ...
- Qt532.线程(_beginthread)
1.(20180928)环境:Win7x64.Qt5.3.2 MSVC2010 OpenGL.ms2010 2.测试代码: ZC:我记得 之前在 VC6.vs08 上,还要选择 使用的是哪种 运行时线 ...
- leecode第七十题(爬楼梯)
class Solution { public: int climbStairs(int n) { vector<unsigned long long> num;//斐波那契数列 num. ...
- MySQL学习(九)
1 一道面试题 新建两张表 mysql> create table m -> ( -> mid int, -> hid int, -> gid int, -> mr ...
- 全排列问题Ⅰ(Java实现)
给定一个没有重复数字的序列,返回其所有可能的全排列. 示例: 输入: [1,2,3] 输出: [ [1,2,3], [1,3,2], [2,1,3], [2,3,1], [3,1,2], [3,2,1 ...
- Axure 第一次交互 实现跳转页面