當前位置：首頁 > 编程资源 > 编程问答 >内容正文

编程问答

ABAP实例：一个现金流量表的代码

發布時間：2025/3/20 编程问答 18 豆豆

生活随笔收集整理的這篇文章主要介紹了 ABAP实例：一个现金流量表的代码小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

ABAP實例：一個現金流量表的代碼

??? * program SOURCE HEADER??: 現金流量表
???? * Program Name:
???? * Description:
???? * Date / Author:
???? * Table Update:
???? * Special Logic:
???? * Include:
???? *-----------------------------------------------------------------------
???? * ??MODIFICATION LOG : 程序修改更新記錄
???? *-----------------------------------------------------------------------
???? * ChangeDate Programmer????Request??????Description
???? * ========== ============= ============ ================================
???? *-----------------------------------------------------------------------
???? * REPORT NAME : 宣告程序名稱及報表格式,
???? *-----------------------------------------------------------------------
????REPORT ZFI003
???????? NO STANDARD PAGE HEADING
????????????MESSAGE - ID 00 ???? " 所使用的MESSAGE
????????????LINE - COUNT 800 ???? " 每頁報表行數
????????????LINE - SIZE?? 180 .?? " 每頁報表寬度
???? *-----------------------------------------------------------------------

???? * ??TABLE DESCRIPTION : 宣告程序會使用的TABLE
???? *-----------------------------------------------------------------------
????TABLES: BSEG,BKPF,GLT0.
???? *-----------------------------------------------------------------------
???? * DATA : 宣告程序所使用的變量及自定型態
????INCLUDE OLE2INCL.?? " FOR OLE
????DATA: EXCEL TYPE OLE2_OBJECT,
??????????BOOKS TYPE OLE2_OBJECT,
??????????SHEET TYPE OLE2_OBJECT,
??????????CELL??TYPE OLE2_OBJECT.
???? *-----------------------------------------------------------------------
????DATA:?? BEGIN??OF??ITAB_BKPF OCCURS 0 ,
????????????BELNR LIKE BKPF - BELNR,???????? " 表頭-憑證號
?????? END??OF??ITAB_BKPF.

????DATA:?? BEGIN??OF??ITAB_TT OCCURS 0 ,
????????????BELNR LIKE BSEG - BELNR,???????? " 憑證號
????????????HKONT LIKE BSEG - HKONT,???????? " 表體-總分類帳目
????????????RSTGR LIKE BSEG - RSTGR,???????? " REASON CODE
????????????SHKZG LIKE BSEG - SHKZG,???????? " debit and credit
????????????DMBTR LIKE BSEG - DMBTR,???????? " 本位幣金額
?????? END??OF??ITAB_TT.

????DATA:?? D01 LIKE BSEG - DMBTR,
????????????D02 LIKE BSEG - DMBTR,
????????????D03 LIKE BSEG - DMBTR,
????????????D04 LIKE BSEG - DMBTR,
????????????D05 LIKE BSEG - DMBTR,
????????????D06 LIKE BSEG - DMBTR,
????????????D07 LIKE BSEG - DMBTR,
????????????D08 LIKE BSEG - DMBTR,
????????????D09 LIKE BSEG - DMBTR,
????????????D10 LIKE BSEG - DMBTR,
????????????D11 LIKE BSEG - DMBTR,
????????????D12 LIKE BSEG - DMBTR,
????????????D13 LIKE BSEG - DMBTR,
????????????D14 LIKE BSEG - DMBTR,
????????????D15 LIKE BSEG - DMBTR,
????????????D16 LIKE BSEG - DMBTR,
????????????D17 LIKE BSEG - DMBTR,
????????????D18 LIKE BSEG - DMBTR,
????????????D19 LIKE BSEG - DMBTR,
????????????D20 LIKE BSEG - DMBTR,
????????????D21 LIKE BSEG - DMBTR,
????????????D22 LIKE BSEG - DMBTR,
????????????D23 LIKE BSEG - DMBTR,
????????????D24 LIKE BSEG - DMBTR,
????????????D25 LIKE BSEG - DMBTR,
????????????D26 LIKE BSEG - DMBTR,
????????????D27 LIKE BSEG - DMBTR,
????????????D28 LIKE BSEG - DMBTR,
????????????D29 LIKE BSEG - DMBTR,
????????????D30 LIKE BSEG - DMBTR,
????????????D31 LIKE BSEG - DMBTR.

???? **----------------------------------------------------------------------
???? ** SELECTION SCREEN / OPTION / PARAMETER :
???? * 屏幕輸入報表篩選條件
???? **----------------------------------------------------------------------
????SELECTION - SCREEN BEGIN OF BLOCK BL01 WITH FRAME TITLE TEXT - 001 .
???? * PARAMETERS:???? p_bukrs LIKE glt0 - bukrs OBLIGATORY DEFAULT ' 1000 ' .
????SELECT - OPTIONS: P_BUKRS FOR GLT0 - BUKRS OBLIGATORY DEFAULT ' 1000 ' .
????SELECT - OPTIONS: S_GJAHR FOR BKPF - GJAHR OBLIGATORY DEFAULT SY - DATUM( 4 ),
????????????????????S_MONAT FOR BKPF - MONAT DEFAULT SY - DATUM + 4 ( 2 ).
????SELECTION - SCREEN END OF BLOCK BL01.

????SELECTION - SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT - 001 .
????PARAMETERS???? : P_FNAME( 60 ) DEFAULT ' C:\SAP\CASH.XLS ' .
????SELECTION - SCREEN END OF BLOCK BLK2.
???? *----------------------------------------------------------------------
???? * AT SELECTION - SCREEN :
???? * 將要離開選擇屏幕的時候執行的事件，可以檢查輸入
???? *----------------------------------------------------------------------
???? * AT SELECTION - SCREEN.
???? * IF S_MONAT - HIGH IS INITIAL.
???? * ????MESSAGE E398 WITH ' 請輸入過帳期間的上限! ' .
???? * ENDIF.
???? *----------------------------------------------------------------------
???? * AT START SELECTION : 輸入結束后啟動的區塊,
???? * 如按下 < F8 >
???? *----------------------------------------------------------------------
????START - OF - SELECTION.
??????DATA: L_EXIST.
??????CALL FUNCTION ' TMP_GUI_GET_FILE_EXIST '
????????EXPORTING
??????????FNAME???????????????? = P_FNAME
?????? IMPORTING
??????????EXIST???????????????? = L_EXIST
???? * ?? ISDIR???????????????? =
???? * ?? FILESIZE???????????? =
?????? EXCEPTIONS
???????? FILEINFO_ERROR?????? = 1
???????? OTHERS?????????????? = 2 ?? .
??????IF SY - SUBRC <> 0 OR L_EXIST <> ' X ' .?? " SY-SUBRC返回代碼值0 表示操作成功
????????MESSAGE I398( 00 ) WITH ' 打開模版文件 ' P_FNAME ' 時出錯！ ' .
????????EXIT.
??????ENDIF.
??????PERFORM READ_DATA.
???? *----------------------------------------------------------------------
???? * END OF SELECTION : 在結束打印數據后啟動,
???? * 如可用來印出USER輸入的條件
???? *-----------------------------------------------------------------------
????END - OF - SELECTION.
??????PERFORM WRITE_BS.
???? * FORM : 撰寫程序中所使用到的子程序
???? *-----------------------------------------------------------------------
???? * Read Data : 自TABLE讀取數據放入Internal Table
???? *-----------------------------------------------------------------------
????FORM READ_DATA.

??????SELECT
????????????BELNR???????? " 表頭-憑證號
??????INTO CORRESPONDING FIELDS OF TABLE ITAB_BKPF
??????FROM BKPF
??????WHERE GJAHR IN S_GJAHR
????????????AND?? MONAT IN S_MONAT
????????????AND?? BUKRS IN P_BUKRS.
??????SELECT
?????????? HKONT???????? " 表體-總分類帳目
?????????? RSTGR???????? " REASON CODE
?????????? SHKZG???????? " debit and credit
?????????? BELNR???????? " 表頭-憑證號
?????????? DMBTR???????? " 本位幣金額
??????INTO CORRESPONDING FIELDS OF TABLE ITAB_TT
??????FROM BSEG
??????WHERE GJAHR IN S_GJAHR
????????????AND?? BUKRS IN P_BUKRS
??????AND HKONT <= ' 0010090600 ' .
??????LOOP AT ITAB_TT.
????????READ TABLE ITAB_BKPF WITH KEY BELNR = ITAB_TT - BELNR.
????????IF SY - SUBRC <> 0 .
??????????DELETE ITAB_TT.
????????ENDIF.
??????ENDLOOP.
??????FREE ITAB_BKPF.
??????LOOP AT ITAB_TT.
????????CASE ITAB_TT - RSTGR.
??????????WHEN ' 01 ' .
????????????IF ITAB_TT - SHKZG = ' H ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D01 = D01 + ITAB_TT - DMBTR.
??????????WHEN ' 02 ' .
????????????IF ITAB_TT - SHKZG = ' H ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D02 = D02 + ITAB_TT - DMBTR.
??????????WHEN ' 03 ' .
????????????IF ITAB_TT - SHKZG = ' H ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D03 = D03 + ITAB_TT - DMBTR.
??????????WHEN ' 04 ' .
????????????IF ITAB_TT - SHKZG = ' S ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D05 = D05 + ITAB_TT - DMBTR.
??????????WHEN ' 05 ' .
????????????IF ITAB_TT - SHKZG = ' S ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D06 = D06 + ITAB_TT - DMBTR.
??????????WHEN ' 06 ' .
????????????IF ITAB_TT - SHKZG = ' S ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D07 = D07 + ITAB_TT - DMBTR.
??????????WHEN ' 07 ' .
????????????IF ITAB_TT - SHKZG = ' S ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D08 = D08 + ITAB_TT - DMBTR.
??????????WHEN ' 08 ' .
????????????IF ITAB_TT - SHKZG = ' H ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D11 = D11 + ITAB_TT - DMBTR.
??????????WHEN ' 09 ' .
????????????IF ITAB_TT - SHKZG = ' H ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D12 = D12 + ITAB_TT - DMBTR.
??????????WHEN ' 10 ' .
????????????IF ITAB_TT - SHKZG = ' H ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D13 = D13 + ITAB_TT - DMBTR.
??????????WHEN ' 11 ' .
????????????IF ITAB_TT - SHKZG = ' H ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D14 = D14 + ITAB_TT - DMBTR.
??????????WHEN ' 12 ' .
????????????IF ITAB_TT - SHKZG = ' S ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D16 = D16 + ITAB_TT - DMBTR.
??????????WHEN ' 13 ' .
????????????IF ITAB_TT - SHKZG = ' S ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D17 = D17 + ITAB_TT - DMBTR.
??????????WHEN ' 14 ' .
????????????IF ITAB_TT - SHKZG = ' S ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D18 = D18 + ITAB_TT - DMBTR.
??????????WHEN ' 15 ' .
????????????IF ITAB_TT - SHKZG = ' H ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D21 = D21 + ITAB_TT - DMBTR.
??????????WHEN ' 16 ' .
????????????IF ITAB_TT - SHKZG = ' H ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D22 = D22 + ITAB_TT - DMBTR.
??????????WHEN ' 17 ' .
????????????IF ITAB_TT - SHKZG = ' H ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D23 = D23 + ITAB_TT - DMBTR.
??????????WHEN ' 18 ' .
????????????IF ITAB_TT - SHKZG = ' S ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D25 = D25 + ITAB_TT - DMBTR.
??????????WHEN ' 19 ' .
????????????IF ITAB_TT - SHKZG = ' S ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D26 = D26 + ITAB_TT - DMBTR.
??????????WHEN ' 20 ' .
????????????IF ITAB_TT - SHKZG = ' S ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D27 = D27 + ITAB_TT - DMBTR.
??????????WHEN ' 21 ' .
????????????IF ITAB_TT - SHKZG = ' H ' .
??????????????ITAB_TT - DMBTR = 0 - ITAB_TT - DMBTR.
????????????ENDIF.
????????????D30 = D30 + ITAB_TT - DMBTR.
????????ENDCASE.
??????ENDLOOP.

???? * ??D05 = ABS( D05 ).
???? * ??D06 = ABS( D06 ).
???? * ??D07 = ABS( D07 ).
???? * ??D08 = ABS( D08 ).
???? * ??D16 = ABS( D16 ).
???? * ??D17 = ABS( D17 ).
???? * ??D18 = ABS( D18 ).
???? * ??D25 = ABS( D25 ).
???? * ??D26 = ABS( D26 ).
???? * ??D27 = ABS( D27 ).

??????D04 = D01 + D02 + D03.
??????D09 = D05 + D06 + D07 + D08.
??????D10 = D04 - D09.
??????D15 = D11 + D12 + D13 + D14.
??????D19 = D16 + D17 + D18.
??????D20 = D15 - D19.
??????D24 = D21 + D22 + D23.
??????D28 = D25 + D26 + D27.
??????D29 = D24 - D28.
??????D31 = D10 + D20 + D29 + D30.
????ENDFORM.???????????????????? " READ_DATA

????

???? *&---------------------------------------------------------------------*
???? *& ??????Form??write_bs
???? *&---------------------------------------------------------------------*
???? * ?????? text
???? *----------------------------------------------------------------------*
????FORM WRITE_BS.
??????CREATE OBJECT EXCEL ' EXCEL.APPLICATION ' .
??????CALL METHOD OF EXCEL ' WORKBOOKS ' = BOOKS.
??????CALL METHOD OF BOOKS ' OPEN '
????????EXPORTING # 1 = P_FNAME .?? " 'C:\CASH.XLS'.
??????CALL METHOD OF EXCEL ' WORKSHEETS ' = SHEET EXPORTING # 1 = 1 .
??????CALL METHOD OF SHEET ' ACTIVATE ' .
??????CALL METHOD OF EXCEL ' CELLS ' = CELL EXPORTING # 1 = 1 # 2 = 1 .

??????PERFORM FILL_CELL USING?? 6 3 ?? D01.
??????PERFORM FILL_CELL USING?? 7 3 ?? D02.
??????PERFORM FILL_CELL USING?? 8 3 ?? D03.
??????PERFORM FILL_CELL USING?? 9 3 ?? D04.
??????PERFORM FILL_CELL USING 10 3 ?? D05.
??????PERFORM FILL_CELL USING 11 3 ?? D06.
??????PERFORM FILL_CELL USING 12 3 ?? D07.
??????PERFORM FILL_CELL USING 13 3 ?? D08.
??????PERFORM FILL_CELL USING 14 3 ?? D09.
??????PERFORM FILL_CELL USING 15 3 ?? D10.
??????PERFORM FILL_CELL USING 17 3 ?? D11.
??????PERFORM FILL_CELL USING 18 3 ?? D12.
??????PERFORM FILL_CELL USING 19 3 ?? D13.
??????PERFORM FILL_CELL USING 20 3 ?? D14.
??????PERFORM FILL_CELL USING 21 3 ?? D15.
??????PERFORM FILL_CELL USING 22 3 ?? D16.
??????PERFORM FILL_CELL USING 23 3 ?? D17.
??????PERFORM FILL_CELL USING 24 3 ?? D18.
??????PERFORM FILL_CELL USING 25 3 ?? D19.
??????PERFORM FILL_CELL USING 26 3 ?? D20.
??????PERFORM FILL_CELL USING 28 3 ?? D21.
??????PERFORM FILL_CELL USING 29 3 ?? D22.
??????PERFORM FILL_CELL USING 30 3 ?? D23.
??????PERFORM FILL_CELL USING 31 3 ?? D24.
??????PERFORM FILL_CELL USING 32 3 ?? D25.
??????PERFORM FILL_CELL USING 33 3 ?? D26.
??????PERFORM FILL_CELL USING 34 3 ?? D27.
??????PERFORM FILL_CELL USING 35 3 ?? D28.
??????PERFORM FILL_CELL USING 36 3 ?? D29.
??????PERFORM FILL_CELL USING 37 3 ?? D30.
??????PERFORM FILL_CELL USING 38 3 ?? D31.
??????PERFORM FILL_CELL USING 39 3 S_MONAT.

??????SET PROPERTY OF EXCEL ' Visible ' = 1 .

????ENDFORM.???????????????????? " fill_cell
???? *&---------------------------------------------------------------------*
???? *& ??????Form??fill_cell
???? *&---------------------------------------------------------------------*
???? * ?????? text
???? *----------------------------------------------------------------------*
???? * ?????? --> P_I????????text
???? * ?????? --> P_J????????text
???? * ?????? --> P_VAL??????text
???? *----------------------------------------------------------------------*
????FORM FILL_CELL USING????P_I
????????????????????????????P_J
????????????????????????????P_VAL.
??????CALL METHOD OF EXCEL ' CELLS ' = CELL EXPORTING # 1 = P_I # 2 = P_J.
??????SET PROPERTY OF CELL ' VALUE ' = P_VAL.

????ENDFORM.???? " FILL_CELL

總結

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

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