ABAP 查询某个日期在不在财务OB52账期内

1.业务需求
查询一个日期比如2023-01-01在不在财务OB52维护的账期内。

2.找到相关的函数：FI_PERIOD_CHECK
这个函数的使用注意点：
期间月份是三位数，比如12月份是012；
如果你查询的数据有终止科目一定要填写;
在程序中使用这个函数，那么如果日期不在财务期间，那么你的程序会直接报错然后无法执行下去。

此函数的运行结果

3.代码中如何实现判断

DATA:lv_budat TYPE budat VALUE '20200101'.

SELECT SINGLE * FROM t001b
   WHERE bukrs = '7000' "公司代码
     AND mkoar = '+' " 对所有账户类型有效 M 物料账 S总账科目，要使用哪个问业务顾问。
    " AND BKONT =   如果有终止科目要填哦
    INTO @DATA(ls_t001b).

DATA:lv_from(7) TYPE c, "开始期间
     lv_now(7)  TYPE c, "日期所属的期间
     lv_to(7)   TYPE c. "结束期间

lv_from = ls_t001b-FRYE1 && ls_t001b-FRPE1.
lv_to   = ls_t001b-TOYE1 && ls_t001b-TOPE1.

lv_now = lv_budat+0(4) && '0' &&  lv_budat+4(2).

IF lv_from <= lv_now AND lv_now <= lv_to.
  WRITE:'日期' && lv_budat && '在财务期间'.
ELSE.
  WRITE:'日期' && lv_budat && '不在财务期间'.
ENDIF.

CLEAR:lv_from,lv_now,lv_to."要养成清空临时变量的习惯哦。

运行过程：

运行结果：

另外，对账户类型的解释如下图，每一行都代表不同类型的账期，你要哪行查哪行，一般使用+这行数据，实在不知道的话直接问业务顾问。

好啦，今天分享到这。

我是寒武青锋，分享使我快乐！