SAP Reports / Programs | Financial Accounting | Accounts Receivable | Interest Calculation(FI-AR-AR-IN) SAP FI

comments icon Comments

RFDZIS01 SAP ABAP INCLUDE - Subroutines of the Reports RFDZIS00, RFKZIS00, and RFDZIS10 (Part 1)







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


Text pool values


Title: Subroutines of the Reports RFDZIS00, RFKZIS00, and RFDZIS10 (Part 1)


INCLUDES used within this REPORT RFDZIS01

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:

CURRENCY_DOCUMENT_CONVERT
      Call function 'CURRENCY_DOCUMENT_CONVERT'                  "361608
      exporting From_currency   = T001-Waers                     "361608
                To_currency     = Gd_newwaers                    "361608
                Local_currency  = T001-Waers                     "361608
                Date            = Biszeit                        "361608
                Conversion_mode = 'O'                            "361608
      changing  Line            = Zis_form.                      "361608

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '5100'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '6100'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '5002'.

END_FORM
    CALL FUNCTION 'END_FORM'.

POPUP_NO_LIST
    CALL FUNCTION 'POPUP_NO_LIST' .

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = '8600'.

OPEN_FORM
    CALL FUNCTION 'OPEN_FORM'
         EXPORTING
              FORM     = T056D-FORMULAR
              DEVICE   = FODEVICE
              DIALOG   = 'X'
              Archive_index = Gs_archive_index
              Archive_params = Gs_archive_params
              options  = Itcpo
         importing
              New_archive_params = Gs_archive_params
         EXCEPTIONS
              CANCELED = 1
              DEVICE   = 2
              FORM     = 3
              OPTIONS  = 4
              UNCLOSED = 5.

OPEN_FORM
    CALL FUNCTION 'OPEN_FORM'
         EXPORTING
              FORM     = T056D-FORMULAR
              DEVICE   = FODEVICE
              DIALOG   = SPACE
              Archive_index = Gs_archive_index
              Archive_params = Gs_archive_params
              options  = Itcpo
         importing
              New_archive_params = Gs_archive_params
         EXCEPTIONS
              CANCELED = 1
              DEVICE   = 2
              FORM     = 3
              OPTIONS  = 4
              UNCLOSED = 5.

GET_PRINT_PARAMETERS
    Call function 'GET_PRINT_PARAMETERS'                         "163186
    exporting                                                    "163186
          Destination            = Fo-print                      "181508
          Mode                   = 'CURRENT'                     "163186
          No_dialog              = 'X'                           "163186
          In_archive_parameters  = Gs_archive_params
     importing                                                   "163186
          Out_archive_parameters = Gs_archive_params
          Out_parameters         = Params.                       "163186

OPEN_FORM
    CALL FUNCTION 'OPEN_FORM'
         EXPORTING
              FORM     = T056D-FORMULAR
              DEVICE   = 'PRINTER'
              DIALOG   = SPACE
              Archive_index = Gs_archive_index
              Archive_params = Gs_archive_params
              options  = Itcpo
         importing
              New_archive_params = Gs_archive_params
         EXCEPTIONS
              CANCELED = 1
              DEVICE   = 2
              FORM     = 3
              OPTIONS  = 4
              UNCLOSED = 5.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = '7010'.

CONTROL_FORM
      CALL FUNCTION 'CONTROL_FORM'
           EXPORTING
                COMMAND = 'PROTECT'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '5010'.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = '5020'.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = '5030'.

CONTROL_FORM
      CALL FUNCTION 'CONTROL_FORM'
           EXPORTING
                COMMAND = 'ENDPROTECT'.

CONTROL_FORM
      CALL FUNCTION 'CONTROL_FORM'
           EXPORTING
                COMMAND = 'PROTECT'.

WRITE_FORM
















      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '6020'.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = '6010'.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = '6030'.

CONTROL_FORM
      CALL FUNCTION 'CONTROL_FORM'
           EXPORTING
                COMMAND = 'ENDPROTECT'.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = '8000'.

POSTING_INTERFACE_END
    CALL FUNCTION 'POSTING_INTERFACE_END'.

BDC_CLOSE_GROUP
    CALL FUNCTION 'BDC_CLOSE_GROUP'.

FI_PERIOD_DETERMINE
   CALL FUNCTION 'FI_PERIOD_DETERMINE'
    EXPORTING
         I_budat        = Ld_datum                               "373691
         I_BUKRS        = ZS-BUKRS
*        i_periv        = ' '
*        i_gjahr        = 0000
*        i_monat        = 00
*        x_xmo16        = ' '
    IMPORTING
         E_GJAHR        = WF-GJAHR
*        e_monat        =
*        e_poper        =
    EXCEPTIONS
         FISCAL_YEAR    = 1
         PERIOD         = 2
         PERIOD_VERSION = 3
         POSTING_PERIOD = 4
         SPECIAL_PERIOD = 5
         VERSION        = 6
         POSTING_DATE   = 7
         OTHERS         = 8.

OPEN_FI_PERFORM_00001170_P
     Call function 'OPEN_FI_PERFORM_00001170_P'                  "805858
     exporting I_company   = Zs-bukrs                            "805858
               I_range     = T056s-Nrkreis                       "805858
               I_year      = Wf-gjahr                            "805858
     importing E_no_buffer = Lb_no_buffer                        "805858
               E_range     = Ld_nrkreis                          "805858
     exceptions Nothing_active = 0.                              "805858

NUMBER_GET_NEXT
     CALL FUNCTION 'NUMBER_GET_NEXT'
       EXPORTING
           NR_RANGE_NR             = Ld_nrkreis                  "805858
           OBJECT                  = 'RF_BELEG'
*          quantity                = '1'
           SUBOBJECT               = ZS-BUKRS
           TOYEAR                  = WF-GJAHR
           Ignore_buffer           = Lb_no_buffer                "805858
      IMPORTING
           NUMBER                  = WF-FORMNR
*          quantity                =
*          returncode              =
      EXCEPTIONS
           INTERVAL_NOT_FOUND      = 1
           NUMBER_RANGE_NOT_INTERN = 2
*          object_not_found        = 3
*          quantity_is_0           = 4
*          quantity_is_not_1       = 5
           INTERVAL_OVERFLOW       = 6.

START_FORM
    CALL FUNCTION 'START_FORM'
         EXPORTING
              Archive_index = Gs_archive_index
              LANGUAGE = ZS-SPRAS
         IMPORTING
              LANGUAGE = WALANGU
         EXCEPTIONS
              FORM     = 1
              UNENDED  = 2.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW  = 'HEADER'
              ELEMENT = '0010'.        "Formularkopf

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW  = 'FOOTER'       "Formularfuss
              ELEMENT = '0050'.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW  = 'PAGE'         "Seitenzahl und Datum
              ELEMENT = '0040'.

CORRESPONDENCE_DATA_BUSAB
    CALL FUNCTION 'CORRESPONDENCE_DATA_BUSAB'
         EXPORTING
              I_BUKRS         = ZS-BUKRS
              I_BUSAB         = ZS-BUSAB
              I_LANGU         = WALANGU
         IMPORTING
              E_T001S         = T001S
              E_FSABE         = FSABE
         EXCEPTIONS
              BUSAB_NOT_FOUND = 01
              OTHERS          = 02.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                  FUNCTION = 'APPEND'
                  WINDOW   = 'INFO'    "Sachbearbeiter
                  ELEMENT  = '0030'.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'         "KONTONUMMER bei uns
         EXPORTING
               FUNCTION = 'APPEND'
              WINDOW  = 'INFO'
              ELEMENT = '0031'.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'       "Unsere Kontonummer bei Ihnen
           EXPORTING
                  FUNCTION = 'APPEND'
                WINDOW  = 'INFO'
                ELEMENT = '0032'.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW  = 'ADRESSE'      "Adresse
              ELEMENT = '0020'
         EXCEPTIONS
              OTHERS  = 01.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                WINDOW  = 'ADDRESS'    "Adresse
                ELEMENT = '0020'.




WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '1000'.      "Anschreiben

START_FORM
    CALL FUNCTION 'START_FORM'
         EXPORTING
              LANGUAGE = ZS-SPRAS
         IMPORTING
              LANGUAGE = WALANGU
         EXCEPTIONS
              FORM     = 1
              UNENDED  = 2.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW  = 'HEADER'
              ELEMENT = '0010'.        "Formularkopf

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW  = 'FOOTER'       "Formularfuss
              ELEMENT = '0050'.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW  = 'PAGE'         "Seitenzahl und Datum
              ELEMENT = '0040T'.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW  = 'INFO'         "Sachbearbeiter, Kunnr ...

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW  = 'ADRESSE'      "Adresse
              ELEMENT = '0020T'
            EXCEPTIONS
               OTHERS = 01.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW  = 'ADDRESS'      "Adresse
              ELEMENT = '0020T' .

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = '1000T'.       "Anschreiben

WRITE_FORM
            CALL FUNCTION 'WRITE_FORM'
                 EXPORTING
                      ELEMENT = '7010T'.

WRITE_FORM
          CALL FUNCTION 'WRITE_FORM'
               EXPORTING
                    ELEMENT = '5030T'.

WRITE_FORM
            CALL FUNCTION 'WRITE_FORM'
                 EXPORTING
                      ELEMENT = '8000T'.

WRITE_FORM
          CALL FUNCTION 'WRITE_FORM'
               EXPORTING
                    ELEMENT = '6030T'.

WRITE_FORM
            CALL FUNCTION 'WRITE_FORM'
                 EXPORTING
                      ELEMENT = '8000T'.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = '5000T'.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = '5002T'.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = F_ELEMENT.

WRITE_FORM
          CALL FUNCTION 'WRITE_FORM'
               EXPORTING
                    ELEMENT = Z_ELEMENT.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  WINDOW   = 'MAIN'
                  ELEMENT  = F_ELEMENT
                  FUNCTION = 'SET'
                  TYPE     = 'TOP'.

WRITE_FORM
          CALL FUNCTION 'WRITE_FORM'
               EXPORTING
                    WINDOW   = 'MAIN'
                    ELEMENT  = Z_ELEMENT
                    FUNCTION = 'APPEND'
                    TYPE     = 'TOP'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '0002'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = F_ELEMENT.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = Z_ELEMENT.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                WINDOW   = 'MAIN'
                ELEMENT  = F_ELEMENT
                FUNCTION = 'SET'
                TYPE     = 'TOP'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                WINDOW   = 'MAIN'
                ELEMENT  = Z_ELEMENT
                FUNCTION = 'APPEND'
                TYPE     = 'TOP'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '0002'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = F_ELEMENT.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = Z_ELEMENT.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                WINDOW   = 'MAIN'
                ELEMENT  = F_ELEMENT
                FUNCTION = 'SET'
                TYPE     = 'TOP'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                WINDOW   = 'MAIN'
                ELEMENT  = Z_ELEMENT
                FUNCTION = 'APPEND'
                TYPE     = 'TOP'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '0002'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = F_ELEMENT.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                WINDOW   = 'MAIN'
                ELEMENT  = F_ELEMENT
                FUNCTION = 'SET'
                TYPE     = 'TOP'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '0002'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = F_ELEMENT.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                WINDOW   = 'MAIN'
                ELEMENT  = F_ELEMENT
                FUNCTION = 'SET'
                TYPE     = 'TOP'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '0002'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = F_ELEMENT.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                WINDOW   = 'MAIN'
                ELEMENT  = F_ELEMENT
                FUNCTION = 'SET'
                TYPE     = 'TOP'.

DDIF_FIELDINFO_GET
      Call function 'DDIF_FIELDINFO_GET'
      exporting Tabname    = 'BKPF'
                Lfieldname = 'BUKRS'
      importing Dfies_wa   = Ls_dfies.

DDIF_FIELDINFO_GET
      Call function 'DDIF_FIELDINFO_GET'
      exporting Tabname    = 'SKB1'
                Lfieldname = 'VZSKZ'
      importing Dfies_wa   = Ls_dfies.

DDIF_FIELDINFO_GET
      Call function 'DDIF_FIELDINFO_GET'
      exporting Tabname    = 'BKPF'
                Lfieldname = 'WAERS'
      importing Dfies_wa   = Ls_dfies.

DDIF_FIELDINFO_GET
         Call function 'DDIF_FIELDINFO_GET'
         exporting Tabname    = 'BSEG'
                   Lfieldname = 'SHKZG'
         importing Dfies_wa   = Ls_dfies.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              WINDOW   = 'MAIN'
              ELEMENT  = F_ELEMENT
              FUNCTION = 'DELETE'
              TYPE     = 'TOP'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                WINDOW   = 'MAIN'
                ELEMENT  = Z_ELEMENT
                FUNCTION = 'DELETE'
                TYPE     = 'TOP'.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = '7020'.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = '9010'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '9100'.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = '9010'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '9100'.

ROUND_AMOUNT
    CALL FUNCTION 'ROUND_AMOUNT'
      EXPORTING
           AMOUNT_IN   = GZINSEN
           COMPANY     = ZS-BUKRS
           CURRENCY    = WAWAERS
      IMPORTING
           AMOUNT_OUT  = GZINSEN
*         difference  =
*         no_rounding =
      EXCEPTIONS
           OTHERS      = 1.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '8550'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '8560'.

ROUND_AMOUNT
       CALL FUNCTION 'ROUND_AMOUNT'
         EXPORTING
            AMOUNT_IN   = Z2TAB-ZINSEN
            COMPANY     = ZS-BUKRS
            CURRENCY    = WAWAERS
         IMPORTING
            AMOUNT_OUT  = Z2TAB-ZINSEN
*           difference  =
*           no_rounding =
         EXCEPTIONS
            OTHERS      = 1.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = '8570'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '8500'.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = '8510'.


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 RFDZIS01 or its description.


   
 

RFDZIS01 - Subroutines of the Reports RFDZIS00, RFKZIS00, and RFDZIS10 (Part 1)
RFDZIS00_PDF - Customer Interest Scale
RFDZIS00_PDF - Customer Interest Scale
RFDZIS00 - Customer Interest Scale
RFDZIS00 - Customer Interest Scale
RFDWZFF0 - DWZ File Interface: Import Year-End Rates/Prices