1业务说明
当寻源后,将寻源结果汇总,并创建采购申请,之后据此创建采购订单。
此文档使用BAPI:BAPI_REQUISITION_CREATE创建采购申请
2前台实现
事务代码:ME51N
3代码实现
3.1调用BAPI
传入相应的行项目数据
导入BAPI
3.2扩展字段
在EBAN表中增加自定义字段
在结构BAPI_TE_REQUISITION_ITEM中定义采购申请项目编号字段,该字段必须有,也必须传值。将结构CI_EBANDB引用进来。
将行项目和申请原因等字段传入结构中,再赋值给BAPI扩展内表GT_EXTENSION,传入BAPI中
创建后,采购申请原因已经传入成功
3.3创建服务类采购申请
创建服务类申请没有物料号,输入相应的数据
首先创建三个变量,用于存储几个编号
在行项目中需要传入软件包编号
输入总账科目和成本中心,并赋值序列号
在服务行中,先输入软件父包
再添加软件子包
在REQUISITION_SRV_ACCASS_VALUES中添加软件子包对应的信息
最后调用BAPI创建成功
软件包的流水号维护在这个对象中,但是在BAPI赋值的时候,直接赋值0000000001即可,如果通过流水号获取赋值进去,反倒不成功。
原因猜测可能是,系统每次都自动获取,不采用付的值,但是如果使用了流水号函数就打乱了系统自己赋值的逻辑。所以在BAPI中赋值0000000001和子包在此上+1,将服务行的父包和子包关联起来即可。
采购申请保存在EBAN表中,服务保存在ESLL表中。
3.4源代码
"-----------------------------@斌将军-----------------------------
DATA:LV_NUMBER TYPE BAPIMEREQHEADER-PREQ_NO,
GT_ITEM TYPE TABLE OF BAPIEBANC,
GS_ITEM TYPE BAPIEBANC,
GT_EXTENSION TYPE TABLE OF BAPIPAREX,
GS_EXTENSION TYPE BAPIPAREX,
GT_RETURN TYPE TABLE OF BAPIRETURN,
GS_RETURN TYPE BAPIRETURN.
DATA:LV_MESSAGE TYPE CHAR200,
LV_CHECK TYPE CHAR1.
CLEAR:GS_ITEM.
GS_ITEM-PREQ_ITEM = '10'."行项目号
GS_ITEM-DOC_TYPE = 'CKSG'."采购申请凭证类型
GS_ITEM-PUR_GROUP = 'C10'."采购组
GS_ITEM-MATERIAL = '405481'."物料号
GS_ITEM-PLANT = '2000'. "工厂
GS_ITEM-STORE_LOC = '2007'. "库存地点
GS_ITEM-QUANTITY = '1'."数量
GS_ITEM-PREQ_DATE = SY-DATUM."需求日期
GS_ITEM-TRACKINGNO = ''."需求跟踪号
GS_ITEM-FIXED_VEND = ''."固定供应商
GS_ITEM-PREQ_NAME = 'SRM'."申请者
GS_ITEM-VAL_TYPE = 'CR'."评估类型
GS_ITEM-DELIV_DATE = '20200129'."交货日期
GS_ITEM-UNIT = 'PC'."计量单位
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GS_ITEM-MATERIAL"物料号
IMPORTING
OUTPUT = GS_ITEM-MATERIAL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = GS_ITEM-FIXED_VEND"固定供应商
IMPORTING
OUTPUT = GS_ITEM-FIXED_VEND.
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
EXPORTING
INPUT = GS_ITEM-UNIT"计量单位
LANGUAGE = SY-LANGU
IMPORTING
OUTPUT = GS_ITEM-UNIT.
APPEND GS_ITEM TO GT_ITEM.
CLEAR:GS_EXTENSION.
GS_EXTENSION-STRUCTURE = 'BAPI_TE_REQUISITION_ITEM'.
GS_EXTENSION-VALUEPART1 = GS_ITEM-PREQ_ITEM && GS_ITEM-PREQ_NAME."申请原因
APPEND GS_EXTENSION TO GT_EXTENSION.
CLEAR:LV_NUMBER.
CALL FUNCTION 'BAPI_REQUISITION_CREATE'
EXPORTING
* SKIP_ITEMS_WITH_ERROR = gt_item
AUTOMATIC_SOURCE = ' '
IMPORTING
NUMBER = LV_NUMBER
TABLES
REQUISITION_ITEMS = GT_ITEM
* REQUISITION_ACCOUNT_ASSIGNMENT =
* REQUISITION_ITEM_TEXT =
* REQUISITION_LIMITS =
* REQUISITION_CONTRACT_LIMITS =
* REQUISITION_SERVICES =
* REQUISITION_SRV_ACCASS_VALUES =
RETURN = GT_RETURN
* REQUISITION_SERVICES_TEXT =
* REQUISITION_ADDRDELIVERY =
EXTENSIONIN = GT_EXTENSION.
LV_CHECK = 'S'.
LOOP AT GT_RETURN INTO GS_RETURN WHERE TYPE = 'A' OR TYPE = 'E'.
LV_MESSAGE = LV_MESSAGE && GS_RETURN-MESSAGE.
LV_CHECK = 'E'.
ENDLOOP.
IF LV_CHECK = 'S'.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
WRITE:LV_NUMBER.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
------------------服务类采购申请源代码---------------------
*&---------------------------------------------------------------------*
*& Report ZLCCTEST019
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZLCCTEST019.
DATA:GT_ITEM TYPE TABLE OF BAPIEBANC,
GS_ITEM TYPE BAPIEBANC,
GT_SER TYPE TABLE OF BAPIESLLC,
GS_SER TYPE BAPIESLLC,
GT_SER_VALUES TYPE TABLE OF BAPIESKLC,
GS_SER_VALUES TYPE BAPIESKLC,
GT_WBS TYPE TABLE OF BAPIEBKN,
GS_WBS TYPE BAPIEBKN,
GT_RETURN TYPE TABLE OF BAPIRETURN,
L_NO1 TYPE BAPIMEREQHEADER-PREQ_NO,
LV_MESSAGE TYPE CHAR200,
LV_PCKG_NO TYPE BAPIEBANC-PCKG_NO VALUE 0000000001, "软件包编号
LV_ACCASSERIAL_NO TYPE BAPIEBKN-SERIAL_NO VALUE 01, "序列号
LV_LINE_NO TYPE BAPIESLLC-LINE_NO VALUE 1. "内部行编号
GS_ITEM-PREQ_ITEM = '00010'.
GS_ITEM-DOC_TYPE = 'CKSR'.
GS_ITEM-PLANT = '2000'.
GS_ITEM-QUANTITY = '1'."数量
GS_ITEM-PREQ_NAME = '123'."申请者
GS_ITEM-UNIT = 'LE'."计量单位
GS_ITEM-ACCTASSCAT = 'W'."科目分配类别
GS_ITEM-ITEM_CAT_EXT = 'D'."科目分配类别
GS_ITEM-SHORT_TEXT = '123'."短文本
GS_ITEM-MAT_GRP = '&DB001'."物料组
GS_ITEM-PREQ_DATE = '20210307'."需求日期
GS_ITEM-DELIV_DATE = '20210307'."需求日期
GS_ITEM-DELIV_DATE = '20210307'."需求日期
GS_ITEM-PCKG_NO = LV_PCKG_NO."软件包编号
GS_ITEM-GR_IND = 'X'.
GS_ITEM-GR_NON_VAL = 'X'.
GS_ITEM-IR_IND = 'X'.
APPEND GS_ITEM TO GT_ITEM.
GS_WBS-PREQ_ITEM = '00010'.
GS_WBS-SERIAL_NO = LV_ACCASSERIAL_NO.
GS_WBS-G_L_ACCT = '6601039900'.
GS_WBS-COST_CTR = '0BE000'.
APPEND GS_WBS TO GT_WBS.
GS_SER-PCKG_NO = LV_PCKG_NO."软件包编号
GS_SER-LINE_NO = LV_LINE_NO."内部行编号
GS_SER-OUTL_IND = 'X'."标识符:概要行
GS_SER-SUBPCKG_NO = LV_PCKG_NO + 1."分包编号
GS_SER-FROM_LINE = 1."下限
APPEND GS_SER TO GT_SER.
CLEAR:GS_SER.
GS_SER-PCKG_NO = LV_PCKG_NO + 1."软件包编号
GS_SER-LINE_NO = LV_LINE_NO + 1."内部行编号
GS_SER-EXT_LINE = 0000000010."行号
GS_SER-QUANTITY = 1."数量
GS_SER-BASE_UOM = 'LE'."计量单位
GS_SER-PRICE_UNIT = 1."价格单位
GS_SER-NET_VALUE = NETPR * QUANTITY."净值
GS_SER-SHORT_TEXT = 123."短文本
GS_SER-MATL_GROUP = '&DB001'."物料组
GS_SER-GR_PRICE = 10."总价
APPEND GS_SER TO GT_SER.
GS_SER_VALUES-PCKG_NO = LV_PCKG_NO + 1."软件包编号
GS_SER_VALUES-LINE_NO = LV_LINE_NO + 1."内部行编号
GS_SER_VALUES-SERNO_LINE = 01."服务行
GS_SER_VALUES-SERIAL_NO = GS_SER_VALUES-SERNO_LINE."帐户分配的顺序编号
GS_SER_VALUES-PERCENTAGE = 100."帐户分配值分配百分比
GS_SER_VALUES-NET_VALUE = NETPR * QUANTITY."项目净值
GS_SER_VALUES-QUANTITY = 1."数量带标记
APPEND GS_SER_VALUES TO GT_SER_VALUES.
CALL FUNCTION 'BAPI_REQUISITION_CREATE'
EXPORTING
* SKIP_ITEMS_WITH_ERROR = gt_item
AUTOMATIC_SOURCE = ' '
IMPORTING
NUMBER = L_NO1
TABLES
REQUISITION_ITEMS = GT_ITEM
REQUISITION_ACCOUNT_ASSIGNMENT = GT_WBS
* REQUISITION_ITEM_TEXT =
* REQUISITION_LIMITS =
* REQUISITION_CONTRACT_LIMITS =
REQUISITION_SERVICES = GT_SER
REQUISITION_SRV_ACCASS_VALUES = GT_SER_VALUES
RETURN = GT_RETURN
* REQUISITION_SERVICES_TEXT =
* REQUISITION_ADDRDELIVERY =
* EXTENSIONIN = GT_EXTENSION1
.
CLEAR:LV_MESSAGE.
LOOP AT GT_RETURN INTO DATA(GL_RETURN) WHERE TYPE = 'E' OR TYPE = 'A'.
CONCATENATE LV_MESSAGE '/' GL_RETURN-MESSAGE INTO LV_MESSAGE.
CLEAR GL_RETURN.
ENDLOOP.
IF LV_MESSAGE IS INITIAL AND L_NO1 IS NOT INITIAL.
* 提交事务
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
ENDIF.
WRITE :L_NO1.
"-----------------------------@斌将军-----------------------------