1、功能说明超市化采购创建采购订单并同步ECP0320V11副本第一部分：需求信息程序类型接口程序使用单位程序编号ZMM04R0002程序名称生成采购订单并同步采购订单信息到ECP事务代码业务流程业务子流程系统版本ECC6模块MM业务负责人冯炳黎功能设计者 程序开发者 / 程序员第二部分： 设计维护记录请求提出者时间修改原因审批人冯炳黎20120320创建功能设计冯炳黎20120321增加创建采购订单后校验价格是否正确。第三部分：用户签字关键用户签名姓名：日期：././.顾问签名姓名：日期：././.顾问组长签名姓名：日期：././.业务组长(河北电力)签名姓名：日期：././.第四部分：业务需求
2、 需求用途（描述编写程序的用途或目的）生成采购订单并同步采购订单信息给ECP总体要求（报表/程序执行的功能描述） 手工创建采购订单。对于超市化采购的采购申请，在ERP中所有行项目（除删除行项目）审批通过，并收到ECP接收“ERP采购申请审批信息”所有“成功”的返回值后，根据需要生成采购订单，并通过接口将采购订单信息上传至电子商务平台。程序使用者系统自动执行使用频度（日、月、季度或年）后台处理/在线处理打印机类型（激光 / 喷墨 / 针式）纸张大小/方向使用语言开发优先度 注释第五部分：功能设计 5.1权限要求（对于某些个别字段须要进行权限控制，如公司代码等）5.2功能界面 选择屏幕：屏幕字段中
3、文描述选择类型屏幕字段名称参考字段名称缺省值必要输入检查条件单一区间复选框选择是否圆点工厂EBAN-WERKS采购申请号请购单号凭证类型EBAN-BSART创建状态未创建、已创建未创建上传状态未上传、已上传未上传5.3所需数据表及字段描述1 新建表：超市化采购-采购订单上传历史记录ZMM26T_CSCG_DDLS字段名是否主键字段描述字段类型字段长度EBELNKEY采购订单CHAR15EBELPKEY项目NUMC5BANFN采购申请CHAR10BNFPO请求项目NUMC5ZQGDH请购单号（ECP）CHAR25ZGGDHXM请购单行项目（ECP）CHAR5ZHSJG含税价格EKPO-BRTWR
4、CURR15/2ZSMTEST税码描述，值取字段 MWSKZ的描述TEXT1（默认值取J1-17%进项税，中国）CHAR50BEDAT凭证日期DATS8ZFKTJ付款条件描述 ，值取字段ZTERM的描述TEXT1（默认值取0001）CHAR50CZIX操作类型，1 - 创建POCHAR1ZSCDAT上传日期CHARZSCTIM上传时间CHARZSCZT上传状态(O：成功，N：失败）CHAR展示字段：字段名字段描述表备注ZQGDH请购单号（ECP）EBANZGGDHXM请购单行项目（ECP）EBANEBELN采购订单号EBANEBELP行项目号EBANZSCZT上传状态ZMM26T_CSCG_D
5、DLSBSART凭证类型EBANBANFN采购申请EBANBNFPO请求项目EBANMATNR物料EBANWERKS工厂EBANLGORT库存地点EBANMENGE数量EBANPREIS评价价格EBANKNTTP项目类别EBANTXZ01物料描述EBANPUR_MODE采购方式EBANLFDAT交货日期EBANBADAT创建日期请购单表AFNAM实际申请人请购单表LIFNR国网供应商请购单表LIFNR-SX供应商取采购申请中的期望供应商EBAN-lifnrName1系统供应商名称取 Lfa1-name1SAKTO总帐科目请购单表KOSTL成本中心请购单表ANLN1资产请购单表PS_PSP_PN
6、RWBS元素请购单表CSID标识请购单表CSDW超市物料单位请购单表CSSL超市物料数量请购单表ERNAM创建者请购单表BANPR审批状态EBANEKGRP采购组EBAN采购申请取AUFNR订单号请购单表EKORG采购组织EBANBUKRS公司代码EBANZSHRID收货人ID请购单表Zterm付款条件5.4相关的取数及处理逻辑（可用表格或文字叙述）实现功能：1 取数逻辑：查询内容: EBAN相关信息，详见展示字段查询条件A： 选择屏幕条件 and EBAN-LOEKZ = and and EBAN-ZQGDH ” and EBAN- ZGGDHXM” and EBAN-CSID “” 过滤掉
7、整个采购申请未审批完成的，（即：采购申请的行项目处理状态都为05（除了删除的行）的为审批完成，其他则为未审批完成） EBAN-BANPR 05 只要这个申请中有一行申请不为05 则过滤掉该申请 查询：未创建逻辑如下： 在查询条件A增加 EBAN-EBELN = and EBAN-EBELp = and EKPO-loekz = 查询：已创建逻辑如下： 在查询条件A增加 EBAN-EBELN and EBAN-EBELp and EKPO-loekz = 查询：未上传逻辑如下： 在查询条件A增加 ZMM26T_CSCG_DDLS-ZSCZT = N 或者ZMM26T_CSCG_DDLS 中不存在
8、。查询：已上传逻辑如下： 在查询条件A增加 ZMM26T_CSCG_DDLS-ZSCZT = O2 订单创建功能：当查询未创建，未上传时： 允许创建订单，允许上传订单当查询已创建，未上传时： 不允许创建订单，允许上传订单当查询已创建，已上传时： 不允许创建订单，不允许上传订单当查询未创建，已上传时： （不会有数据）不允许创建订单，不允许上传订单 创建采购订单默认值：付款条件为：0001立即支付；税码为：J1。采购申请类型为ZM15，则采购订单类型为：ZM15.采购申请类型为ZM13，则采购订单类型为：ZM14.采购申请类型为ZM05，则采购订单类型为：ZM05. 采购申请类型为ZM01或ZM1
9、1，暂时不做自动创建订单功能. 创建过程要求：（1） 采购订单创建成功后，检查采购订单每个行项目的含税价格NETPR是否等于eban- PREIS*100，如果有行某个项目不相等，则调用BDC录屏程修改含税金额的值等于eban- PREIS*117，并给与提示“采购订单价格不一致，请检查”。如果修改失败，则提示“采购订单价格出错，请手工修改订单价格”。（2） 根据屏幕信息创建采购订单，调用BAPI BAPI_PO_CREATE1 。根据查询条件查出采购申请后，选中 采购申请（选中任一行项目，那么默认选中整个采购申请，并且给出提示：采购申请需整单创建采购订单）， 调用bapi自动创建采购订单；
10、（3） 如果采购申请中任意一条行项目审批拒绝（审批状态BANPR值为08），则需等待用户在ECP中对审批拒绝的行项目进行修改或删除，直至所有行项目（删除行项目除外）通过审批（审批状态BANPR值为05），并收到ECP接收审批结果成功的返回值后，才能创建订单。3 上传订单功能： 调用传输超市化采购订单传输电子商务平台功能。1) ZM05采购订单必须在审批以后才能上传，在上传是检查审批通过EKKO-FRGKE=M，否则不能上传，并提示“采购订单审批以后才能上传”。2) 上传之前保存到上传ECP采购订单历史表中：ZMM26T_CSCG_DDLS ，上传状态为N3) 上传后接收到ECP回传标识，如果成
11、功 0 则，更新ZMM26T_CSCG_DDLS上传状态，如果失败，提示错误消息，查找原因. 接口传输主要信息包括：请购单号、请购单行项目、采购申请、请求项目、含税价格、税码描述、付款条件描述等。接口描述：ERP调用电子商务平台注册在企业服务总线上的服务，同来同步采购订单信息； 电子商务平台根据消息的接收情况，返回相应标识给ERP数据提供方传递数据字段内容：接口名称ERP同步采购订单信息至ECP数据流向双向，主数据流向为：ERP 电子商务平台发生频度按需技术路线ESB服务提供方电子商务平台字段名字段描述类型长度数据项说明ZQGDH请购单号（ECP）CHAR25ZGGDHXM请购单行项目（ECP
12、）CHAR5BANFN采购申请CHAR10BNFPO请求项目NUMC5ZCGDD采购订单CHAR15值取“网省编号- EBELN”，例：26-4500012345EBELP项目NUMC5采购订单行项目信息ZHSJG含税价格CURR15/2值取ekpo-BRTWRZSMTEST税码描述CHAR50值取字段 MWSKZ的描述/*TEXT1（默认值取J1-17%进项税，中国）*/根据税码从T007S 取T007S-TEXT1 条件是 T007S-KALSM = TAXCN and 税码BEDAT凭证日期DATS8ZFKTJ付款条件描述 CHAR50/*值取字段ZTERM的描述TEXT1（默认值取00
13、01）*/根据付款条件：根据TVZBT取zterm的描述字段VTEXT语言SPRAS = ZHCZIX操作类型CHAR11 - 创建PO 默认接收请购单传输XML格式如下：请购单号请购单行项目采购申请请求项目采购订单项目含税价格税码描述凭证日期付款条件描述操作类型返回值参数格式如下返回结果标识(0成功或者1失败) 字符长度1 失败原因或者成功信息 字符长度200 4 错误消息展示功能： 如果在创建采购订单和上传过程中，如果出现错误则展示错误消息如下信息：采购申请号 行项目号消息类型 消息ID 编号 消息内容5 接口中在数据传输过程中相关信息记录接口日志：ZTMMJY_MS_02表。5.5报表
14、/ 表单的输出格式及备注 第六部分：附录（可链接到导出excel）参考代码 自动根据工厂信息生成外部合同号程序位置：ZMMJYHT016*&-*& Form FRM_SCWBHTH*&-* text*-* - p1 text* I_NUM-NUM+NN(4). 比较EKKO和ZTMMJY_ADD_PRR中查询出来的外部合同号前14位 CLEAR: AA1,A2,A3,A4,III.* AA1 = L_BANFN .* A2 = L_LIFNR.* A3 = L_ZZBJHBH1.* A4 = L_MATKL. CLEAR III.* REFRESH II_TAB. CLEAR II_TAB.*
15、 II_TAB = g_t_add2.* LOOP AT II_TAB WHERE BANFN = AA1 AND LIFNR = A2 AND ZZBJHBH1 = A3 AND MATKL = A4 AND ZZNUM = NUM1-NUM1.* III = III + 1.* g_t_add2-ZZNUM = NUM1-NUM1. 如果ZTMMJY_ADD_PRR中的流水号大于EKKO就直接用它来更新本条数据* MODIFY ZTMMJY_ADD_PRR FROM g_t_add2.* EXIT.* ENDLOOP.* IF III = 0. CLEAR NUM4. REFRESH NU
16、M4. SELECT ZZNUM FROM ZTMMJY_ADD_PRR INTO NUM4-NUM4 WHERE ZZNUM LIKE NUM. IF NUM4-NUM4 IS NOT INITIAL. APPEND NUM4. ENDIF. ENDSELECT. SORT NUM4 BY NUM4 DESCENDING. IF NUM4 IS NOT INITIAL. LOOP AT NUM4. CLEAR NUM2. NUM2 = NUM4-NUM4+NN(4) + 1. CONCATENATE: NUM4+0(NN) NUM2 INTO L_WBHTHM.-ZZNUM.拼接加1后的流水
17、号到大内表g_t_add2下的ZZNUM中* MODIFY ZTMMJY_ADD_PRR FROM g_t_add2. EXIT. ENDLOOP. ENDIF.* ENDIF.* g_t_add2-ZZNUM = NUM1-NUM1. 如果ZTMMJY_ADD_PRR中的流水号大于EKKO就直接用它来更新本条数据* MODIFY ZTMMJY_ADD_PRR FROM g_t_add2. ELSEIF NUM1-NUM1+NN(4) = I_NUM-NUM+NN(4). CLEAR NUM2. NUM2 = I_NUM-NUM+NN(4) + 1.如果EKKO中查询的流水号大与ZTMMJY_
18、ADD_PRR 把大的流水号加1付给一个变量 CLEAR L_WBHTHM. CONCATENATE: HB - L_ZZBJHBH1 - L_WERKS - NUM2 INTO L_WBHTHM.g_t_add2-ZZNUM.拼接加1后的流水号到大内表g_t_add2下的ZZNUM中 CLEAR:A1,G_NUM.REFRESH G_NUM. CONCATENATE: L_WBHTHM+0(NN) % INTO A1. SELECT ZZNUM FROM ZTMMJY_ADD_PRR INTO G_NUM-NUM WHERE ZZNUM LIKE A1. 查询ZTMMJY_ADD_PRR表中满足条件的流水号最大值 IF G_NUM-NUM IS NOT INITIAL. APP
