PAGEPAGE10 DATE\@"M/d/yyyy"10/29/2009Version1.0 FILENAME聯(lián)芯科技ERP項目_技術文檔_FICO_007_利潤中心現(xiàn)金流量表V1.0_20090728.docPAGE1XXXXXX項目 DATE\@"M/d/yyyy"10/29/2009Version1.0 第I部分:需求模塊MACROBUTTONCheckIt_CheckBox￡MM MACROBUTTONCheckIt_CheckBox￡PP MACROBUTTONCheckIt_CheckBox￡SD ■FI MACROBUTTONCheckIt_CheckBox￡CO MACROBUTTONCheckIt_CheckBox￡IP/FMMACROBUTTONCheckIt_CheckBox￡其它Spec編號ZDTYD_FI007短描述利潤中心現(xiàn)金流量表類型MACROBUTTONCheckIt_Radiobutton報表MACROBUTTONCheckIt_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ù)轉移需求優(yōu)先級MACROBUTTONUnCheckIt_RadiobuttonHigh/關鍵 MACROBUTTONCheckIt_RadiobuttonMid/推薦 MACROBUTTONCheckIt_RadiobuttonLow/可選用戶MACROBUTTONNextCell肖麗華要求日期集成測試前預計開發(fā)天數(shù)（由功能顧問與開發(fā)顧問評估）必填_____天是否有標準功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo標準功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse參考的標準功能表單開發(fā)：列出參考的標準的Form的技術名稱報表開發(fā)：列出參考的標準報表文檔變更歷史版本號文檔維護時間姓名簡要的描述V1.0200肖麗華初建

第II部分:詳細功能描述目的：每月出具產品線現(xiàn)金流量表，記錄當月各產品線的貨幣資金收付情況功能描述:在任何時候都能進行產品線現(xiàn)金流量表的查詢、打印選擇條件見后詳述財務部所有同仁都可以查詢，總帳會計及三級經理以上可以打印使用開發(fā)新程序打印運行頻率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打印MACROBUTTONCheckIt_Radiobutton文件輸出MACROBUTTONUnCheckIt_Radiobutton其它：打印和文件輸出打印機類型激光打印機紙張大小A4縱印語言簡體中文選擇屏幕： 順序字段名稱字段技術名稱字段描述P/S必填/可選特殊需求1利潤中心FAGLFLEXT-PRCTR利潤中心P必填默認值D3002會計期間BKPF-MONAT會計期間P必填默認上一會計期間（如當前期間為1月則默認為1月）3會計年度BKPF-GJAHR會計年度P必填默認本會計年度報表/表單的字段抬頭字段/表尾字段見附加EXCEL（現(xiàn)金流量表樣表）。順序字段名稱字段技術名稱字段描述特殊需求1企業(yè)名稱CEPCT-LTEXT利潤中心對應的名稱2年度BSIS-GJAHR取選擇屏幕上的會計年度3會計期間BSIS-MONAT取選擇屏幕上的會計期間格式/屏幕設計：見附件EXCEL（現(xiàn)金流量表樣表）。邏輯關系：見下附件EXCEL（現(xiàn)金流量表公式）.根據(jù)輸入條件中的利潤中心、會計年度、期間到表BSIS、BSAS中查找相應明細，比如：輸入條件利潤中心為JA3001,會計年度為2009,期間為06,，則到BSIS、BSAS表中找PRCTR字段為JA3001,GJAHR字段為2009，對于“本月數(shù)”，MONAT字段為06期間；對于“累計數(shù)”，取MONAT字段01-06期間，科目范圍（字段：HKONT）均為1001000000-1001999999,1002000000-1002999999,1012000000-1012999999的所有明細；以上一步找到的所有明細記錄中BELNR（財務憑證編號）字段為關鍵值，到BSEG表中取BELNR（財務憑證編號）字段相同的明細數(shù)據(jù)；按照RSTGR（原因代碼）字段，對現(xiàn)金流入類的各個原因代碼用借方（S）本位幣金額(DMBTR字段)合計減去貸方（H）本位幣金額(DMBTR字段)的合計差額列示；對現(xiàn)金流出類的各個原因代碼用貸方（H）本位幣金額(DMBTR字段)合計減去借方（S）本位幣金額(DMBTR字段)的合計差額列示；第39至40行均需到FAGLFLEXT表中取出會計科目為1001*、1002*、1012*的數(shù)值。以當前期間為6月為例，39行第一列需根據(jù)輸入條件中的利潤中心、會計年度、記帳期間去FAGLFLEXT表中的HSL01字段到HSL16字段找出相應的數(shù)值并合計，做為輸出格式中的期初數(shù),比如：現(xiàn)出具6月現(xiàn)金流量表，則在FAGLFLEXT表中的HSL01字段到HSL05字段找出相應的數(shù)值合計再加上FAGLFLEXT表中HSLVT字段取出的數(shù)值；第39行第二列則取HSLVT字段做為輸出格式中的期初數(shù)。當輸入條件利潤中心為“PT3001”時，報表數(shù)據(jù)取值包含“PT3001”和“GG3001”；當輸入條件利潤中心為“PT3101”時，報表數(shù)據(jù)取值包含“PT3101”和“GG3101”。報表中各單元格的對應的原因代碼及計算公式見下方樣張。備注：可根據(jù)輸入的“產品線”條件調用函數(shù)K_PRCTR_VALUES_GET（輸入：利潤中心組、利潤中心范圍；輸出：利潤中心）得到最終需要的利潤中心，此字段對應到FAGLFLEXT中的PRCTR字段。樣張：其它內容：對報表/單據(jù)的其它功能進行描述*注：刪除上面不適用的行和注釋行.

第III部分:技術說明ProgramnameZ_FI_EXEC_CASH_FLOW_PCTransactioncodeZFI007AuthorizationObjectZR_FI_050ZR_FI_051FormFormnameN/AOutputtypeN/AFormroutineN/A程序邏輯：程序邏輯說明及程序邏輯圖點擊執(zhí)行后，選擇下載路徑后，系統(tǒng)會自動下載EXECLE文件到本地。利潤表，首先通過在ATSELECTION-SCREEN事件中調用

PERFORM

authority_check

.進行判斷執(zhí)行用戶是否ZRFIZR_FI_050、ZR_FI_051這兩個角色來查看相關公司代碼、利潤中心的權限，如果有則執(zhí)行，沒有則報錯。然后在data_get這個子過程中從數(shù)據(jù)庫當中取出相應數(shù)據(jù)，放入相應的結構體當中，存放所選期間的財務數(shù)據(jù)，然后再CASE屏幕上輸入的期間，來判斷調用哪個月份的子過程，如1月份調用p_billing_1，2月調用p_billing_2.將數(shù)據(jù)處理完畢后，再將要放入EXECLE文件的數(shù)據(jù)存放在t_exceldata這個內表中，t_exceldata這個內表存放了要放入EXECLE文件數(shù)據(jù)的行、列、數(shù)據(jù)；通過調用自定義的FUNCTION，ZD_EXCEL_OUTPUT來實現(xiàn)下載EXECL文件的功能；選擇屏幕的利潤中心、利潤中心組只能同時選一個，在選擇利潤中心組后通過frm_get_prctr得到所有要匯總的利潤中心；在匯總數(shù)據(jù)時，要減去內部訂單為6666010102的發(fā)生額，在相應的行項目信息中根據(jù)FS減去；另外關于有些行項目是通過其它行項目累加的，則是通過在EXLECL模版里實現(xiàn)的，而沒有在系統(tǒng)代碼里實現(xiàn)；**

*

程序的事務代碼:

ZFI007

*

程序名稱:

Z_FI_EXEC_CASH_FLOW

*

作者

:

NEUSOFT(LITENGFEI)

*

時間

:

2009-07-29

*

模塊

:

FI

*

負責人

:

肖利華

*

描述

:

利潤中心現(xiàn)金流量表

*

特殊特性:

*

需求編號：

FI007

**

*

修改記錄:

*作者

時間

描述

*

*

*李騰飛

20090729

創(chuàng)建

**

REPORT

z_fi_exec_cash_flow_pc

NO

STANDARD

PAGE

HEADING

MESSAGE-ID

z_1.

INCLUDE

zd_fifm003_head_pc.

"報表頭文件

TABLES:

faglflext.

*SELECTION-SCREEN

BEGIN

OF

BLOCK

block1

WITH

FRAME

TITLE

title1.

"選擇屏幕定義

*SELECT-OPTIONS:

code

FOR

faglflext-prctr

."OBLIGATORY

.

"利潤中心默認D200

*PARAMETERS:

p_name

TYPE

setleaf-setname.

*PARAMETERS:

billing

LIKE

bkpf-monat

OBLIGATORY

DEFAULT

sy-datum+4(2)."會計期間

*PARAMETERS:

year

LIKE

bkpf-gjahr

OBLIGATORY

DEFAULT

sy-datum+0(4)."會計年度

*SELECTION-SCREEN

END

OF

BLOCK

block1.

SELECTION-SCREEN

BEGIN

OF

BLOCK

block1

WITH

FRAME

TITLE

title1.

"OBLIGATORY

.

"利潤中心默認D200

SELECTION-SCREEN

BEGIN

OF

LINE

.

PARAMETERS

gp_x

RADIOBUTTON

GROUP

ra1

DEFAULT

'X'

USER-COMMAND

radbtn.

SELECTION-SCREEN

COMMENT

4(20)

text-001

."FOR

FIELD

gp_gjarh.

SELECTION-SCREEN

POSITION

POS_LOW.

SELECT-OPTIONS:

code

FOR

faglflext-prctr

MODIF

ID

sc1.

SELECTION-SCREEN

END

OF

LINE.

SELECTION-SCREEN

BEGIN

OF

LINE.

PARAMETERS:

gp_y

RADIOBUTTON

GROUP

ra1

.

SELECTION-SCREEN

COMMENT

4(31)

text-002.

PARAMETERS:

p_name

TYPE

setleaf-setname

MODIF

ID

sc2

.

SELECTION-SCREEN

END

OF

LINE.

SELECTION-SCREEN

END

OF

BLOCK

block1.

SELECTION-SCREEN

BEGIN

OF

BLOCK

block2

WITH

FRAME

TITLE

text-003.

PARAMETERS:

billing

LIKE

bkpf-monat

OBLIGATORY

DEFAULT

sy-datum+4(2)."會計期間

PARAMETERS:

year

LIKE

bkpf-gjahr

OBLIGATORY

DEFAULT

sy-datum+0(4)."會計年度

SELECTION-SCREEN

END

OF

BLOCK

block2.

INITIALIZATION.

"表頭定義

title1

=

'利潤中心現(xiàn)金流量表'.

**

*

AT

SELECTION-SCREEN

*

**

AT

SELECTION-SCREEN

ON

VALUE-REQUEST

FOR

p_name.

PERFORM

get_search_help

.

AT

SELECTION-SCREEN.

IF

code

IS

NOT

INITIAL

AND

p_name

IS

NOT

INITIAL.

MESSAGE

e003(z_1)

WITH

'利潤中心組與利潤中心不能同時輸入'.

ENDIF.

PERFORM

frm_get_prctr.

"得到利潤中心

START-OF-SELECTION.

PERFORM

frm_authority_check.

PERFORM

get_data."讀取數(shù)據(jù)

PERFORM

frm_get_title."得到利潤中心、利潤中心組描述

PERFORM

cal_data_faglflext."生成數(shù)據(jù)

PERFORM

cal_data_deal.

"數(shù)據(jù)處理

PERFORM

call_function_output."調用報表輸出函數(shù)。

END-OF-SELECTION.

INCLUDE

zd_fifm003_get_dataf01_pc.

INCLUDE

zd_fifm003_cal_data_faf01_pc.

INCLUDE

zd_fifm003_cal_data_dealf01_pc.

*&*

*&

Form

CALL_FUNCTION_OUTPUT

*&*

*

text

**

*

-->

p1

text

*

<--

p2

text

**

FORM

call_function_output

.

LOOP

AT

t_exceldata

INTO

wa_exceldata

WHERE

row

<>

2

.

CONDENSE

wa_exceldata-value.

*

IF

wa_exceldata-value

<

0.

CALL

FUNCTION

'CLOI_PUT_SIGN_IN_FRONT'

CHANGING

value

=

wa_exceldata-value.

MODIFY

t_exceldata

FROM

wa_exceldata.

*

ENDIF.

ENDLOOP.

CALL

FUNCTION

'ZD_EXCEL_OUTPUT'

EXPORTING

excel_template

=

c_exceltemplate

macro

=

'WRITE_CELL'

exit_program

=

sy-repid

p_xsht

=

'利潤中心現(xiàn)金流量表'

*

exit_subroutine

=

'SUB_ADDITION_EXCEL'

TABLES

data_source

=

t_exceldata.

ENDFORM.

"

CALL_FUNCTION_OUTPUT

*&*

*&

Form

GET_SEARCH_HELP

*&*

*

search

help

**

*

-->

p1

text

*

<--

p2

text

**

FORM

get_search_help

.

TYPES:BEGIN

OF

ty_help,

setname

TYPE

setleaf-setname,

descript

TYPE

settext,

END

OF

ty_help.

DATA:lt_help

TYPE

TABLE

OF

ty_help.

DATA:l_repid

TYPE

sy-repid,

l_dynnr

TYPE

sy-dynnr.

*選取數(shù)據(jù)

SELECT

a~setname

b~descript

INTO

TABLE

lt_help

FROM

setleaf

AS

a

INNER

JOIN

setheadert

AS

b

ON

b~setclass

=

a~setclass

AND

b~subclass

=

a~subclass

AND

b~setname

=

a~setname

WHERE

a~setclass

=

'0106'

AND

a~subclass

=

'DTDX'

AND

b~langu

=

sy-langu.

DELETE

ADJACENT

DUPLICATES

FROM

lt_help

COMPARING

ALL

FIELDS.

*定制SEARCH

HELP

l_repid

=

sy-repid.

l_dynnr

=

'1000'.

CALL

FUNCTION

'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield

=

'SETNAME'

dynpprog

=

l_repid

dynpnr

=

l_dynnr

dynprofield

=

'P_NAME'

value_org

=

'S'

TABLES

value_tab

=

lt_help

EXCEPTIONS

parameter_error

=

1

no_values_found

=

2

OTHERS

=

3.

IF

sy-subrc

<>

0.

MESSAGE

ID

sy-msgid

TYPE

sy-msgty

NUMBER

sy-msgno

WITH

sy-msgv1

sy-msgv2

sy-msgv3

sy-msgv4.

ENDIF.

ENDFORM.

"

GET_SEARCH_HELP

*&*

*&

Form

FRM_GET_TITLE

*&*

*

text

**

*

-->

p1

text

*

<--

p2

text

**

FORM

frm_get_title

.

IF

gp_x

=

'X'.

DATA:

BEGIN

OF

lt_ltext

OCCURS

0,

ltext

LIKE

cepct-ltext,

END

OF

lt_ltext.

SELECT

ltext

INTO

TABLE

lt_ltext

FROM

cepct

"取公司名稱

WHERE

spras

=

sy-langu

AND

prctr

IN

code

AND

datbi

>

lv_data

AND

kokrs

=

'DTDX'.

LOOP

AT

lt_ltext.

CONCATENATE

company_name

'/'

lt_ltext-ltext

INTO

company_name.

ENDLOOP.

CONCATENATE

'利潤中心名稱：'

company_name

INTO

c_company_name.

"拼寫報表中利潤中心名稱

ELSEIF

gp_y

=

'X'.

SELECT

SINGLE

descript

INTO

company_name

FROM

setheadert

WHERE

setclass

=

'0106'

AND

subclass

=

'DTDX'

AND

langu

=

sy-langu.

CONCATENATE

'利潤中心組名稱：'

company_name

INTO

c_company_name.

"拼寫報表中利潤中心名稱

ENDIF.

CONCATENATE

year

'年'

billing

'月'

INTO

c_rpt_date

SEPARATED

BY

space."拼寫報表中統(tǒng)計期間

ENDFORM.

"

FRM_GET_TITLE

*&*

*&

Form

FRM_AUTHORITY_CHECK

*&*

*

text

**

*

-->

p1

text

*

<--

p2

text

**

FORM

frm_authority_check

.

*從數(shù)據(jù)庫選取利潤中心

SELECT

prctr

INTO

TABLE

gt_center1

FROM

cepct

"取利潤中心

WHERE

prctr

IN

code.

*刪除重復的利潤中心

DELETE

ADJACENT

DUPLICATES

FROM

gt_center1

COMPARING

ALL

FIELDS.

TABLES:

agr_users.

TYPES:

BEGIN

OF

ty_agr_name,

agr_name

LIKE

agr_users-agr_name,

END

OF

ty_agr_name.

DATA:

lt_agr_name

TYPE

TABLE

OF

ty_agr_name,

ls_agr_name

TYPE

ty_agr_name.

DATA:

l_line

TYPE

i.

SELECT

agr_name

INTO

TABLE

lt_agr_name

FROM

agr_users

WHERE

agr_name

IN

('ZR_FI_050','ZR_FI_051')

AND

uname

=

sy-uname.

DESCRIBE

TABLE

lt_agr_name

LINES

l_line.

IF

l_line

=

1.

READ

TABLE

lt_agr_name

INTO

ls_agr_name

WITH

KEY

agr_name

=

'ZR_FI_050'

.

IF

sy-subrc

=

0.

LOOP

AT

gt_center1

INTO

gs_center.

IF

gs_center-prctr

=

'GG3001'

OR

gs_center-prctr

=

'JA3001'

OR

gs_center-prctr

=

'JL3001'

OR

gs_center-prctr

=

'ZD3001'

OR

gs_center-prctr

=

'ZD3002'

OR

gs_center-prctr

=

'ZD3003'

OR

gs_center-prctr

=

'ZD3004'

OR

gs_center-prctr

=

'DUMMY'

OR

gs_center-prctr

=

'PT3001'

OR

gs_center-prctr

=

'YA3001'

OR

gs_center-prctr

=

'YX3001'.

ELSE.

MESSAGE

i002(z_1)

WITH

'沒有權限進行查看'.

LEAVE

LIST-PROCESSING.

ENDIF.

CLEAR:gs_center.

ENDLOOP.

ENDIF.

CLEAR

ls_agr_name.

READ

TABLE

lt_agr_name

INTO

ls_agr_name

WITH

KEY

agr_name

=

'ZR_FI_051'

.

IF

sy-subrc

=

0.

LOOP

AT

gt_center1

INTO

gs_center.

IF

gs_center-prctr

=

'GG3101'

OR

gs_center-prctr

=

'JL3101'

OR

gs_center-prctr

=

'PT3101'

OR

gs_center-prctr

=

'DUMMY'.

ELSE.

MESSAGE

i002(z_1)

WITH

'沒有權限進行查看'.

LEAVE

LIST-PROCESSING.

ENDIF.

CLEAR:gs_center.

ENDLOOP.

ENDIF.

ELSEIF

l_line

=

0

.

MESSAGE

i002(z_1)

WITH

'沒有權限進行查看'.

LEA