计算当前日期的会计期间

*&---------------------------------------------------------------------*
*&      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