2008/10/23

FIRST_DAY_IN_PERIOD_GET

*FIRST_DAY_IN_PERIOD_GET
*会計期間の初日取得
*LAST_DAY_IN_PERIOD_GET
*会計期間の末日取得

*----- 会計期間の初日取得
  CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET'
    EXPORTING
      I_GJAHR        = GJAHR             "会計年度(table:T009B会計年度バリアント(期間))
      I_PERIV        = 'V3'           "会計期間バリアント名  (table:T009会計年度バリアント)
      I_POPER        = 12            "会計期間(table:T009B会計年度バリアント(期間))
    IMPORTING
      E_DATE         = FIRST_DAY       "月初日
    EXCEPTIONS
      INPUT_FALSE    = 1
      T009_NOTFOUND  = 2
      T009B_NOTFOUND = 3
      OTHERS         = 4.
  IF SY-SUBRC <> 0.
*----- システムエラーが発生しました 
  ENDIF.