聯(lián)芯科技ERP項目-技術(shù)文檔-FICO-039-存貨分攤輸出表

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部分:需求模塊■MM ■PP MACROBUTTONCheckIt_CheckBox￡SD ■FI ■CO MACROBUTTONCheckIt_CheckBox￡IP/FMMACROBUTTONCheckIt_CheckBox￡其它Spec編號ZLC_SPEC_FICO_040短描述存貨分攤輸出表類型MACROBUTTONUnCheckIt_Radiobutton報表●ABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinter MACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthersMACROBUTTONCheckIt_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孫業(yè)亮、陳剛、史艷及其他授權(quán)用戶要求日期上線使用預(yù)計開發(fā)天數(shù)_4__天是否有標準功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo標準功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse參考的標準功能文檔變更歷史版本號文檔維護時間姓名簡要的描述V1.02009-0孫業(yè)亮

第II部分:詳細功能描述目的：對聯(lián)芯科技ERP項目_開發(fā)規(guī)格書_PP_014_存貨分攤底表更新表_V1.0_20090808開發(fā)出的存貨分攤底表進行按照一定的格式進行匯總輸出，以便進行帳務(wù)處理并作為處理憑證。功能描述:對聯(lián)芯科技ERP項目_開發(fā)規(guī)格書_PP_014_存貨分攤底表更新表_V1.0_20090808開發(fā)出的存貨分攤底表進行按照一定的格式進行匯總輸出，以便進行帳務(wù)處理并作為處理憑證。運行頻率MACROBUTTONCheckIt_Radiobutton任何時間MACROBUTTONCheckIt_Radiobutton每天MACROBUTTONCheckIt_Radiobutton每周MACROBUTTONCheckIt_Radiobutton兩周MACROBUTTONUnCheckIt_Radiobutton每月MACROBUTTONCheckIt_Radiobutton每年MACROBUTTONCheckIt_Radiobutton其它：運行方式MACROBUTTONUnCheckIt_Radiobutton手工MACROBUTTONCheckIt_Radiobutton自動MACROBUTTONCheckIt_Radiobutton批處理MACROBUTTONCheckIt_Radiobutton在線處理輸出方式MACROBUTTONCheckIt_Radiobutton屏幕輸出MACROBUTTONCheckIt_Radiobutton打印MACROBUTTONUnCheckIt_Radiobutton文件輸出MACROBUTTONCheckIt_Radiobutton其它：打印機類型(如無特殊需求，預(yù)設(shè)為激光打印機)紙張大小(如無特殊需求，預(yù)設(shè)為A4橫印)語言(如無特殊需求，預(yù)設(shè)為中文)選擇屏幕：

會計年度：FROMXXXXTOXXXX會計期間：FROMXXXXTOXXXX公司代碼：FROMXXXXTOXXXX利潤中心：FROMXXXXTOXXXX：順序字段名稱字段技術(shù)名稱字段描述特殊需求1BDTERRESB-BDTER會計年度單選2BDTERRESB-BDTER會計期間單選3RCOMPT880-RCOMP公司代碼單選4PRCTRMARC-PRCTR利潤中心多選報表/表單的字段功能顧問（必填）列出報表或自定義打印程序上選擇屏幕上的字段顯示名稱(在屏幕或單據(jù)上的名稱)技術(shù)名稱（字段的來源信息，如果有默認值或需要計算，也需要列出）描述（字段的業(yè)務(wù)含義，包括的內(nèi)容等，例：標準salesorder—所有類型為OR的訂單）特殊需求（如需要加入英文注釋）例：順序字段名稱字段技術(shù)名稱字段描述特殊需求1會計年度取選擇屏幕輸入的會計年度2會計期間取選擇屏幕輸入的會計期間3公司代碼取選擇屏幕輸入的公司代碼4利潤中心代碼取選擇屏幕輸入的利潤中心代碼5利潤中心描述見下定義6原材料分攤金額見下定義7分攤比例見下定義8原材料期初余額見下定義9原材料本期增加見下定義10原材料本期減少見下定義11原材料期末余額見下定義12本期進項稅見下定義13進項稅分攤額見下定義14應(yīng)付賬款期初余額見下定義15應(yīng)付賬款期末余額見下定義利潤中心描述在CEPCT表中對選擇屏幕輸入的MARC-PRCTR值（利潤中心代碼），等于PRCTR篩選條件，匹配后取KTEXT寫入對應(yīng)的利潤中心描述列次。原材料分攤金額對按照聯(lián)芯科技ERP項目_開發(fā)規(guī)格書_PP_014_存貨分攤底表更新表_V1.0計算得出的“本期入庫總金額”按照公司和物料進行合計后取值到對應(yīng)公司的“公司平臺”利潤中心。[同一個物料僅取值一次]原材料本期增加對按照聯(lián)芯科技ERP項目_開發(fā)規(guī)格書_FICO_041_存貨分攤底表更新表_V1.0_20090809計算得出的“本期分攤?cè)霂旖痤~”按照公司和利潤中心進行加總后對應(yīng)取值。分攤比例按照上述三計算某公司“原材料本期增加”的值和上述二計算的原材料分攤金額進行計算得出分攤比例，計算公式如下：某公司某利潤中心分攤比例=該利潤中心“原材料本期增加”/原材料分攤金額，[百分比格式，保留到兩位小數(shù)][假設(shè)X利潤中心的比例為X%，Y利潤中心的比例為Y%，Z利潤中心的比例為Z%]原材料期初余額對按照聯(lián)芯科技ERP項目_開發(fā)規(guī)格書_FICO_041_存貨分攤底表更新表_V1.0_20090809計算得出的“期初庫存金額”按照公司和利潤中心進行加總后對應(yīng)取值。原材料本期減少對按照聯(lián)芯科技ERP項目_開發(fā)規(guī)格書_FICO_041_存貨分攤底表更新表_V1.0_20090809計算得出的“本期發(fā)出金額”按照公司和利潤中心進行加總后對應(yīng)取值。原材料期末余額對按照聯(lián)芯科技ERP項目_開發(fā)規(guī)格書_FICO_041_存貨分攤底表更新表_V1.0_20090809計算得出的“本期結(jié)存金額”按照利潤中心進行加總后對應(yīng)取值。本期進項稅在FAGLFLEXT表中對選擇屏幕輸入的（會計年度，yyyy）等于RYEAR值（會計年度）篩選條件，和RACCT值（科目編號）等于“2221010102”，和選擇屏幕輸入的（公司代碼）等于RBUKRS值篩選條件，當T（公司代碼）為“D300”時，對PRCTR（利潤中心）值等于“PT3001”;當（公司代碼）為“D310”時，對PRCTR（利潤中心）值等于“PT3101”，匹配后取對應(yīng)期間的“本位幣中的業(yè)務(wù)總計”，例如當選擇屏幕的會計期間為6時，取HSL06的值，并將該值寫入“公司平臺”利潤中心對應(yīng)的“本期進項稅”中。[假設(shè)值為JX]進項稅分攤額按照上述“本期進項稅”乘以前述計算出的“分攤比例”，進行計算后取值，對于同一工廠下的編碼最大的利潤中心采用總額相減的方式計算，以免出現(xiàn)尾差，即：編碼最大的利潤中心（Z）進項稅分攤額=JX-JX*X%-JX*Y%應(yīng)付賬款期初余額在FAGLFLEXT表中對選擇屏幕輸入的（會計年度，yyyy）等于RYEAR值（會計年度）篩選條件，和RACCT值（科目編號）等于“222010000”，和選擇屏幕輸入的（公司代碼）等于RBUKRS值篩選條件，當（公司代碼）為“D300”時，對PRCTR（利潤中心）值等于“PT3001”;當（公司代碼）為“D310”時，對PRCTR（利潤中心）值等于“PT3101”，匹配后取對應(yīng)期間前一期的本位幣中的業(yè)務(wù)總計累計值，例如當選擇屏幕的會計期間為3時，取HSLVT+HSL01+HSL02的合計值[假設(shè)值為M]；在FAGLFLEXT表中對選擇屏幕輸入的（會計年度，yyyy）等于RYEAR值（會計年度）篩選條件，和RACCT值（科目編號）等于“222020000”，和選擇屏幕輸入的（公司代碼）等于RBUKRS值篩選條件，當（公司代碼）為“D300”時，對PRCTR（利潤中心）值等于“PT3001”;當（公司代碼）為“D310”時，對PRCTR（利潤中心）值等于“PT3101”，匹配后取對應(yīng)期間前一期的本位幣中的業(yè)務(wù)總計累計值，例如當選擇屏幕的會計期間為3時，取HSLVT+HSL01+HSL02的合計值[假設(shè)值為N]。將上述兩值合計[M+N]乘以前述計算得出的某利潤中心原材料期初余額然后再除以該公司代碼下的所有利潤中心原材料期初余額后，寫入該利潤中心的“應(yīng)付賬款期初余額”。對于同一工廠下的編碼最大的利潤中心采用總額相減的方式計算，以免出現(xiàn)尾差，方式同上九說明。應(yīng)付賬款期末余額在FAGLFLEXT表中對選擇屏幕輸入的（會計年度，yyyy）等于RYEAR值（會計年度）篩選條件，和RACCT值（科目編號）等于“222010000”，和選擇屏幕輸入的（公司代碼）等于RBUKRS值篩選條件，當（公司代碼）為“D300”時，對PRCTR（利潤中心）值等于“PT3001”;當（公司代碼）為“D310”時，對PRCTR（利潤中心）值等于“PT3101”，匹配后取對應(yīng)期間本位幣中的業(yè)務(wù)總計累計值，例如當選擇屏幕的會計期間為3時，取HSLVT+HSL01+HSL02+HSL03的合計值[假設(shè)值為A]；在FAGLFLEXT表中對選擇屏幕輸入的RESB-BDTER值（會計年度，yyyy）等于RYEAR值（會計年度）篩選條件，和RACCT值（科目編號）等于“222020000”，和選擇屏幕輸入的T880-RCOMP值（公司代碼）等于RBUKRS值篩選條件，當T880-RCOMP值（公司代碼）為“D300”時，對PRCTR（利潤中心）值等于“PT3001”;當（公司代碼）為“D310”時，對PRCTR（利潤中心）值等于“PT3101”，匹配后取對應(yīng)期間的本位幣中的業(yè)務(wù)總計累計值，例如當選擇屏幕的會計期間為3時，取HSLVT+HSL01+HSL02+HSL03的合計值[假設(shè)值為B]。將上述兩值合計[A+B]乘以前述計算得出的某利潤中心原材料期末余額然后再除以該公司代碼下的所有利潤中心原材料期末余額后，寫入該利潤中心的“應(yīng)付賬款期末余額”。對于同一工廠下的編碼最大的利潤中心采用總額相減的方式計算，以免出現(xiàn)尾差，方式同上九說明。樣張：第III部分:技術(shù)說明ProgramnameZ_FI_EXEC_STOCK_OUTPUTTransactioncodeZFI039AuthorizationObjectZR_CO_021','ZR_CO_022FormFormnameN/AOutputtypeN/AFormroutineN/A程序邏輯：程序邏輯說明及程序邏輯圖**

*

INITIALIZATION

*

**

INITIALIZATION.

PERFORM

frm_init_layout.

"初始化ALV布局

AT

SELECTION-SCREEN.

START-OF-SELECTION.

"PERFORM

frm_authority_check.

PERFORM

frm_get_data.

"得到相應(yīng)數(shù)據(jù)

PERFORM

frm_add_fieldcat.

"增加fieldcat

PERFORM

frm_display_alv.

"顯示ALV處理FRM_GET_DATA這個form為核心代碼：首先在自定義表ZFI_041表中得到符合條件的信息，然后將應(yīng)付賬款和進項稅根據(jù)利潤中心進行分攤；在faglflext透明表中得到應(yīng)收賬款和進項稅科目余額（2221010102','2202010000',

'2202020000）：代碼如下：*

TABLES

marc.

RANGES

l_prctr

FOR

marc-prctr.

LOOP

AT

s_bukrs

.

IF

s_bukrs-low

=

'D300'.

l_prctr-sign

=

'I'.

l_prctr-option

=

'EQ'.

l_prctr-low

=

'PT3001'.

APPEND

l_prctr.

ENDIF.

IF

s_bukrs-low

=

'D310'.

l_prctr-sign

=

'I'.

l_prctr-option

=

'EQ'.

l_prctr-low

=

'PT3101'.

APPEND

l_prctr.

ENDIF.

ENDLOOP.

DATA:

ls_out

LIKE

gs_out,

lt_out

LIKE

TABLE

OF

gs_out.

DATA:

lv_matnr

TYPE

matnr,

lv_inmon

TYPE

ck_pvprs_1.

SELECT

gjahr

monat

bukrs

prctr

inmon

finmon

fcje

matnr

werks

qcje

FROM

zfi_041

INTO

CORRESPONDING

FIELDS

OF

TABLE

lt_out

WHERE

bukrs

IN

s_bukrs

AND

gjahr

IN

s_gjahr

AND

monat

IN

s_monat.

"AND

prctr

IN

s_prctr.

DATA:

BEGIN

OF

lt_ktext

OCCURS

0,

prctr

TYPE

prctr,

ktext

TYPE

ktext,

END

OF

lt_ktext.

IF

lt_out

IS

NOT

INITIAL.

*

取利潤中心描述

SELECT

prctr

ktext

INTO

TABLE

lt_ktext

FROM

cepct

FOR

ALL

ENTRIES

IN

lt_out

WHERE

spras

=

sy-langu

AND

prctr

=

lt_out-prctr

AND

datbi

=

'99991231'

AND

kokrs

=

'DTDX'.

ENDIF.

SORT

lt_out

BY

gjahr

monat

bukrs

werks

matnr

.

LOOP

AT

lt_out

INTO

ls_out.

"計算總?cè)霂旖痤~

*

IF

lv_matnr

=

ls_out-matnr.

*

lv_inmon

=

lv_inmon.

**

lv_qcsl

=

lv_qcsl.

*

ELSE.

*

lv_matnr

=

ls_out-matnr.

*

lv_inmon

=

lv_inmon

+

ls_out-inmon.

**

lv_qcsl

=

lv_qcsl

+

ls_out-qcje.

*

ENDIF.

lv_inmon

=

lv_inmon

+

ls_out-finmon.

ENDLOOP.

SORT

lt_out

BY

gjahr

monat

bukrs

prctr

.

DATA:

lv_qcje

TYPE

ck_pvprs_1,

lv_qmje

TYPE

ck_pvprs_1.

LOOP

AT

lt_out

INTO

ls_out.

"計算總?cè)霂旖痤~

gs_out

=

ls_out.

lv_qcje

=

lv_qcje

+

ls_out-qcje.

lv_qmje

=

lv_qmje

+

ls_out-finmon

+

ls_out-qcje

-

ls_out-fcje..

AT

END

OF

prctr.

SUM.

gs_out-finmon

=

ls_out-finmon.

gs_out-fcje

=

ls_out-fcje.

gs_out-qcje

=

ls_out-qcje

."+

ls_out-finmon

-

ls_out-fcje.

gs_out-qmje

=

ls_out-finmon

+

ls_out-qcje

-

ls_out-fcje.

*

gs_out-qcje

=

lv_qcje

."+

ls_out-finmon

-

ls_out-fcje.

*

gs_out-qmje

=

ls_out-finmon

+

lv_qcje

-

ls_out-fcje.

"CLEAR:

lv_qcje,

lv_qmje.

APPEND

gs_out

TO

gt_out.

ENDAT.

ENDLOOP.

*

得到本期進項稅

DATA:

BEGIN

OF

gs_faglflext,

ryear

LIKE

faglflext-ryear,

racct

LIKE

faglflext-racct,

hslvt

LIKE

faglflext-hslvt,

hsl01

LIKE

faglflext-hsl01,

hsl02

LIKE

faglflext-hsl02,

hsl03

LIKE

faglflext-hsl03,

hsl04

LIKE

faglflext-hsl04,

hsl05

LIKE

faglflext-hsl05,

hsl06

LIKE

faglflext-hsl06,

hsl07

LIKE

faglflext-hsl07,

hsl08

LIKE

faglflext-hsl08,

hsl09

LIKE

faglflext-hsl09,

hsl10

LIKE

faglflext-hsl10,

hsl11

LIKE

faglflext-hsl11,

hsl12

LIKE

faglflext-hsl12,

hsl13

LIKE

faglflext-hsl13,

hsl14

LIKE

faglflext-hsl14,

hsl15

LIKE

faglflext-hsl15,

hsl16

LIKE

faglflext-hsl16,

END

OF

gs_faglflext,

gs_faglflext2

LIKE

gs_faglflext,

gt_faglflext

LIKE

TABLE

OF

gs_faglflext,

gv_yfzk1

LIKE

faglflext-hsl16,

gv_yfzk2

LIKE

faglflext-hsl16.

SELECT

ryear

racct

SUM(

hslvt

)

SUM(

hsl01

)

SUM(

hsl02

)

SUM(

hsl03

)

SUM(

hsl04

)

SUM(

hsl05

)

SUM(

hsl06

)

SUM(

hsl07

)

SUM(

hsl08

)

SUM(

hsl09

)

SUM(

hsl10

)

SUM(

hsl11

)

SUM(

hsl12

)

SUM(

hsl13

)

SUM(

hsl14

)

SUM(

hsl15

)

SUM(

hsl16

)

FROM

faglflext

INTO

TABLE

gt_faglflext

WHERE

ryear

IN

s_gjahr

AND

rbukrs

IN

s_bukrs

AND

prctr

IN

l_prctr

AND

racct

IN

('2221010102','2202010000',

'2202020000')

GROUP

BY

racct

ryear

ORDER

BY

racct

ryear

.

DATA:

gv_jxs

LIKE

faglflext-hsl01,

gv_ftjxs

LIKE

faglflext-hsl01.

READ

TABLE

gt_faglflext

INTO

gs_faglflext

WITH

KEY

racct

=

'2221010102'.

IF

sy-subrc

=

0.

DO

s_monat-low

TIMES

VARYING

gv_jxs

FROM

gs_faglflext-hsl01

NEXT

gs_faglflext-hsl02.

ENDDO.

ENDIF.

DATA:

lv_yfzkqc

LIKE

faglflext-hsl16,

lv_yfzkqm

LIKE

faglflext-hsl16.

CLEAR

gs_faglflext.

READ

TABLE

gt_faglflext

INTO

gs_faglflext

WITH

KEY

racct

=

'2202010000'.

READ

TABLE

gt_faglflext

INTO

gs_faglflext2

WITH

KEY

racct

=

'2202020000'.

DO

s_monat-low

TIMES

VARYING

gv_yfzk1

FROM

gs_faglflext-hsl01

NEXT

gs_faglflext-hsl02

VARYING

gv_yfzk2

FROM

gs_faglflext2-hsl01

NEXT

gs_faglflext2-hsl02

.

IF

sy-index

<

s_monat-low.

lv_yfzkqc

=

lv_yfzkqc

+

gv_yfzk1

+

gv_yfzk2.

lv_yfzkqm

=

lv_yfzkqm

+

gv_yfzk1

+

gv_yfzk2.

ELSE.

lv_yfzkqm

=

lv_yfzkqm

+

gv_yfzk1

+

gv_yfzk2.

ENDIF.

ENDDO.

lv_yfzkqc

=

lv_yfzkqc

+

gs_faglflext-hslvt

+

gs_faglflext2-hslvt.

lv_yfzkqm

=

lv_yfzkqm

+

gs_faglflext-hslvt

+

gs_faglflext2-hslvt.

DATA:

lv_rate

LIKE

gs_out-rate.

*

ls_out

LIKE

gs_out.

DATA:

lv_temqc

LIKE

faglflext-hsl16,

lv_temqm

LIKE

faglflext-hsl16.

LOOP

AT

gt_out

INTO

gs_out.

gs_out-inmon

=

lv_inmon.

gs_out-rate

=

gs_out-finmon

/

gs_out-inmon

*

100.

lv_rate

=

lv_rate

+

gs_out-rate.

IF

lv_qcje

<>

0

.

gs_out-yfzkqc

=

lv_yfzkqc

*

gs_out-qcje

/

lv_qcje.

lv_temqc

=

lv_temqc

+

gs_out-yfzkqc.

ENDIF.

IF

lv_qmje

<>

0

.

gs_out-yfzkqm

=

lv_yfzkqm

*

gs_out-qmje

/

lv_qmje.

lv_temqm

=

lv_temqm

+

gs_out-yfzkqm.

ENDIF.

"得到分攤進項稅，本期進項稅

gs_out-jxs

=

gv_jxs.

gs_out-ftjxs

=

gs_out-jxs

/

100

*

gs_out-rate.

gv_ftjxs

=

gv_ftjxs

+

gs_out-ftjxs.

ls_out

=

gs_out.

AT

LAST

.

ls_out-rate

=

100

-

lv_rate

+

ls_out-rate.

ls_out-ftjxs

=

gv_jxs

-

gv_ftjxs

+

ls_out-ftjxs.

ls_out-yfzkqc

=

lv_yfzkqc

-

lv_temqc

+

ls_out-yfzkqc.

ls_out-yfzkqm

=

lv_yfz