SEPCERP试点阶段技术书MMZMMF0007 采购订单V1Word下载.docx

SEPCERP试点阶段技术书MMZMMF0007 采购订单V1Word下载.docx

《SEPCERP试点阶段技术书MMZMMF0007 采购订单V1Word下载.docx》由会员分享，可在线阅读，更多相关《SEPCERP试点阶段技术书MMZMMF0007 采购订单V1Word下载.docx（27页珍藏版）》请在冰豆网上搜索。

程序名称

采购订单

功能设计者

张博

技术设计者

Â

·

Ï

þ

Ç

à

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查看打印预览或直接打印。

第五部分：

源程序----复杂性功能实现可贴主要功能代码部分

*&

---------------------------------------------------------------------*

程序名称：

程序描述：

采购订单打印

开发人员：

路晓青

创建日期：

2009/06/11

程序用途：

根据选择画面上用户输入的选择条件,列出相关明细，用户在清单

中选择数据后,按订单号分组打印。

REPORT 

ZMMF0007 

MESSAGE-ID 

ZMM01.

INCLUDE 

ZMMF0007_DATA_DELCARE.

ZMMF0007_SSCREEN.

ZMMF0007_EVENT.

ZMMF0007_GET_DATA.

ZMMF0007_DISPLSY.

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'

EKORG'

WA_ALV-EKORG.

SY-SUBRC 

<

>

0.

WA_CHECK-EKORG 

= 

APPEND 

WA_CHECK 

TO 

CLEAR 

WA_CHECK.

ENDIF.

WA_ALV-EKGRP 

M_BEST_EKG'

EKGRP'

WA_ALV-EKGRP.

WA_CHECK-EKGRP 

ENDLOOP.

DELETE 

ADJACENT 

DUPLICATES 

FROM 

IT_CHECK 

WHERE 

EKORG 

WA_CHECK-EKORG.

EKGRP 

WA_CHECK-EKGRP.

MESSAGE 

S000 

WITH 

无此凭证操作权限'

.

EXIT.

2.ALV显示,合并订单类型、采购订单号列，用户双击ALV清单的采购订单号，则调用事务代码：

ME23N，进入显示采购

凭证界面。

包括 

ZMMF0007_DISPLSY

DATA:

G_FIELDCAT 

TYPE 

LVC_T_FCAT 

HEADER 

LINE, 

"

字段内表

L_LAYOUT 

LVC_S_LAYO, 

ALV布局

WA_EXCLUDE 

SLIS_EXTAB 

IT_EXCLUDE 

SLIS_T_EXTAB 

WA_SORT 

LVC_S_SORT,

IT_SORT 

LVC_T_SORT,

L_REPID 

LIKE 

SY-REPID 

VALUE 

SY-REPID,

L_GRID_SETTINGS 

LVC_S_GLAY,

LT_EVENTS 

SLIS_T_EVENT,

LT_ROW_NO 

LVC_T_ROID,

LS_ROW_NO 

LVC_S_ROID,

LS_COL_ID 

LVC_S_COL,

L_VALUE 

LVC_S_DATA-VALUE.

LR_GRID 

REF 

CL_GUI_ALV_GRID.

LS_FCAT1 

LVC_S_FCAT,

LT_FCAT1 

LVC_T_FCAT,

LS_LAYOUT1 

LVC_S_LAYO.

Form 

FRM_LAYOUT

*