联芯科技ERP项目-技术文档-PP-019- 采购申请单打印-20090827

DATE\@"yyyy-MM-dd"2009-10-29Version1.0PAGE1联芯科技ERP项目 DATE\@"M/d/yyyy"10/29/2009Version1.0 联芯科技ERP项目开发规格书第I部分:需求模块MACROBUTTONCheckIt_CheckBox£MM ■PP MACROBUTTONCheckIt_CheckBox£SD MACROBUTTONCheckIt_CheckBox£FI MACROBUTTONCheckIt_CheckBox£CO MACROBUTTONCheckIt_CheckBox£IP/FMMACROBUTTONCheckIt_CheckBox£其它Spec编号ZLC_PP_019短描述采购申请单类型MACROBUTTONCheckIt_Radiobutton报表MACROBUTTONUnCheckIt_RadiobuttonABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinter MACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthersMACROBUTTONUnCheckIt_Radiobutton表单MACROBUTTONCheckIt_Radiobutton流程增强MACROBUTTONCheckIt_RadiobuttonUserExitMACROBUTTONCheckIt_RadiobuttonBADIMACROBUTTONCheckIt_RadiobuttonDialogProgram MACROBUTTONCheckIt_RadiobuttonOtherseMACROBUTTONCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthersendMACROBUTTONCheckIt_Radiobutton数据转移需求优先级MACROBUTTONCheckIt_RadiobuttonHigh/关键 MACROBUTTONUnCheckIt_RadiobuttonMid/推荐 MACROBUTTONCheckIt_RadiobuttonLow/可选用户MACROBUTTONNextCell王董豹要求日期2009年预计开发天数（由功能顾问与开发顾问评估）必填_____天是否有标准功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo标准功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse参考的标准功能文档变更历史版本号文档维护时间姓名简要的描述V1.02009-王董豹V1.12009-08-08王董豹增加供应商名称2009-8-27李腾飞增加技术说明

第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屏幕输出MACROBUTTONUnCheckIt_Radiobutton打印MACROBUTTONCheckIt_Radiobutton文件输出MACROBUTTONCheckIt_Radiobutton其它：打印机类型纸张大小语言选择屏幕： 物料：XXXXX到XXXXX(1工厂：XXXXX到XXXXX(2)采购类型：XXXXX到XXXXX(3)MRP控制者：XXXXX到XXXXX(4)采购申请单号：XXXXX到XXXXX(5)交货日期：XXXXX到XXXXX(6)：顺序字段名称字段技术名称字段描述特殊需求1物料EBAN-MATNR物料2工厂EBAN-WERKS工厂3采购类型EBAN-BSART采购类型4MRP控制者EBAN-DISPOMRP控制者5采购申请单号EBAN-BANFN采购申请单号6交货日期EBAN-LFDAT交货日期报表/表单的字段打印格式：顺序字段名称字段技术名称字段描述特殊需求1采购申请单号EBAN-BANFN采购申请单号2利润中心MARC-PRCTR利润中心EBAN-MATNR与MARC-MATNR关联，取得物料的利润中心3申请人EBAN-AFNAM申请人4产品经理或项目经理产品经理或项目经理手工填写5产品总监（授权人）/部门领导产品总监（授权人）/部门领导手工填写6申请日期EBAN-BADAT申请日期7物料代码EBAN-MATNR物料代码8物料名称EBAN-TXZ01物料名称9采购类型EBAN-BSART采购类型10委外供应商EBAN-FLIEF+LFA1-NAME1委外供应商供应商编号+名称11工厂EBAN-WERKS工厂12需求数量需求数量手工填写13采购数量EBAN-MENGE采购数量14实际采购数量实际采购数量手工填写15最小包装数量MARC-BSTRF最小包装数量EBAN-MATNR与MARC-MATNR关联，取得物料的最小包装16历史单价（含税）EINE-NETPR历史单价（含税）从EBAN-WERKS取出工厂编号从EBAN-INFNR取出采购信息记录编号从EINE-INFNR取信息记录为（2）中的值并且工厂等于（1）中的值从EINE-NETPR得到历史单价17现价（含税）现价（含税）手工填写18采购金额（含税）采购金额（含税）手工填写19系统到货期计算得到系统到货期取出EBAN-BADAT（采购申请日期）取出EBAN-PLIFZ（划交货日期）取出EBAN-WEBAZ（收货处理时间）将上述三个时间相加，得出的结果再加两天，即系统到货期20交货日期EBAN-LFDAT计划到货日期21询价人员询价人员手工填写22物流计划部审批意见物流计划部审批意见手工填写23采购部审批意见采购部审批意见手工填写24供应链管理部审批意见供应链管理部审批意见手工填写25财务部审批意见财务部审批意见手工填写26主管副总经理意见主管副总经理意见手工填写27总经理审批意见总经理审批意见手工填写格式/屏幕设计：逻辑关系：EBAN关联LFA1EBAN-FLIEF=LFA1-FLIEF根据筛选条件查询出符合条件的数据列表之后，用户可以挑选（复选框）其中的几个单据进行打印。打印按照提供的样式进行打印，纸张A4。每张采购申请打印一张。样张：其它内容：

第III部分:技术说明ProgramnameZ_PP_EXEC_PROCUREMENTTransactioncodeZPP019AuthorizationObject无FormFormnameZSF_PP_PROCUREMENT_PRINTOutputtypeA4FormroutineN/A程序逻辑：选择屏幕：输入相应的查询条件后，将符合条件的数据在ALV报表中显示,如图选择要打印的选项目后，再点击状态栏的打印按扭，就可以实现打印采购申请单了。如下图自定义的表/结构：详细描述增加和修改的的表/结构例：程序中定义了一个自定义结构ZST_PP_019主要用来传入参数定义时引用；程序逻辑：在INITIALIZATION事件定义ALV布局模式，然后在ATSELECTION-SCREEN事件中得到数据，如果为空报出一个警告的消息，提示没有查询的数据；最后在调用START-OF-SELECTION事件当中调用FRM_SHOWALV的子过程，显示符合条件的数据。**

*

INITIALIZATION

*

**

INITIALIZATION.

"定义ALV的布局规范

gs_layout-zebra

=

'X'.

gs_layout-colwidth_optimize

=

'X'.

gs_layout-detail_popup

=

'X'.

gs_layout-get_selinfos

=

'X'.

gs_layout-box_fieldname

=

'MARK'.

AT

SELECTION-SCREEN.

PERFORM

frm_getdata.

**

*

START-OF-SELECTION

*

**

START-OF-SELECTION.

PERFORM

frm_showalv.对于调用打印函数程序，通过调用FRM_ALV_COMMAND，调用frm_callform

打印的FORM。*&*

*&

Form

mycommand

*&*

*

ALV事件定义

**

*

-->R_UCOMM

text

*

-->RS_SELFIELD

text

**

FORM

frm_alv_command

USING

r_ucomm

LIKE

sy-ucomm

rs_selfield

TYPE

slis_selfield."ALV事件必须写以上两行

CASE

r_ucomm.

WHEN

'PRINT'.

PERFORM

frm_callform

.

ENDCASE.

rs_selfield-refresh

=

'X'.

ENDFORM.

"Z_ALV_COMMAND其中程序中frm_getdata这个子过程是报表程序最主要的代码：代码如下：从EBAN中取出所有符合条件的数据，如采购申请编号、采购申请物料、数量等，同时外连接MARC和EINE取出净价格和物料的利润中心。将取得的数据存放在GT_OUT这个内表当中；SELECT

banfn

bnfpo

b~prctr

afnam

badat

a~matnr

txz01

bsart

flief

a~werks

menge

b~bstrf

c~netpr

lfdat

a~plifz

a~webaz

a~frgzu

FROM

eban

AS

a

LEFT

OUTER

JOIN

marc

AS

b

ON

b~matnr

=

a~matnr

AND

b~werks

=

a~werks

LEFT

OUTER

JOIN

eine

AS

c

ON

c~werks

=

a~werks

AND

c~infnr

=

a~infnr

INTO

CORRESPONDING

FIELDS

OF

TABLE

gt_out

WHERE

a~matnr

IN

s_matnr

AND

a~werks

IN

s_werks

AND

bsart

IN

s_bsart

AND

a~dispo

IN

s_dispo

AND

banfn

IN

s_banfn

AND

lfdat

IN

s_lfdat

AND

a~loekz

<>

'X'

AND

a~statu

<>

'B'.

IF

gt_out

IS

INITIAL.

MESSAGE

w003(z01)

WITH

'没有查询的相关数据'.

ELSE.

取出利润中心和供应商的描述性信息：

SELECT

lifnr

name1

FROM

lfa1

INTO

TABLE

lt_lfa1

FOR

ALL

ENTRIES

IN

gt_out

WHERE

lifnr

=

gt_out-flief.

"得到利润中心名称

SELECT

prctr

ktext

FROM

cepct

INTO

TABLE

lt_ktext

FOR

ALL

ENTRIES

IN

gt_out

WHERE

datbi

=

'99991231'

AND

kokrs

=

'DTDX'

AND

prctr

=

gt_out-prctr.

ENDIF.

计算系统到货期，代码如下：其中通过FRM_GET_LONG_TEXT这个子过程，得到软件版本和内部订单的长文本；最终将相应的GT_OUT的数据进行调整，输出报表要输出的格式；

LOOP

AT

gt_out

INTO

gs_out.

CLEAR

gv_tdname.

CONCATENATE

gs_out-banfn

gs_out-bnfpo

INTO

gv_tdname.

PERFORM

frm_get_long_text."得到长文本

IF

lt_order[]

IS

NOT

INITIAL.

READ

TABLE

lt_order

INDEX

1.

gs_out-norder

=

lt_order-tdline.

CALL

FUNCTION

'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input

=

gs_out-norder

IMPORTING

output

=

gs_out-norder.

SELECT

SINGLE

ktext

FROM

coas

INTO

gs_out-ktext1

WHERE

aufnr

=

gs_out-norder.

ENDIF.

IF

lt