***********************************************************************
*程序名稱：SF_DX_FI_CASH????????????????????????????????????????????? *
*&? Report SF_DX_FI_CASH????????????????????????????????????????????? *
*&? 財務現金流量表??????????????????????????????????????????????????? *
*程序目的：?????????????????????????????????????????????????????????? *
*使用變式：?????????????????????????????????????????????????????????? *
*需求文檔：?????????????????????????????????????????????????????????? *
*開發人：SUNFENG????????????????????????????????????????????????????? *
*開始時間：????????????? 完成時間：2007/3/07??? 傳輸請求號：????????? *
*程序修改時間：????????? 修改人：2007/6/28??????????????????????????? *
*修改說明???????????????????????????????????????????????????????????? *
***********************************************************************
*修改時間：????????????? 修改傳輸請求號：???????????????????????????? *
*修 改 人：
**???????????????? 年度月余額
**功能模塊名?????????????????? BAPI_GL_GETGLACCPERIODBALANCES
**? 輸入參數??????????????????????? 值
**? COMPANYCODE???????????????????? SH10
**? GLACCT????????????????????????? 10010100
**? FISCALYEAR????????????????????? 2008
**? CURRENCYTYPE??????????????????? 10
**取指定年度余額
**功能模塊名?????????????????? BAPI_GL_GETGLACCBALANCE
**COMPANYCODE???????????????????? SH10
**? GLACCT????????????????????????? 10010100
**? FISCALYEAR????????????????????? 2007
**? CURRENCYTYPE??????????????????? 10
*修改說明：
**FS10N 10010100-- 10090600? 范圍P_HKONT
***********************************************************************
REPORT ZFI005_3
?????? NO STANDARD PAGE HEADING
*?????? MESSAGE-ID 00??? "所使用的MESSAGE
?????? LINE-COUNT 800??? " 每頁報表行數
?????? LINE-SIZE 180?? " 每頁報表寬度
?????? MESSAGE-ID ZDXMESS.
*? TABLE 宣告程序會使用的TABLE
TABLES: BSEG,???????? "會計核算憑證段
??????? BKPF,???????? "會計核算憑證標題
??????? T001,???????? "公司代碼? 可以不用
??????? KNA1,???????? "客戶主文件的一般數據
??????? LFA1,???????? "供應商主數據 (一般地區)
*??????? SKAT,???????? "總帳科目主記錄（科目表：說明）
??????? SKB1,???????? "總帳科目主記錄 (公司代碼)SAKNR? ？？
??????? SKA1,???????? "總帳科目表
??????? T053S.??????? "原因代碼表
TYPE-POOLS:SLIS.
** DATA : 宣告程序所使用的變量及自定型態
DATA:??? W_LOOP LIKE SY-TABIX,????????? "系統字段 SY-TABIX行的索引
??????? Z_MONAT LIKE BKPF-MONAT,???????? "月份
??????? Z_GJAHR LIKE BSEG-GJAHR ,???? "年度
???????? ZFLAG TYPE I,
???????? ZBUTXT LIKE T001-BUTXT.??????? "公司代碼
*???????? zsdate like sy-datum,???????? "當 前日期
****取指定年度余額
DATA:BEGIN OF ITABND OCCURS 0,
????? COMP_CODE?? TYPE??????? BUKRS,???? "公司
????? GL_ACCOUNT? TYPE??????? SAKNR,???? "總帳科目編號
????? FISC_YEAR?? TYPE??????? GJAHR,??? "年度
????? FIS_PERIOD? TYPE??????? MONAT,?? "會計期間
????? DEBITS_PER? TYPE??????? BAPISOLL,? "期間借方發生額
????? CREDIT_PER? TYPE??????? BAPIHABEN, "期間貸方發生額
????? PER_SALES?? TYPE??????? BAPIUMSATZ, "月銷售額
????? BALANCE???? TYPE??????? BAPISALDO,? "帳戶余額
????? CURRENCY??? TYPE??????? WAERS,??????? "貨幣代碼
END OF ITABND.

****取指定年度余額 匯總
DATA:BEGIN OF ITABNDZ OCCURS 0,
????? BALANCE???? TYPE??????? BAPISALDO,? "帳戶余額
END OF ITABNDZ.

****取指定年度月余額
DATA:BEGIN OF ITABYD OCCURS 0,
????? COMP_CODE?? TYPE??????? BUKRS,???? "公司
????? GL_ACCOUNT? TYPE??????? SAKNR,???? "總帳科目編號
????? FISC_YEAR?? TYPE??????? GJAHR,??? "年度
????? FIS_PERIOD? TYPE??????? MONAT,?? "會計期間
????? DEBITS_PER? TYPE??????? BAPISOLL,? "期間借方發生額
????? CREDIT_PER? TYPE??????? BAPIHABEN, "期間貸方發生額
????? PER_SALES?? TYPE??????? BAPIUMSATZ, "月銷售額
????? BALANCE???? TYPE??????? BAPISALDO,? "帳戶余額
????? CURRENCY??? TYPE??????? WAERS,??????? "貨幣代碼
END OF ITABYD.
DATA:BEGIN OF ITABYDZ OCCURS 0,
*????? COMP_CODE?? type??????? BUKRS,???? "公司
*????? FISC_YEAR?? type??????? GJAHR,??? "年度
*????? FIS_PERIOD? type??????? MONAT,?? "會計期間
*????? DEBITS_PER? type??????? BAPISOLL,? "期間借方發生額
*????? CREDIT_PER? type??????? BAPIHABEN, "期間貸方發生額
*????? PER_SALES?? type??????? BAPIUMSATZ, "月銷售額
????? BALANCE???? TYPE??????? BAPISALDO,? "帳戶余額
*????? CURRENCY??? type??????? WAERS,??????? "貨幣代碼
END OF ITABYDZ.

***總帳科目編號
DATA: BEGIN? OF ITABGL OCCURS 0,
????? BUKRS?? LIKE KNB1-BUKRS,??? "公司代碼
*????? BUTXT like T001-BUTXT,? "公司碼或公司的名
????? SAKNR? TYPE??????? SAKNR,???? "總帳科目編號?? "10010100 - GL_ACCOUNT? type??????? SAKNR,
????? ZGJAHR? LIKE BSEG-GJAHR,? "年
????? CURRENCYTYPE(2) TYPE C,
????? END OF ITABGL.
***定義一個全局變量
***DATA? dmbtr.
****按年
DATA: ZDMBTR01 LIKE BSEG-DMBTR,
????? ZDMBTR02 LIKE BSEG-DMBTR,
????? ZDMBTR03 LIKE BSEG-DMBTR,
????? ZDMBTR04 LIKE BSEG-DMBTR,
????? ZDMBTR05 LIKE BSEG-DMBTR,
????? ZDMBTR06 LIKE BSEG-DMBTR,
????? ZDMBTR07 LIKE BSEG-DMBTR,
????? ZDMBTR08 LIKE BSEG-DMBTR,
????? ZDMBTR09 LIKE BSEG-DMBTR,
????? ZDMBTR10 LIKE BSEG-DMBTR,
????? ZDMBTR11 LIKE BSEG-DMBTR,
????? ZDMBTR12 LIKE BSEG-DMBTR,
????? ZDMBTR13 LIKE BSEG-DMBTR,
????? ZDMBTR14 LIKE BSEG-DMBTR,
????? ZDMBTR15 LIKE BSEG-DMBTR,
????? ZDMBTR16 LIKE BSEG-DMBTR,
????? ZDMBTR17 LIKE BSEG-DMBTR,
????? ZDMBTR18 LIKE BSEG-DMBTR,
????? ZDMBTR19 LIKE BSEG-DMBTR,
????? ZDMBTR20 LIKE BSEG-DMBTR,
????? ZDMBTR21 LIKE BSEG-DMBTR,
????? ZDMBTR22 LIKE BSEG-DMBTR,
????? ZDMBTR23 LIKE BSEG-DMBTR,
????? ZDMBTR24 LIKE BSEG-DMBTR,
????? ZDMBTR25 LIKE BSEG-DMBTR,
????? ZDMBTR26 LIKE BSEG-DMBTR,
????? ZDMBTR27 LIKE BSEG-DMBTR,
????? ZDMBTR28 LIKE BSEG-DMBTR,
????? ZDMBTR29 LIKE BSEG-DMBTR,
????? ZDMBTR30 LIKE BSEG-DMBTR,
????? ZDMBTR31 LIKE BSEG-DMBTR,
????? ZDMBTR32 LIKE BSEG-DMBTR,
????? ZDMBTR33 LIKE BSEG-DMBTR,
????? ZDMBTR34 LIKE BSEG-DMBTR,
????? ZDMBTR35 LIKE BSEG-DMBTR,
????? ZDMBTR36 LIKE BSEG-DMBTR,
????? ZDMBTR37 LIKE BSEG-DMBTR,
????? ZDMBTR38 LIKE BSEG-DMBTR,
????? ZDMBTR39 LIKE BSEG-DMBTR,
????? ZDMBTR40 LIKE BSEG-DMBTR,
????? ZDMBTR41 LIKE BSEG-DMBTR,
????? ZDMBTR42 LIKE BSEG-DMBTR,
????? ZDMBTR43 LIKE BSEG-DMBTR,
????? ZDMBTR44 LIKE BSEG-DMBTR,
????? ZDMBTR45 LIKE BSEG-DMBTR,
????? ZDMBTR46 LIKE BSEG-DMBTR,
????? ZDMBTR47 LIKE BSEG-DMBTR,
????? ZDMBTR48 LIKE BSEG-DMBTR,
????? ZDMBTR49 LIKE BSEG-DMBTR,


????? ZDMBTR50 LIKE BSEG-DMBTR,
????? ZDMBTR51 LIKE BSEG-DMBTR,
????? ZDMBTR52 LIKE BSEG-DMBTR,
????? ZDMBTR53 LIKE BSEG-DMBTR,
????? ZDMBTR54 LIKE BSEG-DMBTR,
????? ZDMBTR55 LIKE BSEG-DMBTR,
????? ZDMBTR56 LIKE BSEG-DMBTR,
????? ZDMBTR57 LIKE BSEG-DMBTR,
????? ZDMBTR58 LIKE BSEG-DMBTR,
????? ZDMBTR59 LIKE BSEG-DMBTR,
????? ZDMBTR60 LIKE BSEG-DMBTR,
????? ZDMBTR61 LIKE BSEG-DMBTR.
**? 按月
DATA: ZDMBTRY01 LIKE BSEG-DMBTR,
????? ZDMBTRY02 LIKE BSEG-DMBTR,
????? ZDMBTRY03 LIKE BSEG-DMBTR,
????? ZDMBTRY04 LIKE BSEG-DMBTR,
????? ZDMBTRY05 LIKE BSEG-DMBTR,
????? ZDMBTRY06 LIKE BSEG-DMBTR,
????? ZDMBTRY07 LIKE BSEG-DMBTR,
????? ZDMBTRY08 LIKE BSEG-DMBTR,
????? ZDMBTRY09 LIKE BSEG-DMBTR,
????? ZDMBTRY10 LIKE BSEG-DMBTR,
????? ZDMBTRY11 LIKE BSEG-DMBTR,
????? ZDMBTRY12 LIKE BSEG-DMBTR,
????? ZDMBTRY13 LIKE BSEG-DMBTR,
????? ZDMBTRY14 LIKE BSEG-DMBTR,
????? ZDMBTRY15 LIKE BSEG-DMBTR,
????? ZDMBTRY16 LIKE BSEG-DMBTR,
????? ZDMBTRY17 LIKE BSEG-DMBTR,
????? ZDMBTRY18 LIKE BSEG-DMBTR,
????? ZDMBTRY19 LIKE BSEG-DMBTR,
????? ZDMBTRY20 LIKE BSEG-DMBTR,
????? ZDMBTRY21 LIKE BSEG-DMBTR,
????? ZDMBTRY22 LIKE BSEG-DMBTR,
????? ZDMBTRY23 LIKE BSEG-DMBTR,
????? ZDMBTRY24 LIKE BSEG-DMBTR,
????? ZDMBTRY25 LIKE BSEG-DMBTR,
????? ZDMBTRY26 LIKE BSEG-DMBTR,
????? ZDMBTRY27 LIKE BSEG-DMBTR,
????? ZDMBTRY28 LIKE BSEG-DMBTR,
????? ZDMBTRY29 LIKE BSEG-DMBTR,
????? ZDMBTRY30 LIKE BSEG-DMBTR,
????? ZDMBTRY31 LIKE BSEG-DMBTR,
????? ZDMBTRY32 LIKE BSEG-DMBTR,
????? ZDMBTRY33 LIKE BSEG-DMBTR,
????? ZDMBTRY34 LIKE BSEG-DMBTR,
????? ZDMBTRY35 LIKE BSEG-DMBTR,
????? ZDMBTRY36 LIKE BSEG-DMBTR,
????? ZDMBTRY37 LIKE BSEG-DMBTR,
????? ZDMBTRY38 LIKE BSEG-DMBTR,
????? ZDMBTRY39 LIKE BSEG-DMBTR,
????? ZDMBTRY40 LIKE BSEG-DMBTR,
????? ZDMBTRY41 LIKE BSEG-DMBTR,
????? ZDMBTRY42 LIKE BSEG-DMBTR,
????? ZDMBTRY43 LIKE BSEG-DMBTR,
????? ZDMBTRY44 LIKE BSEG-DMBTR,
????? ZDMBTRY45 LIKE BSEG-DMBTR,
????? ZDMBTRY46 LIKE BSEG-DMBTR,
????? ZDMBTRY47 LIKE BSEG-DMBTR,
????? ZDMBTRY48 LIKE BSEG-DMBTR,
????? ZDMBTRY49 LIKE BSEG-DMBTR,

????? ZDMBTRY50 LIKE BSEG-DMBTR,
????? ZDMBTRY51 LIKE BSEG-DMBTR,
????? ZDMBTRY52 LIKE BSEG-DMBTR,
????? ZDMBTRY53 LIKE BSEG-DMBTR,
????? ZDMBTRY54 LIKE BSEG-DMBTR,
????? ZDMBTRY55 LIKE BSEG-DMBTR,
????? ZDMBTRY56 LIKE BSEG-DMBTR,
????? ZDMBTRY57 LIKE BSEG-DMBTR,
????? ZDMBTRY58 LIKE BSEG-DMBTR,
????? ZDMBTRY59 LIKE BSEG-DMBTR,
????? ZDMBTRY60 LIKE BSEG-DMBTR,
????? ZDMBTRY61 LIKE BSEG-DMBTR.

**現金流量
DATA:BEGIN OF ITAB OCCURS 0,
*???? RSTGR?? LIKE T053S-RSTGR,??? "原因代碼
???? TXT20? LIKE T053S-TXT20,? "原因說明
???? RSTGR LIKE BSEG-RSTGR,??? "原因代碼
???? DMBTR LIKE BSEG-DMBTR,? "按本位幣計的金額
???? MONAT LIKE BKPF-MONAT,???????? "月份
???? XBLNR LIKE BKPF-XBLNR,????? "利潤中心 -參照
???? END OF ITAB.
DATA: BEGIN OF IT_BSEG OCCURS 0,
????? BUKRS LIKE BSEG-BUKRS,???????? "公司代碼
????? BUTXT LIKE T001-BUTXT,? "公司的名稱
????? GJAHR LIKE BSEG-GJAHR,???????? "會計年度
????? BELNR LIKE BSEG-BELNR,???????? "憑證號碼
*??????? KOART LIKE BSEG-KOART,???????? "帳戶類型
????? SHKZG LIKE BSEG-SHKZG,???????? "借方/貸方標識 shkzg,
????? HKONT LIKE BSEG-HKONT,???????? "總帳科目
????? XBLNR LIKE BKPF-XBLNR,????? "利潤中心 -參照

????? BSTAT LIKE BKPF-BSTAT,????? "憑證狀態 M 取不為空的

????? MONAT LIKE BKPF-MONAT,???????? "月份
*??????? KUNNR LIKE BSEG-KUNNR,???????? "客戶代碼
*??????? LIFNR LIKE BSEG-LIFNR,???????? "供應商代碼
????? DMBTR LIKE BSEG-DMBTR,???????? "按本位幣計的金額? dmbtr,
*??????? PSWSL LIKE BSEG-PSWSL,???????? "本位幣
????? RSTGR LIKE BSEG-RSTGR,???????? "原因代碼 匯總現金流字段? rstgr,
????? TXT20 LIKE T053S-TXT20,??????? "原因說明?? -txt20,
????? SGTXT LIKE BSEG-SGTXT,?????? "sunfneg 2009-3-24 添加
??? END OF IT_BSEG.
DATA:BEGIN OF ITABY OCCURS 0,
*???? RSTGR?? LIKE T053S-RSTGR,???? "原因代碼
??? TXT20? LIKE T053S-TXT20,??????? "原因說明
??? RSTGR LIKE BSEG-RSTGR,????????? "原因代碼
??? DMBTR LIKE BSEG-DMBTR,????????? "按本位幣計的金額
??? XBLNR LIKE BKPF-XBLNR,????????? "利潤中心 -參照
??? END OF ITABY.
**---------------------------------------------------------------------
** SELECTION SCREEN / OPTION / PARAMETER :
*屏幕定義，屏幕輸入報表篩選條件
**---------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK BL01 WITH FRAME TITLE TEXT-001.
*公司代碼
SELECTION-SCREEN SKIP 1.
PARAMETERS:P_BUKRS LIKE BSEG-BUKRS OBLIGATORY DEFAULT '1200'.
*利潤中心
*selection-screen skip 1.
SELECT-OPTIONS: P_XBLNR FOR BKPF-XBLNR." OBLIGATORY.是否必輸項

*SELECT-OPTIONS: P_BUKRS FOR BSEG-BUKRS OBLIGATORY DEFAULT 'BJ10'.
*SELECT-OPTIONS: P_BUKRS FOR T001-BUKRS OBLIGATORY DEFAULT 'BJ10'.
*總帳科目
*selection-screen skip 1.
***SELECT-OPTIONS: P_SAKNR FOR SKAT-SAKNR OBLIGATORY.
***SELECT-OPTIONS: P_SAKNR FOR SKB1-SAKNR OBLIGATORY.
SELECT-OPTIONS: P_HKONT FOR BSEG-HKONT," OBLIGATORY.是否必輸項
????????????? PP_HKONT FOR? SKA1-SAKNR? DEFAULT '10010100' TO '10090600'.

***原因代碼
*selection-screen skip 1.
SELECT-OPTIONS: P_RSTGR FOR BSEG-RSTGR." OBLIGATORY.是否必輸項
*會計年度
*selection-screen skip 1.
PARAMETERS:P_GJAHR LIKE BSEG-GJAHR DEFAULT SY-DATUM+0(4) OBLIGATORY.
*報表期間
*selection-screen skip 1.
PARAMETERS: P_MONAT LIKE BKPF-MONAT DEFAULT SY-DATUM+4(2) OBLIGATORY.
*selection-screen skip 1.
SELECTION-SCREEN END OF BLOCK BL01.

INITIALIZATION.
*? P_GJAHR = SY-DATUM+0(4).
? P_GJAHR = '2011'.
****報表匯總條件選擇
? SELECTION-SCREEN BEGIN OF BLOCK BL02 WITH FRAME TITLE TEXT-002.

*? selection-screen skip 1.
? PARAMETERS P1 RADIOBUTTON GROUP T1 DEFAULT 'X'.
*? PARAMETERS:? INCL_INV AS CHECKBOX DEFAULT 'X'.
*
**alv輸出
? SELECTION-SCREEN SKIP 1.
? PARAMETERS P2 RADIOBUTTON GROUP T1.
**? ***取指定年度月余額
? SELECTION-SCREEN SKIP 1.
? PARAMETERS P4 RADIOBUTTON GROUP T1.
**? **? ***取指定年度余額
? SELECTION-SCREEN SKIP 1.
? PARAMETERS P5 RADIOBUTTON GROUP T1.
***LIST輸出
? SELECTION-SCREEN SKIP 1.
? PARAMETERS P3 RADIOBUTTON GROUP T1.
? SELECTION-SCREEN SKIP 1.
? SELECTION-SCREEN END OF BLOCK BL02.
**處理選擇屏幕時執行過程塊
AT SELECTION-SCREEN.
**系統權限檢查
? AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
????????????????????? ID 'BUKRS' FIELD P_BUKRS.
? IF SY-SUBRC NE 0.
??? MESSAGE E000 WITH? '根限不夠,請找系統管理員!'.
??? LEAVE LIST-PROCESSING.
? ENDIF.
? PERFORM CHK_P_MONAT.
*perform field_chk.
**** 主程序

START-OF-SELECTION.
*? perform get_data.
*??? perform get_data1.
*??? perform get_data4.

* if p_bukrs? = 'NL10'.
*? LOOP AT ITABYD.
*??? w_loop = sy-tabix.
*ITABYD-DEBITS_PER? =? ITABYD-DEBITS_PER? * 100 .
*ITABYD-CREDIT_PER? =? ITABYD-CREDIT_PER? * 100 .
*ITABYD-PER_SALES?? =? ITABYD-PER_SALES?? * 100 .
*ITABYD-BALANCE???? =? ITABYD-BALANCE???? * 100 .
*??? MODIFY ITABYD INDEX sy-tabix.
*? ENDLOOP.
*ENDIF.


*??? perform get_data5.

* if p_bukrs? = 'NL10'.
*? LOOP AT ITABND.
*??? w_loop = sy-tabix.
*ITABND-DEBITS_PER? =? ITABND-DEBITS_PER? * 100 .
*ITABND-CREDIT_PER? =? ITABND-CREDIT_PER? * 100 .
*ITABND-PER_SALES?? =? ITABND-PER_SALES?? * 100 .
*ITABND-BALANCE???? =? ITABND-BALANCE???? * 100 .
*??? MODIFY ITABND INDEX sy-tabix.
*? ENDLOOP.
*ENDIF.


? IF P1 = 'X'.????????? "選擇
??? PERFORM GET_DATA1.
??? PERFORM GET_DATA4.
??? PERFORM GET_DATA5.
??? PERFORM OUTPUT_DATA1.
? ELSEIF? P4 = 'X'.? "取指定年度月余額
??? PERFORM GET_DATA4.
??? PERFORM ALV_OUTPUT4. "輸出
? ELSEIF? P5 = 'X'.? "取指定年度月余額
??? PERFORM GET_DATA5.
??? PERFORM ALV_OUTPUT5. "輸出
? ELSEIF? P2 = 'X'.
??? PERFORM GET_DATA1.
??? PERFORM GET_DATA4.
??? PERFORM GET_DATA5.
??? PERFORM OUTPUT_DATA11.
? ELSEIF? P3 = 'X'.
??? PERFORM GET_DATA3.
??? PERFORM OUTPUT_DATA3.
*? call screen 2000.
? ENDIF.

END-OF-SELECTION.
*&---------------------------------------------------------------------*
*&????? Form? get_data
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
FORM GET_DATA1 .
? CLEAR IT_BSEG.
? SELECT BSEG~BUKRS BSEG~GJAHR BSEG~BELNR
???????? BSEG~SHKZG BSEG~HKONT BSEG~DMBTR
???????? BSEG~RSTGR INTO CORRESPONDING FIELDS OF TABLE IT_BSEG
??? FROM BSEG WHERE BUKRS = P_BUKRS AND GJAHR = P_GJAHR AND HKONT IN P_HKONT
??????? AND RSTGR NE SPACE.??? "原因代碼不能為NULL
*? clear it_bseg.? "SUNFNEG 2009-2-25
? IF IT_BSEG[] IS INITIAL.
??? MESSAGE S000 WITH '沒有找到您要數據,請檢查!'.
??? LEAVE LIST-PROCESSING.
? ENDIF.

? LOOP AT IT_BSEG.
??? W_LOOP = SY-TABIX.
??? IF IT_BSEG-SHKZG = 'H'.??? "借貸
????? IT_BSEG-DMBTR = IT_BSEG-DMBTR * -1.
??? ENDIF.
**??? 不寫匯總取原因代碼
**??? select single txt20 into it_bseg-txt20 from t053s
**??? where rstgr = it_bseg-rstgr.??????? "bukrs = p_bukrs and

??? MODIFY IT_BSEG INDEX W_LOOP.
??? SY-TABIX = W_LOOP.
? ENDLOOP.

? LOOP AT IT_BSEG.
??? W_LOOP = SY-TABIX.
??? SELECT? MONAT? INTO IT_BSEG-MONAT FROM BKPF??? "single??? 月
????? WHERE BELNR = IT_BSEG-BELNR AND BUKRS = P_BUKRS AND BSTAT =? ''.? "SUNFNEG 2008-1-9? AND BSTAT <> 'W'非正常憑證不取
????? MODIFY IT_BSEG INDEX W_LOOP.
??? ENDSELECT.
??? SY-TABIX = W_LOOP.
? ENDLOOP.

? LOOP AT IT_BSEG.
??? W_LOOP = SY-TABIX.
??? SELECT? XBLNR INTO IT_BSEG-XBLNR FROM BKPF?? "single??? 利潤中心
????? WHERE BELNR = IT_BSEG-BELNR AND BUKRS = P_BUKRS AND BSTAT =? ''.? "SUNFNEG 2008-1-9? AND BSTAT <> 'W'非正常憑證不取
????? MODIFY IT_BSEG INDEX W_LOOP.
??? ENDSELECT.
??? SY-TABIX = W_LOOP.
? ENDLOOP.

? LOOP AT IT_BSEG.
??? W_LOOP = SY-TABIX.
??? SELECT?? BSTAT INTO IT_BSEG-BSTAT FROM BKPF?? "single??? "BSTAT 憑證狀態
????? WHERE BELNR = IT_BSEG-BELNR AND BUKRS = P_BUKRS AND BSTAT =? ''.? "SUNFNEG 2008-1-9? AND BSTAT <> 'W'非正常憑證不取

***????? *? 根據公司代碼取 公司的名
????? SELECT SINGLE BUTXT INTO IT_BSEG-BUTXT FROM T001
???????? WHERE BUKRS = IT_BSEG-BUKRS.
????? MODIFY IT_BSEG INDEX W_LOOP.
??? ENDSELECT.
??? SY-TABIX = W_LOOP.
? ENDLOOP.

? CLEAR ITAB.
? SORT ITAB BY RSTGR.
? LOOP AT IT_BSEG.
??? IF IT_BSEG-BSTAT = ''.? "BSTAT 憑證狀態
????? MOVE-CORRESPONDING IT_BSEG TO ITAB.
????? COLLECT ITAB.
??? ENDIF.
? ENDLOOP.

? CLEAR ITABY.
? SORT ITABY BY RSTGR.
? LOOP AT IT_BSEG.
??? IF P_MONAT = IT_BSEG-MONAT AND IT_BSEG-BSTAT = ''.
????? MOVE-CORRESPONDING IT_BSEG TO ITABY.
????? COLLECT ITABY.????? "在加入新元素時將有相同standard key(非數值字段)的數值字段匯總
??? ENDIF.
? ENDLOOP.

*? select single butxt into zbutxt from t001??? "寫ZBUTXT 公司代碼
*??? where bukrs = p_bukrs.
? SORT ITAB BY RSTGR.??? "分類
? LOOP AT ITAB.
??? IF ITAB-RSTGR = 'JI1' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT? AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR01 = ZDMBTR01 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JI2' AND ITAB-MONAT >= '01'
AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR02 = ZDMBTR02 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JI3' AND ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR03 = ZDMBTR03 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JI4' AND ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR04 = ZDMBTR04 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JI5' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR05 = ZDMBTR05 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JI6' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR..
????? ZDMBTR06 = ZDMBTR06 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JI7' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR07 = ZDMBTR07 + ITAB-DMBTR.
??? ENDIF.

??? IF?? ITAB-MONAT >= '01'? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR09 = ZDMBTR01 + ZDMBTR02.
??? ENDIF.

??? IF?? ITAB-MONAT >= '01'? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR10 = ZDMBTR06 + ZDMBTR04 + ZDMBTR05.
??? ENDIF.

??? IF?? ITAB-MONAT >= '01'? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR11 = ZDMBTR03 + ZDMBTR07.
??? ENDIF.

??? IF?? ITAB-MONAT >= '01'? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
*??? ITAB-rstgr = 'JI1' or ITAB-rstgr = 'JI2' or ITAB-rstgr = 'JI3' or ITAB-rstgr = 'JI4'
*?????? or ITAB-rstgr = 'JI5'? or ITAB-rstgr = 'JI6'? or ITAB-rstgr = 'JI7'.
*????? *????? zdmbtr08 = zdmbtr08 + ITAB-dmbtr.
????? ZDMBTR08 = ZDMBTR01 + ZDMBTR02 + ZDMBTR03 + ZDMBTR04 + ZDMBTR05 + ZDMBTR06 + ZDMBTR07.
??? ENDIF.

??? IF ITAB-RSTGR = 'JO1' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR12 = ZDMBTR12 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JO2' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR13 = ZDMBTR13 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JO3' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR14 = ZDMBTR14 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JO4' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR15 = ZDMBTR15 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JO5' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR16 = ZDMBTR16 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JO6' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR17 = ZDMBTR17 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'JO7' AND? ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR..
????? ZDMBTR18 = ZDMBTR18 + ITAB-DMBTR.
??? ENDIF.
??? IF? ITAB-MONAT >= '01'? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR19 = ZDMBTR12 + ZDMBTR13 + ZDMBTR14 + ZDMBTR15 + ZDMBTR16 + ZDMBTR17 + ZDMBTR18.
??? ENDIF.

??? IF? ITAB-MONAT >= '01'? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR20 = ZDMBTR01 + ZDMBTR02 + ZDMBTR03 + ZDMBTR04 + ZDMBTR05 + ZDMBTR06 + ZDMBTR07
???????????????? + ZDMBTR12 + ZDMBTR13 + ZDMBTR14 + ZDMBTR15 + ZDMBTR16 + ZDMBTR17 + ZDMBTR18.
??? ENDIF.

??? IF? ITAB-MONAT >= '01'? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR21 = ZDMBTR12 + ZDMBTR13 .
??? ENDIF.

??? IF? ITAB-MONAT >= '01'? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR22 = ZDMBTR15 + ZDMBTR16 + ZDMBTR17.
??? ENDIF.

??? IF ITAB-RSTGR = 'TI1' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR23 = ZDMBTR23 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'TI2' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR24 = ZDMBTR24 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'TI3' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR25 = ZDMBTR25 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'TI4' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR26 = ZDMBTR26 + ITAB-DMBTR.
??? ENDIF.

??? IF ITAB-RSTGR = 'TI5' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR27 = ZDMBTR27 + ITAB-DMBTR.
??? ENDIF.

??? IF ITAB-RSTGR = 'TI6' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR28 = ZDMBTR28 + ITAB-DMBTR.
??? ENDIF.

??? IF? ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR29 = ZDMBTR23 + ZDMBTR24 + ZDMBTR25 + ZDMBTR26 + ZDMBTR27 + ZDMBTR28.
??? ENDIF.

??? IF? ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR30 = ZDMBTR24 + ZDMBTR25.
??? ENDIF.

??? IF ITAB-RSTGR = 'TO1' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR31 = ZDMBTR31 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'TO2' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR32 = ZDMBTR32 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'TO3' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT? AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR33 = ZDMBTR33 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'TO4' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR34 = ZDMBTR34 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'TO5' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR35 = ZDMBTR35 + ITAB-DMBTR.
??? ENDIF.

??? IF ITAB-RSTGR = 'TO6' AND ITAB-MONAT >= '01'
????? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR36 = ZDMBTR36 + ITAB-DMBTR.
??? ENDIF.
??? IF? ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR37 = ZDMBTR31 + ZDMBTR32 + ZDMBTR33 + ZDMBTR34 + ZDMBTR35 + ZDMBTR36 .
??? ENDIF.
??? IF? ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR38 = ZDMBTR23 + ZDMBTR24 + ZDMBTR25 + ZDMBTR26 + ZDMBTR27 + ZDMBTR28
???????????????? + ZDMBTR31 + ZDMBTR32 + ZDMBTR33 + ZDMBTR34 + ZDMBTR35 + ZDMBTR36 .
??? ENDIF.
??? IF? ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR39 = ZDMBTR31 + ZDMBTR32.
??? ENDIF.
??? IF? ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR40 = ZDMBTR33 + ZDMBTR34.
??? ENDIF.

??? IF ITAB-RSTGR = 'CI1' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR41 = ZDMBTR41 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'CI2' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT? AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR42 = ZDMBTR42 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'CI3' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT? AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR43 = ZDMBTR43 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'CI4' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT .
????? ZDMBTR44 = ZDMBTR44 + ITAB-DMBTR.
??? ENDIF.

??? IF ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR45 = ZDMBTR41 + ZDMBTR42 + ZDMBTR43 + ZDMBTR44.
??? ENDIF.

??? IF ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR46 = ZDMBTR41 + ZDMBTR42 .
??? ENDIF.

??? IF ITAB-RSTGR = 'CO2' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR47 = ZDMBTR47 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'CO3' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT? AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR48 = ZDMBTR48 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'CO4' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR49 = ZDMBTR49 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'CO5' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR50 = ZDMBTR50 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'CO6' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR51 = ZDMBTR51 + ITAB-DMBTR.
??? ENDIF.
??? IF ITAB-RSTGR = 'CO7' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR52 = ZDMBTR52 + ITAB-DMBTR.
??? ENDIF.

??? IF? ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR53 = ZDMBTR47 + ZDMBTR48 + ZDMBTR49 + ZDMBTR50 + ZDMBTR51 + ZDMBTR52.
??? ENDIF.
??? IF ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR54 = ZDMBTR41 + ZDMBTR42 + ZDMBTR43 + ZDMBTR44
???????????????? + ZDMBTR47 + ZDMBTR48 + ZDMBTR49 + ZDMBTR50 + ZDMBTR51 + ZDMBTR52.
??? ENDIF.

??? IF ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR55 = ZDMBTR47 + ZDMBTR48 .
??? ENDIF.

??? IF ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR56 = ZDMBTR49 + ZDMBTR50 .
??? ENDIF.

??? IF ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR57 = ZDMBTR51 + ZDMBTR52.
??? ENDIF.

??? IF ITAB-RSTGR = 'ER1' AND ITAB-MONAT >= '01'
??? AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR58 = ZDMBTR58 + ITAB-DMBTR.
??? ENDIF.

??? IF ITAB-MONAT >= '01' AND ITAB-MONAT <= P_MONAT AND ITAB-XBLNR IN P_XBLNR.
????? ZDMBTR59 =? ZDMBTR01 + ZDMBTR02 + ZDMBTR03 + ZDMBTR04 + ZDMBTR05 + ZDMBTR06 + ZDMBTR07

??????????????? + ZDMBTR12 + ZDMBTR13 + ZDMBTR14 + ZDMBTR15 + ZDMBTR16 + ZDMBTR17 + ZDMBTR18

??????????????? + ZDMBTR23 + ZDMBTR24 + ZDMBTR25 + ZDMBTR26 + ZDMBTR27 + ZDMBTR28

??????????????? + ZDMBTR31? + ZDMBTR32 + ZDMBTR33 + ZDMBTR34 + ZDMBTR35 + ZDMBTR36
??????????????? + ZDMBTR41 + ZDMBTR42 + ZDMBTR43 + ZDMBTR44
??????????????? + ZDMBTR47 + ZDMBTR48 + ZDMBTR49 + ZDMBTR50 + ZDMBTR51 + ZDMBTR52
??????????????? + ZDMBTR58.
??? ENDIF.
? ENDLOOP.
**** 按月匯總
? SORT ITABY BY RSTGR.??? "分類
? LOOP AT ITABY.
??? IF ITABY-RSTGR = 'JI1' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY01 = ZDMBTRY01 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JI2' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY02 = ZDMBTRY02 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JI3' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY03 = ZDMBTRY03 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JI4' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY04 = ZDMBTRY04 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JI5' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY05 = ZDMBTRY05 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JI6' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY06 = ZDMBTRY06 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JI7' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY07 = ZDMBTRY07 + ITABY-DMBTR.
??? ENDIF.

*??? if ( ITABY-rstgr = 'JI1' or ITABY-rstgr = 'JI2' or ITABY-rstgr = 'JI3' or
*??????? ITABY-rstgr = 'JI4' or ITABY-rstgr = 'JI5' or ITABY-rstgr = 'JI6' or
*?????? ITABY-rstgr = 'JI7' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY08 = ZDMBTRY01 + ZDMBTRY02 + ZDMBTRY03 + ZDMBTRY04 + ZDMBTRY05 + ZDMBTRY06 + ZDMBTRY07.
*??? endif.

*??? if ( ITABY-rstgr = 'JI1' or ITABY-rstgr = 'JI2')? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY09 = ZDMBTRY01 + ZDMBTRY02.
*??? endif.

*??? if ( ITABY-rstgr = 'JI4' or ITABY-rstgr = 'JI5' or ITABY-rstgr = 'JI6')? AND ITABY-XBLNR IN P_XBLNR.
*????? zdmbtry10 = zdmbtry10 + ITABY-dmbtr.
??? ZDMBTRY10 = ZDMBTRY04 + ZDMBTRY05 + ZDMBTRY06 .
*??? endif.


*??? if ( ITABY-rstgr = 'JI3' or ITABY-rstgr = 'JI7')? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY11 = ZDMBTRY03 + ZDMBTRY07.
*??? endif.

??? IF ITABY-RSTGR = 'JO1' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY12 = ZDMBTRY12 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JO2' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY13 = ZDMBTRY13 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JO3' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY14 = ZDMBTRY14 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JO4' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY15 = ZDMBTRY15 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JO5' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY16 = ZDMBTRY16 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JO6' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY17 = ZDMBTRY17 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'JO7' AND ITABY-XBLNR IN P_XBLNR .
????? ZDMBTRY18 = ZDMBTRY18 + ITABY-DMBTR.
??? ENDIF.
*
*??? if ( ITABY-rstgr = 'JO1' or ITABY-rstgr = 'JO2' or ITABY-rstgr = 'JO3' or
*?????? ITABY-rstgr = 'JO4' or ITABY-rstgr = 'JO5' or ITABY-rstgr = 'JO6' or
*?????? ITABY-rstgr = 'JO7' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY19 = ZDMBTRY12 + ZDMBTRY13 + ZDMBTRY14 + ZDMBTRY15 + ZDMBTRY16 + ZDMBTRY17 + ZDMBTRY18.
*??? endif.
*??? if ( ITABY-rstgr = 'JI1' or ITABY-rstgr = 'JI2' or ITABY-rstgr = 'JI3' or
*?????? ITABY-rstgr = 'JI4' or ITABY-rstgr = 'JI5' or ITABY-rstgr = 'JI6' or
*?????? ITABY-rstgr = 'JI7' or ITABY-rstgr = 'JO1' or ITABY-rstgr = 'JO2' or
*?????? ITABY-rstgr = 'JO3' or ITABY-rstgr = 'JO4' or ITABY-rstgr = 'JO5' or
*?????? ITABY-rstgr = 'JO6' or ITABY-rstgr = 'JO7' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY20 = ZDMBTRY01 + ZDMBTRY02 + ZDMBTRY03 + ZDMBTRY04 + ZDMBTRY05 + ZDMBTRY06 + ZDMBTRY07 + ZDMBTRY12 + ZDMBTRY13 + ZDMBTRY14 + ZDMBTRY15 + ZDMBTRY16 + ZDMBTRY17 + ZDMBTRY18.
*??? endif.

*??? if ( ITABY-rstgr = 'JO1' or ITABY-rstgr = 'JO2')? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY21 = ZDMBTRY12 + ZDMBTRY13.
*??? endif.

*??? if ( ITABY-rstgr = 'JO4' or ITABY-rstgr = 'JO5' or ITABY-rstgr = 'JO5')? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY22 = ZDMBTRY15 + ZDMBTRY16 + ZDMBTRY17.
*??? endif.

??? IF ITABY-RSTGR = 'TI1' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY23 = ZDMBTRY23 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'TI2' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY24 = ZDMBTRY24 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'TI3' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY25 = ZDMBTRY25 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'TI4' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY26 = ZDMBTRY26 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'TI5' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY27 = ZDMBTRY27 + ITABY-DMBTR.
??? ENDIF.

??? IF ITABY-RSTGR = 'TI6' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY28 = ZDMBTRY28 + ITABY-DMBTR.
??? ENDIF.

*??? if ( ITABY-rstgr = 'TI1' or ITABY-rstgr = 'TI2' or ITABY-rstgr = 'TI3' or
*?????? ITABY-rstgr = 'TI4' or ITABY-rstgr = 'TI5'? or ITABY-rstgr = 'TI6')? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY29 = ZDMBTRY23 + ZDMBTRY24 + ZDMBTRY25 + ZDMBTRY26 + ZDMBTRY27 + ZDMBTRY28.
*??? endif.

*??? if (? ITABY-rstgr = 'TI2' or ITABY-rstgr = 'TI3')? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY30 = ZDMBTRY24 + ZDMBTRY25.
*??? endif.

??? IF ITABY-RSTGR = 'TO1' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY31 = ZDMBTRY31 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'TO2' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY32 = ZDMBTRY32 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'TO3' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY33 = ZDMBTRY33 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'TO4' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY34 = ZDMBTRY34 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'TO5' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY35 = ZDMBTRY35 + ITABY-DMBTR.
??? ENDIF.

??? IF ITABY-RSTGR = 'TO6' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY36 = ZDMBTRY36 + ITABY-DMBTR.
??? ENDIF.

*??? if ( ITABY-rstgr = 'TO1' or ITABY-rstgr = 'TO2' or ITABY-rstgr = 'TO3' or
*?????? ITABY-rstgr = 'TO4' or ITABY-rstgr = 'TO5' or ITABY-rstgr = 'TO6' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY37 = ZDMBTRY31 + ZDMBTRY32 + ZDMBTRY33 + ZDMBTRY34 + ZDMBTRY35 + ZDMBTRY36.
*??? endif.

*??? if ( ITABY-rstgr = 'TI1' or ITABY-rstgr = 'TI2' or ITABY-rstgr = 'TI3' or
*?????? ITABY-rstgr = 'TI4' or ITABY-rstgr = 'TI5'? or ITABY-rstgr = 'TI6' or ITABY-rstgr = 'TO1' or
*?????? ITABY-rstgr = 'TO2' or ITABY-rstgr = 'TO3' or ITABY-rstgr = 'TO4' or
*?????? ITABY-rstgr = 'TO5' or ITABY-rstgr = 'TO6'? )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY38 = ZDMBTRY23 + ZDMBTRY24 + ZDMBTRY25 + ZDMBTRY26 + ZDMBTRY27 + ZDMBTRY28 + ZDMBTRY31 + ZDMBTRY32 + ZDMBTRY33 + ZDMBTRY34 + ZDMBTRY35 + ZDMBTRY36.
*??? endif.

*??? if ( ITABY-rstgr = 'TO1' or ITABY-rstgr = 'TO2' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY39 = ZDMBTRY31 + ZDMBTRY32.
*??? endif.

*??? if ( ITABY-rstgr = 'TO3' or ITABY-rstgr = 'TO4' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY40 = ZDMBTRY33 + ZDMBTRY34.
*??? endif.

??? IF ITABY-RSTGR = 'CI1' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY41 = ZDMBTRY41 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'CI2' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY42 = ZDMBTRY42 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'CI3' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY43 = ZDMBTRY43 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'CI4' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY44 = ZDMBTRY44 + ITABY-DMBTR.
??? ENDIF.

*??? if? ( ITABY-rstgr = 'CI1' or ITABY-rstgr = 'CI2' or ITABY-rstgr = 'CI3' or
*?????? ITABY-rstgr = 'CI4'? ) AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY45 = ZDMBTRY41 + ZDMBTRY42 + ZDMBTRY43 + ZDMBTRY44.
*??? endif.

*??? if? ( ITABY-rstgr = 'CI1' or ITABY-rstgr = 'CI2' ) AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY46 = ZDMBTRY41 + ZDMBTRY42.
*??? endif.

??? IF ITABY-RSTGR = 'CO2' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY47 = ZDMBTRY47 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'CO3' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY48 = ZDMBTRY48 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'CO4' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY49 = ZDMBTRY49 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'CO5' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY50 = ZDMBTRY50 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'CO6' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY51 = ZDMBTRY51 + ITABY-DMBTR.
??? ENDIF.
??? IF ITABY-RSTGR = 'CO7' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY52 = ZDMBTRY52 + ITABY-DMBTR.
??? ENDIF.

*??? if ( ITABY-rstgr = 'CO2' or ITABY-rstgr = 'CO3' or ITABY-rstgr = 'CO4' or
*?????? ITABY-rstgr = 'CO5' or ITABY-rstgr = 'CO6' or ITABY-rstgr = 'CO7' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY53 = ZDMBTRY47 + ZDMBTRY48 + ZDMBTRY49 + ZDMBTRY50 + ZDMBTRY51 + ZDMBTRY52.
*??? endif.

*??? if ( ITABY-rstgr = 'CI1' or ITABY-rstgr = 'CI2' or ITABY-rstgr = 'CI3' or
*?????? ITABY-rstgr = 'CI4' or ITABY-rstgr = 'CO2' or ITABY-rstgr = 'CO3' or
*?????? ITABY-rstgr = 'CO4' or ITABY-rstgr = 'CO5' or ITABY-rstgr = 'CO6' or
*?????? ITABY-rstgr = 'CO7' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY54 = ZDMBTRY41 + ZDMBTRY42 + ZDMBTRY43 + ZDMBTRY44 + ZDMBTRY47 + ZDMBTRY48 + ZDMBTRY49 + ZDMBTRY50 + ZDMBTRY51 + ZDMBTRY52.
*??? endif.

*??? if ( ITABY-rstgr = 'CO2' or ITABY-rstgr = 'CO3' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY55 = ZDMBTRY47 + ZDMBTRY48.
*??? endif.

*??? if ( ITABY-rstgr = 'CO4' or ITABY-rstgr = 'CO5' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY56 = ZDMBTRY49 + ZDMBTRY50.
*??? endif.

*??? if ( ITABY-rstgr = 'CO6' or ITABY-rstgr = 'CO7' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY57 = ZDMBTRY51 + ZDMBTRY52.
*??? endif.

??? IF ITABY-RSTGR =? 'ER1' AND ITABY-XBLNR IN P_XBLNR.
????? ZDMBTRY58 = ZDMBTRY58 + ITABY-DMBTR.
??? ENDIF.

*??? if? ( ITABY-rstgr = 'JI1' or ITABY-rstgr = 'JI2' or? ITABY-rstgr = 'JI3' or ITABY-rstgr = 'JI4' or ITABY-rstgr = 'JI5' or ITABY-rstgr = 'JI6' or?? ITABY-rstgr = 'JI7'
*?????? or ITABY-rstgr = 'JO1' or ITABY-rstgr = 'JO2' or? ITABY-rstgr = 'JO3' or ITABY-rstgr = 'JO4' or ITABY-rstgr = 'JO5' or ITABY-rstgr = 'JO6' or?? ITABY-rstgr = 'JO7'
*?????? or ITABY-rstgr = 'TI1' or ITABY-rstgr = 'TI2' or? ITABY-rstgr = 'TI3' or ITABY-rstgr = 'TI4' or ITABY-rstgr = 'TI5' or ITABY-rstgr = 'TI6'
*?????? OR ITABY-rstgr = 'TO1' or ITABY-rstgr = 'TO2' or? ITABY-rstgr = 'TO3' or ITABY-rstgr = 'TO4' or ITABY-rstgr = 'TO5' or ITABY-rstgr = 'T06'
*?????? OR ITABY-rstgr = 'CI1' or ITABY-rstgr = 'CI2' or? ITABY-rstgr = 'CI3' or ITABY-rstgr = 'CI4'
*?????? or ITABY-rstgr = 'CO2' or ITABY-rstgr = 'CO3' or? ITABY-rstgr = 'CO4' or ITABY-rstgr = 'CO5' or ITABY-rstgr = 'CO6' or? ITABY-rstgr = 'CO7'
*?????? or ITABY-rstgr = 'ER1' )? AND ITABY-XBLNR IN P_XBLNR.
??? ZDMBTRY59 = ZDMBTRY01 + ZDMBTRY02 + ZDMBTRY03 + ZDMBTRY04 + ZDMBTRY05 + ZDMBTRY06 + ZDMBTRY07

????????????? + ZDMBTRY12 + ZDMBTRY13 + ZDMBTRY14 + ZDMBTRY15 + ZDMBTRY16 + ZDMBTRY17 + ZDMBTRY18

????????????? + ZDMBTRY23 + ZDMBTRY24 + ZDMBTRY25 + ZDMBTRY26 + ZDMBTRY27 + ZDMBTRY28

????????????? + ZDMBTRY31? + ZDMBTRY32 + ZDMBTRY33 + ZDMBTRY34 + ZDMBTRY35 + ZDMBTRY36
????????????? + ZDMBTRY41 + ZDMBTRY42 + ZDMBTRY43 + ZDMBTRY44
????????????? + ZDMBTRY47 + ZDMBTRY48 + ZDMBTRY49 + ZDMBTRY50 + ZDMBTRY51 + ZDMBTRY52
????????????? + ZDMBTRY58.
*??? endif.
? ENDLOOP.

ENDFORM.??????????????????? " get_data
*&---------------------------------------------------------------------*
*&????? Form? get_data3**********form get_data3 .?? "明細表
*&---------------------------------------------------------------------*
*?????? text?? 暫時不啟用(如導出數量表行多時啟用)
*----------------------------------------------------------------------*
FORM GET_DATA3 .?? "明細表
? CLEAR IT_BSEG.
? SELECT BSEG~BUKRS BSEG~GJAHR BSEG~BELNR
???????? BSEG~SHKZG BSEG~HKONT BSEG~DMBTR
???????? BSEG~RSTGR?? BSEG~SGTXT???? " BSEG~SGTXT? 2009-3-24sunfeng tianjia
???????? INTO CORRESPONDING FIELDS OF TABLE IT_BSEG
??? FROM BSEG WHERE BUKRS = P_BUKRS AND GJAHR = P_GJAHR AND HKONT IN P_HKONT
??? AND RSTGR NE SPACE.??? "原因代碼不能為NULL
? CLEAR IT_BSEG.
? IF IT_BSEG[] IS INITIAL.
??? MESSAGE S000 WITH '沒有找到您要數據,請檢查!'.
??? LEAVE LIST-PROCESSING.
? ENDIF.

? DELETE IT_BSEG?? WHERE? RSTGR NOT IN P_RSTGR.? "刪除不在條件范圍內的數據

? LOOP AT IT_BSEG.
??? W_LOOP = SY-TABIX.
??? IF IT_BSEG-SHKZG = 'H'.??? "借貸
????? IT_BSEG-DMBTR = IT_BSEG-DMBTR * -1.
??? ENDIF.
??? SELECT SINGLE TXT20 INTO IT_BSEG-TXT20 FROM T053S
????? WHERE RSTGR = IT_BSEG-RSTGR.?? "bukrs = p_bukrs and
??? MODIFY IT_BSEG INDEX W_LOOP.
??? SY-TABIX = W_LOOP.
? ENDLOOP.

? LOOP AT IT_BSEG.
??? W_LOOP = SY-TABIX.
??? SELECT? MONAT INTO IT_BSEG-MONAT FROM BKPF?? "single??? 月份
????? WHERE BELNR = IT_BSEG-BELNR AND BUKRS = P_BUKRS AND BSTAT =? ''.? "SUNFNEG 2008-1-9? AND BSTAT <> 'W'非正常憑證不取
????? MODIFY IT_BSEG INDEX W_LOOP.
??? ENDSELECT.
??? SY-TABIX = W_LOOP.
? ENDLOOP.

? LOOP AT IT_BSEG.
??? W_LOOP = SY-TABIX.
??? SELECT? XBLNR INTO IT_BSEG-XBLNR FROM BKPF?? "single??? 利潤中心
????? WHERE BELNR = IT_BSEG-BELNR AND BUKRS = P_BUKRS AND BSTAT =? ''.? "SUNFNEG 2008-1-9? AND BSTAT <> 'W'非正常憑證不取

????? MODIFY IT_BSEG INDEX W_LOOP.
??? ENDSELECT.
??? SY-TABIX = W_LOOP.
? ENDLOOP.

? LOOP AT IT_BSEG.
??? W_LOOP = SY-TABIX.
??? SELECT?? BSTAT INTO IT_BSEG-BSTAT FROM BKPF?? "single??? "BSTAT 憑證狀態
????? WHERE BELNR = IT_BSEG-BELNR AND BUKRS = P_BUKRS AND BSTAT =? ''.? "SUNFNEG 2008-1-9? AND BSTAT <> 'W'非正常憑證不取

????? MODIFY IT_BSEG INDEX W_LOOP.
??? ENDSELECT.
??? SY-TABIX = W_LOOP.
? ENDLOOP.


ENDFORM.? " get_data

****取總帳科目余額取指定年度月余額
*&---------------------------------------------------------------------*
*&????? Form? get_data4? 取總帳科目余額取指定年度月余額
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
FORM GET_DATA4 .?? "
? CLEAR ITABGL.
? SELECT? SAKNR? INTO CORRESPONDING FIELDS OF TABLE ITABGL
??? FROM SKA1 WHERE?? KTOPL = 'DX01' AND?? SAKNR IN PP_HKONT.

? IF P_MONAT? = '1'.
??? Z_MONAT =? '16'.
??? Z_GJAHR = P_GJAHR - 1.
? ELSE.
??? Z_MONAT =? P_MONAT - 1.
??? Z_GJAHR = P_GJAHR.
? ENDIF.

? LOOP AT ITABGL.
??? W_LOOP = SY-TABIX.
??? ITABGL-BUKRS?????? =? P_BUKRS.??? "公司代碼
*???? itabGLM-GL_ACCOUNT?? = itabGL-SAKNR.
??? ITABGL-ZGJAHR?????? =? Z_GJAHR.? "年
??? ITABGL-CURRENCYTYPE? =? '10'.
*????? append? itabGLM.
??? MODIFY ITABGL INDEX SY-TABIX.
? ENDLOOP.

? SORT ITABGL? BY SAKNR.
****
? DATA: IT11? LIKE?? BAPI1028_0-COMP_CODE.
? DATA: IT22? LIKE?? BAPI1028_0-GL_ACCOUNT.
? DATA: IT33? LIKE?? BAPI1028_4-FISC_YEAR.
* data: it44? LIKE?? BAPI1028_5-CURR_TYPE.
? DATA : RETURN1???? TYPE?? BAPIRETURN?? OCCURS 0 WITH HEADER LINE.
? DATA : ITAB99?????? LIKE?? BAPI1028_4? OCCURS 0 WITH HEADER LINE.

? LOOP AT ITABGL.
??? W_LOOP = SY-TABIX.
??? IT11 = ITABGL-BUKRS.
??? IT22 = ITABGL-SAKNR.
??? IT33 = ITABGL-ZGJAHR.
??? ZFLAG = ''.
??? AT NEW SAKNR.
????? READ TABLE ITABGL INDEX W_LOOP.
* Call the BAPI
????? CALL FUNCTION 'BAPI_GL_GETGLACCPERIODBALANCES'
??????? EXPORTING
????????? COMPANYCODE????? = IT11
????????? GLACCT?????????? = IT22
????????? FISCALYEAR?????? = IT33
????????? CURRENCYTYPE???? = '10'
??????? IMPORTING
????????? RETURN?????????? = RETURN1
??????? TABLES
????????? ACCOUNT_BALANCES = ITAB99.
* Check the return table.
????? LOOP AT? RETURN1 WHERE TYPE = 'E' OR TYPE = 'A'.? "消息類型: S 成功,E 錯誤,W 警告,I 信息,A 中斷
??????? EXIT.
????? ENDLOOP.
??? ENDAT.
??? W_LOOP = SY-TABIX.
??? LOOP AT? ITAB99.
????? W_LOOP = SY-TABIX.
????? APPEND ITABYD.

????? ITABYD-COMP_CODE?? =???? ITAB99-COMP_CODE.?? "??? "公司
????? ITABYD-GL_ACCOUNT? =???? ITAB99-GL_ACCOUNT.???? "總帳科目編號
????? ITABYD-FISC_YEAR?? =???? ITAB99-FISC_YEAR.??? "年度
????? ITABYD-FIS_PERIOD? =???? ITAB99-FIS_PERIOD.?? "會計期間
????? ITABYD-DEBITS_PER? =???? ITAB99-DEBITS_PER.? "期間借方發生額
????? ITABYD-CREDIT_PER? =???? ITAB99-CREDIT_PER. "期間貸方發生額
????? ITABYD-PER_SALES?? =???? ITAB99-PER_SALES. "月銷售額
????? ITABYD-BALANCE???? =???? ITAB99-BALANCE.? "帳戶余額
????? ITABYD-CURRENCY??? =???? ITAB99-CURRENCY.??????? "貨幣代碼
????? SY-TABIX = W_LOOP.
??? ENDLOOP.
??? SY-TABIX = W_LOOP.
??? APPEND ITABYD.
??? SY-TABIX = W_LOOP.
? ENDLOOP.
? SORT ITABYD? BY GL_ACCOUNT.
? DELETE ITABYD WHERE? FIS_PERIOD <> Z_MONAT.

? DELETE ADJACENT DUPLICATES FROM ITABYD COMPARING COMP_CODE GL_ACCOUNT? FISC_YEAR? FIS_PERIOD.

? LOOP AT ITABYD.
??? MOVE-CORRESPONDING ITABYD TO ITABYDZ.
??? COLLECT ITABYDZ.
? ENDLOOP.

? LOOP AT ITABYDZ.
??? W_LOOP = SY-TABIX.
??? ZDMBTRY60 = ITABYDZ-BALANCE.
? ENDLOOP.
ENDFORM.??????????????????????????????????????????????????? " get_data4

****取總帳科目余額取指定年度余額
*&---------------------------------------------------------------------*
*&????? Form? get_data4? 取總帳科目余額取指定年度余額
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
FORM GET_DATA5 .?? "
? CLEAR ITABGL.
? SELECT? SAKNR? INTO CORRESPONDING FIELDS OF TABLE ITABGL
??? FROM SKA1 WHERE?? KTOPL = 'DX01' AND?? SAKNR IN PP_HKONT.

*????? IF P_MONAT? = '1'.
? Z_MONAT =? '16'.
? Z_GJAHR = P_GJAHR - 1.
*??????? ELSE.
*?????? Z_MONAT =? P_MONAT - 1.
*?????? Z_GJAHR = P_GJAHR.
*????? ENDIF.

? LOOP AT ITABGL.
??? W_LOOP = SY-TABIX.
??? ITABGL-BUKRS?????? =? P_BUKRS.??? "公司代碼
*???? itabGLM-GL_ACCOUNT?? = itabGL-SAKNR.
??? ITABGL-ZGJAHR?????? =? Z_GJAHR.? "年
??? ITABGL-CURRENCYTYPE? =? '10'.
*????? append? itabGLM.
??? MODIFY ITABGL INDEX SY-TABIX.
? ENDLOOP.

? SORT ITABGL? BY SAKNR.
****
? DATA: IT11? LIKE?? BAPI1028_0-COMP_CODE.
? DATA: IT22? LIKE?? BAPI1028_0-GL_ACCOUNT.
? DATA: IT33? LIKE?? BAPI1028_4-FISC_YEAR.
* data: it44? LIKE?? BAPI1028_5-CURR_TYPE.
? DATA : RETURN1???? TYPE?? BAPIRETURN?? OCCURS 0 WITH HEADER LINE.
? DATA : ITAB99?????? LIKE?? BAPI1028_4? OCCURS 0 WITH HEADER LINE.

? LOOP AT ITABGL.
??? W_LOOP = SY-TABIX.
??? IT11 = ITABGL-BUKRS.
??? IT22 = ITABGL-SAKNR.
??? IT33 = ITABGL-ZGJAHR.
??? ZFLAG = ''.
??? AT NEW SAKNR.
????? READ TABLE ITABGL INDEX W_LOOP.
* Call the BAPI
????? CALL FUNCTION 'BAPI_GL_GETGLACCPERIODBALANCES'
??????? EXPORTING
????????? COMPANYCODE????? = IT11
????????? GLACCT?????????? = IT22
????????? FISCALYEAR?????? = IT33
????????? CURRENCYTYPE???? = '10'
??????? IMPORTING
????????? RETURN?????????? = RETURN1
??????? TABLES
????????? ACCOUNT_BALANCES = ITAB99.
* Check the return table.
????? LOOP AT? RETURN1 WHERE TYPE = 'E' OR TYPE = 'A'.? "消息類型: S 成功,E 錯誤,W 警告,I 信息,A 中斷
??????? EXIT.
????? ENDLOOP.
??? ENDAT.
??? W_LOOP = SY-TABIX.
??? LOOP AT? ITAB99.
????? W_LOOP = SY-TABIX.
????? APPEND ITABYD.

????? ITABND-COMP_CODE?? =???? ITAB99-COMP_CODE.?? "??? "公司
????? ITABND-GL_ACCOUNT? =???? ITAB99-GL_ACCOUNT.???? "總帳科目編號
????? ITABND-FISC_YEAR?? =???? ITAB99-FISC_YEAR.??? "年度
????? ITABND-FIS_PERIOD? =???? ITAB99-FIS_PERIOD.?? "會計期間
????? ITABND-DEBITS_PER? =???? ITAB99-DEBITS_PER.? "期間借方發生額
????? ITABND-CREDIT_PER? =???? ITAB99-CREDIT_PER. "期間貸方發生額
????? ITABND-PER_SALES?? =???? ITAB99-PER_SALES. "月銷售額
????? ITABND-BALANCE???? =???? ITAB99-BALANCE.? "帳戶余額
????? ITABND-CURRENCY??? =???? ITAB99-CURRENCY.??????? "貨幣代碼
????? SY-TABIX = W_LOOP.
??? ENDLOOP.
??? SY-TABIX = W_LOOP.
??? APPEND ITABND.
??? SY-TABIX = W_LOOP.
? ENDLOOP.
? SORT ITABND? BY GL_ACCOUNT.
? DELETE ITABND WHERE? FIS_PERIOD <> Z_MONAT.

? DELETE ADJACENT DUPLICATES FROM ITABND COMPARING COMP_CODE GL_ACCOUNT? FISC_YEAR? FIS_PERIOD.

? LOOP AT ITABND.
??? MOVE-CORRESPONDING ITABND TO ITABNDZ.
??? COLLECT ITABNDZ.
? ENDLOOP.

? LOOP AT ITABNDZ.
??? W_LOOP = SY-TABIX.
??? ZDMBTR60 = ITABNDZ-BALANCE.
? ENDLOOP.

ENDFORM.??????????????????????????????????????????????????? " get_data5

*&---------------------------------------------------------------------*
*&????? Form?? output_data1.
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
FORM? OUTPUT_DATA1.
? DATA: ZYEARS(4) TYPE C,
????? ZMONTHS(2) TYPE C,
????? ZBB(10) TYPE C,
????? ZDAYS(2) TYPE C.
? ZYEARS = SY-DATUM+0(4).
? ZMONTHS = SY-DATUM+4(2).
? ZDAYS = SY-DATUM+6(2).
*人民幣元
*日幣
*美元
? IF P_BUKRS? = 'NL10'.
??? ZBB = '日幣'.
? ELSEIF P_BUKRS? = 'KY20'.
??? ZBB = '美元'.
? ELSEIF? P_BUKRS? <>? 'NL10' OR? P_BUKRS? <>? 'KY20'? .
??? ZBB = '人民幣元'.
? ENDIF.

? IF P_BUKRS? = 'NL10'.

??? ZDMBTRY09 =? ZDMBTRY09 * 100.
??? ZDMBTR09? =? ZDMBTR09? * 100.
??? ZDMBTRY10 =? ZDMBTRY10 * 100.
??? ZDMBTR10 =? ZDMBTR10? * 100.
??? ZDMBTRY11 =? ZDMBTRY11 * 100.
??? ZDMBTR11 =? ZDMBTR11? * 100.

??? ZDMBTRY08 =? ZDMBTRY08 * 100.
??? ZDMBTR08 =? ZDMBTR08? * 100.

??? ZDMBTRY21 =? ZDMBTRY21 * 100.
??? ZDMBTR21 =? ZDMBTR21? * 100.

??? ZDMBTRY14 =? ZDMBTRY14 * 100.
??? ZDMBTR14 =? ZDMBTR14? * 100.

??? ZDMBTRY22 =? ZDMBTRY22 * 100.
??? ZDMBTR22 =? ZDMBTR22? * 100.

??? ZDMBTRY18 =? ZDMBTRY18 * 100.
??? ZDMBTR18 =? ZDMBTR18? * 100.

??? ZDMBTRY19 =? ZDMBTRY19 * 100.
??? ZDMBTR19 =? ZDMBTR19? * 100.

??? ZDMBTRY20 =? ZDMBTRY20 * 100.
??? ZDMBTR20 =? ZDMBTR20? * 100.

??? ZDMBTRY23 =? ZDMBTRY23 * 100.
??? ZDMBTR23 =? ZDMBTR23? * 100.

??? ZDMBTRY30 =? ZDMBTRY30? * 100.
??? ZDMBTR30 =? ZDMBTR30? * 100.

??? ZDMBTRY26 =? ZDMBTRY26? * 100.
??? ZDMBTR26 =? ZDMBTR26? * 100.

??? ZDMBTRY28 =? ZDMBTRY28? * 100.
??? ZDMBTR28 =? ZDMBTR28? * 100.

??? ZDMBTRY27 =? ZDMBTRY27? * 100.
??? ZDMBTR27 =? ZDMBTR27? * 100.

??? ZDMBTRY29 =? ZDMBTRY29? * 100.
??? ZDMBTR29 =? ZDMBTR29? * 100.

??? ZDMBTRY39 =? ZDMBTRY39? * 100.
??? ZDMBTR39 =? ZDMBTR39? * 100.

??? ZDMBTRY40 =? ZDMBTRY40? * 100.
??? ZDMBTR40 =? ZDMBTR40? * 100.

??? ZDMBTRY36 =? ZDMBTRY36? * 100.
??? ZDMBTR36 =? ZDMBTR36? * 100.

??? ZDMBTRY35 =? ZDMBTRY35? * 100.
??? ZDMBTR35 =? ZDMBTR35? * 100.

??? ZDMBTRY37 =? ZDMBTRY37? * 100.
??? ZDMBTR37 =? ZDMBTR37? * 100.

??? ZDMBTRY38 =? ZDMBTRY38? * 100.
??? ZDMBTR38 =? ZDMBTR38? * 100.

??? ZDMBTRY46 =? ZDMBTRY46? * 100.
??? ZDMBTR46 =? ZDMBTR46? * 100.

??? ZDMBTRY43 =? ZDMBTRY43? * 100.
??? ZDMBTR43 =? ZDMBTR43? * 100.

??? ZDMBTRY44 =? ZDMBTRY44? * 100.
??? ZDMBTR44 =? ZDMBTR44? * 100.

??? ZDMBTRY45 =? ZDMBTRY45? * 100.
??? ZDMBTR45 =? ZDMBTR45? * 100.

??? ZDMBTRY55 =? ZDMBTRY55? * 100.
??? ZDMBTR55 =? ZDMBTR55? * 100.

??? ZDMBTRY56 =? ZDMBTRY56? * 100.
??? ZDMBTR56 =? ZDMBTR56? * 100.

??? ZDMBTRY57 =? ZDMBTRY57? * 100.
??? ZDMBTR57 =? ZDMBTR57? * 100.

??? ZDMBTRY53 =? ZDMBTRY53? * 100.
??? ZDMBTR53 =? ZDMBTR53? * 100.

??? ZDMBTRY54 =? ZDMBTRY54? * 100.
??? ZDMBTR54 =? ZDMBTR54? * 100.

??? ZDMBTRY58 =? ZDMBTRY58? * 100.
??? ZDMBTR58 =? ZDMBTR58? * 100.

??? ZDMBTRY59 =? ZDMBTRY59? * 100.
??? ZDMBTR59 =? ZDMBTR59? * 100.

??? ZDMBTRY60 =? ZDMBTRY60 . " * 100. 201029?? sunfeng
??? ZDMBTR60 =? ZDMBTR60 ."?? * 100. 201029?? sunfeng



??? ZDMBTR61? = ZDMBTR59? +? ZDMBTR60.
??? ZDMBTRY61 = ZDMBTRY59 +? ZDMBTRY60.


??? WRITE: 48 '現　金　流　量　表'. SKIP 1.
??? WRITE: /80 '會企03表2009版'.??????????????????????????????? " SKIP 1.
??? WRITE:? / '? 報表名稱:',? 80 '現金流量表'.
??? WRITE: / '? 公司名稱:'.
??? WRITE: 80 IT_BSEG-BUTXT.
??? WRITE: / '? 報表期間:',? 80 P_GJAHR,85'年',P_MONAT,90'月'.
*? WRITE: / '出表時間:',zyears,'年',zmonths,'月',zdays,'日'.
*? WRITE:/66 '報 表:','CASH',80 '操作人:',SY-UNAME.
??? WRITE: / '? 貨幣單位:',?????????????????????????????? "P_BUKRS INTENSIFIED OFF, ZBUTXT INTENSIFIED OFF,
***??????? 66 '年 度:',P_GJAHR,
*????????? 80 '人民幣元'.ZBB
??????? 80 ZBB.
??? SKIP 1. ULINE /(110). WRITE /1 '|'. "WRITE 80 '|'.
??? WRITE: '項???????????? 目', 48 '|','行 次', '|',
?????????? 57 '本月累計數',80 '|', 81 '本年累計數',110 '|'.
??? ULINE /(110).
??? WRITE: /1 '|',? '一、經營活動產生的現金流量：',48 '|',
????????????? 56 '|',80 '|',110 '|'.
??? ULINE /(110).
??? WRITE: /1 '|', 7 '銷售商品、提供勞務收到的現金',48 '|', 50 '1',
*????????? 56 '|',57 zdmbtry01 NO-SIGN,80 '|',81 zdmbtr01 NO-SIGN,110 '|'.??? "NO-SIGN取絕對值
??????????? 56 '|',57 ZDMBTRY09 ,80 '|',81 ZDMBTR09 ,110 '|'.??? "NO-SIGN取絕對值
??? ULINE /(110).

??? WRITE: /1 '|', 7 '收到的稅費返還',48 '|', 50 '2',
??????????? 56 '|',57 ZDMBTRY10 ,80 '|',81 ZDMBTR10 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '收到其他與經營活動有關的現金',48 '|', 50 '3',
??????????? 56 '|',57 ZDMBTRY11 ,80 '|',81 ZDMBTR11 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 經營活動現金流入小計',48 '|', 50 '4',
??????????? 56 '|',57 ZDMBTRY08 ,80 '|',81 ZDMBTR08 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '購買商品、接受勞務支付的現金',48 '|', 50 '5',
??????????? 56 '|',57 ZDMBTRY21 ,80 '|',81 ZDMBTR21 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '支付給職工以及為職工支付的現金',48 '|', 50 '6',
??????????? 56 '|',57 ZDMBTRY14 ,80 '|',81 ZDMBTR14 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '支付的各項稅費',48 '|', 50 '7',
??????????? 56 '|',57 ZDMBTRY22 ,80 '|',81 ZDMBTR22 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '支付其他與經營活動有關的現金',48 '|', 50 '8',
?????????? 56 '|',57 ZDMBTRY18 , 80 '|',81 ZDMBTR18 , 110 '|'.
*???????? 56 '|',57 zdmbtry08 NO-SIGN, 80 '|',81 zdmbtr08 NO-SIGN , 110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 經營活動現金流出小計',48 '|', 50 '9',
??????????? 56 '|',57 ZDMBTRY19 ,80 '|',81 ZDMBTR19 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? 7'經營活動產生的現金流量凈額',48 '|', 50 '10',
??????????? 56 '|',57 ZDMBTRY20 ,80 '|',81 ZDMBTR20 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', '二、投資活動產生的現金流量：',48 '|', 50 ' ',
*????????? 56 '|',57 zdmbtry12 ,80 '|',81 zdmbtr12? ,110 '|'.
??????????????????????? 56 '|',80 '|',110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '收回投資收到的現金款',48 '|', 50 '11',
??????????? 56 '|',57 ZDMBTRY23 ,80 '|',81 ZDMBTR23? ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '取得投資收益收到的現金',48 '|', 50 '12',
??????????? 56 '|',57 ZDMBTRY30 ,80 '|',81 ZDMBTR30 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '處置固定資產、無形資產和其他長期資產收回',48 '|', 50 '13',
??????????? 56 '|',57 ZDMBTRY26 ,80 '|',81 ZDMBTR26? ,110'|', /1 '|',?????? "? '|'.
?????????? 7 '的現金凈額',48 '|', 56 '|',80 '|',110 '|'.

??? ULINE /(110).

??? WRITE: /1 '|', 7 '處置子公司及其他營業單位收到的現金凈額',48 '|', 50 '14',
??????????? 56 '|',57 ZDMBTRY28 ,80 '|',81 ZDMBTR28 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? 7'收到其他與投資活動有關的現金',48 '|', 50 '15',
?????????? 56 '|',57 ZDMBTRY27 , 80 '|',81 ZDMBTR27 , 110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 投資活動現金流入小計',48 '|', 50 '16',
??????????? 56 '|',57 ZDMBTRY29 , 80 '|',81 ZDMBTR29? ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '購建固定資產、無形資產和其他長期資產支付',48 '|', 50 '17',
??????????? 56 '|',57 ZDMBTRY39 ,80 '|',81 ZDMBTR39 ,110 '|', /1 '|',?????? "? '|'.
?????????? 7 '的現金',48 '|', 56 '|',80 '|',110 '|'.

??? ULINE /(110).

??? WRITE: /1 '|', 7 '投資支付的現金',48 '|', 50 '18',
??????????? 56 '|',57 ZDMBTRY40 ,80 '|',81 ZDMBTR40? ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '取得子公司及其他營業單位支付的現金凈額',48 '|', 50 '19',
??????????? 56 '|',57 ZDMBTRY36 ,80 '|',81 ZDMBTR36 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '支付其他與投資活動有關的現金',48 '|', 50 '20',
??????????? 56 '|',57 ZDMBTRY35 ,80 '|',81 ZDMBTR35 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 投資活動現金流出小計',48 '|', 50 '21',
??????????? 56 '|',57 ZDMBTRY37 , 80 '|',81 ZDMBTR37? ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '投資活動產生的現金流量凈額',48 '|', 50 '22',
??????????? 56 '|',57 ZDMBTRY38 ,80 '|',81 ZDMBTR38 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '三、籌資活動產生的現金流量：',48 '|',
??????????? 56 '|',80 '|',110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '吸收投資收到的現金',48 '|', 50 '23',
??????????? 56 '|',57 ZDMBTRY46 ,80 '|',81 ZDMBTR46 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '取得借款收到的現金',48 '|', 50 '24',
??????????? 56 '|',57 ZDMBTRY43 ,80 '|',81 ZDMBTR43 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '收到其他與籌資活動有關的現金',48 '|', 50 '25',
??????????? 56 '|',57 ZDMBTRY44 ,80 '|',81 ZDMBTR44 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 籌資活動現金流入小計',48 '|', 50 '26',
??????????? 56 '|',57 ZDMBTRY45 ,80 '|',81 ZDMBTR45 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? 7'償還債務支付的現金',48 '|', 50 '27',
??????????? 56 '|',57 ZDMBTRY55 , 80 '|',81 ZDMBTR55 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '分配股利、利潤或償付利息支付的現金',48 '|', 50 '28',
??????????? 56 '|',57 ZDMBTRY56 , 80 '|',81 ZDMBTR56 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? 7'支付其他與籌資活動有關的現金',48 '|', 50 '29',
????????? 56 '|',57 ZDMBTRY57 , 80 '|',81 ZDMBTR57 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 籌資活動現金流出小計',48 '|', 50 '30',
??????????? 56 '|',57 ZDMBTRY53 , 80 '|',81 ZDMBTR53 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '籌資活動產生的現金流量凈額',48 '|', 50 '31',
????????? 56 '|',57 ZDMBTRY54 , 80 '|',81 ZDMBTR54 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', '四、匯率變動對現金的影響',48 '|',? 50 '32',
??????????? 56 '|',57 ZDMBTRY58 , 80 '|',81 ZDMBTR58 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', '五、現金及現金等價物凈增加額',48 '|',? 50 '33',
??????????? 56 '|',57 ZDMBTRY59 , 80 '|',81 ZDMBTR59 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', '?? 期初現金及現金等價物余額',48 '|', 50 '34',
??????????? 56 '|',57 ZDMBTRY60 ,80 '|',81 ZDMBTR60 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', '六、期末現金及現金等價物余額',48 '|',? 50 '35',
??????????? 56 '|',57 ZDMBTRY61 , 80 '|',81 ZDMBTR61 ,110 '|'.
??? ULINE /(110).
??? WRITE: / '企業負責人：',20 '主管會計：',38 '制 表：',SY-UNAME,55 '報表月份：', P_MONAT NO-GAP ,'月' NO-GAP,72 '報出日期：',
?????????? ZYEARS NO-GAP ,'年' NO-GAP,ZMONTHS NO-GAP,
?????????? '月' NO-GAP,ZDAYS NO-GAP, '日' NO-GAP.
*endform.??????????????????? " output

? ELSE.


??? ZDMBTR61? = ZDMBTR59? +? ZDMBTR60.
??? ZDMBTRY61 = ZDMBTRY59 +? ZDMBTRY60.


??? WRITE: 48 '現　金　流　量　表'. SKIP 1.
??? WRITE: /80 '會企03表2009版'.??????????????????????????????? " SKIP 1.
??? WRITE:? / '? 報表名稱:',? 80 '現金流量表'.
??? WRITE: / '? 公司名稱:'.
??? WRITE: 80 IT_BSEG-BUTXT.
??? WRITE: / '? 報表期間:',? 80 P_GJAHR,85'年',P_MONAT,90'月'.
*? WRITE: / '出表時間:',zyears,'年',zmonths,'月',zdays,'日'.
*? WRITE:/66 '報 表:','CASH',80 '操作人:',SY-UNAME.
??? WRITE: / '? 貨幣單位:',?????????????????????????????? "P_BUKRS INTENSIFIED OFF, ZBUTXT INTENSIFIED OFF,
***??????? 66 '年 度:',P_GJAHR,
*????????? 80 '人民幣元'.ZBB
??????? 80 ZBB.
??? SKIP 1. ULINE /(110). WRITE /1 '|'. "WRITE 80 '|'.
??? WRITE: '項???????????? 目', 48 '|','行 次', '|',
?????????? 57 '本月累計數',80 '|', 81 '本年累計數',110 '|'.
??? ULINE /(110).
??? WRITE: /1 '|',? '一、經營活動產生的現金流量：',48 '|',
????????????? 56 '|',80 '|',110 '|'.
??? ULINE /(110).
??? WRITE: /1 '|', 7 '銷售商品、提供勞務收到的現金',48 '|', 50 '1',
*????????? 56 '|',57 zdmbtry01 NO-SIGN,80 '|',81 zdmbtr01 NO-SIGN,110 '|'.??? "NO-SIGN取絕對值
??????????? 56 '|',57 ZDMBTRY09 ,80 '|',81 ZDMBTR09 ,110 '|'.??? "NO-SIGN取絕對值
??? ULINE /(110).

??? WRITE: /1 '|', 7 '收到的稅費返還',48 '|', 50 '2',
??????????? 56 '|',57 ZDMBTRY10 ,80 '|',81 ZDMBTR10 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '收到其他與經營活動有關的現金',48 '|', 50 '3',
??????????? 56 '|',57 ZDMBTRY11 ,80 '|',81 ZDMBTR11 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 經營活動現金流入小計',48 '|', 50 '4',
??????????? 56 '|',57 ZDMBTRY08 ,80 '|',81 ZDMBTR08 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '購買商品、接受勞務支付的現金',48 '|', 50 '5',
??????????? 56 '|',57 ZDMBTRY21 ,80 '|',81 ZDMBTR21 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '支付給職工以及為職工支付的現金',48 '|', 50 '6',
??????????? 56 '|',57 ZDMBTRY14 ,80 '|',81 ZDMBTR14 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '支付的各項稅費',48 '|', 50 '7',
??????????? 56 '|',57 ZDMBTRY22 ,80 '|',81 ZDMBTR22 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '支付其他與經營活動有關的現金',48 '|', 50 '8',
?????????? 56 '|',57 ZDMBTRY18 , 80 '|',81 ZDMBTR18 , 110 '|'.
*???????? 56 '|',57 zdmbtry08 NO-SIGN, 80 '|',81 zdmbtr08 NO-SIGN , 110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 經營活動現金流出小計',48 '|', 50 '9',
??????????? 56 '|',57 ZDMBTRY19 ,80 '|',81 ZDMBTR19 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? 7'經營活動產生的現金流量凈額',48 '|', 50 '10',
??????????? 56 '|',57 ZDMBTRY20 ,80 '|',81 ZDMBTR20 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', '二、投資活動產生的現金流量：',48 '|', 50 ' ',
*????????? 56 '|',57 zdmbtry12 ,80 '|',81 zdmbtr12? ,110 '|'.
??????????????????????? 56 '|',80 '|',110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '收回投資收到的現金款',48 '|', 50 '11',
??????????? 56 '|',57 ZDMBTRY23 ,80 '|',81 ZDMBTR23? ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '取得投資收益收到的現金',48 '|', 50 '12',
??????????? 56 '|',57 ZDMBTRY30 ,80 '|',81 ZDMBTR30 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '處置固定資產、無形資產和其他長期資產收回',48 '|', 50 '13',
??????????? 56 '|',57 ZDMBTRY26 ,80 '|',81 ZDMBTR26? ,110'|', /1 '|',?????? "? '|'.
?????????? 7 '的現金凈額',48 '|', 56 '|',80 '|',110 '|'.

??? ULINE /(110).

??? WRITE: /1 '|', 7 '處置子公司及其他營業單位收到的現金凈額',48 '|', 50 '14',
??????????? 56 '|',57 ZDMBTRY28 ,80 '|',81 ZDMBTR28 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? 7'收到其他與投資活動有關的現金',48 '|', 50 '15',
?????????? 56 '|',57 ZDMBTRY27 , 80 '|',81 ZDMBTR27 , 110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 投資活動現金流入小計',48 '|', 50 '16',
??????????? 56 '|',57 ZDMBTRY29 , 80 '|',81 ZDMBTR29? ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '購建固定資產、無形資產和其他長期資產支付',48 '|', 50 '17',
??????????? 56 '|',57 ZDMBTRY39 ,80 '|',81 ZDMBTR39 ,110 '|', /1 '|',?????? "? '|'.
?????????? 7 '的現金',48 '|', 56 '|',80 '|',110 '|'.

??? ULINE /(110).

??? WRITE: /1 '|', 7 '投資支付的現金',48 '|', 50 '18',
??????????? 56 '|',57 ZDMBTRY40 ,80 '|',81 ZDMBTR40? ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '取得子公司及其他營業單位支付的現金凈額',48 '|', 50 '19',
??????????? 56 '|',57 ZDMBTRY36 ,80 '|',81 ZDMBTR36 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '支付其他與投資活動有關的現金',48 '|', 50 '20',
??????????? 56 '|',57 ZDMBTRY35 ,80 '|',81 ZDMBTR35 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 投資活動現金流出小計',48 '|', 50 '21',
??????????? 56 '|',57 ZDMBTRY37 , 80 '|',81 ZDMBTR37? ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '投資活動產生的現金流量凈額',48 '|', 50 '22',
??????????? 56 '|',57 ZDMBTRY38 ,80 '|',81 ZDMBTR38 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '三、籌資活動產生的現金流量：',48 '|',
??????????? 56 '|',80 '|',110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '吸收投資收到的現金',48 '|', 50 '23',
??????????? 56 '|',57 ZDMBTRY46 ,80 '|',81 ZDMBTR46 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '取得借款收到的現金',48 '|', 50 '24',
??????????? 56 '|',57 ZDMBTRY43 ,80 '|',81 ZDMBTR43 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '收到其他與籌資活動有關的現金',48 '|', 50 '25',
??????????? 56 '|',57 ZDMBTRY44 ,80 '|',81 ZDMBTR44 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 籌資活動現金流入小計',48 '|', 50 '26',
??????????? 56 '|',57 ZDMBTRY45 ,80 '|',81 ZDMBTR45 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? 7'償還債務支付的現金',48 '|', 50 '27',
??????????? 56 '|',57 ZDMBTRY55 , 80 '|',81 ZDMBTR55 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '分配股利、利潤或償付利息支付的現金',48 '|', 50 '28',
??????????? 56 '|',57 ZDMBTRY56 , 80 '|',81 ZDMBTR56 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? 7'支付其他與籌資活動有關的現金',48 '|', 50 '29',
????????? 56 '|',57 ZDMBTRY57 , 80 '|',81 ZDMBTR57 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|',? '????? 籌資活動現金流出小計',48 '|', 50 '30',
??????????? 56 '|',57 ZDMBTRY53 , 80 '|',81 ZDMBTR53 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', 7 '籌資活動產生的現金流量凈額',48 '|', 50 '31',
????????? 56 '|',57 ZDMBTRY54 , 80 '|',81 ZDMBTR54 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', '四、匯率變動對現金的影響',48 '|',? 50 '32',
??????????? 56 '|',57 ZDMBTRY58 , 80 '|',81 ZDMBTR58 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', '五、現金及現金等價物凈增加額',48 '|',? 50 '33',
??????????? 56 '|',57 ZDMBTRY59 , 80 '|',81 ZDMBTR59 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', '?? 期初現金及現金等價物余額',48 '|', 50 '34',
??????????? 56 '|',57 ZDMBTRY60 ,80 '|',81 ZDMBTR60 ,110 '|'.
??? ULINE /(110).

??? WRITE: /1 '|', '六、期末現金及現金等價物余額',48 '|',? 50 '35',
??????????? 56 '|',57 ZDMBTRY61 , 80 '|',81 ZDMBTR61 ,110 '|'.
??? ULINE /(110).
??? WRITE: / '企業負責人：',20 '主管會計：',38 '制 表：',SY-UNAME,55 '報表月份：', P_MONAT NO-GAP ,'月' NO-GAP,72 '報出日期：',
?????????? ZYEARS NO-GAP ,'年' NO-GAP,ZMONTHS NO-GAP,
?????????? '月' NO-GAP,ZDAYS NO-GAP, '日' NO-GAP.
*endform.??????????????????? " output

? ENDIF.
ENDFORM.??????????????????? "output_data1
*&---------------------------------------------------------------------*
*&????? Form?? output_data11.
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
FORM? OUTPUT_DATA11.
? DATA: ZYEARS(4) TYPE C,
????? ZMONTHS(2) TYPE C,
????? ZBB(10) TYPE C,
????? ZDAYS(2) TYPE C.
? ZYEARS = SY-DATUM+0(4).
? ZMONTHS = SY-DATUM+4(2).
? ZDAYS = SY-DATUM+6(2).


*人民幣元
*日幣
*美元
? IF P_BUKRS? = 'NL10'.
??? ZBB = '日幣'.
? ELSEIF P_BUKRS? = 'KY20'.
??? ZBB = '美元'.
? ELSEIF? P_BUKRS? <>? 'NL10' OR? P_BUKRS? <>? 'KY20' .
??? ZBB = '人民幣元'.
? ENDIF.


? IF P_BUKRS? = 'NL10'.

??? ZDMBTRY09 =? ZDMBTRY09 * 100.
??? ZDMBTR09? =? ZDMBTR09? * 100.
??? ZDMBTRY10 =? ZDMBTRY10 * 100.
??? ZDMBTR10 =? ZDMBTR10? * 100.
??? ZDMBTRY11 =? ZDMBTRY11 * 100.
??? ZDMBTR11 =? ZDMBTR11? * 100.

??? ZDMBTRY08 =? ZDMBTRY08 * 100.
??? ZDMBTR08 =? ZDMBTR08? * 100.

??? ZDMBTRY21 =? ZDMBTRY21 * 100.
??? ZDMBTR21 =? ZDMBTR21? * 100.

??? ZDMBTRY14 =? ZDMBTRY14 * 100.
??? ZDMBTR14 =? ZDMBTR14? * 100.

??? ZDMBTRY22 =? ZDMBTRY22 * 100.
??? ZDMBTR22 =? ZDMBTR22? * 100.

??? ZDMBTRY18 =? ZDMBTRY18 * 100.
??? ZDMBTR18 =? ZDMBTR18? * 100.

??? ZDMBTRY19 =? ZDMBTRY19 * 100.
??? ZDMBTR19 =? ZDMBTR19? * 100.

??? ZDMBTRY20 =? ZDMBTRY20 * 100.
??? ZDMBTR20 =? ZDMBTR20? * 100.

??? ZDMBTRY23 =? ZDMBTRY23 * 100.
??? ZDMBTR23 =? ZDMBTR23? * 100.

??? ZDMBTRY30 =? ZDMBTRY30? * 100.
??? ZDMBTR30 =? ZDMBTR30? * 100.

??? ZDMBTRY26 =? ZDMBTRY26? * 100.
??? ZDMBTR26 =? ZDMBTR26? * 100.

??? ZDMBTRY28 =? ZDMBTRY28? * 100.
??? ZDMBTR28 =? ZDMBTR28? * 100.

??? ZDMBTRY27 =? ZDMBTRY27? * 100.
??? ZDMBTR27 =? ZDMBTR27? * 100.

??? ZDMBTRY29 =? ZDMBTRY29? * 100.
??? ZDMBTR29 =? ZDMBTR29? * 100.

??? ZDMBTRY39 =? ZDMBTRY39? * 100.
??? ZDMBTR39 =? ZDMBTR39? * 100.

??? ZDMBTRY40 =? ZDMBTRY40? * 100.
??? ZDMBTR40 =? ZDMBTR40? * 100.

??? ZDMBTRY36 =? ZDMBTRY36? * 100.
??? ZDMBTR36 =? ZDMBTR36? * 100.

??? ZDMBTRY35 =? ZDMBTRY35? * 100.
??? ZDMBTR35 =? ZDMBTR35? * 100.

??? ZDMBTRY37 =? ZDMBTRY37? * 100.
??? ZDMBTR37 =? ZDMBTR37? * 100.

??? ZDMBTRY38 =? ZDMBTRY38? * 100.
??? ZDMBTR38 =? ZDMBTR38? * 100.

??? ZDMBTRY46 =? ZDMBTRY46? * 100.
??? ZDMBTR46 =? ZDMBTR46? * 100.

??? ZDMBTRY43 =? ZDMBTRY43? * 100.
??? ZDMBTR43 =? ZDMBTR43? * 100.

??? ZDMBTRY44 =? ZDMBTRY44? * 100.
??? ZDMBTR44 =? ZDMBTR44? * 100.

??? ZDMBTRY45 =? ZDMBTRY45? * 100.
??? ZDMBTR45 =? ZDMBTR45? * 100.

??? ZDMBTRY55 =? ZDMBTRY55? * 100.
??? ZDMBTR55 =? ZDMBTR55? * 100.

??? ZDMBTRY56 =? ZDMBTRY56? * 100.
??? ZDMBTR56 =? ZDMBTR56? * 100.

??? ZDMBTRY57 =? ZDMBTRY57? * 100.
??? ZDMBTR57 =? ZDMBTR57? * 100.

??? ZDMBTRY53 =? ZDMBTRY53? * 100.
??? ZDMBTR53 =? ZDMBTR53? * 100.

??? ZDMBTRY54 =? ZDMBTRY54? * 100.
??? ZDMBTR54 =? ZDMBTR54? * 100.

??? ZDMBTRY58 =? ZDMBTRY58? * 100.
??? ZDMBTR58 =? ZDMBTR58? * 100.

??? ZDMBTRY59 =? ZDMBTRY59? * 100.
??? ZDMBTR59 =? ZDMBTR59? * 100.

??? ZDMBTRY60 =? ZDMBTRY60."? * 100. 201029?? sunfeng
??? ZDMBTR60 =? ZDMBTR60."? * 100. 201029?? sunfeng

??? ZDMBTR61? = ZDMBTR59? +? ZDMBTR60.
??? ZDMBTRY61 = ZDMBTRY59 +? ZDMBTRY60.

??? WRITE: 48 '現　金　流　量　表'. SKIP 1.
??? WRITE: /80 '會企03表2009版'.??????????????????????????????? " SKIP 1.
??? WRITE:? / '? 報表名稱:',? 80 '現金流量表'.
??? WRITE: / '? 公司名稱:'.
??? WRITE: 80 IT_BSEG-BUTXT.
??? WRITE: / '? 報表期間:',? 80 P_GJAHR,85'年',P_MONAT,90'月'.
*? WRITE: / '出表時間:',zyears,'年',zmonths,'月',zdays,'日'.
*? WRITE:/66 '報 表:','CASH',80 '操作人:',SY-UNAME.
??? WRITE: / '? 貨幣單位:',?????????????????????????????? "P_BUKRS INTENSIFIED OFF, ZBUTXT INTENSIFIED OFF,
***??????? 66 '年 度:',P_GJAHR,

*????????? 80 '人民幣元'.
????????? 80 ZBB.
??? SKIP 1. ULINE /(110). WRITE /1 '|'. "WRITE 80 '|'.
??? WRITE: '項???????????? 目', 48 '|','行 次', '|',
?????????? 57 '本月累計數',80 '|', 81 '本年累計數',110 '|'.
??? ULINE /(110).
??? WRITE: /1 '|',? '一、經營活動產生的現金流量：',48 '|',
????????????? 56 '|',80 '|',110 '|'.
*? ULINE /(110).
??? WRITE: /1 '|', 7 '銷售商品、提供勞務收到的現金',48 '|', 50 '1',
***????????? 56 '|',57 zdmbtry01 NO-SIGN,80 '|',81 zdmbtr01 NO-SIGN,110 '|'.??? "NO-SIGN取絕對值
??????????? 56 '|',57 ZDMBTRY09 ,80 '|',81 ZDMBTR09 ,110 '|'.??? "NO-SIGN取絕對值
*? ULINE /(110).

??? WRITE: /1 '|', 7 '收到的稅費返還',48 '|', 50 '2',
??????????? 56 '|',57 ZDMBTRY10 ,80 '|',81 ZDMBTR10 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '收到其他與經營活動有關的現金',48 '|', 50 '3',
??????????? 56 '|',57 ZDMBTRY11 ,80 '|',81 ZDMBTR11 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 經營活動現金流入小計',48 '|', 50 '4',
??????????? 56 '|',57 ZDMBTRY08 ,80 '|',81 ZDMBTR08 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '購買商品、接受勞務支付的現金',48 '|', 50 '5',
??????????? 56 '|',57 ZDMBTRY21 ,80 '|',81 ZDMBTR21 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '支付給職工以及為職工支付的現金',48 '|', 50 '6',
??????????? 56 '|',57 ZDMBTRY14 ,80 '|',81 ZDMBTR14 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '支付的各項稅費',48 '|', 50 '7',
??????????? 56 '|',57 ZDMBTRY22 ,80 '|',81 ZDMBTR22 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '支付其他與經營活動有關的現金',48 '|', 50 '8',
?????????? 56 '|',57 ZDMBTRY18 , 80 '|',81 ZDMBTR18 , 110 '|'.
*???????? 56 '|',57 zdmbtry08 NO-SIGN, 80 '|',81 zdmbtr08 NO-SIGN , 110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 經營活動現金流出小計',48 '|', 50 '9',
??????????? 56 '|',57 ZDMBTRY19 ,80 '|',81 ZDMBTR19 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? 7'經營活動產生的現金流量凈額',48 '|', 50 '10',
??????????? 56 '|',57 ZDMBTRY20 ,80 '|',81 ZDMBTR20 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', '二、投資活動產生的現金流量：',48 '|', 50 ' ',
*????????? 56 '|',57 zdmbtry12 ,80 '|',81 zdmbtr12? ,110 '|'.
??????????????????????? 56 '|',80 '|',110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '收回投資收到的現金款',48 '|', 50 '11',
??????????? 56 '|',57 ZDMBTRY23 ,80 '|',81 ZDMBTR23? ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '取得投資收益收到的現金',48 '|', 50 '12',
??????????? 56 '|',57 ZDMBTRY30 ,80 '|',81 ZDMBTR30 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '處置固定資產、無形資產和其他長期資產收回',48 '|', 50 '13',
??????????? 56 '|',57 ZDMBTRY26 ,80 '|',81 ZDMBTR26? ,110'|', /1 '|',?????? "? '|'.
?????????? 7 '的現金凈額',48 '|', 56 '|',80 '|',110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '處置子公司及其他營業單位收到的現金凈額',48 '|', 50 '14',
??????????? 56 '|',57 ZDMBTRY28 ,80 '|',81 ZDMBTR28 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? 7'收到其他與投資活動有關的現金',48 '|', 50 '15',
?????????? 56 '|',57 ZDMBTRY27 , 80 '|',81 ZDMBTR27 , 110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 投資活動現金流入小計',48 '|', 50 '16',
??????????? 56 '|',57 ZDMBTRY29 , 80 '|',81 ZDMBTR29? ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '購建固定資產、無形資產和其他長期資產支付',48 '|', 50 '17',
??????????? 56 '|',57 ZDMBTRY39 ,80 '|',81 ZDMBTR39 ,110 '|', /1 '|',?????? "? '|'.
?????????? 7 '的現金',48 '|', 56 '|',80 '|',110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '投資支付的現金',48 '|', 50 '18',
??????????? 56 '|',57 ZDMBTRY40 ,80 '|',81 ZDMBTR40? ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '取得子公司及其他營業單位支付的現金凈額',48 '|', 50 '19',
??????????? 56 '|',57 ZDMBTRY36 ,80 '|',81 ZDMBTR36 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '支付其他與投資活動有關的現金',48 '|', 50 '20',
??????????? 56 '|',57 ZDMBTRY35 ,80 '|',81 ZDMBTR35 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 投資活動現金流出小計',48 '|', 50 '21',
??????????? 56 '|',57 ZDMBTRY37 , 80 '|',81 ZDMBTR37? ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '投資活動產生的現金流量凈額',48 '|', 50 '22',
??????????? 56 '|',57 ZDMBTRY38 ,80 '|',81 ZDMBTR38 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '三、籌資活動產生的現金流量：',48 '|',
??????????? 56 '|',80 '|',110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '吸收投資收到的現金',48 '|', 50 '23',
??????????? 56 '|',57 ZDMBTRY46 ,80 '|',81 ZDMBTR46 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '取得借款收到的現金',48 '|', 50 '24',
??????????? 56 '|',57 ZDMBTRY43 ,80 '|',81 ZDMBTR43 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '收到其他與籌資活動有關的現金',48 '|', 50 '25',
??????????? 56 '|',57 ZDMBTRY44 ,80 '|',81 ZDMBTR44 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 籌資活動現金流入小計',48 '|', 50 '26',
??????????? 56 '|',57 ZDMBTRY45 ,80 '|',81 ZDMBTR45 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? 7'償還債務支付的現金',48 '|', 50 '27',
??????????? 56 '|',57 ZDMBTRY55 , 80 '|',81 ZDMBTR55 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '分配股利、利潤或償付利息支付的現金',48 '|', 50 '28',
??????????? 56 '|',57 ZDMBTRY56 , 80 '|',81 ZDMBTR56 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? 7'支付其他與籌資活動有關的現金',48 '|', 50 '29',
????????? 56 '|',57 ZDMBTRY57 , 80 '|',81 ZDMBTR57 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 籌資活動現金流出小計',48 '|', 50 '30',
??????????? 56 '|',57 ZDMBTRY53 , 80 '|',81 ZDMBTR53 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '籌資活動產生的現金流量凈額',48 '|', 50 '31',
????????? 56 '|',57 ZDMBTRY54 , 80 '|',81 ZDMBTR54 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', '四、匯率變動對現金的影響',48 '|',? 50 '32',
??????????? 56 '|',57 ZDMBTRY58 , 80 '|',81 ZDMBTR58 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', '五、現金及現金等價物凈增加額',48 '|',? 50 '33',
??????????? 56 '|',57 ZDMBTRY59 , 80 '|',81 ZDMBTR59 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', '?? 期初現金及現金等價物余額',48 '|', 50 '34',
??????????? 56 '|',57 ZDMBTRY60 ,80 '|',81 ZDMBTR60 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', '六、期末現金及現金等價物余額',48 '|',? 50 '35',
??????????? 56 '|',57 ZDMBTRY61 , 80 '|',81 ZDMBTR61 ,110 '|'.
??? ULINE /(110).
??? WRITE: / '企業負責人：',20 '主管會計：',38 '制 表：',SY-UNAME,55 '報表月份：', P_MONAT NO-GAP ,'月' NO-GAP,72 '報出日期：',
?????????? ZYEARS NO-GAP ,'年' NO-GAP,ZMONTHS NO-GAP,
?????????? '月' NO-GAP,ZDAYS NO-GAP, '日' NO-GAP.

? ELSE.

??? ZDMBTR61? = ZDMBTR59? +? ZDMBTR60.
??? ZDMBTRY61 = ZDMBTRY59 +? ZDMBTRY60.

??? WRITE: 48 '現　金　流　量　表'. SKIP 1.
??? WRITE: /80 '會企03表2009版'.??????????????????????????????? " SKIP 1.
??? WRITE:? / '? 報表名稱:',? 80 '現金流量表'.
??? WRITE: / '? 公司名稱:'.
??? WRITE: 80 IT_BSEG-BUTXT.
??? WRITE: / '? 報表期間:',? 80 P_GJAHR,85'年',P_MONAT,90'月'.
*? WRITE: / '出表時間:',zyears,'年',zmonths,'月',zdays,'日'.
*? WRITE:/66 '報 表:','CASH',80 '操作人:',SY-UNAME.
??? WRITE: / '? 貨幣單位:',?????????????????????????????? "P_BUKRS INTENSIFIED OFF, ZBUTXT INTENSIFIED OFF,
***??????? 66 '年 度:',P_GJAHR,
*????????? 80 '人民幣元'.
??????????????? 80 ZBB.
??? SKIP 1. ULINE /(110). WRITE /1 '|'. "WRITE 80 '|'.
??? WRITE: '項???????????? 目', 48 '|','行 次', '|',
?????????? 57 '本月累計數',80 '|', 81 '本年累計數',110 '|'.
??? ULINE /(110).
??? WRITE: /1 '|',? '一、經營活動產生的現金流量：',48 '|',
????????????? 56 '|',80 '|',110 '|'.
*? ULINE /(110).
??? WRITE: /1 '|', 7 '銷售商品、提供勞務收到的現金',48 '|', 50 '1',
***????????? 56 '|',57 zdmbtry01 NO-SIGN,80 '|',81 zdmbtr01 NO-SIGN,110 '|'.??? "NO-SIGN取絕對值
??????????? 56 '|',57 ZDMBTRY09 ,80 '|',81 ZDMBTR09 ,110 '|'.??? "NO-SIGN取絕對值
*? ULINE /(110).

??? WRITE: /1 '|', 7 '收到的稅費返還',48 '|', 50 '2',
??????????? 56 '|',57 ZDMBTRY10 ,80 '|',81 ZDMBTR10 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '收到其他與經營活動有關的現金',48 '|', 50 '3',
??????????? 56 '|',57 ZDMBTRY11 ,80 '|',81 ZDMBTR11 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 經營活動現金流入小計',48 '|', 50 '4',
??????????? 56 '|',57 ZDMBTRY08 ,80 '|',81 ZDMBTR08 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '購買商品、接受勞務支付的現金',48 '|', 50 '5',
??????????? 56 '|',57 ZDMBTRY21 ,80 '|',81 ZDMBTR21 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '支付給職工以及為職工支付的現金',48 '|', 50 '6',
??????????? 56 '|',57 ZDMBTRY14 ,80 '|',81 ZDMBTR14 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '支付的各項稅費',48 '|', 50 '7',
??????????? 56 '|',57 ZDMBTRY22 ,80 '|',81 ZDMBTR22 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '支付其他與經營活動有關的現金',48 '|', 50 '8',
?????????? 56 '|',57 ZDMBTRY18 , 80 '|',81 ZDMBTR18 , 110 '|'.
*???????? 56 '|',57 zdmbtry08 NO-SIGN, 80 '|',81 zdmbtr08 NO-SIGN , 110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 經營活動現金流出小計',48 '|', 50 '9',
??????????? 56 '|',57 ZDMBTRY19 ,80 '|',81 ZDMBTR19 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? 7'經營活動產生的現金流量凈額',48 '|', 50 '10',
??????????? 56 '|',57 ZDMBTRY20 ,80 '|',81 ZDMBTR20 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', '二、投資活動產生的現金流量：',48 '|', 50 ' ',
*????????? 56 '|',57 zdmbtry12 ,80 '|',81 zdmbtr12? ,110 '|'.
??????????????????????? 56 '|',80 '|',110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '收回投資收到的現金款',48 '|', 50 '11',
??????????? 56 '|',57 ZDMBTRY23 ,80 '|',81 ZDMBTR23? ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '取得投資收益收到的現金',48 '|', 50 '12',
??????????? 56 '|',57 ZDMBTRY30 ,80 '|',81 ZDMBTR30 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '處置固定資產、無形資產和其他長期資產收回',48 '|', 50 '13',
??????????? 56 '|',57 ZDMBTRY26 ,80 '|',81 ZDMBTR26? ,110'|', /1 '|',?????? "? '|'.
?????????? 7 '的現金凈額',48 '|', 56 '|',80 '|',110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '處置子公司及其他營業單位收到的現金凈額',48 '|', 50 '14',
??????????? 56 '|',57 ZDMBTRY28 ,80 '|',81 ZDMBTR28 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? 7'收到其他與投資活動有關的現金',48 '|', 50 '15',
?????????? 56 '|',57 ZDMBTRY27 , 80 '|',81 ZDMBTR27 , 110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 投資活動現金流入小計',48 '|', 50 '16',
??????????? 56 '|',57 ZDMBTRY29 , 80 '|',81 ZDMBTR29? ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '購建固定資產、無形資產和其他長期資產支付',48 '|', 50 '17',
??????????? 56 '|',57 ZDMBTRY39 ,80 '|',81 ZDMBTR39 ,110 '|', /1 '|',?????? "? '|'.
?????????? 7 '的現金',48 '|', 56 '|',80 '|',110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '投資支付的現金',48 '|', 50 '18',
??????????? 56 '|',57 ZDMBTRY40 ,80 '|',81 ZDMBTR40? ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '取得子公司及其他營業單位支付的現金凈額',48 '|', 50 '19',
??????????? 56 '|',57 ZDMBTRY36 ,80 '|',81 ZDMBTR36 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '支付其他與投資活動有關的現金',48 '|', 50 '20',
??????????? 56 '|',57 ZDMBTRY35 ,80 '|',81 ZDMBTR35 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 投資活動現金流出小計',48 '|', 50 '21',
??????????? 56 '|',57 ZDMBTRY37 , 80 '|',81 ZDMBTR37? ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '投資活動產生的現金流量凈額',48 '|', 50 '22',
??????????? 56 '|',57 ZDMBTRY38 ,80 '|',81 ZDMBTR38 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '三、籌資活動產生的現金流量：',48 '|',
??????????? 56 '|',80 '|',110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '吸收投資收到的現金',48 '|', 50 '23',
??????????? 56 '|',57 ZDMBTRY46 ,80 '|',81 ZDMBTR46 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '取得借款收到的現金',48 '|', 50 '24',
??????????? 56 '|',57 ZDMBTRY43 ,80 '|',81 ZDMBTR43 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '收到其他與籌資活動有關的現金',48 '|', 50 '25',
??????????? 56 '|',57 ZDMBTRY44 ,80 '|',81 ZDMBTR44 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 籌資活動現金流入小計',48 '|', 50 '26',
??????????? 56 '|',57 ZDMBTRY45 ,80 '|',81 ZDMBTR45 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? 7'償還債務支付的現金',48 '|', 50 '27',
??????????? 56 '|',57 ZDMBTRY55 , 80 '|',81 ZDMBTR55 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '分配股利、利潤或償付利息支付的現金',48 '|', 50 '28',
??????????? 56 '|',57 ZDMBTRY56 , 80 '|',81 ZDMBTR56 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? 7'支付其他與籌資活動有關的現金',48 '|', 50 '29',
????????? 56 '|',57 ZDMBTRY57 , 80 '|',81 ZDMBTR57 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|',? '????? 籌資活動現金流出小計',48 '|', 50 '30',
??????????? 56 '|',57 ZDMBTRY53 , 80 '|',81 ZDMBTR53 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', 7 '籌資活動產生的現金流量凈額',48 '|', 50 '31',
????????? 56 '|',57 ZDMBTRY54 , 80 '|',81 ZDMBTR54 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', '四、匯率變動對現金的影響',48 '|',? 50 '32',
??????????? 56 '|',57 ZDMBTRY58 , 80 '|',81 ZDMBTR58 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', '五、現金及現金等價物凈增加額',48 '|',? 50 '33',
??????????? 56 '|',57 ZDMBTRY59 , 80 '|',81 ZDMBTR59 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', '?? 期初現金及現金等價物余額',48 '|', 50 '34',
??????????? 56 '|',57 ZDMBTRY60 ,80 '|',81 ZDMBTR60 ,110 '|'.
*? ULINE /(110).

??? WRITE: /1 '|', '六、期末現金及現金等價物余額',48 '|',? 50 '35',
??????????? 56 '|',57 ZDMBTRY61 , 80 '|',81 ZDMBTR61 ,110 '|'.
??? ULINE /(110).
??? WRITE: / '企業負責人：',20 '主管會計：',38 '制 表：',SY-UNAME,55 '報表月份：', P_MONAT NO-GAP ,'月' NO-GAP,72 '報出日期：',
?????????? ZYEARS NO-GAP ,'年' NO-GAP,ZMONTHS NO-GAP,
?????????? '月' NO-GAP,ZDAYS NO-GAP, '日' NO-GAP.

? ENDIF.
ENDFORM.??????????????????? " output

*&---------------------------------------------------------------------*
*&????? Form?? output_data3.
*&---------------------------------------------------------------------*
FORM OUTPUT_DATA3 .
? DATA: ZYEARS(4) TYPE C,
??????? ZMONTHS(2) TYPE C,
??????? ZDAYS(2) TYPE C.
? ZYEARS = SY-DATUM+0(4).
? ZMONTHS = SY-DATUM+4(2).
? ZDAYS = SY-DATUM+6(2).

? IF P_BUKRS? = 'NL10'.
??? LOOP AT IT_BSEG.
????? W_LOOP = SY-TABIX.
????? IT_BSEG-DMBTR? =? IT_BSEG-DMBTR? * 100 .
????? MODIFY IT_BSEG INDEX SY-TABIX.
??? ENDLOOP.
? ENDIF.

? WRITE: 44 '現　金　流　量　表 明 細'. SKIP 2.
*? WRITE: / '出表時間:',zyears,'年',zmonths,'月',zdays,'日'. "SY-DATUM.
*? WRITE: /80 '會企03表'. SKIP 1.
*? WRITE:/66 '報 表:','CASH',80 '操作人:',SY-UNAME.

*? WRITE: / '編制單位:',??????? "P_BUKRS INTENSIFIED OFF, ZBUTXT INTENSIFIED OFF,
*??????? 66 '年 度:',P_GJAHR, 80 '單? 位: 元'.

*? SKIP 1. ULINE /(110). WRITE /1 '|'. "WRITE 80 '|'.

*WRITE: 36 '現　金　流　量　表 明 細'. SKIP 1.
*? WRITE: /60 '會企03表',80 '出表時間', SY-DATUM. SKIP 1.
*? WRITE: / '編制單位:',?????????????????????????????? "P_BUKRS INTENSIFIED OFF, ZBUTXT INTENSIFIED OFF,
*??????? 66 '年 度:',P_GJAHR, 88 '單位: 元'.
*? SKIP 1. ULINE /(110). WRITE /1 '|'. "WRITE 80 '|'.
*? WRITE:'公司 年度 月份 憑證號碼 借/貸 總帳科目???? 金?? 額? 原因代碼?? 原因說明',110 '|'. ULINE /(110).
? SKIP 1.
? WRITE:/1 '公司',6'年度',12 '月份',18 '憑證號碼',34 '借/貸',44 '總帳科目',52'??? 金????? 額',76 '原因代碼',88'原因說明',108 '利潤中心',118 '文本', 160 '|'. ULINE /(160).
*? ', 8 '|','本月累計數 原因代碼', 14'|','本月累計數',80 '|','本年累計數',110 '|'
? LOOP AT IT_BSEG.
??? W_LOOP = SY-TABIX.
??? IF IT_BSEG-MONAT = P_MONAT AND IT_BSEG-XBLNR IN P_XBLNR AND IT_BSEG-BSTAT = ''.? "BSTAT 憑證狀態
????? WRITE:/1 IT_BSEG-BUKRS,???????? "公司代碼
?????????? 6?? IT_BSEG-GJAHR,???????? "會計年度
?????????? 12? IT_BSEG-MONAT,???????? "月份
?????????? 18? IT_BSEG-BELNR,???????? "憑證號碼
?????????? 34? IT_BSEG-SHKZG,???????? "借方/貸方標識 shkzg,
?????????? 44? IT_BSEG-HKONT,???????? "總帳科目
?????????? 52? IT_BSEG-DMBTR,???????? "按本位幣計的金額? dmbtr,
?????????? 76? IT_BSEG-RSTGR,???????? "原因代碼 匯總現金流字段? rstgr,
?????????? 88? IT_BSEG-TXT20,???????? "原因說明?? -txt20,
?????????? 108? IT_BSEG-XBLNR,??????? "利潤中心

????????? 118? IT_BSEG-SGTXT.??? "sunfneg 2009-3-24 添加
*?????????? 106 it_bseg-BSTAT.????????? BSTAT 憑證狀態
??? ENDIF.
??? SY-TABIX = W_LOOP.
? ENDLOOP.
? ULINE /(160).

*? WRITE: / '編制單位:',??????? "P_BUKRS INTENSIFIED OFF, ZBUTXT INTENSIFIED OFF,
*??????? 66 '年 度:',P_GJAHR, 80 '單? 位: 元'.
? WRITE: / '企業負責人：',18 '主管會計：',34 '制 表：',44 SY-UNAME,
*? 52 '報出日期：', zyears NO-GAP ,'年' NO-GAP,zmonths NO-GAP, '月' NO-GAP,zdays NO-GAP, '日' ,
?86 '單? 位: 元' NO-GAP.
ENDFORM.??????????????????? " OUTPUT_DATA
*&---------------------------------------------------------------------*
*&????? Form? CHK_P_MONAT
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
*? -->? p1??????? text
*? <--? p2??????? text
*----------------------------------------------------------------------*
FORM CHK_P_MONAT .
? IF P_MONAT GT '16' OR P_MONAT EQ 0.
??? MESSAGE E000 WITH '非法期間!'.
? ENDIF.
ENDFORM.??????????????????? " CHK_P_MONAT

*&---------------------------------------------------------------------*
*&????? Form? alv_output
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
FORM ALV_OUTPUT .

? TYPE-POOLS: SLIS.
? DATA: T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
? DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
? GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
? GS_LAYOUT-ZEBRA = 'X'.

*? t_fieldcat-fieldname = 'ZITEM'.
*? t_fieldcat-seltext_l = '序號'.?????????????????? append t_fieldcat.

? T_FIELDCAT-FIELDNAME = 'BUKRS'.
? T_FIELDCAT-SELTEXT_L = '公司代碼'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'GJAHR'.
? T_FIELDCAT-SELTEXT_L = '會計年度'.???????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'BELNR'.
? T_FIELDCAT-SELTEXT_L = '憑證號碼'.???????????? APPEND T_FIELDCAT.

*? t_fieldcat-fieldname = 'KUNNR'.
*? t_fieldcat-no_zero = 'X'.
*? t_fieldcat-seltext_l = '客戶編碼'.?????????????? append t_fieldcat.

? T_FIELDCAT-FIELDNAME = 'SHKZG'.
? T_FIELDCAT-SELTEXT_L = '借方/貸方'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'HKONT'.
? T_FIELDCAT-SELTEXT_L = '總帳科目'.?????????????? APPEND T_FIELDCAT.
? T_FIELDCAT-FIELDNAME = 'XBLNR'.
? T_FIELDCAT-SELTEXT_L = '利潤中心'.?????????????? APPEND T_FIELDCAT.
? T_FIELDCAT-FIELDNAME = 'MONAT'.
? T_FIELDCAT-SELTEXT_L = '月份'.?????????????????? APPEND T_FIELDCAT.
? T_FIELDCAT-FIELDNAME = 'DMBTR'.
? T_FIELDCAT-SELTEXT_L = '金額'.????????????????? APPEND T_FIELDCAT.
? T_FIELDCAT-FIELDNAME = 'RSTGR'.
? T_FIELDCAT-SELTEXT_L = '原因代碼'.????????????????? APPEND T_FIELDCAT.
*??? t_fieldcat-fieldname = 'txt20'.
*? t_fieldcat-seltext_l = '原因說明'.????????????????? append t_fieldcat.

*? t_fieldcat-fieldname = ''.
*? t_fieldcat-seltext_l = ''.?????????????? append t_fieldcat.
***ALV調用
? CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
??? EXPORTING
????? I_CALLBACK_PROGRAM = 'ZFI_CASH_SFA'
????? IT_FIELDCAT??????? = T_FIELDCAT[]
????? IS_LAYOUT????????? = GS_LAYOUT
????? I_SAVE???????????? = 'A'
??? TABLES
????? T_OUTTAB?????????? = IT_BSEG
??? EXCEPTIONS
????? PROGRAM_ERROR????? = 1
????? OTHERS???????????? = 2.
ENDFORM.??????????????????? " alv_output



*&---------------------------------------------------------------------*
*&????? Form? alv_output4
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
FORM ALV_OUTPUT4 .

? TYPE-POOLS: SLIS.
? DATA: T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
? DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
? GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
? GS_LAYOUT-ZEBRA = 'X'.
*
* if p_bukrs? = 'NL10'.
*? LOOP AT ITABYD.
*??? w_loop = sy-tabix.
*ITABYD-DEBITS_PER? =? ITABYD-DEBITS_PER? * 100 .
*ITABYD-CREDIT_PER? =? ITABYD-CREDIT_PER? * 100 .
*ITABYD-PER_SALES?? =? ITABYD-PER_SALES?? * 100 .
*ITABYD-BALANCE???? =? ITABYD-BALANCE???? * 100 .
*??? MODIFY ITABYD INDEX sy-tabix.
*? ENDLOOP.
*ENDIF.

? T_FIELDCAT-FIELDNAME = 'COMP_CODE'.
? T_FIELDCAT-SELTEXT_L = '公司代碼'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'FISC_YEAR'.
? T_FIELDCAT-SELTEXT_L = '會計年度'.???????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'GL_ACCOUNT'.
? T_FIELDCAT-SELTEXT_L = '總帳科目'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'FIS_PERIOD'.
? T_FIELDCAT-SELTEXT_L = '會計期間'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'DEBITS_PER'.
? T_FIELDCAT-SELTEXT_L = '期間借方發生額'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'CREDIT_PER'.
? T_FIELDCAT-SELTEXT_L = '期間貸方發生額'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'PER_SALES'.
? T_FIELDCAT-SELTEXT_L = '月銷售額'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'BALANCE'.
? T_FIELDCAT-SELTEXT_L = '帳戶余額'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'CURRENCY'.
? T_FIELDCAT-SELTEXT_L = '貨幣代碼'.?????????????? APPEND T_FIELDCAT.

**ALV調用
? CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
??? EXPORTING
????? I_CALLBACK_PROGRAM = 'ZFI_CASH_SFA'
????? IT_FIELDCAT??????? = T_FIELDCAT[]
????? IS_LAYOUT????????? = GS_LAYOUT
????? I_SAVE???????????? = 'A'
??? TABLES
????? T_OUTTAB?????????? = ITABYD
??? EXCEPTIONS
????? PROGRAM_ERROR????? = 1
????? OTHERS???????????? = 2.
ENDFORM.??????????????????? " alv_output


*&---------------------------------------------------------------------*
*&????? Form? alv_output5
*&---------------------------------------------------------------------*
*?????? text
*----------------------------------------------------------------------*
FORM ALV_OUTPUT5 .

? TYPE-POOLS: SLIS.
? DATA: T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
? DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
? GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
? GS_LAYOUT-ZEBRA = 'X'.

*? if p_bukrs? = 'NL10'.
*? LOOP AT ITABND.
*??? w_loop = sy-tabix.
*ITABND-DEBITS_PER? =? ITABND-DEBITS_PER? * 100 .
*ITABND-CREDIT_PER? =? ITABND-CREDIT_PER? * 100 .
*ITABND-PER_SALES?? =? ITABND-PER_SALES?? * 100 .
*ITABND-BALANCE???? =? ITABND-BALANCE???? * 100 .
*??? MODIFY ITABND INDEX sy-tabix.
*? ENDLOOP.
*ENDIF.




? T_FIELDCAT-FIELDNAME = 'COMP_CODE'.
? T_FIELDCAT-SELTEXT_L = '公司代碼'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'FISC_YEAR'.
? T_FIELDCAT-SELTEXT_L = '會計年度'.???????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'GL_ACCOUNT'.
? T_FIELDCAT-SELTEXT_L = '總帳科目'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'FIS_PERIOD'.
? T_FIELDCAT-SELTEXT_L = '會計期間'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'DEBITS_PER'.
? T_FIELDCAT-SELTEXT_L = '期間借方發生額'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'CREDIT_PER'.
? T_FIELDCAT-SELTEXT_L = '期間貸方發生額'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'PER_SALES'.
? T_FIELDCAT-SELTEXT_L = '月銷售額'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'BALANCE'.
? T_FIELDCAT-SELTEXT_L = '帳戶余額'.?????????????? APPEND T_FIELDCAT.

? T_FIELDCAT-FIELDNAME = 'CURRENCY'.
? T_FIELDCAT-SELTEXT_L = '貨幣代碼'.?????????????? APPEND T_FIELDCAT.
**ALV調用
? CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
??? EXPORTING
????? I_CALLBACK_PROGRAM = 'ZFI_CASH_SFA'
????? IT_FIELDCAT??????? = T_FIELDCAT[]
????? IS_LAYOUT????????? = GS_LAYOUT
????? I_SAVE???????????? = 'A'
??? TABLES
????? T_OUTTAB?????????? = ITABND
??? EXCEPTIONS
????? PROGRAM_ERROR????? = 1
????? OTHERS???????????? = 2.
ENDFORM.??????????????????? " alv_output5
與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

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

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