系統定義了一套財務報表版本,如果基於財務報表版本來出具財務報表呢?
這個可以通過標準程式rfgsbstr輸入版本號即可得到這個關係,但是程式如何做這樣的轉換了?有兩個函式非常好用fi_import_balance_sheet_text 和fi_import_balance_sheet_pos 乙個讀文字乙個儲存二者之間的關係。我寫了乙個僅限於獲取一級科目的函式,如下:
data: l_idcn_cdea type idcn_cdea,
l_idcn_cflea type idcn_cflea.
"獲取文字用
data: lt_rf011q type standard table of rf011q,
ls_rf011q type rf011q.
"獲取轉換科目用
data: lt_rf011z type standard table of rf011z,
ls_rf011z type rf011z.
"獲取文字資訊
call function 'fi_import_balance_sheet_text'
exporting
sprache = '1'
version = i_version
tables
x011q = lt_rf011q
* tstamp_tab =
* exceptions
* text_not_found = 1
* others = 2
. if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
select single idcn_cflea
from idcn_detail_ea
into l_idcn_cflea
where idcn_cdea in ( select idcn_cdea
from idcn_map_eas
where saknr = i_racct and fkber = i_***rea ).
"判斷是否有功能範圍
if sy-subrc = 0.
"科目編號
e_racct = l_idcn_cflea+0(4).
"獲取文字
read table lt_rf011q into ls_rf011q with key ergsl = l_idcn_cflea binary search.
e_txt = ls_rf011q-txt45.
* "沒有功能範圍轉換為對應的一級科目和文字
else.
call function 'fi_import_balance_sheet_pos'
exporting
version = i_version
tables
i011z = lt_rf011z
* x011p =
* x011s =
* x011v =
* x011f =
* exceptions
* new_balance_sheet = 1
* others = 2
. if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endif.
"找到對應的科目
loop at lt_rf011z into ls_rf011z.
if ls_rf011z-bilkt >= i_racct and ls_rf011z-vonkt <= i_racct.
exit.
endif.
endloop.
read table lt_rf011q into ls_rf011q with key ergsl = ls_rf011z-ergso+0(4) binary search.
e_txt = ls_rf011q-txt45.
自己以前寫這類財務的東西,通常自建表,個人覺得達到了可配置的目的。但是畢竟還是沒有標準的好,以後都不需要去維護**了,只需要維護標準的東西即可。這個思路非常好。
財務報表版本
系統定義了一套會計科目,但是出總賬分類賬的時候要用到另外一套財務報表版本,如下 這個可以通過標準程式rfgsbstr輸入版本號即可得到這個關係,但是程式如何做這樣的轉換了?有兩個函式非常好用fi import balance sheet text和fi import balance sheet po...
財務報表的分析
財務報表分析 一 財務報表分析的概念 財務報表分析是指企業的基本活動為物件 以財務報表為主資訊 以分析和綜合主要方法的系統認識企業的過程,其目的是了解過去 評價現在和 未來 以幫助報表使用人改善決策。二 企業的基本活動分為籌資活動 投資活動和經營活動三大類 1籌資活動是指籌集企業投資和經濟所需要的資...
從財務報表發現的問題
原來我錢都借出去了 從財務報表發現的問題 2009 年 10 月 18 日 現在 2010 年 5 月 30 日。朋友就還了 700 元。有一位 朋友還了 500 元。有一位 朋友還了 2000 元。有一位。朋友一分沒還。有幾位 還這樣的口氣跟我說話。存銀行都有利息。借出去的不要說利息。急著用錢的時...