SAP软件FICO各种财务账期的功能用途介绍

FI会计账期

一般财务账期总账期间的控制是仅开启当前一个期间，如果月结期间应同时开启结账期间和下一期间两个期间，结账完成需立即关闭已完成结账的期间，避免凭证过账日期误记账。

设置事务码：OB52或 S_ALR_87003642

备注：

1、S4和ECC比较最大变化：ECC中可以维护2个期间，S4中可以维护3个期间。

2、要打开任意一种类型的账期，都必须先打开“+”的账期。

3、同一张会计凭证上借贷方可能是不同的科目类型，如果会计期间分开控制了，做账时要注意借贷方科目的会计期间是否都是打开的。

在一个会计年度变式中，可以分别对各种科目类型（+/A/D/K/M/S）和科目范围设置可以记账的期间。

“+”：表示对所有类型的科目打开账期；
A：表示资产；
D：表示客户；
K：表示供应商；
M：表示物料；
S：表示总账科目。

CO账期（OKP1）

对于CO账期，可以按期间开启/锁定，或者按业务开启/锁定，一般CO账期控制应该是与财务账期一致。

勾选：表示相关的CO业务在勾选的月份无法执行。

利润中心账期

设置路径：IMG->控制->利润中心会计->基本设置->成本控制范围设置->激活直接过账->设置实际数据的控制参数（事务码：1KEF）

锁定的：如果勾选则表示无法对当前年的利润中心进行相关的业务操作。

物料账期(事务码:OMSY/MMPV/MMRV)

物料帐期：顾名思义就是控制物料移动的过账期间。
业务实践中，财务月结前，关闭当前物料账期，打开下月物料账期，使本月不再新增物料移动数据，新发生物料移动都记录到下月，保证财务核算成本的准确性。

1、初始化物料账期

一般适用物资模块(MM)上线时，设定物料账管理的初始开账期间。

设置路径：IMG->后勤-常规->物料主数据->基本设置->维护物料管理的公司代码（事务码：OMSY）

比如，H100公司物资模块上线期间：202412可以设置下图那样设置。

备注：公司代码下已产生物料凭证，则此处不再允许修改，后续调整物料账期通过MMPV和MMRV。

2、打开物料账期

设置事务码：MMPV

比如，打开2024/12月物料账期

调整财务物料帐结算的期间，只能逐月的进行调整。如果系统目前是2024年2月份的物料帐，现在要调整成2024年5月份的物料帐，则需要先调整成2024年3月，2024年4月，最后才能调到2024年5月，否则会出现错误的，如果要一次性开到当前期间的方法具体见本最后附录。

另外SAP物料账期为了防止错误的操作，可以设置不能提前多少天打开，可按如下方式设置。

维护视图V_CKMLMVADMIN（使用事务码：SM30）

维护字段ML_INSERT_ONLY_MIG_DONE的值，例如将此字段值维护为5，到月底前5天才能打开账期。

上图设置SAP系统允许提前5天打开下月的物料期间

如果没有到打开日期，系统报如下错误

3、设置允许过账到上一期间

设置事务码：MMRV

比如，如果当前物料账期：2020/12，如果勾选“运行过账到上一期间”表示允许物料移动发生在物料账期2020/11。

附录

如果将物料账期一次性打开到当前期间

正式系统因为上线后物料账期都是每月开的，所以不存在要连续打开的问题，但大家使用SAP虚拟机时候，IDES公司的物料账期可能在十几年前，如果一个一个开那得浪费多少时间，可以按如下2种方法一次性开到当前。

这是非标准的打开物料账期的方法，慎用之！！只能在自己搭建学习系统或虚拟机中使用，不要在自己公司开发，测试、生产环境系统中使用。

方法1：设置个人参数，执行MMPI.

输入TCODE：SU01，设置个人参数 ，设置参数mmpi_read_note ， 将参数值设为今天，按如下步骤设置：

输入TCODE：MMPI，执行关闭和打开物料账期，按如下步骤执行：

执行完成后，系统提示如下，说明2800公司的物料账期已开至当前。

如果启用了物料分类账，上面那种方法应该不行，只能一个一个月打开，可以使用如下程序打开。

方法2：开发一次性打开到当前期间的程序（如下供参考）

*&---------------------------------------------------------------------*
*& Report  ZMMPV
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  ZMMPV.
TABLES:T000, MARV.
DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF MESSTAB OCCURS 0.INCLUDE STRUCTURE BDCMSGCOLL.
DATA: END OF MESSTAB.
DATA: BEGIN OF ITAB_LOG OCCURS 0,MESSAGE(132) TYPE C,END OF ITAB_LOG.
DATA: DATUM TYPE SY-DATUM.
PARAMETERS: P_BUKRS TYPE BUKRS OBLIGATORY MEMORY ID BUK,P_FRDAT TYPE SY-DATUM ,P_TODAT TYPE SY-DATUM ,P_MODE LIKE CTU_PARAMS-DISMODE AS LISTBOX DEFAULT 'E' VISIBLE LENGTH 16 OBLIGATORY .
INITIALIZATION.CONCATENATE SY-DATUM(6) '01' INTO P_TODAT.
AT SELECTION-SCREEN OUTPUT.%_P_BUKRS_%_APP_%-TEXT = '公司代码'.%_P_FRDAT_%_APP_%-TEXT = '当前期间'.%_P_TODAT_%_APP_%-TEXT = '开到期间'.%_P_MODE_%_APP_%-TEXT  = 'BDC运行模式'.
AT SELECTION-SCREEN ON P_BUKRS.ON CHANGE OF P_BUKRS.SELECT SINGLE * FROM MARVWHERE BUKRS = P_BUKRS.IF SY-SUBRC = 0.CONCATENATE MARV-LFGJA MARV-LFMON '01' INTO P_FRDAT.ELSE.MESSAGE E000(OO) WITH '公司代码' P_BUKRS '不存在物料帐数据'.ENDIF.LEAVE SCREEN.ENDON.
START-OF-SELECTION.IF P_FRDAT IS INITIAL OR P_FRDAT = '' ORP_TODAT IS INITIAL OR P_TODAT = ''.MESSAGE E000(OO) WITH '日期不可以为空'.ENDIF.SELECT SINGLE * FROM T000WHERE MANDT = SY-MANDT ANDCCCATEGORY = 'P'.IF SY-SUBRC = 0.MESSAGE S000(OO) WITH '不可以在生产系统使用本程序'.RETURN.ENDIF.P_FRDAT = P_FRDAT + 32.CONCATENATE P_FRDAT(6) '01' INTO DATUM.WHILE DATUM(6) <= P_TODAT(6).PERFORM BDC.DATUM = DATUM + 32.DATUM+6(2) = '01'.ENDWHILE.MESSAGE S000(OO) WITH '完毕，请使用MMRV查看结果'.LOOP AT ITAB_LOG.WRITE / ITAB_LOG.ENDLOOP.
*&---------------------------------------------------------------------*
*&      Form  bdc
*&---------------------------------------------------------------------*
FORM BDC.DATA: OPTION TYPE CTU_PARAMS .OPTION-DISMODE  = P_MODE.OPTION-RACOMMIT = 'X'.CLEAR: BDCDATA,BDCDATA[].PERFORM BDC_DYNPRO      USING 'RMMMPERI' '1000'.PERFORM BDC_FIELD       USING 'BDC_OKCODE'    '=ONLI'.PERFORM BDC_FIELD       USING 'I_VBUKR'       P_BUKRS.PERFORM BDC_FIELD       USING 'I_BBUKR'       P_BUKRS.PERFORM BDC_FIELD       USING 'I_DATUM'       DATUM.PERFORM BDC_DYNPRO      USING 'SAPMSSY0' '0120'.PERFORM BDC_FIELD       USING 'BDC_OKCODE'    '=&F03'.PERFORM BDC_DYNPRO      USING 'RMMMPERI' '1000'.PERFORM BDC_FIELD       USING 'BDC_OKCODE'    '/EE'.CALL TRANSACTION 'MMPV' USING BDCDATAOPTIONS FROM OPTION MESSAGES INTO MESSTAB.LOOP AT MESSTAB.CALL FUNCTION 'MESSAGE_TEXT_BUILD'EXPORTINGMSGID               = MESSTAB-MSGIDMSGNR               = MESSTAB-MSGNRMSGV1               = MESSTAB-MSGV1MSGV2               = MESSTAB-MSGV2MSGV3               = MESSTAB-MSGV3MSGV4               = MESSTAB-MSGV4IMPORTINGMESSAGE_TEXT_OUTPUT = ITAB_LOG-MESSAGE.APPEND ITAB_LOG.CLEAR ITAB_LOG.ENDLOOP.
ENDFORM.                    "bdc
*----------------------------------------------------------------------*
*        Start new screen                                              *
*----------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.CLEAR BDCDATA.BDCDATA-PROGRAM  = PROGRAM.BDCDATA-DYNPRO   = DYNPRO.BDCDATA-DYNBEGIN = 'X'.APPEND BDCDATA.
ENDFORM.                    "BDC_DYNPRO
*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.CLEAR BDCDATA.BDCDATA-FNAM = FNAM.BDCDATA-FVAL = FVAL.CONDENSE BDCDATA-FVAL.APPEND BDCDATA.
ENDFORM.                    "BDC_FIELD

程序运行界面

执行完成后MMRV查询

批量关闭打开财务会计账期程序

这个报表同时展示该公司的财务账期和物料账期

*&---------------------------------------------------------------------*
*& REPORT ZTOOLSR0001
*&---------------------------------------------------------------------*
*& 自动开账期程序
*&---------------------------------------------------------------------*
* OB52 参考SAP程序 RFPERIOD_OPEN 和 RFPERIOD_CLOSE
* 直接更新  T001B 这个表
*--------------------------------------------------------------------*
REPORT ZTOOLSR0001.
TABLES: T001B.
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.SELECT-OPTIONS: S_COMP FOR T001B-BUKRS,S_POPER FOR T001B-FRPE1 MODIF ID TY1 NO INTERVALS NO-EXTENSION.SELECTION-SCREEN SKIP 1.PARAMETERS: P_SELECT RADIOBUTTON GROUP G1 USER-COMMAND UC DEFAULT 'X',P_EXECUT RADIOBUTTON GROUP G1,P_CLOSE  RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK BLK1.
TYPES: BEGIN OF TY_RESULT,BUKRS     TYPE T001-BUKRS,MKOAR     TYPE T001B-MKOAR,BKONT     TYPE T001B-BKONT,VKONT     TYPE T001B-VKONT,FRYE1     TYPE T001B-FRYE1,FRPE1     TYPE T001B-FRPE1,TOYE1     TYPE T001B-TOYE1,TOPE1     TYPE T001B-TOPE1,FRYE2     TYPE T001B-FRYE2,FRPE2     TYPE T001B-FRPE2,TOYE2     TYPE T001B-TOYE2,TOPE2     TYPE T001B-TOPE2,LFGJA     TYPE MARV-LFGJA,LFMON     TYPE MARV-LFMON,VMGJA     TYPE MARV-VMGJA,VMMON     TYPE MARV-VMMON,BLANKCELL TYPE C,END OF TY_RESULT.
DATA: GT_RESULT TYPE STANDARD TABLE OF TY_RESULT.
DATA: GT_T001  TYPE STANDARD TABLE OF T001,GT_T001B TYPE STANDARD TABLE OF T001B,GT_MARV  TYPE STANDARD TABLE OF MARV.
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,GS_LAYOUT   TYPE SLIS_LAYOUT_ALV.
AT SELECTION-SCREEN OUTPUT.LOOP AT SCREEN.IF SCREEN-GROUP1 EQ 'TY1' AND P_EXECUT EQ 'X'.SCREEN-ACTIVE = 1.ELSEIF SCREEN-GROUP1 EQ 'TY1' AND P_EXECUT NE 'X'.SCREEN-ACTIVE = 0.ENDIF.MODIFY SCREEN.ENDLOOP.
START-OF-SELECTION.PERFORM FRM_SELECT_COMP_CODE.IF NOT GT_T001 IS INITIAL.IF NOT P_SELECT IS INITIAL.     " 查询账期PERFORM FRM_SELECT_POSTING_PROCESS. " 查询财务账期PERFORM FRM_SELECT_MATERIAL_PERIODS." 查询物料账期PERFORM FRM_SET_RESULT_AND_ALV_SHOW.ELSEIF NOT P_EXECUT IS INITIAL. " 打开账期IF NOT P_EXECUT IS INITIAL AND NOT S_POPER IS INITIAL.IF S_POPER-LOW+1(2) LT SY-DATUM+4(2).MESSAGE '输入期间不可小于当前期间' TYPE 'S' DISPLAY LIKE 'E'.RETURN.ELSEIF S_POPER-LOW+1(2) - SY-DATUM+4(2) GT 1.MESSAGE '输入期间 - 当前期间不可大于 1' TYPE 'S' DISPLAY LIKE 'E'.RETURN.ENDIF.ENDIF.PERFORM FRM_SELECT_POSTING_PROCESS.PERFORM FRM_SET_NEW_POSTING_PROCESS. " 开财务账期PERFORM FRM_POST_MATERIAL_PROCESS.   " 开物料账期MESSAGE '执行成功,请退出后等待一会儿（约1min）再重新进入查看' TYPE 'S'.ELSEIF NOT P_CLOSE IS INITIAL. " 关闭账期 - 只针对财务账期PERFORM FRM_SELECT_POSTING_PROCESS.PERFORM FRM_SET_NEW_POSTING_PROCESS. " 关财务账期ENDIF.ELSE.MESSAGE '未查询到公司数据，请检查后重试；或联系系统管理员维护ZMASTERT0001表' TYPE 'S' DISPLAY LIKE 'E'.ENDIF.
END-OF-SELECTION.
FORM FRM_SELECT_COMP_CODE.
*--------------------------------------------------------------------*
* 有一个公司代码主数据 ZMASTERT0001
* 如果这个表忘记维护怎么办
* 加一个不更新账期的字段
*--------------------------------------------------------------------*SELECT*FROMT001INNER JOIN ZMASTERT0001 ON T001~BUKRS EQ ZMASTERT0001~BUKRSWHERE T001~KTOPL EQ 'MYACCOUNT'AND ZMASTERT0001~NOT_UP_ACC_DATE IS INITIALAND T001~BUKRS IN @S_COMPINTO CORRESPONDING FIELDS OF TABLE @GT_T001.
ENDFORM.
FORM FRM_SELECT_POSTING_PROCESS.IF NOT GT_T001 IS INITIAL.SELECT*FROMT001BFOR ALL ENTRIES IN @GT_T001WHERE BUKRS EQ @GT_T001-BUKRSINTO CORRESPONDING FIELDS OF TABLE @GT_T001B.ENDIF.
ENDFORM.
FORM FRM_SELECT_MATERIAL_PERIODS.SELECT*FROMMARVFOR ALL ENTRIES IN @GT_T001WHERE BUKRS EQ @GT_T001-BUKRSINTO CORRESPONDING FIELDS OF TABLE @GT_MARV.
ENDFORM.
FORM FRM_SET_NEW_POSTING_PROCESS.DATA: LS_T001B LIKE LINE OF GT_T001B.DATA: LV_FROM_YEAR_1    TYPE T001B-FRYE1,LV_FROM_PROCESS_1 TYPE T001B-FRPE1,LV_TO_YEAR_1      TYPE T001B-TOYE1,LV_TO_PROCESS_1   TYPE T001B-TOPE1,LV_FROM_YEAR_2    TYPE T001B-FRYE2,LV_FROM_PROCESS_2 TYPE T001B-FRPE2,LV_TO_YEAR_2      TYPE T001B-TOYE2,LV_TO_PROCESS_2   TYPE T001B-TOPE2,LV_YEAR           TYPE T001B-FRYE1.FIELD-SYMBOLS: <LFS_T001B> LIKE LINE OF GT_T001B.
*--------------------------------------------------------------------*
* 初始化值
*--------------------------------------------------------------------*LV_YEAR = SY-DATUM+0(4).IF NOT P_CLOSE IS INITIAL. " 关闭账期LV_FROM_YEAR_1 = LV_YEAR.LV_FROM_PROCESS_1 = SY-DATUM+4(2).ENDIF.LV_TO_YEAR_1 = LV_YEAR.IF S_POPER IS INITIAL.LV_TO_PROCESS_1 = SY-DATUM+4(2).ELSEIF S_POPER-LOW+1(2) GE SY-DATUM+4(2).LV_TO_PROCESS_1 = S_POPER-LOW+1(2).ENDIF.LV_FROM_YEAR_2 = LV_YEAR.LV_FROM_PROCESS_2 = '13'.LV_TO_YEAR_2 = LV_YEAR.LV_TO_PROCESS_2 = '16'.LOOP AT GT_T001B ASSIGNING <LFS_T001B>.IF NOT P_CLOSE IS INITIAL.<LFS_T001B>-FRYE1 = LV_FROM_YEAR_1.<LFS_T001B>-FRPE1 = LV_FROM_PROCESS_1.ENDIF.<LFS_T001B>-TOYE1 = LV_TO_YEAR_1.<LFS_T001B>-TOPE1 = LV_TO_PROCESS_1.<LFS_T001B>-FRYE2 = LV_FROM_YEAR_2.<LFS_T001B>-FRPE2 = LV_FROM_PROCESS_2.<LFS_T001B>-TOYE2 = LV_TO_YEAR_2.<LFS_T001B>-TOPE2 = LV_TO_PROCESS_2.ENDLOOP.MODIFY T001B FROM TABLE GT_T001B. " 更新 T001B 表
ENDFORM.
*--------------------------------------------------------------------*
* 开物料账期
*--------------------------------------------------------------------*
FORM FRM_POST_MATERIAL_PROCESS.DATA: LS_T001 TYPE T001.DATA: LV_YEAR    TYPE LFGJA,LV_PROCESS TYPE NPERI.
*--------------------------------------------------------------------*
* 初始化值
*--------------------------------------------------------------------*LV_YEAR = SY-DATUM+0(4).IF S_POPER IS INITIAL.LV_PROCESS = SY-DATUM+4(2).ELSEIF S_POPER-LOW+1(2) GE SY-DATUM+4(2).LV_PROCESS = S_POPER-LOW+1(2).ENDIF.LOOP AT GT_T001 INTO LS_T001.CALL FUNCTION 'ZTOOLSFM04_MMPV_JOB'EXPORTINGV_COMP_CODE = LS_T001-BUKRSV_YEAR      = LV_YEARV_PROCESS   = LV_PROCESS.ENDLOOP.
ENDFORM.
FORM FRM_SET_RESULT_AND_ALV_SHOW.DATA: LS_RESULT TYPE TY_RESULT,LS_T001B  TYPE T001B,LS_MARV   TYPE MARV.SORT GT_T001B BY BUKRS MKOAR.LOOP AT GT_T001B INTO LS_T001B.MOVE-CORRESPONDING LS_T001B TO LS_RESULT.AT NEW BUKRS.READ TABLE GT_MARV INTO LS_MARV WITH KEY BUKRS = LS_T001B-BUKRS.IF SY-SUBRC EQ 0.MOVE-CORRESPONDING LS_MARV TO LS_RESULT.ENDIF.ENDAT.APPEND LS_RESULT TO GT_RESULT.CLEAR: LS_RESULT, LS_T001B, LS_MARV.ENDLOOP.SORT GT_RESULT BY BUKRS MKOAR.PERFORM FRM_INIT_LAYOUT.PERFORM FRM_SET_FIELDCAT.CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'EXPORTINGI_CALLBACK_PROGRAM       = SY-REPIDI_CALLBACK_PF_STATUS_SET = 'FRM_ALV_PF_STATUS'I_CALLBACK_USER_COMMAND  = 'FRM_ALV_USER_COMMAND'IS_LAYOUT                = GS_LAYOUTIT_FIELDCAT              = GT_FIELDCATTABLEST_OUTTAB                 = GT_RESULTEXCEPTIONSPROGRAM_ERROR            = 1OTHERS                   = 2.
ENDFORM.
FORM FRM_INIT_LAYOUT.GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.GS_LAYOUT-ZEBRA = 'X'.
ENDFORM.
FORM FRM_SET_FIELDCAT.DATA: LS_FIELDCAT TYPE LINE OF SLIS_T_FIELDCAT_ALV.PERFORM FRM_INIT_FIELDCAT USING:'BUKRS' '公司代码','MKOAR' '账户类型','BKONT' '终止科目','VKONT' '起始科目','FRYE1' '年度','FRPE1' '从','TOYE1' '年度','TOPE1' '到','FRYE2' '年度','FRPE2' '从','TOYE2' '年度','TOPE2' '到','BLANKCELL' '财务账和物料账分隔列','LFGJA' '当期会计年度','LFMON' '当期过账期间','VMGJA' '上期会计年度','VMMON' '上期过账期间'.
ENDFORM.
FORM FRM_INIT_FIELDCAT USING FIELDNAME TYPE SLIS_FIELDCAT_ALV-FIELDNAMESELTEXT TYPE SLIS_FIELDCAT_ALV-SELTEXT_L.DATA: LS_FIELDCAT TYPE LINE OF SLIS_T_FIELDCAT_ALV.LS_FIELDCAT-FIELDNAME = FIELDNAME.LS_FIELDCAT-SELTEXT_S = SELTEXT.LS_FIELDCAT-SELTEXT_M = SELTEXT.LS_FIELDCAT-SELTEXT_L = SELTEXT.LS_FIELDCAT-NO_ZERO = 'X'.APPEND LS_FIELDCAT TO GT_FIELDCAT.
ENDFORM.
FORM FRM_ALV_PF_STATUS USING LT_EXTAB TYPE SLIS_T_EXTAB.SET PF-STATUS 'ZTOOLSR0001'.
ENDFORM.
FORM FRM_ALV_USER_COMMAND USING LV_UCOMM LIKE SY-UCOMMLS_SELFIELD TYPE SLIS_SELFIELD.DATA: LR_GRID   TYPE REF TO CL_GUI_ALV_GRID.DATA: LS_LAYOUT TYPE LVC_S_LAYO.CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'IMPORTINGE_GRID = LR_GRID.CALL METHOD LR_GRID->CHECK_CHANGED_DATA.LS_SELFIELD-REFRESH = 'X'.LS_SELFIELD-ROW_STABLE = 'X'.LS_SELFIELD-COL_STABLE = 'X'.CALL METHOD LR_GRID->GET_FRONTEND_LAYOUTIMPORTINGES_LAYOUT = LS_LAYOUT.LS_LAYOUT-CWIDTH_OPT = 'X'.CALL METHOD LR_GRID->SET_FRONTEND_LAYOUTEXPORTINGIS_LAYOUT = LS_LAYOUT.IF LV_UCOMM EQ 'ZUPDATE'.PERFORM FRM_SET_NEW_POSTING_PROCESS. " 开财务账期PERFORM FRM_POST_MATERIAL_PROCESS.   " 开物料账期MESSAGE '执行成功,请退出后等待一会儿（约1min）再重新进入查看' TYPE 'S'.ENDIF.CALL METHOD LR_GRID->REFRESH_TABLE_DISPLAY.
ENDFORM.

自定义开物料账期函数 ZTOOLSFM04_MMPV_JOB

FUNCTION ZTOOLSFM04_MMPV_JOB .
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(V_COMP_CODE) TYPE  BUKRS
*"     VALUE(V_YEAR) TYPE  LFGJA
*"     VALUE(V_PROCESS) TYPE  NPERI
*"----------------------------------------------------------------------
*--------------------------------------------------------------------*
* 使用 BDC 录屏并不能实现
* 只能直接调用程序 RMMMPERI
* 直接调用程序 RMMPERI会返回日志屏幕
* 所以还得去后台调用
*--------------------------------------------------------------------*
* JobDATA: V_START_TIME LIKE SY-UZEIT,V_REPORT     TYPE SY-REPID,V_JOBCOUNT   TYPE TBTCJOB-JOBCOUNT,V_JOBNAME    TYPE TBTCJOB-JOBNAME.V_JOBNAME = 'ZMMPVJOB' && SY-DATUM.V_REPORT = 'ZREPORTXXX'.V_START_TIME = SY-UZEIT + 7. " 系统当期时间后21s
* 定义后台作业CALL FUNCTION 'JOB_OPEN'EXPORTINGJOBNAME  = V_JOBNAMEJOBCLASS = 'A'IMPORTINGJOBCOUNT = V_JOBCOUNT.SUBMIT RMMMPERIWITH I_VBUKR = V_COMP_CODEWITH I_BBUKR = V_COMP_CODEWITH I_LFMON = V_PROCESSWITH I_LFGJA = V_YEARWITH I_XCOMP = 'X'WITH I_XINCO = ''WITH I_XMOVE = ''USER SY-UNAMEVIA JOB V_JOBNAMENUMBER V_JOBCOUNTAND RETURN.CALL FUNCTION 'JOB_CLOSE'EXPORTINGJOBCOUNT  = V_JOBCOUNTJOBNAME   = V_JOBNAMESDLSTRTDT = SY-DATUMSDLSTRTTM = V_START_TIME
*     strtimmed = 'X'
.
ENDFUNCTION.

备注：报表中涉及到自定义开物料账期的函数，执行完成打开财务账期后，执行打开物料账期。

自定义公司代码表 ZMASTERT0001

以及自定义公司代码表ZMASTERT0001用来配置哪些公司需要更新账期，如果设置单字符标记为“X”，表示不执行更新账期。

这程序执行界面

1、查询财务账期

查询结果

2、打开财务账期和物料账期

执行结果

3、关闭财务账期

执行结果

往期相关文章荐读：

FI财务会计模块详解1-基本功能介绍

FI财务会计模块详解2-组织架构介绍

FI财务会计模块详解3-会计科目表

FI财务会计模块详解4-维护会计科目

FI财务会计模块详解5-会计凭证

FI财务会计模块详解6-会计年度与过账期间

FI财务会计模块详解7-总账凭证的录入

FI财务会计模块详解8-会计凭证先预制后过账

FI财务会计模块详解9-周期性凭证

FI财务会计模块详解10-会计凭证字段校验与替代

FI财务会计模块详解11-未清项管理

FI财务会计模块详解12-应付模块详解

FI财务会计模块详解13-应收模块详解