聯(lián)芯科技ERP項(xiàng)目-技術(shù)文檔-FICO-007-利潤中心現(xiàn)金流量表V1.0-20090728

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

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

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

PERFORM

authority_check

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

*

程序的事務(wù)代碼:

ZFI007

*

程序名稱:

Z_FI_EXEC_CASH_FLOW

*

作者

:

NEUSOFT(LITENGFEI)

*

時(shí)間

:

2009-07-29

*

模塊

:

FI

*

負(fù)責(zé)人

:

肖利華

*

描述

:

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

*

特殊特性:

*

需求編號(hào)：

FI007

**

*

修改記錄:

*作者

時(shí)間

描述

*

*

*李騰飛

20090729

創(chuàng)建

**

REPORT

z_fi_exec_cash_flow_pc

NO

STANDARD

PAGE

HEADING

MESSAGE-ID

z_1.

INCLUDE

zd_fifm003_head_pc.

"報(bào)表頭文件

TABLES:

faglflext.

*SELECTION-SCREEN

BEGIN

OF

BLOCK

block1

WITH

FRAME

TITLE

title1.

"選擇屏幕定義

*SELECT-OPTIONS:

code

FOR

faglflext-prctr

."OBLIGATORY

.

"利潤中心默認(rèn)D200

*PARAMETERS:

p_name

TYPE

setleaf-setname.

*PARAMETERS:

billing

LIKE

bkpf-monat

OBLIGATORY

DEFAULT

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

*PARAMETERS:

year

LIKE

bkpf-gjahr

OBLIGATORY

DEFAULT

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

*SELECTION-SCREEN

END

OF

BLOCK

block1.

SELECTION-SCREEN

BEGIN

OF

BLOCK

block1

WITH

FRAME

TITLE

title1.

"OBLIGATORY

.

"利潤中心默認(rèn)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)."會(huì)計(jì)期間

PARAMETERS:

year

LIKE

bkpf-gjahr

OBLIGATORY

DEFAULT

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

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

'利潤中心組與利潤中心不能同時(shí)輸入'.

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."調(diào)用報(bào)表輸出函數(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.

"拼寫報(bào)表中利潤中心名稱

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.

"拼寫報(bào)表中利潤中心名稱

ENDIF.

CONCATENATE

year

'年'

billing

'月'

INTO

c_rpt_date

SEPARATED

BY

space."拼寫報(bào)表中統(tǒng)計(jì)期間

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.

*刪除重復(fù)的利潤中心

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

'沒有權(quán)限進(jìn)行查看'.

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

'沒有權(quán)限進(jìn)行查看'.

LEAVE

LIST-PROCESSING.

ENDIF.

CLEAR:gs_center.

ENDLOOP.

ENDIF.

ELSEIF

l_line

=

0

.

MESSAGE

i002(z_1)

WITH

'沒有權(quán)限進(jìn)行查看'.

LEA