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