聯(lián)芯科技ERP項(xiàng)目-技術(shù)文檔-FICO-013-應(yīng)收應(yīng)付帳齡分析表

PAGEPAGE12 DATE\@"M/d/yyyy"10/29/2009Version1.0 FILENAME11聯(lián)芯科技ERP項(xiàng)目_技術(shù)文檔_FICO_013_應(yīng)收應(yīng)付帳齡分析表V1.220090922(3).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編號ZLC_SPEC_FICO_013短描述應(yīng)收應(yīng)付帳齡分析表類型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)先級MACROBUTTONUnCheckIt_RadiobuttonHigh/關(guān)鍵 MACROBUTTONCheckIt_RadiobuttonMid/推薦 MACROBUTTONCheckIt_RadiobuttonLow/可選用戶MACROBUTTONNextCell肖麗華要求日期月結(jié)前預(yù)計(jì)開發(fā)天數(shù)（由功能顧問與開發(fā)顧問評估）必填_____天是否有標(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ù)時間姓名簡要的描述V1.0200肖麗華初建V1.12009-09-18肖麗華修改V1.22009-09-22肖麗華修改

第II部分:詳細(xì)功能描述目的：日常出具應(yīng)收、應(yīng)付帳齡分析表功能描述:在任何時候都能進(jìn)行應(yīng)收、應(yīng)付帳齡分析表、打印選擇條件見后詳述財(cái)務(wù)部所有同仁都可以查詢，總帳會計(jì)及三級經(jīng)理以上可以打印使用開發(fā)新程序打印運(yùn)行頻率MACROBUTTONUnCheckIt_Radiobutton任何時間MACROBUTTONCheckIt_Radiobutton每天MACROBUTTONCheckIt_Radiobutton每周MACROBUTTONCheckIt_Radiobutton兩周MACROBUTTONCheckIt_Radiobutton每月MACROBUTTONCheckIt_Radiobutton每年MACROBUTTONCheckIt_Radiobutton其它：運(yùn)行方式MACROBUTTONUnCheckIt_Radiobutton手工MACROBUTTONCheckIt_Radiobutton自動MACROBUTTONCheckIt_Radiobutton批處理MACROBUTTONCheckIt_Radiobutton在線處理輸出方式MACROBUTTONCheckIt_Radiobutton屏幕輸出MACROBUTTONCheckIt_Radiobutton打印MACROBUTTONCheckIt_Radiobutton文件輸出MACROBUTTONUnCheckIt_Radiobutton其它：打印和文件輸出打印機(jī)類型激光打印機(jī)紙張大小A4橫印語言簡體中文選擇屏幕： 順序字段名稱字段技術(shù)名稱字段描述P/S必填/可選特殊需求1公司代碼公司代碼P必填默認(rèn)值D3002過帳日期截至日期P必填默認(rèn)為當(dāng)前日期3會計(jì)年度會計(jì)年度P必填默認(rèn)本會計(jì)年度4科目SKB1-SAKNRS可選MITKZ=D或K5客戶KNB1-KUNNR客戶P必填默認(rèn)為所有客戶6供應(yīng)商LFB1-LIFNR供應(yīng)商P必填默認(rèn)為所有供應(yīng)商且賬戶組≠Z9007供應(yīng)商LFB1-LIFNR員工P必填默認(rèn)為所有員工且賬戶組＝Z900報(bào)表/表單的字段抬頭字段/表尾字段見附加EXCEL（應(yīng)收、應(yīng)付帳齡分析表樣表）。順序字段名稱字段技術(shù)名稱字段描述特殊需求1企業(yè)名稱T001-BUTXT公司代碼對應(yīng)的名稱2過賬日期BSID-BUDAT取選擇屏幕上的截止日期格式/屏幕設(shè)計(jì)：見附件EXCEL（應(yīng)收、應(yīng)付帳齡分析表樣表）。邏輯關(guān)系：見下附件EXCEL（應(yīng)收、應(yīng)付帳齡分析表公式）.一、應(yīng)收帳齡分析表根據(jù)輸入條件中輸入的客戶（KUNNR）為關(guān)鍵值到BSID表中找相應(yīng)的憑證編碼（BELNR）和行項(xiàng)目（BUZEI）。再根據(jù)輸入條件中輸入的客戶（KUNNR）為關(guān)鍵值到BSAD表中找清賬日期（AUGDT）大于屏幕選擇日期且過賬日期（BUDAT）小于或等于選擇屏幕日期的憑證編號（BELNR）和行項(xiàng)目（BUZEI）。以找到的憑證編碼（BELNR）和行項(xiàng)目（BUZEI）為關(guān)鍵值到FAGLFLEXA表中找憑證編碼（DOCNR）和行項(xiàng)目（BUZEI）對應(yīng)的利潤中心（PRCTR）。在FAGLFLEXA表取憑證編碼（DOCNR）、行項(xiàng)目（BUZEI）和科目編號（RACCT）字段相同的明細(xì)數(shù)據(jù)數(shù)據(jù)，用借方（S）本位幣金額(HSL)合計(jì)加上貸方（H）本位幣金額(HSL)的合計(jì)差額列示為余額。如余額為零該條不顯示。以找到憑證編碼（DOCNR）和憑證行項(xiàng)目（BUZEI）為關(guān)鍵值到BSID和BSAD表取憑證編碼（BELNR）、行項(xiàng)目（BUZEI）字段相同的明細(xì)數(shù)據(jù)數(shù)據(jù)，用輸入條件中輸入的過賬日期（BUDAT）減付款基準(zhǔn)日期（ZFBDT）減天數(shù)1（ZBD1T）所得的值，與天數(shù)1（ZBD1T）比較，選擇值小于或等于0時的憑證編碼（BELNR）、行項(xiàng)目（BUZEI）；再以找到的這些憑證編號到FAGLFLEXA表取憑證編碼（DOCNR）、行項(xiàng)目（BUZEI）和科目編號（RACCT）字段相同的明細(xì)數(shù)據(jù)數(shù)據(jù)，用借方（S）本位幣金額(HSL)合計(jì)加上貸方（H）本位幣金額(HSL)的合計(jì)差額列示為未到期余額；以此類推其余列的余額根據(jù)輸入條件中輸入的客戶（KUNNR）為關(guān)鍵值到KNA1表中找客戶（KUNNR）對應(yīng)的名稱（NAME1）二、應(yīng)付帳齡分析表1）根據(jù)輸入條件中輸入的供應(yīng)商（LIFNR）為關(guān)鍵值到BSIK表中找相應(yīng)的憑證編碼（BELNR）和行項(xiàng)目（BUZEI），特殊G/L標(biāo)識(UMSKZ)為F的憑證不取。2）再根據(jù)輸入條件中輸入的供應(yīng)商（LIFNR）為關(guān)鍵值到BSAK表中找清賬日期（AUGDT）大于屏幕選擇日期且過賬日期（BUDAT）小于或等于選擇屏幕日期的憑證編號（BELNR）和行項(xiàng)目（BUZEI）3）以找到的憑證編碼（BELNR）和行項(xiàng)目（BUZEI）為關(guān)鍵值到FAGLFLEXA表中找憑證編碼（DOCNR）和行項(xiàng)目（BUZEI）對應(yīng)的利潤中心（PRCTR）。4)在FAGLFLEXA表取憑證編碼（DOCNR）、行項(xiàng)目（BUZEI）和科目編號（RACCT）字段相同的明細(xì)數(shù)據(jù)數(shù)據(jù)，（貸方（H）本位幣金額(HSL)的合計(jì)加上借方（S）本位幣金額(HSL)合計(jì)差額）×（－1）列示為余額。如余額為零該條不顯示。其中，對于員工應(yīng)用借方（S）本位幣金額(HSL)合計(jì)加上貸方（H）本位幣金額(HSL)的合計(jì)差額列示為未到期余額。5)以找到憑證編碼（DOCNR）和憑證行項(xiàng)目（BUZEI）為關(guān)鍵值到BSIK和BSAK表取憑證編碼（BELNR）、行項(xiàng)目（BUZEI）字段相同的明細(xì)數(shù)據(jù)數(shù)據(jù)，用輸入條件中輸入的過賬日期（BUDAT）減付款基準(zhǔn)日期（ZFBDT）減天數(shù)1（ZBD1T）所得的值，與天數(shù)1（ZBD1T）比較，選擇值小于或等于0時的憑證編碼（BELNR）、行項(xiàng)目（BUZEI）；再以找到的這些憑證編號到FAGLFLEXA表取憑證編碼（DOCNR）、行項(xiàng)目（BUZEI）和科目編號（RACCT）字段相同的明細(xì)數(shù)據(jù)數(shù)據(jù)，用(貸方（H）本位幣金額(DMBTR)合計(jì)加上借方（S）本位幣金額(DMBTR)的合計(jì)差額)×（－1）列示為未到期余額；以此類推其余列的余額。其中，對于員工應(yīng)用借方（S）本位幣金額(HSL)合計(jì)加上貸方（H）本位幣金額(HSL)的合計(jì)差額列示為未到期余額6)根據(jù)輸入條件中輸入的供應(yīng)商（LIFNR）為關(guān)鍵值到LFA1表中找供應(yīng)商（LIFNR）對應(yīng)的名稱（NAME1）樣張：其它內(nèi)容：權(quán)限控制在單一角色控制中查詢ZR_FI_048的權(quán)限，如有此權(quán)限可查詢組織結(jié)構(gòu)值為D300的報(bào)表；在單一角色控制中查詢ZR_FI_049的權(quán)限，如有此權(quán)限可查詢組織結(jié)構(gòu)值為D310的報(bào)表。

第III部分:技術(shù)說明ProgramnameZ_FI_EXEC_YSYF_AGETransactioncodeZFI013AuthorizationObjectZR_FI_048\ZR_FI_049FormFormnameN/AOutputtypeN/AFormroutineN/A程序邏輯：程序邏輯說明及程序邏輯圖選擇屏幕如下：代碼邏輯從ＢＳＩＤ＼ＢＳＡＤ＼ＢＳＩＫ＼ＢＳＯＫ這四個表中取出相應(yīng)的應(yīng)收應(yīng)付賬款金額數(shù)據(jù)，再對取出的數(shù)據(jù)進(jìn)行相應(yīng)的處理，程序的主要框架如下：INITIALIZATION.

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

gs_layout-zebra

=

'X'.

gs_layout-colwidth_optimize

=

'X'.

gs_layout-detail_popup

=

'X'.

gs_layout-get_selinfos

=

'X'.

gs_layout-get_selinfos

=

'X'.

AT

SELECTION-SCREEN.

IF

p_yf

=

'X'

OR

p_yfgr

=

'X'.

PERFORM

frm_check_input.

"檢查權(quán)限

ENDIF.

AT

SELECTION-SCREEN

ON

RADIOBUTTON

GROUP

ra1.

PERFORM

frm_must_check.

"判斷哪些字段為必輸

**

*

START-OF-SELECTION

*

**

START-OF-SELECTION.

PERFORM

frm_calu_days."計(jì)算相應(yīng)的天數(shù)

PERFORM

frm_getdata.

PERFORM

frm_showalv.FRM_CHECK_INPUT:用來檢查輸入數(shù)據(jù)的合法性，要求應(yīng)付賬款（供應(yīng)商）的選擇界面輸入供應(yīng)商的代碼，應(yīng)付賬款（個人）的選擇界面輸入相應(yīng)個人的代碼;DATA:

BEGIN

OF

lt_lifnr

OCCURS

0,

lifnr

TYPE

lifnr,

ktokk

TYPE

ktokk,

END

OF

lt_lifnr.

IF

p_yf

=

'X'.

IF

s_lifnr

<>

''.

SELECT

lifnr

ktokk

INTO

TABLE

lt_lifnr

FROM

lfa1

WHERE

lifnr

IN

s_lifnr.

READ

TABLE

lt_lifnr

WITH

KEY

ktokk

=

'Z900'.

IF

sy-subrc

=

0.

MESSAGE

e003(z_1)

WITH

lt_lifnr-lifnr

'在賬戶組Z900中，請重新輸入'.

ENDIF.

ENDIF.

IF

p_yfgr

=

'X'.

IF

s_person

IS

NOT

INITIAL.

SELECT

lifnr

ktokk

INTO

TABLE

lt_lifnr

FROM

lfa1

WHERE

lifnr

IN

s_person.

LOOP

AT

lt_lifnr

WHERE

ktokk

<>

'Z900'.

MESSAGE

e003(z_1)

WITH

lt_lifnr-lifnr

'在賬戶組不Z900中，請重新輸入'.

ENDLOOP.

ENDIF.

ENDIF.

ENDIF.其中frm_calu_days是計(jì)算相應(yīng)的賬齡日期，計(jì)算出距離選擇屏幕過賬日期為30天、60天、90天、180天、365天、2年、3年、5年的日期,根據(jù)計(jì)算出來的日期，再將相應(yīng)的數(shù)據(jù)存放在相應(yīng)賬齡的位置。Frm_getdata這個數(shù)據(jù)主要邏輯是，根據(jù)用戶所選擇單選按扭是應(yīng)收客戶還是應(yīng)付個人或者應(yīng)付供應(yīng)商，來分別進(jìn)行取數(shù)邏輯判斷；如果是應(yīng)付供應(yīng)商的話，從bsik和BSAK中取出相應(yīng)的供應(yīng)商應(yīng)付賬款的會計(jì)科目，同時內(nèi)連接faglflexa取出利潤中心及相應(yīng)憑證行項(xiàng)目的金額，都存放在GT_BSID的內(nèi)表當(dāng)中去；如果是應(yīng)付個人，也是從從bsik和BSAK中取出相應(yīng)的個人應(yīng)付賬款的會計(jì)科目，同時內(nèi)連接faglflexa取出利潤中心及相應(yīng)憑證行項(xiàng)目的金額，都存放在GT_BSID的內(nèi)表當(dāng)中去；如果是應(yīng)收客戶的話，就從BSID和BSAD的兩個表中取出相應(yīng)應(yīng)收客戶的相應(yīng)數(shù)據(jù)，同時內(nèi)連接faglflexa取出利潤中心及相應(yīng)憑證行項(xiàng)目的金額，都存放在GT_BSID的內(nèi)表當(dāng)中去；

IF

p_ys

=

'X'.

SELECT

a~belnr"憑證號

a~buzei"行項(xiàng)目

kunnr

"客戶號

hkont

"科目號

b~prctr

shkzg

"借貸標(biāo)識

b~hsl

AS

dmbtr

"金額

zfbdt

zbd1t

FROM

bsid

AS

a

INNER

JOIN

faglflexa

AS

b

ON

b~ryear

=

a~gjahr

AND

b~rbukrs

=

a~bukrs

AND

b~belnr

=

a~belnr

AND

b~buzei

=

a~buzei

INTO

TABLE

gt_bsid

WHERE

bukrs

=

p_bukrs

AND

kunnr

IN

s_kunnr

AND

hkont

IN

s_hkont

AND

a~budat

<=

p_budat.

SELECT

a~belnr"憑證號

a~buzei"行項(xiàng)目

kunnr

"客戶號

hkont

"科目號

b~prctr

shkzg

"借貸標(biāo)識

b~hsl

AS

dmbtr

zfbdt

zbd1t

FROM

bsad

AS

a

INNER

JOIN

faglflexa

AS

b

ON

b~ryear

=

a~gjahr

AND

b~rbukrs

=

a~bukrs

AND

b~belnr

=

a~belnr

AND

b~buzei

=

a~buzei

APPENDING

TABLE

gt_bsid

WHERE

bukrs

=

p_bukrs

AND

kunnr

IN

s_kunnr

AND

hkont

IN

s_hkont

AND

a~budat

<=

p_budat

AND

augdt

>=

p_budat.

ENDIF.

IF

p_yf

=

'X'.

SELECT

a~belnr"憑證號

a~buzei"行項(xiàng)目

a~lifnr

AS

kunnr

"客戶號

hkont

"科目號

b~prctr

shkzg

"借貸標(biāo)識

hsl

AS

dmbtr

"金額

zfbdt

zbd1t

c~name1

FROM

bsik

AS

a

INNER

JOIN

faglflexa

AS

b

ON

b~ryear

=

a~gjahr

AND

b~rbukrs

=

a~bukrs

AND

b~belnr

=

a~belnr

AND

b~buzei

=

a~buzei

INNER

JOIN

lfa1

AS

c

ON

c~lifnr

=

a~lifnr

INTO

TABLE

gt_bsid

WHERE

bukrs

=

p_bukrs

AND

a~lifnr

IN

s_lifnr

AND

hkont

IN

s_hkont

AND

a~budat

<=

p_budat

AND

c~ktokk

<>

'Z900'.

SELECT

a~belnr"憑證號

a~buzei"行項(xiàng)目

a~lifnr

AS

kunnr

hkont

"科目號

b~prctr

shkzg

"借貸標(biāo)識

b~hsl

AS

dmbtr

zfbdt

zbd1t

c~name1

FROM

bsak

AS

a

INNER

JOIN

faglflexa

AS

b

ON

b~ryear

=

a~gjahr

AND

b~rbukrs

=

a~bukrs

AND

b~belnr

=

a~belnr

AND

b~buzei

=

a~buzei

INNER

JOIN

lfa1

AS

c

ON

c~lifnr

=

a~lifnr

APPENDING

TABLE

gt_bsid

WHERE

bukrs

=

p_bukrs

AND

a~lifnr

IN

s_lifnr

AND

hkont

IN

s_hkont

AND

a~budat

<=

p_budat

AND

augdt

>=

p_budat

AND

umskz

<>

'F'

AND

c~ktokk

<>

'Z900'.

ENDIF.

IF

p_yfgr

=

'X'.

SELECT

a~belnr"憑證號

a~buzei"行項(xiàng)目

a~lifnr

AS

kunnr

hkont

"科目號

b~prctr

shkzg

"借貸標(biāo)識

b~hsl

AS

dmbtr

zfbdt

zbd1t

c~name1

FROM

bsik

AS

a

INNER

JOIN

faglflexa

AS

b

ON

b~ryear

=

a~gjahr

AND

b~rbukrs

=

a~bukrs

AND

b~belnr

=

a~belnr

AND

b~buzei

=

a~buzei

INNER

JOIN

lfa1

AS

c

ON

c~lifnr

=

a~lifnr

INTO

TABLE

gt_bsid

WHERE

bukrs

=

p_bukrs

AND

a~lifnr

IN

s_person

AND

hkont

IN

s_hkont

AND

a~budat

<=

p_budat

AND

c~ktokk

=

'Z900'.

SELECT

a~belnr"憑證號

a~buzei"行項(xiàng)目

a~lifnr

"客戶號

hkont

"科目號

b~prctr

shkzg

"借貸標(biāo)識

b~hsl

AS

dmbtr

zfbdt

zbd1t

c~name1

FROM

bsak

AS

a

INNER

JOIN

faglflexa

AS

b

ON

b~ryear

=

a~gjahr

AND

b~rbukrs

=

a~bukrs

AND

b~belnr

=

a~belnr

AND

b~buzei

=

a~buzei

INNER

JOIN

lfa1

AS

c

ON

c~lifnr

=

a~lifnr

APPENDING

TABLE

gt_bsid

WHERE

bukrs

=

p_bukrs

AND

a~lifnr

IN

s_person

AND

hkont

IN

s_hkont

AND

a~budat

<=

p_budat

AND

augdt

>=

p_budat

AND

umskz

<>

'F'

AND

c~ktokk

=

'Z900'.

ENDIF.得到相應(yīng)的會計(jì)憑證對應(yīng)的金額后，然后再根據(jù)過賬日期，計(jì)算得出該筆賬款的賬齡，將相應(yīng)的數(shù)據(jù)存在相應(yīng)賬齡的列中，其中計(jì)算應(yīng)付客戶賬款時，在累加結(jié)果之間，乘以一個副1.其中代碼如下：LOOP

AT

gt_bsid

INTO

gs_bsid.

CLEAR

gs_out.

gs_out-hkont

=

gs_bsid-hkont

.

gs_out-prctr

=

gs_bsid-prctr.

lv_days

=

gs_bsid-zfbdt

+

gs_bsid-zbd1t.

*

lv_bj

=

p_budat

-

68

+

1.

"末清數(shù)據(jù)

IF

lv_days

>=

p_budat.

IF

gs_bsid-shkzg

=

'S'.

gs_out-wq

=

gs_out-wq

+

gs_bsid-dmbtr.

ENDIF.

IF

gs_bsid-shkzg

=

'H'.

gs_out-wq

=

gs_out-wq

+

gs_bsid-dmbtr.

ENDIF.

"0-30天

ELSEIF

gv_30

<

lv_days

AND

lv_days

<=

p_budat.

IF

gs_bsid-shkzg

=

'S'.

gs_out-30d

=

gs_out-30d

+

gs_bsid-dmbtr.

ENDIF.

IF

gs_bsid-shkzg

=

'H'.

gs_out-30d

=

gs_out-30d

+

gs_bsid-dmbtr.

ENDIF.

"31-60天

ELSEIF

gv_60

<

lv_days

AND

lv_days

<=

gv_30.

IF

gs_bsid-shkzg

=

'S'.

gs_out-60d

=

gs_out-60d

+

gs_bsid-dmbtr.

ENDIF.

IF

gs_bsid-shkzg

=

'H'.

gs_out-60d

=

gs_out-60d

+

gs_bsid-dmbtr.

ENDIF.

"61-90

ELSEIF

gv_90

<

lv_days

AND

lv_days

<=

gv_60.

IF

gs_bsid-shkzg

=

'S'.

gs_out-90d

=

gs_out-90d

+

gs_bsid-dmbtr.

ENDIF.

IF

gs_bsid-shkzg

=

'H'.

gs_out-90d

=

gs_out-90d

+

gs_bsid-dmbtr.

ENDIF.

"91-180

ELSEIF

gv_180

<

lv_days

AND

lv_days

<=

gv_90.

IF

gs_bsid-shkzg

=

'S'.

gs_out-180d

=

gs_out-180d

+

gs_bsid-dmbtr.

ENDIF.

IF

gs_bsid-shkzg

=

'H'.

gs_out-180d

=

gs_out-180d

+

gs_bsid-dmbtr.

ENDIF.

"180-365

ELSEIF

gv_365

<

lv_days

AND

lv_days

<=

gv_180.

IF

gs_bsid-shkzg

=

'S'.

gs_out-365d

=

gs_out-365d

+

gs_bsid-dmbtr.

ENDIF.

IF

gs_bsid-shkzg

=

'H'.

gs_out-365d

=

gs_out-365d

+

gs_bsid-dmbtr.

ENDIF.

"1-2年

ELSEIF

gv_2y

<

lv_days

AND

lv_days

<=

gv_365.

IF

gs_bsid-shkzg

=

'S'.

gs_out-2y

=

gs_out-2y

+

gs_bsid-dmbtr.

ENDIF.

IF

gs_bsid-shkzg

=

'H'.

gs_out-2y

=

gs_out-2y

+

gs_bsid-dmbtr.

ENDIF.

"2-3年

ELSEIF

gv_3y

<

lv_days

AND

lv_days

<=

gv_2y.

IF

gs_bsid-shkzg

=

'S'.

gs_out-3y

=

gs_out-3y

+

gs_bsid-dmbtr.

ENDIF.

IF

gs_bsid-shkzg

=

'H'.

gs_out-3y

=

gs_out-3y

+

gs_bsid-dmbtr.

ENDIF.

"3-5年

ELSEIF

gv_5y

<

lv_days

AND

lv_days

<=

gv_3y.

IF

gs_bsid-shkzg

=

'S'.

gs_out-5y

=

gs_out-5y

+

gs_bsid-dmbtr.

ENDIF.

IF

gs_bsid-shkzg

=

'H'.

gs_out-5y

=

gs_out-5y

+

gs_bsid-dmbtr.

ENDIF.

"5年以上

ELSE.

IF

gs_bsid-shkzg

=

'S'.

gs_out-5m

=

gs_out-5m

+

gs_bsid-dmbtr.

ENDIF.

IF

gs_bsid-shkzg

=

'H'.

gs_out-5m

=

gs_out-5m

+

gs_bsid-dmbtr.

ENDIF.

ENDIF.

gs_out-ye

=

gs_out-wq

+

gs_out-30d

+

gs_out-60d

+

gs_out-90d

+

gs_out-180d

+

gs_out-365d

+

gs_out-2y

+

gs_out-3y

+

gs_out-5y

+

gs_out-5m.

"根據(jù)選擇是否應(yīng)收還是應(yīng)付來進(jìn)行判斷

IF

p