現金流量表

?

用戶輸入：會計年度，會計期間，公司的代碼。

顯示現金流量表

?

程序邏輯：

1、? 根據會計年度，會計期間，公司代碼在透明表bkpf選出憑證號放入itab_bkpf內表里面

2、?根據會計年度，公司代碼在透明表bseg選出憑證號、原因碼、會計科目放入itab_bseg內表里面

3、? 循環itab_bseg ，在循環里面以itab_bseg-belnr(憑證號)查找itab_bkpf 如果沒有則在itab_bseg里面刪除該行（如果itab_bkpf沒有的憑證號，則在itab_bseg里面刪除，因為透明表里面沒有會計期間，通過賽選，能完成用戶會計期間的限定）。

4、? 通過循環itab_bseg 完成對有原因代碼科目的賽選。循環itab_bseg,如果itab_bseg里面原因代碼為空，則刪除該行。這時剩下的數據這為用戶選定范圍內有原因代碼的數據了。

5、? 循環itab_bseg，利用函數將相同原因代碼的會計科目的起初余額，與期末余額累加后放入內表itab.循環結束后itab里面則為有原因代碼，原因代碼在用戶選擇范圍內的起初與期末余額。

6、? 現金流量表的顯示，利用原因碼查詢itab然后得出起初與期末余額放入alv現實內表itab_alv. 設置alv顯示控制,調用函數reuse_alv_first_display顯示數據。

?

?

執行效果

?

程序代碼

*&---------------------------------------------------------------------*
*&?Report??ZFI005_1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT??ZFI005_1.

TYPE-POOLS:?SLIS.
TABLES:?BSEG,
????????BKPF.
*fieldcat
DATA:?FIELDCATES?TYPE?SLIS_T_FIELDCAT_ALV,
??????FIELDCATE?LIKE?LINE?OF?FIELDCATES.
*layout
DATA:?GS_LAYOUT?TYPE?SLIS_LAYOUT_ALV.

DATA:?BAPI_TAB?TYPE?TABLE?OF?BAPI3006_4?WITH?HEADER?LINE.
DATA?CURR_TYPE?LIKE?BAPI3006_5-CURR_TYPE?VALUE?'10'.

DATA:?BEGIN?OF?ITAB_BKPF?OCCURS?0?,
?????BUKRS?TYPE?BSEG-BUKRS?,
?????BELNR?TYPE?BSEG-BELNR?,
?????GJAHR?TYPE?BSEG-GJAHR?,
?????MONAT?TYPE?BKPF-MONAT,
?????END?OF?ITAB_BKPF.

DATA:?ITAB_BKPF1?LIKE?TABLE?OF?ITAB_BKPF.

DATA:?BEGIN?OF?ITAB?OCCURS?0?,
?????BUKRS?TYPE?BSEG-BUKRS?,
?????BELNR?TYPE?BSEG-BELNR?,
?????GJAHR?TYPE?BSEG-GJAHR?,
?????RSTGR?TYPE?BSEG-RSTGR?,
?????TXT20?TYPE?T053S-TXT20?,
?????WRBTR?TYPE?BSEG-WRBTR,
?????SHKZG?TYPE?BSEG-SHKZG,
?????END?OF?ITAB.

DATA:?BEGIN?OF?ITAB_ALV?OCCURS?0,
?????RSTGR?TYPE?BSEG-RSTGR?,
?????WRBTR1?TYPE??C?LENGTH?13,
?????WRBTR?TYPE???C?LENGTH?13,
?????TXT20???TYPE?T053S-TXT20,
?????ROW?TYPE?I?VALUE?1,
?????END?OF?ITAB_ALV.

DATA:?BEGIN?OF?ITAB_LANG?OCCURS?0,
????????RSTGR???TYPE?T053S-RSTGR,
????????TXT20???TYPE?T053S-TXT20,
??????END?OF?ITAB_LANG.
DATA:?ITAB1??LIKE?TABLE?OF?ITAB,
?????GJAHRS?LIKE?BSEG-GJAHR.

*?科目計算
DATA:??BEGIN?OF?ITAB_SAKNR??OCCURS?0?,
???????SAKNR?TYPE?SKA1-SAKNR,
??????END?OF?ITAB_SAKNR.

SELECTION-SCREEN?BEGIN?OF?BLOCK?B1?WITH?FRAME?TITLE?TEXT-001.
PARAMETER??S_BUKRS??TYPE?BSEG-BUKRS?DEFAULT?'1200'.
SELECT-OPTIONS:?S_MONAT?FOR?BKPF-MONAT.
PARAMETER??S_GJAHR?TYPE??BSEG-GJAHR.

SELECTION-SCREEN?END?OF?BLOCK?B1.

START-OF-SELECTION.
*獲取會計區間數據
*??本年數據
??FREE:?ITAB_BKPF[],
???????ITAB_BKPF1,
???????ITAB[],
???????ITAB1.
??SELECT?*?FROM?BKPF?INTO?CORRESPONDING?FIELDS?OF?TABLE?ITAB_BKPF
?????????WHERE???BUKRS?=?S_BUKRS
?????????AND????GJAHR?=?S_GJAHR
?????????AND????MONAT?IN?S_MONAT.
??SORT??ITAB_BKPF.
??DELETE?ADJACENT?DUPLICATES?FROM?ITAB_BKPF.
*??上年數據
??GJAHRS?=?S_GJAHR?-?1.
??SELECT?*?FROM?BKPF?INTO?CORRESPONDING?FIELDS?OF?TABLE?ITAB_BKPF1
?????????WHERE???BUKRS?=?S_BUKRS
?????????AND????GJAHR?=?GJAHRS
?????????AND????MONAT?IN?S_MONAT.
??SORT??ITAB_BKPF1?.
??DELETE?ADJACENT?DUPLICATES?FROM?ITAB_BKPF1?.

*獲取顯示數據
*?本年數據
??SELECT?A~BUKRS?A~GJAHR?A~BELNR?A~WRBTR?A~RSTGR?A~SHKZG??FROM?BSEG?AS?A
??????????INTO?CORRESPONDING?FIELDS?OF?TABLE?ITAB
??????????WHERE???BUKRS?=?S_BUKRS
??????????AND????GJAHR?=?S_GJAHR?.
??.
*???上年數據

??SELECT?A~BUKRS?A~GJAHR?A~BELNR?A~WRBTR??A~RSTGR?A~SHKZG?FROM?BSEG?AS?A
??????????INTO?CORRESPONDING?FIELDS?OF?TABLE?ITAB1
????????WHERE???BUKRS?=?S_BUKRS
???????AND????GJAHR?=?GJAHRS?.

*?獲取項目描述
??SELECT?*?FROM?T053S?INTO?CORRESPONDING?FIELDS?OF?TABLE?ITAB_LANG
?????????FOR?ALL?ENTRIES?IN?ITAB
?????????WHERE?RSTGR?=?ITAB-RSTGR
?????????AND?BUKRS??=?ITAB-BUKRS
?????????AND?SPRAS?=?SY-LANGU.
*??對數據進行處理

*獲得科目數據
??SELECT?SAKNR?FROM?SKA1?INTO?CORRESPONDING?FIELDS?OF?TABLE??ITAB_SAKNR
???????????WHERE?KTOPL?=?'BONK'
???????????AND?SAKNR?LIKE?'1001%'
???????????OR??SAKNR?LIKE?'1002%'
???????????.

??SORT?ITAB_SAKNR.
??DELETE?ADJACENT?DUPLICATES?FROM?ITAB_SAKNR.

??SORT:?ITAB?.
??SORT??ITAB1.
??DELETE?ADJACENT?DUPLICATES?FROM?ITAB1?.
??DELETE?ADJACENT?DUPLICATES?FROM?ITAB?.

??LOOP?AT?ITAB.
????READ?TABLE?ITAB_LANG?WITH?KEY?RSTGR?=?ITAB-RSTGR.
????IF?SY-SUBRC?=?0?.
??????ITAB-TXT20?=?ITAB_LANG-TXT20.
??????MODIFY?ITAB.
????ELSE?.
??????DELETE?ITAB.
????ENDIF.
????READ?TABLE?ITAB_BKPF?WITH?KEY?BELNR?=?ITAB-BELNR.
????IF?SY-SUBRC?<>?0.
??????DELETE?ITAB.
????ENDIF.

??ENDLOOP.

??LOOP?AT?ITAB1?INTO?ITAB.
????READ?TABLE?ITAB_LANG?WITH?KEY?RSTGR?=?ITAB-RSTGR.
????IF?SY-SUBRC?=?0?.
??????ITAB-TXT20?=?ITAB_LANG-TXT20.
??????MODIFY?ITAB1?FROM?ITAB.
????ELSE?.
??????DELETE?ITAB1?WHERE?RSTGR?=?ITAB-RSTGR.
????ENDIF.

????READ?TABLE?ITAB_BKPF?WITH?KEY?BELNR?=?ITAB-BELNR.
????IF?SY-SUBRC?<>?0.
??????DELETE?ITAB1?WHERE?BELNR?=?ITAB-BELNR.
????ENDIF.
??ENDLOOP.

*設置插入marco
??DEFINE?HONG1.
????CLEAR?ITAB_ALV.
????ITAB_ALV-WRBTR?=?&1.
????ITAB_ALV-WRBTR1?=?&2.
????ITAB_ALV-TXT20?=??&3?.
????ITAB_ALV-ROW?=??&4?.
????APPEND?ITAB_ALV.
??END-OF-DEFINITION.

*?設置科目
??HONG1?:??''?''?'一、經營活動生產的現金流量'??1?,
??????????''?''?'二、投資活動產生的現金流量：'?12?,
??????????''?''??'三、籌資活動產生的現金流量：'?25?,
??????????'0'?'0'?'四、匯率變動對現金的影響'??35?.

??PERFORM??GETDATA??USING?:?'??銷售商品，提供勞務收到的現金'????2??'A01',
????????????????????????????'??收到的稅費返還'?????????????????3??'A02',
????????????????????????????'??收到其他與經營活動相關的現金'????4??'A03',
????????????????????????????'購買商品、接受勞務支付的現金'??????6??'A04',
????????????????????????????'支付給職工以及為職工支付的現金'????7??'A05',
????????????????????????????'支付的各項稅費'???????????????????8??'A06',
????????????????????????????'支付其他與經營活動有關的現金'??????9??'A07',
????????????????????????????'收回投資收到的現金'???????????????13??'B01',
????????????????????????????'取得投資收益收到的現金'???????????14??'B03',
????????????????????????????'處置固定資產、無形資產和其他長期資產收回的現金凈額'?15??'B04',
????????????????????????????'處置子公司及其他營業單位收到的現金凈額'????????????16??'B02',
????????????????????????????'收到其他與投資活動有關的現金'??????????????????????17??'B05',
????????????????????????????'購建固定資產、無形資產和其他長期資產支付的現金'?????19??'B06',
????????????????????????????'投資支付的現金'???????????????????????????????????20??'B07',
????????????????????????????'取得子公司及其他營業單位支付的現金凈額'????????????21???'B08',
????????????????????????????'支付其他與投資活動有關的現金'?????????????????????22???'B09',

????????????????????????????'取得借款收到的現金'???????????????????????????????27??'C03',
????????????????????????????'收到其他與籌資活動有關的現金'??????????????????????28??'C04',
????????????????????????????'償還債務支付的現金'???????????????????????????????30??'C05',
????????????????????????????'分配股利、利潤或償付利息支付的現金'????????????????31??'C06',
????????????????????????????'支付其他與籌資活動有關的現金'??????????????????????32??'C08'.








??PERFORM?GETSUM?USING?:???????'經營活動現金入小計'??5?2??4?,

?????????????????????????????'經營活動現金流出小計'?10?6?9?,
?????????????????????????????'投資活動現金流入小計'?18?13?17,
????????????????????????????'投資活動現金流出小計'?23??19?22,
?????????????????????????????'籌資活動現金流入小計'?29?26?28??,
?????????????????????????????'籌資活動現金流出小計'?33?30?32??.
*???????????????????????????''??''?,
*???????????????????????????''??''?,
*???????????????????????????''??''?,

??PERFORM?REMOVE?USING:?'經營活動產生的現金流量凈額'?11?5?10?,
???????????????????????'投資活動產生的現金流量凈額'?24?18?23,
???????????????????????'籌資活動產生的現金流量凈額'?34?29?33.

*??????特殊處理

*???'吸收投資收到的現金'?26'C01',
??PERFORM?GETC12.
??PERFORM?DO36.
??PERFORM?DO37.
??PERFORM?GETSUM?USING:?????'六、期末現金及現金等價物余額'??38?36??37?.

*alv書設置
??DEFINE?HONG.
????FIELDCATE-COL_POS?=?&1.
????FIELDCATE-FIELDNAME?=?&2.
????FIELDCATE-SELTEXT_M?=?&3.
????APPEND?FIELDCATE?TO?FIELDCATES.
??END-OF-DEFINITION.
??HONG:??1?'TXT20'??'項目',
????????2??'ROW'??'行次',
????????3??'WRBTR'??'本年利潤',
????????4??'WRBTR1'?'上年利潤'.


??GS_LAYOUT-COLWIDTH_OPTIMIZE?=??'X'.
??GS_LAYOUT-ZEBRA?=?'X'.
??SORT?ITAB_ALV?BY?ROW.
??CALL?FUNCTION?'REUSE_ALV_GRID_DISPLAY'
????EXPORTING
??????IT_FIELDCAT?=?FIELDCATES
??????IS_LAYOUT???=?GS_LAYOUT
????TABLES
??????T_OUTTAB????=?ITAB_ALV.

*&---------------------------------------------------------------------*
*&?????Form??getdata
*&---------------------------------------------------------------------*
*??????text
*----------------------------------------------------------------------*
*?????-->FNAME?????text
*?????-->POS???????text
*?????-->F_RSTGR???text
*----------------------------------------------------------------------*
FORM?GETDATA?USING??FNAME?TYPE?C
????????????????????POS????TYPE?I
????????????????????F_RSTGR?TYPE?BSEG-RSTGR.

??DATA:?WRBTR_J?TYPE?BSEG-WRBTR?VALUE?0?,
?????????WRBTR_D?TYPE?BSEG-WRBTR?VALUE?0?,

??WRBTR1_J?TYPE?BSEG-WRBTR?VALUE?0?,
?????????WRBTR1_D?TYPE?BSEG-WRBTR?VALUE?0.
??CLEAR?ITAB_ALV.

??LOOP?AT?ITAB??WHERE?RSTGR?=?F_RSTGR.
????IF?ITAB-SHKZG?=?'S'.
??????WRBTR_J?=?WRBTR_J?+?ITAB-WRBTR.
????ELSEIF?ITAB-SHKZG?=?'H'.
??????WRBTR_D?=?WRBTR_D?=?ITAB-WRBTR.
????ENDIF.
??ENDLOOP.

??LOOP?AT?ITAB1?INTO?ITAB??WHERE?RSTGR?=?F_RSTGR.
????IF?ITAB-SHKZG?=?'S'.
??????WRBTR1_J?=?WRBTR1_J?+?ITAB-WRBTR.
????ELSEIF?ITAB-SHKZG?=?'H'.
??????WRBTR1_D?=?WRBTR1_D?=?ITAB-WRBTR.
????ENDIF.
??ENDLOOP.

??ITAB_ALV-WRBTR?=?WRBTR_J?-?WRBTR_D?.
??ITAB_ALV-WRBTR1?=?WRBTR1_J?-?WRBTR1_D.
??ITAB_ALV-TXT20?=?FNAME.
??ITAB_ALV-ROW?=?POS.
??APPEND?ITAB_ALV.
ENDFORM.???????????????????"getdata

*&---------------------------------------------------------------------*
*&?????Form??getsun
*&---------------------------------------------------------------------*
*??????text
*----------------------------------------------------------------------*
*?????-->FNAME?????text
*?????-->POS???????text
*?????-->LOW???????text
*?????-->HIGHT?????text
*----------------------------------------------------------------------*
FORM?GETSUM?USING?FNAME?TYPE?C
????????????????POS?TYPE?I
????????????????LOW?TYPE?I
????????????????HIGHT?TYPE?I.
??DATA:?WRBTR?TYPE?BSEG-WRBTR?VALUE?0?,
???????WRBTR1?TYPE?BSEG-WRBTR?VALUE?0.
??DATA:?COUNT?TYPE?I,
???????COUNT_LOOP?TYPE?I.

??COUNT?=?HIGHT?-?LOW?+?1?.
??COUNT_LOOP??=?LOW.
??DO?COUNT?TIMES.
????READ?TABLE?ITAB_ALV?WITH?KEY?ROW?=?COUNT_LOOP.
????IF?SY-SUBRC?=?0?.
??????WRBTR?=?WRBTR?+?ITAB_ALV-WRBTR.
??????WRBTR1?=?WRBTR1?+?ITAB_ALV-WRBTR1.
????ENDIF.
????COUNT_LOOP?=?COUNT_LOOP?+?1.
??ENDDO.

??ITAB_ALV-WRBTR?=?WRBTR.
??ITAB_ALV-WRBTR1?=?WRBTR1.
??ITAB_ALV-TXT20?=?FNAME.
??ITAB_ALV-ROW?=?POS.
??APPEND?ITAB_ALV.
ENDFORM.???????????????????"getsun

*&---------------------------------------------------------------------*
*&??????Form??remove
*&---------------------------------------------------------------------*
*???????text
*----------------------------------------------------------------------*
*??????-->FNAME??????text
*??????-->POS????????text
*??????-->LOW????????text
*??????-->HIGHT??????text
*----------------------------------------------------------------------*
FORM?REMOVE?USING?FNAME?TYPE?C
????????????????POS?TYPE?I
????????????????LOW?TYPE?I
????????????????HIGHT?TYPE?I.
??DATA:?MAX?TYPE?BSEG-WRBTR,
???????MAX1?TYPE?BSEG-WRBTR,
???????MIN?LIKE?MAX,
???????MIN1?LIKE?MAX.

??READ?TABLE?ITAB_ALV?WITH?KEY?ROW?=?LOW.
??IF?SY-SUBRC?=?0?.
????MAX?=?ITAB_ALV-WRBTR?.
????MAX1?=?ITAB_ALV-WRBTR1.
??ENDIF.

??READ?TABLE?ITAB_ALV?WITH?KEY?ROW?=?HIGHT.
??IF?SY-SUBRC?=?0?.
????MIN?=?ITAB_ALV-WRBTR?.
????MIN1?=?ITAB_ALV-WRBTR1.
??ENDIF.

??ITAB_ALV-WRBTR?=??MAX?-?MIN.
??ITAB_ALV-WRBTR1?=??MAX1?-?MIN1.
??ITAB_ALV-TXT20?=?FNAME.
??ITAB_ALV-ROW?=?POS.
??APPEND?ITAB_ALV.
ENDFORM.????????????????????"remove

*&---------------------------------------------------------------------*
*&??????Form??getc12
*&---------------------------------------------------------------------*
*???????text
*----------------------------------------------------------------------*
FORM?GETC12.
??DATA:??WRBTR?TYPE?BSEG-WRBTR?VALUE?0?,
????????WRBTR1?TYPE?BSEG-WRBTR?VALUE?0.
??CLEAR?ITAB_ALV.

??LOOP?AT?ITAB??WHERE?RSTGR?=?'C01'?OR?RSTGR?='C02'.
????WRBTR?=?WRBTR?+?ITAB-WRBTR.
??ENDLOOP.

??LOOP?AT?ITAB1?INTO?ITAB??WHERE?RSTGR?=?'C01'?OR?RSTGR?=?'C02'.
????WRBTR1?=?WRBTR1?+?ITAB-WRBTR.
??ENDLOOP.

??ITAB_ALV-WRBTR?=?WRBTR.
??ITAB_ALV-WRBTR1?=?WRBTR1.
??ITAB_ALV-TXT20?=?'吸收投資收到的現金'.
??ITAB_ALV-ROW?=?26.
??APPEND?ITAB_ALV.

ENDFORM.????????????????????????????????????????????????????"getc12

*&---------------------------------------------------------------------*
*&??????Form??do36
*&---------------------------------------------------------------------*
*???????text
*----------------------------------------------------------------------*
FORM?DO36.

??DATA:?SUM?TYPE?BSEG-WRBTR,
???????SUM1??TYPE?BSEG-WRBTR.


??LOOP?AT?ITAB_ALV?WHERE??ROW?=?11?OR?ROW?=?24?OR?ROW?=?34?OR?ROW?=?35.


*????write:?itab_alv-row.
????SUM?=??SUM?+?ITAB_ALV-WRBTR?.
????SUM1?=?SUM1?+?ITAB_ALV-WRBTR1.

??ENDLOOP.



??ITAB_ALV-WRBTR?=??SUM?.
??ITAB_ALV-WRBTR1?=??SUM1.
??ITAB_ALV-TXT20?=?'五、現金及現金等價物凈增加額'.
??ITAB_ALV-ROW?=?36.
??APPEND?ITAB_ALV.

ENDFORM.????????????????????????????????????????????????????"do36


*&---------------------------------------------------------------------*
*&??????Form??do37
*&---------------------------------------------------------------------*
*???????text
*----------------------------------------------------------------------*
FORM?DO37.
??DATA:?YU?TYPE?BSEG-WRBTR,
???????YU_S?LIKE?YU,
???????POS?TYPE?I,
???????WA_MONAT?LIKE?LINE?OF?S_MONAT.
??SORT?S_MONAT?BY?LOW?DESCENDING.

??READ?TABLE?S_MONAT?INTO?WA_MONAT?INDEX?1.
??IF?SY-SUBRC?<>?0.
????POS?=?1.
??ELSE.
????POS?=?WA_MONAT-LOW?-?1?.
??ENDIF.
??DATA:?T_GJAHR??LIKE?S_GJAHR,
???????T_GJAHR1?LIKE?S_GJAHR.
??T_GJAHR?=?S_GJAHR.
??IF?POS?=?0.
????T_GJAHR?=?T_GJAHR?-?1.
????POS?=?16.
??ENDIF.
??T_GJAHR1?=?T_GJAHR?-?1.
??LOOP?AT?ITAB_SAKNR.
????FREE?BAPI_TAB[].

????CALL?FUNCTION?'BAPI_GL_ACC_GETPERIODBALANCES'
???????EXPORTING
?????????COMPANYCODE??????????????????=??S_BUKRS
?????????GLACCT???????????????????????=??ITAB_SAKNR-SAKNR
?????????FISCALYEAR???????????????????=??T_GJAHR
?????????CURRENCYTYPE?????????????????=?CURR_TYPE
*???IMPORTING
*????BALANCE_CARRIED_FORWARD??????=
*????RETURN???????????????????????=
????????TABLES
?????????ACCOUNT_BALANCES?????????????=?BAPI_TAB[]
???????????????.

????SORT?BAPI_TAB?BY?FIS_PERIOD.
????READ?TABLE??BAPI_TAB?WITH?KEY??FIS_PERIOD?=?POS.
????IF?SY-SUBRC?=??0.
??????YU?=?YU?+?BAPI_TAB-PER_SALES.
????ENDIF.

????FREE?BAPI_TAB[].
????CALL?FUNCTION'BAPI_GL_ACC_GETPERIODBALANCES'
????EXPORTING
??????COMPANYCODE??????????????????=?S_BUKRS
??????GLACCT???????????????????????=?ITAB_SAKNR-SAKNR
??????FISCALYEAR???????????????????=?T_GJAHR1
??????CURRENCYTYPE?????????????????=?CURR_TYPE
*???IMPORTING
*????BALANCE_CARRIED_FORWARD??????=
*????RETURN???????????????????????=
?????TABLES
??????ACCOUNT_BALANCES?????????????=?BAPI_TAB[]
????????????.

????READ?TABLE??BAPI_TAB?WITH?KEY?FIS_PERIOD?=?POS.
????IF?SY-SUBRC?=?0.
??????YU_S?=?YU_S?+?BAPI_TAB-PER_SALES.
????ENDIF.


??ENDLOOP.
??ITAB_ALV-WRBTR?=??YU?.
??ITAB_ALV-WRBTR1?=??YU_S.
??ITAB_ALV-TXT20?=?'加：期初現金及現金等價物余額'.
??ITAB_ALV-ROW?=?37.
??APPEND?ITAB_ALV.

ENDFORM.????????????????????????????????????????????????????"do37








*


*&---------------------------------------------------------------------*
*&?????Form??do38
*&---------------------------------------------------------------------*
*??????text
*----------------------------------------------------------------------*
*??-->?p1???????text
*??<--?p2???????text
*----------------------------------------------------------------------*
FORM?DO38?.


ENDFORM.????????????????????????????????????????????????????"do38

????????????????????????????????????????????????????????????"?do38

總結

以上是生活随笔為你收集整理的现金流量表整理及开发的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。