SAP MM学习笔记 - 豆知识10 - OMSY 初期化会计期间，ABAP调用MMPV/MMRV来批量更新会计期间（TODO）

东京老树根

于 2024-10-05 20:47:51 发布

阅读量404

点赞数 12

分类专栏： SAP学习笔记 SAP ABAP 文章标签：学习笔记

本文链接：https://blog.csdn.net/shi_ly/article/details/142710684

版权

SAP学习笔记同时被 3 个专栏收录

161 篇文章 71 订阅

订阅专栏

SAP

159 篇文章 9 订阅

订阅专栏

ABAP

1 篇文章 0 订阅

订阅专栏

之前用MMRV，MMPV来一次一个月来修改会计期间。

如果是老的测试机，可能是10几年前的，一次1个月，更新到当前期间，搞个100多次，手都抖。

SAP MM学习笔记 - 错误 M7053 - Posting only possible in periods 2010/08 and 2010/07 in company code 1000_sap m7053-CSDN博客

所以就想找那种可以一次搞定的方法，下面来看一下。

TODO：最终也没搞成，先放这里，给朋友们参考下，以后有空再说

1，MMRV - 查看当前会计期间

比如这里是 2009/11

2，OMSY - 初期化会计年月

修改前：2009/11

啊，出错了

会社Code 3000 无法初期化。
Msg 番号 MM011

看来也不是随便能改的哈

我在另一个会社Code上更新是可以更新的。

OMSY and OB52 - SAP Community

这个帖子里大致说了OMSY，MMPV/MMRV，OB52 的用途：

- OMSY - 初期化某个公司代码的会计期间，只能用一次

OMSY to fix up the Initial Period and Year for a company code for material management .

After setting you should touch this setting & used only once.

- MMPV / MMRV：MM中的日常开关账期用

For opening & closing periods in MM side, you used MMPV and MMRV to

set back posting allowed and to check which period is open in SAP system.

- OB52：FI 用

OB52 is used for FI side only. It control period in all Account Types A, K, D,M, S

and specially Account Type ?+? which stands for valid for all accounts type .

既然OMSY只能运行一次，那就只能从MMPV，MMRV身上着手想办法了。

3，通过ABAP代码自动批量开关账期

SAP ABAP 自动批量开关账期程序 OB52和MMPV_sap ob52-CSDN博客

TA的代码里面有几个错误：

a），Type "SLIS_T_FIELDCAT_ALV" 未定義

[ABAP] The type "slis_formname"is unknown._abap　slis-CSDN博客

这就需要加上 type-pools，就可以include进来了：

type-pools: slis. "调用类型组

b），不支持関係演算子 "-"

好像也没啥好办法，先放到一个变量里面，再放到关系演算子里面

c），SELECT * using a JOIN must have an INTO clause.

項目 "@GT_T001" 未定義，相似的名称是 "GT_T001"

c），v_comp_code，v_process，v_year 这3个参数，要放到汎用Module的Import参数里面

实行前

会社Code：3000

当期：2009/11

运行Report

输入参数：

- S_COMP：会社Code，比如这里输入 3000

- S_POPER：当期会计期间，比如这里输入 10 （因为现在是2024/10）

- P_EXECUT：选这项表示执行批量更新

执行完只会发现其实根本没变：）

TODO：看来还有需要修改的地方，以后有时间再继续改

原文里也说了实现思路了，我这里把自己的图贴一贴，有需要的可以参考一下，反正我也没成。

要是你搞成了，给我发个Message告诉哪里错了啊。

3-1，ABAP代码

a），SE38 Report

*&---------------------------------------------------------------------*
*& REPORT ZTOOLSR0001
*&---------------------------------------------------------------------*
*& 自动开账期程序
*&---------------------------------------------------------------------*
* OB52 参考SAP程序 RFPERIOD_OPEN 和 RFPERIOD_CLOSE
* 直接更新  T001B 这个表
*--------------------------------------------------------------------*
REPORT ztoolsr0001.

TABLES: t001b.
TABLES: t001.

type-pools: slis. "调用类型组

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.

DATA: lv_dateDiff TYPE i.

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.
        lv_dateDiff = s_poper-low+1(2) - sy-datum+4(2) .
        IF s_poper-low+1(2) LT sy-datum+4(2).
          MESSAGE '输入期间不可小于当前期间' TYPE 'S' DISPLAY LIKE 'E'.
          RETURN.
        ELSEIF lv_dateDiff 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
    *
  FROM
    t001
  INNER JOIN zmastert0001 ON t001~bukrs EQ zmastert0001~bukrs
  INTO CORRESPONDING FIELDS OF TABLE gt_t001
  WHERE t001~ktopl EQ 'CAUS'
    AND zmastert0001~not_up_acc_date NE 'X'
    AND t001~bukrs IN s_comp
  .

ENDFORM.

FORM frm_select_posting_process.
  IF NOT gt_t001 IS INITIAL.
    SELECT
      *
    FROM
      t001b
    INTO CORRESPONDING FIELDS OF TABLE gt_t001b
    FOR ALL ENTRIES IN gt_t001

    WHERE bukrs EQ gt_t001-bukrs
    .
  ENDIF.
ENDFORM.

FORM frm_select_material_periods.
  SELECT
    *
  FROM
    marv
  INTO CORRESPONDING FIELDS OF TABLE gt_marv
  FOR ALL ENTRIES IN gt_t001
  WHERE bukrs EQ gt_t001-bukrs
  .
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'
      EXPORTING
        v_comp_code = ls_t001-bukrs
        v_year      = lv_year
        v_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'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'FRM_ALV_PF_STATUS'
      i_callback_user_command  = 'FRM_ALV_USER_COMMAND'
      is_layout                = gs_layout
      it_fieldcat              = gt_fieldcat
    TABLES
      t_outtab                 = gt_result
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 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-fieldname
                             seltext 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-ucomm
                                ls_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'
    IMPORTING
      e_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_layout
    IMPORTING
      es_layout = ls_layout.

  ls_layout-cwidth_opt = 'X'.

  CALL METHOD lr_grid->set_frontend_layout
    EXPORTING
      is_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.

b），SE37 共通Module

本质上是在共通Module里面调用了MMRV/MMPV来1次一个月进行更新

FUNCTION ztoolsfm04_mmpv_job .
*"----------------------------------------------------------------------
*"*"ローカルインタフェース:
*"  IMPORTING
*"     REFERENCE(V_COMP_CODE) TYPE  BUKRS
*"     REFERENCE(V_PROCESS) TYPE  NPERI
*"     REFERENCE(V_YEAR) TYPE  LFGJA
*"----------------------------------------------------------------------
*  DATA: v_mode         TYPE rfpdo-allgazmd.
*  DATA: wa_bdcdata TYPE bdcdata,
*        it_bdcdata TYPE STANDARD TABLE OF bdcdata.
*
*  v_mode = 'N'.
*
*  CLEAR wa_bdcdata.
*  wa_bdcdata-program  = 'RMMMPERI'.
*  wa_bdcdata-dynpro   = '1000'.
*  wa_bdcdata-dynbegin = 'X'.
*  APPEND wa_bdcdata TO it_bdcdata.
*
*  CLEAR wa_bdcdata.
*  wa_bdcdata-fnam = 'BDC_CURSOR'.
*  wa_bdcdata-fval = 'I_XCOMP'.
*  APPEND wa_bdcdata TO it_bdcdata.
*
*  CLEAR wa_bdcdata.
*  wa_bdcdata-fnam = 'BDC_OKCODE'.
*  wa_bdcdata-fval = '=ONLI'.
*  APPEND wa_bdcdata TO it_bdcdata.
*
*  CLEAR wa_bdcdata.
*  wa_bdcdata-fnam = 'I_VBUKR'.
*  wa_bdcdata-fval = v_comp_code.
*  APPEND wa_bdcdata TO it_bdcdata.
*
*  CLEAR wa_bdcdata.
*  wa_bdcdata-fnam = 'I_LFMON'.
*  wa_bdcdata-fval = v_process.
*  APPEND wa_bdcdata TO it_bdcdata.
*
*  CLEAR wa_bdcdata.
*  wa_bdcdata-fnam = 'I_LFGJA'.
*  wa_bdcdata-fval = v_year.
*  APPEND wa_bdcdata TO it_bdcdata.
*
*  CLEAR wa_bdcdata.
*  wa_bdcdata-fnam = 'I_XCOMP'.
*  wa_bdcdata-fval = 'X'.
*  APPEND wa_bdcdata TO it_bdcdata.
*
*  CLEAR wa_bdcdata.
*  wa_bdcdata-fnam = 'I_XMOVE'.
*  wa_bdcdata-fval = ''.
*  APPEND wa_bdcdata TO it_bdcdata.
*
*  CALL TRANSACTION 'MMPV' USING it_bdcdata MODE v_mode.
*
*  COMMIT WORK AND WAIT.
*--------------------------------------------------------------------*
* 使用 BDC 录屏并不能实现
* 只能直接调用程序 RMMMPERI
* 直接调用程序 RMMPERI 会返回日志屏幕
* 所以还得去后台调用
*--------------------------------------------------------------------*
* Job
  DATA: 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.
  CONCATENATE 'ZMMPVJOB' sy-datum INTO v_jobname.
  v_report = 'ZREPORTXXX'.
  v_start_time = sy-uzeit + 7. " 系统当期时间后21s

* 定义后台作业
  CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      jobname  = v_jobname
      jobclass = 'A'
    IMPORTING
      jobcount = v_jobcount.

  SUBMIT rmmmperi
    WITH i_vbukr = v_comp_code
    WITH i_bbukr = v_comp_code
    WITH i_lfmon = v_process
    WITH i_lfgja = v_year
    WITH i_xcomp = 'X'
    WITH i_xinco = ''
    WITH i_xmove = ''
    USER sy-uname
    VIA JOB v_jobname
    NUMBER v_jobcount
    AND RETURN.

  CALL FUNCTION 'JOB_CLOSE'
    EXPORTING
      jobcount  = v_jobcount
      jobname   = v_jobname
      sdlstrtdt = sy-datum
      sdlstrttm = v_start_time
*     strtimmed = 'X'
    .
ENDFUNCTION.