计算当前日期的会计期间

*&---------------------------------------------------------------------*
*& Form get_kjny
*&---------------------------------------------------------------------*
* 计算当前日期的会计期间
*----------------------------------------------------------------------*
FORM get_kjny CHANGING po_month_0l po_year.
DATA: v_reljr LIKE t009b-reljr, " 用于计算会计年度
v_month_n(3) TYPE n,
v_year(4) TYPE n.

v_month_n = sy-datum+4(2).
v_year = sy-dautm+0(4).

SELECT SINGLE reljr poper
INTO (v_reljr,v_month_n)
FROM t009b
WHERE periv = 'V9'
AND bumon = v_month_n.

po_month_0l = v_month_n.
IF po_month_0l = '000'.
po_month_0l = '001'.
ENDIF.
po_year = v_year + v_reljr.

ENDFORM. " get_kjny