MF61FFS0 SAP ABAP INCLUDE - Change of Active Contracts: Backup Routines

MF61FFS0 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter MF61FFS0 into the relevant SAP transactions such as SE38 or SE80

ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.

SUBMIT MF61FFS0. "Basic submit
SUBMIT MF61FFS0 AND RETURN. "Return to original report after report execution complete
SUBMIT MF61FFS0 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement

Text pool values

INCLUDES used within this REPORT MF61FFS0

No INCLUDES are used within this REPORT code!

TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!

Function Modules used within report and the associated call statement:

POPUP_TO_CONFIRM_STEP
    CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
         EXPORTING
              defaultoption = 'N'
              textline1     = 'Sicherung trotz Warnungen'(031)
              textline2     = 'fortsetzen?'(032)
              titel         = 'Prüfung Abrechnungsteilnahme'(030)
         IMPORTING
              answer        = antwort.

MV_NULLKONDITION_FOR_NEW_KOKO
  CALL FUNCTION 'MV_NULLKONDITION_FOR_NEW_KOKO'
       TABLES
          ivzzkopo         = ges_vzzkopo.

USERDATA_MAINTAIN
    CALL FUNCTION 'USERDATA_MAINTAIN'
         EXPORTING
*             HERKUNFT = E01
              inuser   = ruser
         IMPORTING
              exuser   = ruser.

RE_CASHFLOW_FORECAST
    CALL FUNCTION 'RE_CASHFLOW_FORECAST'
         TABLES
              it_gvibepp_new          = xvibepp
              it_gvibepp_old          = yvibepp
         EXCEPTIONS
              OTHERS                  = 1.

FVZK_GET_XVZZKOPO
  CALL FUNCTION 'FVZK_GET_XVZZKOPO'
       TABLES
            x_vzzkopo     = new_vzzkopo
       EXCEPTIONS
            nametab_error = 01
            OTHERS        = 02.

CHANGEDOCUMENT_PREPARE_TABLES
  CALL FUNCTION 'CHANGEDOCUMENT_PREPARE_TABLES'
       EXPORTING
            check_indicator = space
            tablename       = 'VZZKOPO   '
       TABLES
            table_new       = new_vzzkopo
            table_old       = old_vzzkopo
       EXCEPTIONS
            nametab_error   = 01
            OTHERS          = 02.

TRANSACTIONS_DISPLAY
*  CALL FUNCTION 'TRANSACTIONS_DISPLAY'
*       EXPORTING
*            I_DYNNR        = K_DYNNR_HEADER_MV
*            I_KZ_SELECTION = 'X'
*            I_REPID        = K_REPID_HEADER_MV
*            I_RLFVZZ       = RLFVZZ
*       TABLES
*            IBEPP = NEW_VZZBEPP
*            IKOPO = GES_VZZKOPO
*       EXCEPTIONS
*            CASH_FLOW_DATA_EMPTY = 01.

FVIA_DISPLAY_VIBEPP
  CALL FUNCTION 'FVIA_DISPLAY_VIBEPP'
       EXPORTING
            i_imkey   = vimimv-imkey
            i_intreno = vimimv-intreno
       TABLES
*           t_gvibepp =
            t_vzzbepp = new_vzzbepp.

STATUS_CHECK
    CALL FUNCTION 'STATUS_CHECK'
         EXPORTING
              objnr  = vimimv-snks
              status = con_istat-mv_plan_anpassung
         EXCEPTIONS
*             OBJECT_NOT_FOUND = 01    " FB-Fehlermeldung
              status_not_active = 02.

MV_ADJUST_TYPE_INDEX_ACT_GET
      CALL FUNCTION 'MV_ADJUST_TYPE_INDEX_ACT_GET'
           EXPORTING
                i_date             = yvimi16-danpass
                i_intreno          = vimimv-intreno
                i_kz_bypass_buffer = space
                i_skoart           = par_skoart
           IMPORTING
                e_vimi55           = vimi55.

DATE_CREATE
        CALL FUNCTION 'DATE_CREATE'
           EXPORTING
                  anzahl_monate = vimi55-danpryth
                  datum_ein     = vimi55-danpletz
           IMPORTING
                datum_aus       = vimi55-danpnxt.

MV_ADJUST_TYPE_INDEX_MOD_BUFF
      CALL FUNCTION 'MV_ADJUST_TYPE_INDEX_MOD_BUFF'
           EXPORTING
                i_kz_save_on_commit = space
                i_vimi55            = vimi55 .

END_OF_PERIOD_DETERMINE
      CALL FUNCTION 'END_OF_PERIOD_DETERMINE'
         EXPORTING
              i_ammrhy    = vzzkopo-ammrhy
              i_dperbeg   = loc_dperbeg
              i_kz_perbeg = loc_kz_perbeg
         IMPORTING
              e_dperend   = vzzkopo-dvalut
              e_ultkz     = ultimo_kz.

DATE_COMPUTE_DAY
          CALL FUNCTION 'DATE_COMPUTE_DAY'
               EXPORTING
                    date    = loc_dperbeg
               IMPORTING
                    day     = loc_day.

DATE_CREATE
        CALL FUNCTION 'DATE_CREATE'
             EXPORTING
                  anzahl_monate  = vzzkopo-ammrhy
                  datum_ein      = vzzkopo-dvalut
                  datum_ein_ult  = ultimo_kz
                  ultimo_setzen  = ultimo_kz
             IMPORTING
                  datum_aus      = vzzkopo-dvalut
             EXCEPTIONS
                  OTHERS         = 1.

DATE_OF_ADVANCE_CREATE
    CALL FUNCTION 'DATE_OF_ADVANCE_CREATE'
         EXPORTING
              i_ammrhy   = vzzkopo-ammrhy
              i_attrhy   = vzzkopo-attrhy             " ALRK126402
              i_dperende = vzzkopo-dvalut
              i_svorsch  = vzzkopo-szaws
              i_ultkz    = ultimo_kz
         IMPORTING
              e_dfaell   = vzzkopo-dfaell.

FVZK_KOPO_EMPTY_TEST
      CALL FUNCTION 'FVZK_KOPO_EMPTY_TEST'
        EXPORTING
          default_values  = space
          fields_vvzzkopo = ls_vzzkopo
          gsart           = k_gsart_mv
        IMPORTING
          empty_kopo      = ld_empty_kopo.

FVIA_VZZKOPO_TO_VIBEPP
  CALL FUNCTION 'FVIA_VZZKOPO_TO_VIBEPP'
       EXPORTING
            all_bepp          = 'X'               " KISK015073
*----       bmwst_bezugsdatum = rf61f-dgueltig
*----       compute_bmwst     = compute_bmwst     " Ab F3.04 nicht mehr

FVIA_CASH_FLOW_IMMO_ME_UPDATE














    CALL FUNCTION 'FVIA_CASH_FLOW_IMMO_ME_UPDATE'
         EXPORTING
              i_vimi01          = vimi01
              i_vimimv_new      = vimimv
              i_vimimv_old      = *vimimv
         IMPORTING
              e_belegung_changed = bel_changed
         EXCEPTIONS
              error_conditions_me           = 01
              me_change_not_allowed         = 02
              sbewart_nachbuchung_not_found = 03
              OTHERS                        = 04.

CHANGEDOCUMENT_PREPARE_TABLES
    CALL FUNCTION 'CHANGEDOCUMENT_PREPARE_TABLES'
         EXPORTING
              check_indicator = space
              tablename = 'VIAK02    '
         TABLES
              table_new = xviak02
              table_old = yviak02
         EXCEPTIONS
              nametab_error = 01
              OTHERS        = 02.

CHANGEDOCUMENT_PREPARE_TABLES
      CALL FUNCTION 'CHANGEDOCUMENT_PREPARE_TABLES'
           EXPORTING
                check_indicator = space
                tablename = 'VIMI18    '
           TABLES
                table_new = xvimi18
                table_old = yvimi18
           EXCEPTIONS
                nametab_error = 01
                OTHERS        = 02.

CHANGEDOCUMENT_PREPARE_TABLES
      CALL FUNCTION 'CHANGEDOCUMENT_PREPARE_TABLES'
           EXPORTING
                check_indicator = space
                tablename = 'VIBEPP    '
           TABLES
                table_new = xvibepp
                table_old = yvibepp
           EXCEPTIONS
                nametab_error = 01
                OTHERS        = 02.

RE_CASHFLOW_FORECAST
      CALL FUNCTION 'RE_CASHFLOW_FORECAST'
           EXPORTING
                iv_post                 = 'X'
                iv_compare              = space
           TABLES
                it_gvibepp_new          = xvibepp
                it_gvibepp_old          = yvibepp
           EXCEPTIONS
                OTHERS                  = 1.

CHANGEDOCUMENT_PREPARE_TABLES
    CALL FUNCTION 'CHANGEDOCUMENT_PREPARE_TABLES'
         EXPORTING
              check_indicator = space
              tablename = 'VIKOKO    '
         TABLES
              table_new = xvikoko
              table_old = yvikoko
         EXCEPTIONS
              nametab_error = 01
              OTHERS        = 02.

CHANGEDOCUMENT_PREPARE_TABLES
    CALL FUNCTION 'CHANGEDOCUMENT_PREPARE_TABLES'
         EXPORTING
              check_indicator = space
              tablename = 'VIMI08    '
         TABLES
              table_new = xvimi08
              table_old = yvimi08
         EXCEPTIONS
              nametab_error = 01
              OTHERS        = 02.

FVST_ME_STATUS_HIST_CHECK_SET
* CALL FUNCTION 'FVST_ME_STATUS_HIST_CHECK_SET'
*      EXPORTING
*           I1_VIMIMV_NEW        = VIMIMV
*           I1_VIMIMV_OLD        = *VIMIMV
*           I_OBJNR              = VIMI01-SNKS
*           I_SET_STATUS         = 'X'
*      IMPORTING
*           E_CHANGE_FLAG        = BEL_CHANGED
*      EXCEPTIONS
*           OTHERS               = 01.

VIAK02_VERBUCHER
      CALL FUNCTION 'VIAK02_VERBUCHER'   IN UPDATE TASK
           EXPORTING
                funktion = xviak02-kz
                i_viak02 = viak02.

VIAK02_VERBUCHER
      CALL FUNCTION 'VIAK02_VERBUCHER'   IN UPDATE TASK
           EXPORTING
                funktion = yviak02-kz
                i_viak02 = viak02.

FVMK_KOSTL_OBJECT_SAVE
    CALL FUNCTION 'FVMK_KOSTL_OBJECT_SAVE'  " IN UPDATE TASK
         EXPORTING
              fl_update_task = 'X'
              objnr          = vimimv-snks
         tables
              e_xvimi38      = xvimi38
              e_yvimi38      = yvimi38.

MV_ADJUST_TYPE_VIMI54_SAVE_CD
    CALL FUNCTION 'MV_ADJUST_TYPE_VIMI54_SAVE_CD'
         TABLES
              e_tab_xvimi54 = xvimi54
              e_tab_yvimi54 = yvimi54.

MV_ADJUST_TYPE_VIMI55_SAVE_CD
    CALL FUNCTION 'MV_ADJUST_TYPE_VIMI55_SAVE_CD'
         TABLES
              e_tab_xvimi55 = xvimi55
              e_tab_yvimi55 = yvimi55.

VIKOKO_VERBUCHER
      CALL FUNCTION 'VIKOKO_VERBUCHER'     IN UPDATE TASK
           EXPORTING
                satz_kz    = xvikoko-kz
                upd_vikoko = vikoko.

VIKOKO_VERBUCHER
      CALL FUNCTION 'VIKOKO_VERBUCHER'     IN UPDATE TASK
           EXPORTING
                satz_kz    = yvikoko-kz
                upd_vikoko = vikoko.

FVZK_SAVE_VZZKOPO
    CALL FUNCTION 'FVZK_SAVE_VZZKOPO'
         EXPORTING
*             DGUEL_KK       = E01
              ohne_verbucher = space     " IN UPDATE TASK
*             RKEY1          = E03
*             RKEY2          = E04
*             RKEY3          = E05
         TABLES
              x_vzzkopo      = xvzzkopo
              y_vzzkopo      = yvzzkopo
         EXCEPTIONS
              nametab_error = 01
              update_error = 02.

VIBEPP_MASS_BOOKING
      CALL FUNCTION 'VIBEPP_MASS_BOOKING' IN UPDATE TASK
           TABLES
                vibepp_beweg = yvibepp
           EXCEPTIONS
                OTHERS       = 01.

VIBEPP_MASS_BOOKING
      CALL FUNCTION 'VIBEPP_MASS_BOOKING' IN UPDATE TASK
           TABLES
                vibepp_beweg = xvibepp
           EXCEPTIONS
                OTHERS       = 01.

FVST_ME_STATUS_HIST_SAVE
        CALL FUNCTION 'FVST_ME_STATUS_HIST_SAVE' " IN UPDATE TASK
             EXPORTING
                 ohne_verbucher = space.

VIMI18_VERBUCHER
        CALL FUNCTION 'VIMI18_VERBUCHER'   IN UPDATE TASK
             EXPORTING
                  funktion = xvimi18-kz
                  i_vimi18 = vimi18.

VIMI18_VERBUCHER
        CALL FUNCTION 'VIMI18_VERBUCHER'   IN UPDATE TASK
             EXPORTING
                  funktion = yvimi18-kz
                  i_vimi18 = vimi18.

VIMI08_VERBUCHER
      CALL FUNCTION 'VIMI08_VERBUCHER'   IN UPDATE TASK
           EXPORTING
                rvimi08 = vimi08
                satz_kz = xvimi08-kz.

VIMI08_VERBUCHER
      CALL FUNCTION 'VIMI08_VERBUCHER'   IN UPDATE TASK
           EXPORTING
                rvimi08 = vimi08
                satz_kz = yvimi08-kz.

VIMI16_VERBUCHER
        CALL FUNCTION 'VIMI16_VERBUCHER'   IN UPDATE TASK
             EXPORTING
                  funktion = 'D'
                  i_vimi16 = vimi16.

FVVI_SAVE_VIMIMV
  CALL FUNCTION 'FVVI_SAVE_VIMIMV'       IN UPDATE TASK
       EXPORTING
            satz_kz = k_update
            upd_vimimv = vimimv.

ISGP_LOAD_PARTNER
  CALL FUNCTION 'ISGP_LOAD_PARTNER'
       EXPORTING
            i_date              = k_init_date
            i_future            = 'X'
            i_snumobj           = con_snumobj-immo
            i_sobjekt           = loc_sobjekt
            entries_into_memory = 'X'
       TABLES
            yvzgpo              = loc_tab_vzgpo
       EXCEPTIONS
            not_found           = 1
            OTHERS              = 2.

ISGP_PARTNER_DEB_FILL
  CALL FUNCTION 'ISGP_PARTNER_DEB_FILL'
       EXPORTING
            i_bukrs      = vimimv-bukrs
*           I_FLG_INTERN = ' '
            no_refresh   = space
            u_rantyp     = con_rantyp-immo
       TABLES
            jvzgpo       = loc_tab_vzgpo
            jvzgpodeb    = loc_tab_vzgpodeb
            jvzzkopo     = par_tab_ges_vzzkopo
       EXCEPTIONS
            no_partner   = 01.

ISGP_PARTNER_KOPO_FILL
  CALL FUNCTION 'ISGP_PARTNER_KOPO_FILL'
       EXPORTING
*           I_MOD_ZLSCH = ' '
            flg_kunnr_hvp = 'X'
            rolle_hvp   = con_roletyp-hauptmieter
       TABLES
            lvzgpo      = loc_tab_vzgpo
            lvzgpodeb   = loc_tab_vzgpodeb
            lvzzkopo    = par_tab_ges_vzzkopo
       EXCEPTIONS
            OTHERS      = 1.