联芯科技ERP项目-技术文档-MM-027-采购申请执行状况清单-V1.2-20090820

DATE\@"yyyy-MM-dd"2009-10-29Version1.0PAGE1联芯科技ERP项目 DATE\@"M/d/yyyy"10/29/2009Version1.0 联芯科技ERP项目开发规格书第I部分:需求模块■MM MACROBUTTONCheckIt_CheckBox£PP MACROBUTTONCheckIt_CheckBox£SD MACROBUTTONCheckIt_CheckBox£FI MACROBUTTONCheckIt_CheckBox£CO MACROBUTTONCheckIt_CheckBox£IP/FMMACROBUTTONCheckIt_CheckBox£其它Spec编号LC_SPEC_MM_027短描述采购申请执行状况报清单类型MACROBUTTONUnCheckIt_Radiobutton报表●ABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinter MACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthersMACROBUTTONCheckIt_Radiobutton表单MACROBUTTONCheckIt_Radiobutton流程增强MACROBUTTONCheckIt_RadiobuttonUserExitMACROBUTTONCheckIt_RadiobuttonBADIMACROBUTTONCheckIt_RadiobuttonDialogProgram MACROBUTTONCheckIt_RadiobuttonOtherseMACROBUTTONCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthersendMACROBUTTONCheckIt_Radiobutton数据转移需求优先级MACROBUTTONCheckIt_RadiobuttonHigh/关键 MACROBUTTONUnCheckIt_RadiobuttonMid/推荐 MACROBUTTONCheckIt_RadiobuttonLow/可选用户MACROBUTTONNextCell（必填）（关键用户岗位/领导）要求日期20090607预计开发天数（由功能顾问与开发顾问评估）必填_____天是否有标准功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo标准功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse参考的标准功能文档变更历史版本号文档维护时间姓名简要的描述V1.02009何春红初始文档创建V1.12009-8-19何春红增加权限对象及权限控制点。V1.22009-8-20何春红增加选择屏幕日期的取值字段

第II部分:详细功能描述目的：显示某一段时间内采购申请执行状况，如是否已转采购订单及转采购订单的数量等。功能描述:显示某一定时间范围内采购申请转采购定单的状况运行频率MACROBUTTONUnCheckIt_Radiobutton任何时间MACROBUTTONCheckIt_Radiobutton每天MACROBUTTONCheckIt_Radiobutton每周MACROBUTTONCheckIt_Radiobutton两周MACROBUTTONCheckIt_Radiobutton每月MACROBUTTONCheckIt_Radiobutton每年MACROBUTTONCheckIt_Radiobutton其它：运行方式MACROBUTTONUnCheckIt_Radiobutton手工MACROBUTTONCheckIt_Radiobutton自动MACROBUTTONCheckIt_Radiobutton批处理MACROBUTTONCheckIt_Radiobutton在线处理输出方式MACROBUTTONCheckIt_Radiobutton屏幕输出MACROBUTTONCheckIt_Radiobutton打印MACROBUTTONUnCheckIt_Radiobutton文件输出MACROBUTTONCheckIt_Radiobutton其它：打印机类型(如无特殊需求，预设为激光打印机)纸张大小(如无特殊需求，预设为A4横印)语言(如无特殊需求，预设为中文)选择屏幕： 日期：FROM：XXXX/XX/XXTO：XXXX/XX/XX(1)采购申请审批状态：（2）采购申请执行状况：X(3)采购组：FROM：XXXTO：XXX（4）采购申请编号：FROM：XXXXXXXXTO：XXXXXXXX(5)物料号：FROM：XXXXXXXXXXXXTO：XXXXXXXXXXXX（6）工厂：FROM：XXXTO：XXX(7)物料组：FROM：XXXTOXXX(8)项目类别：X(9)：顺序字段名称字段技术名称字段描述特殊需求1日期EBAN-FRGDT起始时间2采购申请审批状态EBAN-FRGKZ3采购申请执行状况基于同一采购申请的申请单号及行项目EBAN-BANFN+EBAN-BNFPO，取采购申请数量EBAN-MENGE与采购订单数量EBAN-BSMNG的差值，即EBAN-MENGE-EBAN-BSMNG，当差值等于零或等于负数时，显示‘已关闭’；当差值大于零时，显示‘未关闭’。4采购组EBAN-EKGRP5采购申请编号EBAN-BANFN6物料号EBAN-MATNR7工厂EBAN-WERKS8物料组EBAN-MATKL9项目类别EBAN-PSTYP采购凭证中的项目类别报表/表单的字段顺序字段名称字段技术名称字段描述特殊需求1采购申请编号EBAN-BANFN2采购申请批准日期EBAN-FRGDT采购申请批准日期3采购申请创建者EBAN-ERNAM创建对象的人员名称4物料号EBAN-MATNR5短文本EBAN-TXZ016采购申请数量EBAN-MENGE7采购组EBAN-EKGRP8采购订单编号EKPO-EBELN通过采购订单编号+行项目EKPO-EBELN+EKPO-EBELP对应采购申请号+行项目EKPO-BANFN+EKPO-BNFPO，如能对应上，则取采购订单编号EKKO-EBELN；如对应不上，则取空值。9项目号EBAN-EBELP采购订单行项目号10采购订单数量EBAN-BSMNG对应于采购申请的订货数量11采购订单日期EBAN-BEDAT12供应商EKKO-LIFNR13采购申请未清数量未转采购订单的数量同一采购申请下达采购订单数量的合计–采购申请数量14工厂EBAN-WERKS格式/屏幕设计：ALV格式逻辑关系：1、排除采购申请（EBAN-LOEKZ）与采购订单（EKPO-LOEKZ）已删除的行项目。2、基于同一采购申请的申请单号及行项目EBAN-BANFN+EBAN-BNFPO，取采购申请数量EBAN-MENGE与采购订单数量EBAN-BSMNG的差值，即EBAN-MENGE-EBAN-BSMNG，当差值等于零或等于负数时，显示‘已关闭’；当差值大于零时，显示‘未关闭’。3、采购订单编号：通过采购订单编号+行项目EKKO-EBELN+EKKO-EBELP对应采购申请号+行项目EKPO-BANFN+EKPO-BNFPO，如能对应上，则取采购订单编号EKKO-EBELN；如对应不上，则取空值。4、采购申请未清数量：同一采购申请下达采购订单数量的合计–采购申请数量。5、EBAN与EKPO通过采购申请编号+行项目关联EBAN-BANFN+EKPO-BNFPO。6、EKKO与EKPO通过采购订单编号EKKO-EBELN关联。7、权限控制点为采购申请中的采购组，权限对象为M_BANF_EKG。样张：其它内容：

第III部分:技术说明ProgramnameZ_MM_EXEC_PURCHASE_EXETransactioncodeZMM027AuthorizationObjectM_BANF_EKGFormFormnameN/AOutputtypeN/AFormroutineN/A程序逻辑：选择屏幕，选择相应的条件，在ALV显示相应的数据。**

*

START-OF-SELECTION

*

**

START-OF-SELECTION.

PERFORM

frm_get_data."得到数据

PERFORM

frm_add_fieldcat.

"增加fieldcat

PERFORM

frm_display_alv.

"显示ALV程序当最主要的逻辑就是FRM_GET_DATA这个子过程，主要通过连接EBAN\EKKO\EKPO这三个透明表得到相应的数据代码如下：从EBAN里取出相应的数据：

SELECT

banfn

"采购申请号

frgdt

"采购申请批准日期

ernam

"创建对象人员名称

matnr

"物料号

"maktx

"物料描述

txz01

"短文本

menge

AS

menge1

"采购申请数量

ekgrp

"采购组

ebeln

"采购订单编号

ebelp

"采购订单行项目

bsmng

AS

menge2

"采购订单数量

"c~bedat

"采购订单日期

"

c~lifnr

"供应商

*

werks

"工厂

*

loekz

"删除标记

FROM

eban

"AS

a

LEFT

OUTER

JOIN

ekpo

AS

b

ON

b~banfn

=

a~banfn

AND

b~bnfpo

=

a~bnfpo

"INNER

JOIN

ekko

AS

c

ON

c~ebeln

=

b~ebeln

INTO

CORRESPONDING

FIELDS

OF

TABLE

gt_out

WHERE

frgkz

IN

s_date

AND

frgkz

IN

s_frgkz

AND

ekgrp

IN

s_ekgrp

AND

banfn

IN

s_banfn

AND

matnr

IN

s_matnr

AND

werks

IN

s_werks

AND

matkl

IN

s_matkl

AND

pstyp

IN

s_pstyp

AND

loekz

=

''."and

b~LOEKZ

=

''.增加采购订单信息，并删除采购订单为空的记录：代码如下：

SELECT

a~ebeln

a~bedat

a~lifnr

b~werks

b~loekz

FROM

ekko

AS

a

INNER

JOIN

ekpo

AS

b

ON

b~ebeln

=

a~ebeln

INTO

TABLE

gt_ekko

FOR

ALL

ENTRIES

IN

gt_out

WHERE

a~ebeln

=

gt_out-ebeln

AND

b~ebelp

=

gt_out-ebelp.

LOOP

AT

gt_out

INTO

gs_out

.

READ

TABLE

gt_ekko

INTO

gs_ekko

WITH

KEY

ebeln

=

gs_out-ebeln.

IF

sy-subrc

=

0.

gs_out-bedat

=

gs_ekko-bedat.

gs_out-lifnr

=

gs_ekko-lifnr.

gs_out-werks

=

gs_ekko-werks.

gs_out-loekz

=

gs_ekko-loekz.

IF

gs_out-loekz

<>

''.

DELETE

gt_out.

ELSE.

MODIFY

gt_out

FROM

gs_out.

ENDIF.

ENDIF.

ENDLOOP.在255行，处理多个采购申请单处理多个采购订单的情况，以采购申请单进行累加：

LOOP

AT

gt_out

INTO

gs_out.

gs_all

=

gs_out.

AT

END

OF

matnr.

SUM.

gs_all-menge2

=

gs_out-meng