SEPCERP试点阶段技术书MMZMMF0007 采购订单V1.docx

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

*