ME51N 创建采购申请
当寻源后，将寻源结果汇总，并创建采购申请，之后据此创建采购订单。
此文档使用BAPI：BAPI_REQUISITION_CREATE创建采购申请
事务代码：ME51N
## ** 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 ....
