河北网站seo外包,网络推广提成方案,wordpress图片网盘插件腾讯,星沙网站建设公司之前用MMRV#xff0c;MMPV来一次一个月来修改会计期间。
如果是老的测试机#xff0c;可能是10几年前的#xff0c;一次1个月#xff0c;更新到当前期间#xff0c;搞个100多次#xff0c;手都抖。
SAP MM学习笔记 - 错误 M7053 - Posting only possible in periods 2…之前用MMRVMMPV来一次一个月来修改会计期间。
如果是老的测试机可能是10几年前的一次1个月更新到当前期间搞个100多次手都抖。
SAP MM学习笔记 - 错误 M7053 - Posting only possible in periods 2010/08 and 2010/07 in company code 1000_sap m7053-CSDN博客 所以就想找那种可以一次搞定的方法下面来看一下。
TODO最终也没搞成先放这里给朋友们参考下以后有空再说
1MMRV - 查看当前会计期间
比如这里是 2009/11 2OMSY - 初期化会计年月
修改前2009/11 啊出错了
会社Code 3000 无法初期化。 Msg 番号 MM011 看来也不是随便能改的哈
我在另一个会社Code上更新是可以更新的。 OMSY and OB52 - SAP Community
这个帖子里大致说了OMSYMMPV/MMRVOB52 的用途
- 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 / MMRVMM中的日常开关账期用 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.
- OB52FI 用 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只能运行一次那就只能从MMPVMMRV身上着手想办法了。
3通过ABAP代码自动批量开关账期
SAP ABAP 自动批量开关账期程序 OB52和MMPV_sap ob52-CSDN博客 TA的代码里面有几个错误
aType SLIS_T_FIELDCAT_ALV 未定義
[ABAP] The type slis_formnameis unknown._abap slis-CSDN博客 这就需要加上 type-pools就可以include进来了
type-pools: slis. 调用类型组 b不支持関係演算子 - 好像也没啥好办法先放到一个变量里面再放到关系演算子里面 cSELECT * using a JOIN must have an INTO clause.
項目 GT_T001 未定義相似的名称是 GT_T001 cv_comp_codev_processv_year 这3个参数要放到汎用Module的Import参数里面 实行前
会社Code3000
当期2009/11 运行Report
输入参数
- S_COMP会社Code 比如这里输入 3000
- S_POPER当期会计期间比如这里输入 10 因为现在是2024/10
- P_EXECUT选这项表示执行批量更新 执行完只会发现其实根本没变
TODO看来还有需要修改的地方以后有时间再继续改 原文里也说了实现思路了我这里把自己的图贴一贴有需要的可以参考一下反正我也没成。
要是你搞成了给我发个Message告诉哪里错了啊。
3-1ABAP代码
aSE38 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-low1(2) - sy-datum4(2) .IF s_poper-low1(2) LT sy-datum4(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*FROMt001INNER JOIN zmastert0001 ON t001~bukrs EQ zmastert0001~bukrsINTO CORRESPONDING FIELDS OF TABLE gt_t001WHERE t001~ktopl EQ CAUSAND zmastert0001~not_up_acc_date NE XAND t001~bukrs IN s_comp.ENDFORM.FORM frm_select_posting_process.IF NOT gt_t001 IS INITIAL.SELECT*FROMt001bINTO CORRESPONDING FIELDS OF TABLE gt_t001bFOR ALL ENTRIES IN gt_t001WHERE bukrs EQ gt_t001-bukrs.ENDIF.
ENDFORM.FORM frm_select_material_periods.SELECT*FROMmarvINTO CORRESPONDING FIELDS OF TABLE gt_marvFOR ALL ENTRIES IN gt_t001WHERE 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-datum0(4).IF NOT p_close IS INITIAL. 关闭账期lv_from_year_1 lv_year.lv_from_process_1 sy-datum4(2).ENDIF.lv_to_year_1 lv_year.IF s_poper IS INITIAL.lv_to_process_1 sy-datum4(2).ELSEIF s_poper-low1(2) GE sy-datum4(2).lv_to_process_1 s_poper-low1(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-datum0(4).IF s_poper IS INITIAL.lv_process sy-datum4(2).ELSEIF s_poper-low1(2) GE sy-datum4(2).lv_process s_poper-low1(2).ENDIF.LOOP AT gt_t001 INTO ls_t001.CALL FUNCTION ZTOOLSFM04_MMPV_JOBEXPORTINGv_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_DISPLAYEXPORTINGi_callback_program sy-repidi_callback_pf_status_set FRM_ALV_PF_STATUSi_callback_user_command FRM_ALV_USER_COMMANDis_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_FULLSCRIMPORTINGe_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. bSE37 共通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 会返回日志屏幕
* 所以还得去后台调用
*--------------------------------------------------------------------*
* 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.CONCATENATE ZMMPVJOB sy-datum INTO v_jobname.v_report ZREPORTXXX.v_start_time sy-uzeit 7. 系统当期时间后21s* 定义后台作业CALL FUNCTION JOB_OPENEXPORTINGjobname v_jobnamejobclass AIMPORTINGjobcount v_jobcount.SUBMIT rmmmperiWITH i_vbukr v_comp_codeWITH i_bbukr v_comp_codeWITH i_lfmon v_processWITH i_lfgja v_yearWITH i_xcomp XWITH i_xinco WITH i_xmove USER sy-unameVIA JOB v_jobnameNUMBER v_jobcountAND RETURN.CALL FUNCTION JOB_CLOSEEXPORTINGjobcount v_jobcountjobname v_jobnamesdlstrtdt sy-datumsdlstrttm v_start_time
* strtimmed X.
ENDFUNCTION.
cSE11 新规Table ZMASTERT0001
该表用于控制具体要执行哪些公司的账期。 比如我这里填了 会社Code 3000表示要执行会社Code3000 的账期 3-2SE38 执行 说是成功了
TODO其实没有成功 以上代码的原文请参照如下文章
SAP ABAP 自动批量开关账期程序 OB52和MMPV_sap ob52-CSDN博客 以上就是本章的内容。
更多SAP顾问业务知识请点击下面目录链接
https://blog.csdn.net/shi_ly/category_12216766.html
