本文详细介绍了如何使用SAP BAPI (Business Application Programming Interface) 创建外协采购订单，特别是针对手动输入组件的处理。文章提到了关键步骤，如修改物料主数据、凭证日期、取价配置，以及如何处理信息记录和模板导入。此外，还讨论了采购订单的验证和测试流程。
其实则不然，只要把U改成 'E' 即可
另外：采购价格问题。
如果采购订单凭证日期决定的信息记录有效就会取信息记录，不会取EXCEL .
处理方法：１ 保证取不到信息记录。 ２ 或者 修改后台配置（取价策略）不让取信息记录。
导入模板
1 更改物料主数据MOQ MPQ
2 修改程序的凭证日期
2.1 短文本为空，取主数据里面的描述
2.2 同一个订单的供应商，日期 、采购组织、采购组、工厂都要一样。否则会分单。
3 修改取价配置PB00
4 停用增强
5 号码范围更改
6 测试运行
7 测试2条
注意条件一样的切换单
导入完成后
1 改号码
2 改PB00
3 改 增强
*&---------------------------------------------------------------------*
*& Report ZMMR005
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zmmr008.
*&---------------------------------------------------------------------*
*& 声明类型池
*&---------------------------------------------------------------------*
TYPE-POOLS:sils.
************************************************************************
* <第一部分---声明程序的参数和变量> Declaration *
************************************************************************
*----------------------------------------------------------------------*
* <声明表工作区> Table_Work_Areas Declaration *
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* <声明用户自定义数据类型> Local Data Types in Program *
*----------------------------------------------------------------------*
TYPES: BEGIN OF typ_main,
ebeln LIKE ekpo-ebeln, "采购订单号
bsart TYPE ekko-bsart, "采购凭证类型
lifnr TYPE ekko-lifnr, "供应商帐户号
ekorg TYPE ekko-ekorg, "采购组织
ekgrp TYPE ekko-ekgrp, "采购组
bukrs TYPE ekko-bukrs, "公司代码
unsez TYPE ekko-unsez, "我们的参考， U9采购订单日期
ihrez TYPE ekpo-ext_rfx_number, "你的参考，U9采购订单号
ext_rfx_item TYPE ekpo-ext_rfx_item, "U9采购订单行项目
bstyp TYPE ekpo-bstyp, "科目分配类别
epstp TYPE string, "项目类别
matnr TYPE ekpo-matnr, "物料号
txz01 TYPE ekpo-txz01, "文本
menge TYPE string, "数量
meins TYPE ekpo-meins, "订单单位
eeind TYPE string, "交货日期
matkl TYPE ekpo-matkl, "物料组
mwskz TYPE ekpo-mwskz, "税码
lnetpr TYPE string, "净价
peinh TYPE ekpo-peinh, "价格单位
werks TYPE ekpo-werks, "工厂
lgort TYPE ekpo-lgort, "库存地点
* ps_psp_pnr TYPE prps-posid, "WBS元素
aufnr TYPE ekkn-aufnr, "订单号
*add
kostl TYPE kostl, "成本中心
anln1 TYPE string, "资产
afnam LIKE ekpo-afnam, "申请者
umson TYPE umson, "免费标识
retpo TYPE retpo, "退货标识
ww_matnr TYPE string,
ww_menge TYPE string, "ekpo-menge, "数量
hxmwb TYPE string, "行项目文本
*end add
* konnr TYPE ekpo-konnr, "合同号
* ktpnr TYPE ekpo-ktpnr, "行项目
banfn TYPE ekpo-banfn, "采购申请
bnfpo TYPE ekpo-bnfpo, " 采购申请行项目
* geber TYPE ekpo-geber, "U9 SRM 合同号
* fistl TYPE ekpo-fistl, "U9 SRM 合同行项目
* srm_contract_id TYPE ekpo-srm_contract_id, "U9 SRM 合同号
* srm_contract_itm TYPE ekpo-srm_contract_itm, "U9 SRM 合同行项目
* ekorg TYPE ekko-ekorg, "采购组织
* EBELP TYPE EKPO-EBELP, "采购凭证的项目编号
aedat TYPE ekko-aedat, "凭证日期
ebelp TYPE ekpo-ebelp, "行项目
veten TYPE ekkn-veten, "交货计划行号
netpr TYPE ekpo-netpr,
icon TYPE icon_d, "红绿灯
select TYPE c, "选择列
message TYPE string, "消息
gxx TYPE string, "创建订单标识
END OF typ_main.
*----------------------------------------------------------------------*
* <声明全局变量> Global Variants Declaration *
*----------------------------------------------------------------------*
DATA: gw_main TYPE typ_main,
gt_main TYPE STANDARD TABLE OF typ_main INITIAL SIZE 0 WITH HEADER LINE.
DATA: gw_out TYPE typ_main,
gt_out TYPE STANDARD TABLE OF typ_main INITIAL SIZE 0 WITH HEADER LINE.
DATA:poheader LIKE TABLE OF bapimepoheader WITH HEADER LINE,
poheaderx LIKE TABLE OF bapimepoheaderx WITH HEADER LINE,
return LIKE TABLE OF bapiret2 WITH HEADER LINE,
poitem LIKE TABLE OF bapimepoitem WITH HEADER LINE,
poitemx LIKE TABLE OF bapimepoitemx WITH HEADER LINE,
poschedule LIKE TABLE OF bapimeposchedule WITH HEADER LINE,
poschedulex LIKE TABLE OF bapimeposchedulx WITH HEADER LINE,
poaccount LIKE TABLE OF bapimepoaccount WITH HEADER LINE,
poaccountx LIKE TABLE OF bapimepoaccountx WITH HEADER LINE,
pocond LIKE TABLE OF bapimepocond WITH HEADER LINE,
pocondx LIKE TABLE OF bapimepocondx WITH HEADER LINE,
potextitem LIKE TABLE OF bapimepotext WITH HEADER LINE,
pocondheader LIKE TABLE OF bapimepocondheader WITH HEADER LINE,
pocondheaderx LIKE TABLE OF bapimepocondheaderx WITH HEADER LINE.
* potextitem LIKE TABLE OF bapimepotext WITH HEADER LINE.
DATA: pocomponent LIKE TABLE OF bapimepocomponent WITH HEADER LINE.
DATA: pocomponentx LIKE TABLE OF bapimepocomponentx WITH HEADER LINE.
DATA: epo LIKE bapimepoheader-po_number.
DATA: l_return LIKE return.
DATA: lv_message(255).
DATA: pp_file TYPE string.
DATA: lifnr TYPE elifn.
DATA: netpr TYPE bapimepoitem-net_price.
DATA: l_gxx TYPE string.
*----------------------------------------------------------------------*
* <声明选择屏幕> Selection Screen *
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001 .
PARAMETERS:p_down RADIOBUTTON GROUP p1 DEFAULT 'X' USER-COMMAND fcode,
p_up RADIOBUTTON GROUP p1.
PARAMETERS: p_box AS CHECKBOX DEFAULT 'X' .
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
PARAMETERS:p_file LIKE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK b2.
*----------------------------------------------------------------------*
* 选择屏幕PBI处理 *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
IF p_down = 'X'.
LOOP AT SCREEN.
IF screen-name = '%B002004_BLOCK_1000'
OR screen-name = 'P_FILE'
OR screen-name = '%_P_FILE_%_APP_%-TEXT'.
screen-active = 0.
ENDIF.
MODIFY SCREEN.
最低0.47元/天 解锁文章
扫一扫
1923
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
