SAP Reports / Programs

comments icon Comments

RFVIKA05 SAP ABAP Report - Reverse External Heating Expenses Settlement







RFVIKA05 is a standard Executable ABAP Report 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 RFVIKA05 into the relevant SAP transactions such as SE38 or SE80


Transaction Code(s):

Below is a list of transaction codes which are relevant to this SAP report

FONH - Reverse External Heating Exp. Sett.


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 RFVIKA05. "Basic submit
SUBMIT RFVIKA05 AND RETURN. "Return to original report after report execution complete
SUBMIT RFVIKA05 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Selection Text: VVABBLN = Settlement ID
Selection Text: P_STGRD = Reason for Reversal
Selection Text: P_MONAT = Posting Period
Selection Text: P_BUDAT = Posting Date
Title: Reverse External Heating Expenses Settlement
Text Symbol: UE1 = Reverse ext. heating expenses stt.
Text Symbol: SGS = Records Written:
Text Symbol: LN5 = Identification Stt.
Text Symbol: LN3 = |BE |Service Charge Key |Settlement Unit
Text Symbol: LN2 = Settlement Period
Text Symbol: LM0 = Company Code.......
Text Symbol: EIN = Unit
Text Symbol: EIH = Unit
Text Symbol: 900 = Advance Pmnt
Text Symbol: 009 = Incl. STX
Text Symbol: 008 = Tenant
Text Symbol: 007 = Credit
Text Symbol: 006 = Receiv.
Text Symbol: 004 = Settlement Period
Text Symbol: 003 = Stt. Identification
Text Symbol: 002 = Tenant
Text Symbol: 001 = Company Code.......


INCLUDES used within this REPORT RFVIKA05

INCLUDE IFVIHKAB_ALV.
INCLUDE IFRE_CHECK_RE_CLASSIC.


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:

REAL_ESTATE_BUDAT_FOR_XBLNR
   CALL FUNCTION 'REAL_ESTATE_BUDAT_FOR_XBLNR'
        EXPORTING
             I_BUDAT_STORNO     = P_BUDAT
             I_XBLNR            = VVABBLN
*            i_bukrs            = bukrs     " BUKRS nicht eindutig ???
             I_STGRD            = P_STGRD
             IX_GET_BUDAT_ONLY  = ''
*       IMPORTING
*            E_BUDAT            =
        EXCEPTIONS
             NOT_FOUND_STGRD    = 1
             NOT_FOUND_DOCUMENT = 0  " Keine Belege kein Fehler
             INVALID_BUDAT      = 3
             OTHERS             = 4.

FVIA_ACTIVATE_ANPASSUNG
    CALL FUNCTION 'FVIA_ACTIVATE_ANPASSUNG'
         EXPORTING
              DFAELLNACHB                   = SY-DATUM
              I_HOLD_FOLLOW_UP              = ' '
              GESAMT_VERBUCHUNG             = 'X'
              OHNE_VERBUCHER                = 'X'
              VISLID_SSTORNO     = VISLID-SSTORNO            "817296
         IMPORTING
              ACT_NUMBER                    = ACT_NUMBER
              ERR_NUMBER                    = ERR_NUMBER
         TABLES
              IVIMI16                       = IVIMI16
         EXCEPTIONS
              SBEWART_NACHBUCHUNG_NOT_FOUND = 01
              SKOART_NOT_FOUND              = 02.

FVIA_EVALUATE_ERRORS
      CALL FUNCTION 'FVIA_EVALUATE_ERRORS'
           EXPORTING
                SUPRESS_MESSAGES = KZSUPPRESS
           TABLES
                IVIMI16 = IVIMI16.

IMMO_BDC_OPEN
    CALL FUNCTION 'IMMO_BDC_OPEN'
         EXPORTING
              FBSSPARA       = BSSPARA
         EXCEPTIONS
              ERROR_BDC_OPEN = 01.

RESET_CLEARED_ITEMS_BDC_WRITE
    CALL FUNCTION 'RESET_CLEARED_ITEMS_BDC_WRITE'
         EXPORTING
              FBSSPARA         = BSSPARA
         TABLES
              TDOCUMENT        = TCLEARED_ITEMS
         EXCEPTIONS
              ERROR_BDC_INSERT = 01.

DOCUMENT_REVERSE_BDCDATA
    CALL FUNCTION 'DOCUMENT_REVERSE_BDCDATA'
         EXPORTING
              FBSSPARA         = BSSPARA
              NO_CLOSE         = ' '
              NO_OPEN          = 'X'
         TABLES
              TDOCUMENT        = TDOCUMENT
         EXCEPTIONS
              OTHERS           = 01.

VIAK16_BOOKING
  CALL FUNCTION 'VIAK16_BOOKING' IN UPDATE TASK
       EXPORTING
            VERBART = 'D'
            TVIAK16 = VIAK16.

VIAK18_BOOKING
  CALL FUNCTION 'VIAK18_BOOKING' IN UPDATE TASK              "837993
       EXPORTING
            VERBART = 'D'
       TABLES
            TVIAK18 = TVIAK18.                               "837993

VIAK17_BOOKING
  CALL FUNCTION 'VIAK17_BOOKING' IN UPDATE TASK
       EXPORTING
            VERBART = 'D'
       TABLES
            TVIAK17 = TVIAK17.

VISLID_BOOKING
  CALL FUNCTION 'VISLID_BOOKING' IN UPDATE TASK
       EXPORTING
            VERBART = 'U'
            TVISLID = VISLID.

VIAK20_BOOKING
  CALL FUNCTION 'VIAK20_BOOKING' IN UPDATE TASK
       EXPORTING
            VERBART = 'D'
       TABLES
            TVIAK20 = TVIAK20.

VIMI16_BOOKING
  CALL FUNCTION 'VIMI16_BOOKING' IN UPDATE TASK
       EXPORTING
            VERBART = 'D'
       TABLES
            TVIMI16 = TVIMI16.

VIMI17_BOOKING
  CALL FUNCTION 'VIMI17_BOOKING' IN UPDATE TASK
       EXPORTING
            VERBART = 'D'
       TABLES
            TVIMI17 = TVIMI17.

MESSAGES_INITIALIZE
  CALL FUNCTION 'MESSAGES_INITIALIZE'.

MESSAGES_INITIALIZE
  CALL FUNCTION 'MESSAGES_INITIALIZE'.

MESSAGE_STORE
  CALL FUNCTION 'MESSAGE_STORE'
       EXPORTING
            ARBGB = MESSAGE-ARBGB
            MSGTY = MESSAGE-MSGTY
            MSGV1 = MESSAGE-MSGV1
            MSGV2 = MESSAGE-MSGV2
            MSGV3 = MESSAGE-MSGV3
            MSGV4 = MESSAGE-MSGV4
            TXTNR = MESSAGE-TXTNR
            ZEILE = MESSAGE-ZEILE
       EXCEPTIONS
            MESSAGE_TYPE_NOT_VALID = 01
            NOT_ACTIVE = 02.

MESSAGES_STOP
  CALL FUNCTION 'MESSAGES_STOP'
       EXCEPTIONS
            A_MESSAGE = 01
            E_MESSAGE = 02
            I_MESSAGE = 03
            W_MESSAGE = 04.

MESSAGES_SHOW
  CALL FUNCTION 'MESSAGES_SHOW'
       EXPORTING
*         CORRECTIONS_OPTION = ' '
*         LINE_FROM          = '000'
*         LINE_TO            = '999'
            OBJECT             = ' '
*         SEND_IF_ONE        = ' '
            SHOW_LINNO         = SPACE
*    IMPORTING
*         CORRECTIONS_WANTED =
       EXCEPTIONS
            INCONSISTENT_RANGE = 01
            NO_MESSAGES        = 02.

USERDATA_MAINTAIN
















  CALL FUNCTION 'USERDATA_MAINTAIN'
       EXPORTING
*           HERKUNFT = E01
            INUSER = RUSER
       IMPORTING
            EXUSER = RUSER.

ERROR_RULE_ACCOUNT_NEW
  CALL FUNCTION 'ERROR_RULE_ACCOUNT_NEW'
       EXPORTING
            ARBEITSGEBIET = 'X'
            CHANNEL       = 'O'
*           DATEI         = 'fehlerprotokoll'
            MESSAGENUMMER = 'X'
            NUR_IMPORT    = 'X'
            SEVERITY      = 'X'
            SORTIERT      = 'X'
*      IMPORTING
*           AUSGABEDATEI  =
*           SPOOL_NR      = VIAK16-SPOOL_NR
       TABLES
            FEHLER_IMPORT = TSPROT_U.

FVAU_AUTHORITY_CHECK
  CALL FUNCTION 'FVAU_AUTHORITY_CHECK'
       EXPORTING
            OBJECT           = AUTH_OBJECT
            AUTHPAR          = AUTHPAR
       EXCEPTIONS
            NO_AUTHORITY     = 1
            INVALID_OBJECT   = 2
            OTHERS           = 3.

MESSAGES_GIVE
  CALL FUNCTION 'MESSAGES_GIVE'
       TABLES
            T_MESG = PMESG.

ERROR_RULE_ACCOUNT_FILL
  CALL FUNCTION 'ERROR_RULE_ACCOUNT_FILL'
       TABLES
            APPL_ERROR = TSPROT_U.

ERROR_RULE_ACCOUNT_NEW
  CALL FUNCTION 'ERROR_RULE_ACCOUNT_NEW'
       EXPORTING
            ARBEITSGEBIET = 'X'
            CHANNEL       = 'S'
*           DATEI         = 'fehlerprotokoll'
            MESSAGENUMMER = 'X'
            NUR_IMPORT    = 'X'
            SEVERITY      = 'X'
            SORTIERT      = 'X'
       IMPORTING
*           AUSGABEDATEI  =
            SPOOL_NR      = VIAK16-SPOOL_NR
       TABLES
            FEHLER_IMPORT = TSPROT_U.

FI_PERIOD_DETERMINE
  CALL FUNCTION 'FI_PERIOD_DETERMINE'
       EXPORTING
            I_BUDAT        = P_BUDAT
*           I_BUKRS        = ' '
            I_PERIV        = T001-PERIV  "GJ-Variante
*           I_GJAHR        = 0000
            I_MONAT        = P_MONAT
*           X_XMO16        = ' '
       IMPORTING
            E_GJAHR        = GJAHR
            E_MONAT        = P_MONAT.

FI_PERIOD_CHECK
 CALL FUNCTION 'FI_PERIOD_CHECK'
      EXPORTING
           I_BUKRS          = BUKRS
           I_GJAHR          = GJAHR
           I_KOART          = '+'
           I_KONTO          = '+'
           I_MONAT          = LOC_MONAT
       EXCEPTIONS
            ERROR_PERIOD = 01
            ERROR_PERIOD_ACC = 02.

FVST_STATUS_CHECK_AND_SET
    CALL FUNCTION 'FVST_STATUS_CHECK_AND_SET'
         EXPORTING
              RFVSTIMP  = LOC_RFVSTIMP
         EXCEPTIONS
              OTHERS    = 01.

VIAK25_UPDATE
  CALL FUNCTION 'VIAK25_UPDATE' IN UPDATE TASK
      TABLES
         I_T_XVIAK25 = T_AE_KOSTEN.

FAGL_CHECK_GLFLEX_ACTIVE
  CALL FUNCTION 'FAGL_CHECK_GLFLEX_ACTIVE'
    IMPORTING
      E_GLFLEX_ACTIVE = par_glflex_active .

FAGL_BUKRS_ACTIVE_IN_CLIENT
  CALL FUNCTION 'FAGL_BUKRS_ACTIVE_IN_CLIENT'
    IMPORTING
      e_glflex_active = par_mig_active .

FAGL_GET_LEADING_LEDGER
    CALL FUNCTION 'FAGL_GET_LEADING_LEDGER'
      IMPORTING
        e_rldnr = par_lead_rldnr
      EXCEPTIONS
        OTHERS  = 3.

FAGL_GET_ACTIVE_MGPLN
      CALL FUNCTION 'FAGL_GET_ACTIVE_MGPLN'
        EXPORTING
          i_bukrs         = pd_vislid-bukrs
          i_rldnr         = par_lead_rldnr
        IMPORTING
          et_fagl_mig_001 = lt_act_mig_plan_1
          et_fagl_mig_002 = lt_act_mig_plan_2
        EXCEPTIONS
          OTHERS          = 4.


Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name RFVIKA05 or its description.


   
 

RFVIKA05 - Reverse External Heating Expenses Settlement
RFVIKA05 - Reverse External Heating Expenses Settlement
RFVIKA03 - Reverse Service Charge Settlement
RFVIKA03 - Reverse Service Charge Settlement
RFVIKA02 - Service Charge Settlement: Print Letter from Lease-Out List
RFVIKA02 - Service Charge Settlement: Print Letter from Lease-Out List