聯(lián)芯科技ERP項目-技術(shù)文檔-PP-019- 采購申請單打印-20090827

DATE\@"yyyy-MM-dd"2009-10-29Version1.0PAGE1聯(lián)芯科技ERP項目 DATE\@"M/d/yyyy"10/29/2009Version1.0 聯(lián)芯科技ERP項目開發(fā)規(guī)格書第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數(shù)據(jù)轉(zhuǎn)移需求優(yōu)先級MACROBUTTONCheckIt_RadiobuttonHigh/關(guān)鍵 MACROBUTTONUnCheckIt_RadiobuttonMid/推薦 MACROBUTTONCheckIt_RadiobuttonLow/可選用戶MACROBUTTONNextCell王董豹要求日期2009年預(yù)計開發(fā)天數(shù)（由功能顧問與開發(fā)顧問評估）必填_____天是否有標(biāo)準功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo標(biāo)準功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse參考的標(biāo)準功能文檔變更歷史版本號文檔維護時間姓名簡要的描述V1.02009-王董豹V1.12009-08-08王董豹增加供應(yīng)商名稱2009-8-27李騰飛增加技術(shù)說明

第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)：順序字段名稱字段技術(shù)名稱字段描述特殊需求1物料EBAN-MATNR物料2工廠EBAN-WERKS工廠3采購類型EBAN-BSART采購類型4MRP控制者EBAN-DISPOMRP控制者5采購申請單號EBAN-BANFN采購申請單號6交貨日期EBAN-LFDAT交貨日期報表/表單的字段打印格式：順序字段名稱字段技術(shù)名稱字段描述特殊需求1采購申請單號EBAN-BANFN采購申請單號2利潤中心MARC-PRCTR利潤中心EBAN-MATNR與MARC-MATNR關(guān)聯(lián)，取得物料的利潤中心3申請人EBAN-AFNAM申請人4產(chǎn)品經(jīng)理或項目經(jīng)理產(chǎn)品經(jīng)理或項目經(jīng)理手工填寫5產(chǎn)品總監(jiān)（授權(quán)人）/部門領(lǐng)導(dǎo)產(chǎn)品總監(jiān)（授權(quán)人）/部門領(lǐng)導(dǎo)手工填寫6申請日期EBAN-BADAT申請日期7物料代碼EBAN-MATNR物料代碼8物料名稱EBAN-TXZ01物料名稱9采購類型EBAN-BSART采購類型10委外供應(yīng)商EBAN-FLIEF+LFA1-NAME1委外供應(yīng)商供應(yīng)商編號+名稱11工廠EBAN-WERKS工廠12需求數(shù)量需求數(shù)量手工填寫13采購數(shù)量EBAN-MENGE采購數(shù)量14實際采購數(shù)量實際采購數(shù)量手工填寫15最小包裝數(shù)量MARC-BSTRF最小包裝數(shù)量EBAN-MATNR與MARC-MATNR關(guān)聯(lián)，取得物料的最小包裝16歷史單價（含稅）EINE-NETPR歷史單價（含稅）從EBAN-WERKS取出工廠編號從EBAN-INFNR取出采購信息記錄編號從EINE-INFNR取信息記錄為（2）中的值并且工廠等于（1）中的值從EINE-NETPR得到歷史單價17現(xiàn)價（含稅）現(xiàn)價（含稅）手工填寫18采購金額（含稅）采購金額（含稅）手工填寫19系統(tǒng)到貨期計算得到系統(tǒng)到貨期取出EBAN-BADAT（采購申請日期）取出EBAN-PLIFZ（劃交貨日期）取出EBAN-WEBAZ（收貨處理時間）將上述三個時間相加，得出的結(jié)果再加兩天，即系統(tǒng)到貨期20交貨日期EBAN-LFDAT計劃到貨日期21詢價人員詢價人員手工填寫22物流計劃部審批意見物流計劃部審批意見手工填寫23采購部審批意見采購部審批意見手工填寫24供應(yīng)鏈管理部審批意見供應(yīng)鏈管理部審批意見手工填寫25財務(wù)部審批意見財務(wù)部審批意見手工填寫26主管副總經(jīng)理意見主管副總經(jīng)理意見手工填寫27總經(jīng)理審批意見總經(jīng)理審批意見手工填寫格式/屏幕設(shè)計：邏輯關(guān)系：EBAN關(guān)聯(lián)LFA1EBAN-FLIEF=LFA1-FLIEF根據(jù)篩選條件查詢出符合條件的數(shù)據(jù)列表之后，用戶可以挑選（復(fù)選框）其中的幾個單據(jù)進行打印。打印按照提供的樣式進行打印，紙張A4。每張采購申請打印一張。樣張：其它內(nèi)容：

第III部分:技術(shù)說明ProgramnameZ_PP_EXEC_PROCUREMENTTransactioncodeZPP019AuthorizationObject無FormFormnameZSF_PP_PROCUREMENT_PRINTOutputtypeA4FormroutineN/A程序邏輯：選擇屏幕：輸入相應(yīng)的查詢條件后，將符合條件的數(shù)據(jù)在ALV報表中顯示,如圖選擇要打印的選項目后，再點擊狀態(tài)欄的打印按扭，就可以實現(xiàn)打印采購申請單了。如下圖自定義的表/結(jié)構(gòu)：詳細描述增加和修改的的表/結(jié)構(gòu)例：程序中定義了一個自定義結(jié)構(gòu)ZST_PP_019主要用來傳入?yún)?shù)定義時引用；程序邏輯：在INITIALIZATION事件定義ALV布局模式，然后在ATSELECTION-SCREEN事件中得到數(shù)據(jù)，如果為空報出一個警告的消息，提示沒有查詢的數(shù)據(jù)；最后在調(diào)用START-OF-SELECTION事件當(dāng)中調(diào)用FRM_SHOWALV的子過程，顯示符合條件的數(shù)據(jù)。**

*

INITIALIZATION

*

**

INITIALIZATION.

"定義ALV的布局規(guī)范

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.對于調(diào)用打印函數(shù)程序，通過調(diào)用FRM_ALV_COMMAND，調(diào)用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中取出所有符合條件的數(shù)據(jù)，如采購申請編號、采購申請物料、數(shù)量等，同時外連接MARC和EINE取出凈價格和物料的利潤中心。將取得的數(shù)據(jù)存放在GT_OUT這個內(nèi)表當(dāng)中；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

'沒有查詢的相關(guān)數(shù)據(jù)'.

ELSE.

取出利潤中心和供應(yīng)商的描述性信息：

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.

計算系統(tǒng)到貨期，代碼如下：其中通過FRM_GET_LONG_TEXT這個子過程，得到軟件版本和內(nèi)部訂單的長文本；最終將相應(yīng)的GT_OUT的數(shù)據(jù)進行調(diào)整，輸出報表要輸出的格式；

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