SEPCERP试点阶段技术书MMZMMF0007 采购订单V1.docx
- 文档编号:687889
- 上传时间:2022-10-12
- 格式:DOCX
- 页数:27
- 大小:176.78KB
SEPCERP试点阶段技术书MMZMMF0007 采购订单V1.docx
《SEPCERP试点阶段技术书MMZMMF0007 采购订单V1.docx》由会员分享,可在线阅读,更多相关《SEPCERP试点阶段技术书MMZMMF0007 采购订单V1.docx(27页珍藏版)》请在冰豆网上搜索。
SEPCERP试点阶段技术书MMZMMF0007采购订单V1
四川省电力公司
企业资源管理(ERP)系统实施项目
技术设计说明书
第一部分:
基本信息
(生成新的版本后,以下内容要相应改动)
开发类型
增强接口单据报表
技术工具
EnhancementUserExitBAdI
DialogInteractivelist
ABAPOOFunctiongroup
RFCBAPIfunctionExecutiveProgram
BDCTableContentsModification
ServerfileLocalfile
SAPScriptSmartformsOutput-onlyList
模块
MM
开发机及集团
D19
(1)/client110
事务代码
ZMMF0007
程序ID
ZMMF0007
程序名称
采购订单
功能设计者
张博
技术设计者
·ÏþÇà
ABAP程序员
·ÏþÇà
第二部分:
设计书维护记录
更新日期
更新人员
简要说明
2009-07-27
·ÏþÇà
初版创建
第三部分:
技术方案描述
3.1业务需求描述
根据选择画面上用户输入的条件,查看采购订单清单.
3.2技术解决方案
1.根据选择画面的输入,从表EKKO中抽取采购订单表头数据,EKPO中抽取订单行项目,并从LFA1、ADRC、EKET、T001W等表抽取附加字段,通过ALV显示符合条件的数据清单,并将用户选择的清单行项目利用SmartForm查看打印预览或直接打印。
2.权限检查:
权限对象M_BEST_EKO,字段:
EKORG;
权限对象M_BEST_EKG,字段:
EKGRP
如果无权限,显示“无此凭证操作权限”。
3.3系统简单架构图
如果抽到数据为空或无权限
如果非空
调用SmartForm失败
调用SmartForm成功
第四部分:
程序逻辑描述—将主要代码功能描述清楚,
1.相关取数及处理逻辑
序号
相关取数及处理逻辑
1
订单类型 :
T161T-BATXT :
SelectBATXTfromT161TwhereT161T-BSART=EKKO-BSARTandT161T-BSTYP=’F’andT161T-SPRAS=’1’
2
供应商名称 :
SelectNAME1fromLFA1whereLFA1-SPRAS=1andLFA1-LIFNR=EKKO-LIFNR
地址、联系电话、传真:
IfEKKO-ADRNR=’’THEN
SelectSTRAS,TELF1,LFA1-TELFXfromLFA1whereLFA1-SPRAS=1andLFA1-LIFNR=EKKO-LIFNR
ELSE
SELECTADRC-STREET||ADRC-HOUSENUM1,ADRC-TELNUMBER||’-’||ADRC-TELEXTENS,ADRC-FAXNUMBER||’-’||ADRC-FAXEXTENSFROMADRCWHEREADRC-ADDRNUMBER=EKKO-ADRNR
3
公司地址:
SelectSTREETfromADRCwhereADRC-ADDRNUMBER=T001-ADRNRandT001-BUKRS=EKKO-BUKRS)
4
采购组织:
selectEKORGfromT024EwhereT024E-EKORG=EKKO-EKORG
5
采购组:
selectEKGRPfromT024whereT024-EKGRP=EKKO-EKGRP
6
合同号:
长文本文本名4500000000;标志F00;文本对象EKKO
7
付款条件 :
selectTEXT1fromT052UwhereT052U-SPRAS=1andT052U-ZTERM=EKKO-ZTERM,取第一个冒号( :
)前面的字符
8
交货日期:
selectEINDTfromEKETwhereEKET-EBELN=EKPO-EBELNandEKET-EBELP=EKPO-EBELP
9
交货地点:
selectABLADfromEKKNwhereEKKN-EBELN=EKPO-EBELNandEKKN-EBELP=EKPO-EBELP
2.1.输入TCODE:
ZMMF0007,出现如下屏幕
2.2选择画面至少要输入一个查询条件,从表EKKO中抽取采购订单表头数据,EKPO中抽
取订单行项目,并从LFA1、ADRC、EKET、T001W等表抽取附加字段,通过ALV显
示符合条件的数据清单.
2.3并将用户选择的清单行项目利用SmartForm查看打印预览或直接打印。
第五部分:
源程序----复杂性功能实现可贴主要功能代码部分
*&---------------------------------------------------------------------*
*& 程序名称:
ZMMF0007
*& 程序描述:
采购订单打印
*& 开发人员:
路晓青
*& 创建日期:
2009/06/11
*& 程序用途:
根据选择画面上用户输入的选择条件,列出相关明细,用户在清单
*& 中选择数据后,按订单号分组打印。
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZMMF0007 MESSAGE-ID ZMM01.
INCLUDE ZMMF0007_DATA_DELCARE.
INCLUDE ZMMF0007_SSCREEN.
INCLUDE ZMMF0007_EVENT.
INCLUDE ZMMF0007_GET_DATA.
INCLUDE ZMMF0007_DISPLSY.
INCLUDE ZMMF0007_PRINT.
1.权限检查:
* 权限检查
REFRESH IT_CHECK.
LOOP AT IT_ALV INTO WA_ALV.
IF WA_ALV-EKORG IS NOT INITIAL.
AUTHORITY-CHECK OBJECT 'M_BEST_EKO'
ID 'ACTVT' FIELD '03'
ID 'EKORG' FIELD WA_ALV-EKORG.
IF SY-SUBRC <> 0.
WA_CHECK-EKORG = WA_ALV-EKORG.
APPEND WA_CHECK TO IT_CHECK.
CLEAR WA_CHECK.
ENDIF.
ENDIF.
IF WA_ALV-EKGRP IS NOT INITIAL.
AUTHORITY-CHECK OBJECT 'M_BEST_EKG'
ID 'ACTVT' FIELD '03'
ID 'EKGRP' FIELD WA_ALV-EKGRP.
IF SY-SUBRC <> 0.
WA_CHECK-EKGRP = WA_ALV-EKGRP.
APPEND WA_CHECK TO IT_CHECK.
CLEAR WA_CHECK.
ENDIF.
ENDIF.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM IT_CHECK.
LOOP AT IT_CHECK INTO WA_CHECK.
DELETE IT_ALV WHERE EKORG = WA_CHECK-EKORG.
ENDLOOP.
LOOP AT IT_CHECK INTO WA_CHECK.
DELETE IT_ALV WHERE EKGRP = WA_CHECK-EKGRP.
ENDLOOP.
IF IT_ALV IS INITIAL.
MESSAGE S000 WITH '无此凭证操作权限'.
EXIT.
ENDIF.
2.ALV显示,合并订单类型、采购订单号列,用户双击ALV清单的采购订单号,则调用事务代码:
ME23N,进入显示采购
凭证界面。
*&---------------------------------------------------------------------*
*& 包括 ZMMF0007_DISPLSY
*&---------------------------------------------------------------------*
DATA:
G_FIELDCAT TYPE LVC_T_FCAT WITH HEADER LINE, "字段内表
L_LAYOUT TYPE LVC_S_LAYO, "ALV布局
WA_EXCLUDE TYPE SLIS_EXTAB ,
IT_EXCLUDE TYPE SLIS_T_EXTAB ,
WA_SORT TYPE LVC_S_SORT,
IT_SORT TYPE LVC_T_SORT,
L_REPID LIKE SY-REPID VALUE SY-REPID,
L_GRID_SETTINGS TYPE LVC_S_GLAY,
LT_EVENTS TYPE SLIS_T_EVENT,
LT_ROW_NO TYPE LVC_T_ROID,
LS_ROW_NO TYPE LVC_S_ROID,
LS_COL_ID TYPE LVC_S_COL,
L_VALUE TYPE LVC_S_DATA-VALUE.
DATA:
LR_GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA:
LS_FCAT1 TYPE LVC_S_FCAT,
LT_FCAT1 TYPE LVC_T_FCAT,
LS_LAYOUT1 TYPE LVC_S_LAYO.
*&---------------------------------------------------------------------*
*& Form FRM_LAYOUT
*
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- SEPCERP试点阶段技术书MMZMMF0007 采购订单V1 SEPCERP 试点 阶段 技术 MMZMMF0007 采购 订单 V1