ROIASMAG_FORMS SAP ABAP INCLUDE - Forms for ROIASMAG

ROIASMAG_FORMS 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 ROIASMAG_FORMS 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 ROIASMAG_FORMS. "Basic submit
SUBMIT ROIASMAG_FORMS AND RETURN. "Return to original report after report execution complete
SUBMIT ROIASMAG_FORMS 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 ROIASMAG_FORMS

INCLUDE ROIASMFO.
INCLUDE ROIASMOI.
INCLUDE ROIASMEX.
INCLUDE ROIASMPO.

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:

FP_FUNCTION_MODULE_NAME
      CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
        EXPORTING
          I_NAME     = LV_PDFFNAME
        IMPORTING
          E_FUNCNAME = FM_NAME.

FP_JOB_CLOSE
  CALL FUNCTION 'FP_JOB_CLOSE'
    EXCEPTIONS
      USAGE_ERROR    = 1
      SYSTEM_ERROR   = 2
      INTERNAL_ERROR = 3
      OTHERS         = 4.

CLOSE_FORM
  CALL FUNCTION 'CLOSE_FORM'
       EXCEPTIONS
            OTHERS = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'TITLE_EXS'
            WINDOW  = 'TITLE'
       EXCEPTIONS
            ELEMENT = 1
            WINDOW  = 2.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'REPEAT'
              WINDOW  = 'REPEAT'
         EXCEPTIONS
              ELEMENT = 1
              WINDOW  = 2.

OIA_NETTING_DOC_READ
  CALL FUNCTION 'OIA_NETTING_DOC_READ'
       EXPORTING
            I_OIAQA = OIAQA
       TABLES
            XOIA12I = XOIA12I
            YOIA12I = YOIA12I
            XOIA10L = XOIA10L
            YOIA10L = YOIA10L
            XOIA12ICOND = XOIA12ICOND                     "SO4K004419
            YOIA12ICOND = YOIA12ICOND.                    "SO4K004419

CUD0_GET_CONFIGURATION
* CALL FUNCTION 'CUD0_GET_CONFIGURATION'
*       EXPORTING
*            INSTANCE      = VBDPR-CUOBJ
*            LANGUAGE      = NAST-SPRAS
*       TABLES
*            CONFIGURATION = TKOMCON
*       EXCEPTIONS
*            OTHERS        = 4.

RV_PRICE_PRINT_ITEM
  CALL FUNCTION 'RV_PRICE_PRINT_ITEM'
       EXPORTING
            COMM_HEAD_I = KOMK
            COMM_ITEM_I = KOMP
            LANGUAGE    = NAST-SPRAS
       IMPORTING
            COMM_HEAD_E = KOMK
            COMM_ITEM_E = KOMP
       TABLES
            TKOMV       = TKOMV
            TKOMVD      = TKOMVD.

RV_PRICE_PRINT_HEAD
  CALL FUNCTION 'RV_PRICE_PRINT_HEAD'
       EXPORTING
            COMM_HEAD_I = KOMK
            LANGUAGE    = NAST-SPRAS
       IMPORTING
            COMM_HEAD_E = KOMK
            COMM_MWSKZ  = PRINT_MWSKZ
       TABLES
            TKOMV       = TKOMV
            TKOMVD      = HKOMVD.

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

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'
             EXPORTING
                  ELEMENT = 'UNDER_LINE'
             EXCEPTIONS
                  ELEMENT = 1
                  WINDOW  = 2.

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

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

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'UNDER_LINE'
         EXCEPTIONS
              ELEMENT = 1
              WINDOW  = 2.

WRITE_FORM
*      CALL FUNCTION 'WRITE_FORM'
*           EXPORTING
*                ELEMENT = 'ITEM_LINE_CONFIGURATION_HEADER'
*           EXCEPTIONS
*                OTHERS  = 1.

WRITE_FORM
*     CALL FUNCTION 'WRITE_FORM'
*           EXPORTING
*                ELEMENT = 'ITEM_LINE_CONFIGURATION'
*           EXCEPTIONS
*               OTHERS  = 1.

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

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

WRITE_FORM














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

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'ITEM_TEXT'
       EXCEPTIONS
            ELEMENT = 1
            WINDOW  = 2.

NAST_PROTOCOL_UPDATE
  CALL FUNCTION 'NAST_PROTOCOL_UPDATE'
       EXPORTING
            MSG_ARBGB = U_MSGID
            MSG_NR    = U_MSGNO
            MSG_TY    = U_MSGTY
            MSG_V1    = U_MSGV1
            MSG_V2    = U_MSGV2
            MSG_V3    = U_MSGV3
            MSG_V4    = U_MSGV4
       EXCEPTIONS
            OTHERS    = 1.

RV_BILLING_REFERENCES
*  call function 'RV_BILLING_REFERENCES'
*       exporting
*            faktura = vbdkr-vbeln
*       tables
*            pos     = tvbdpr
*       changing
*            kopf    = vbdkr.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'REFERENCE_NUMBER'
            WINDOW  = 'REFNUMB'
       EXCEPTIONS
            ELEMENT = 1
            WINDOW  = 2.

ADDR_GET
  CALL FUNCTION 'ADDR_GET'                                "SO4K000872 BL
       EXPORTING                                          "SO4K000872 BL
            ADDRESS_SELECTION       = ADDRESS_SEL         "SO4K000872 BL
       IMPORTING                                          "SO4K000872 BL
            SADR                    = SADR                "SO4K000872 BL
     EXCEPTIONS                                           "SO4K000872 BL
          PARAMETER_ERROR         = 1                     "SO4K000872 BL
          ADDRESS_NOT_EXIST       = 2                     "SO4K000872 BL
          VERSION_NOT_EXIST       = 3                     "SO4K000872 BL
          INTERNAL_ERROR          = 4                     "SO4K000872 BL
          OTHERS                  = 5                     "SO4K000872 BL
          .                                               "SO4K000872 BL

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'ITEM_REFERENCE_NO'
       EXCEPTIONS
            ELEMENT = 1
            WINDOW  = 2.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'HEADER_DATA'
       EXCEPTIONS
            ELEMENT = 1
            WINDOW  = 2.

START_FORM
    CALL FUNCTION 'START_FORM'
         EXPORTING
*             ARCHIVE_INDEX = ' '
*             FORM          = ' '
*             LANGUAGE      = ' '
              STARTPAGE     = STARTSEITE
*             PROGRAM       = ' '
         IMPORTING
              LANGUAGE      = SPRACHE
         EXCEPTIONS
              FORM          = 1
              FORMAT        = 2
              UNENDED       = 3
              UNOPENED      = 4
              UNUSED        = 5
              OTHERS        = 6.

WY_LFA1_SINGLE_READ
  CALL FUNCTION 'WY_LFA1_SINGLE_READ'                       "KH
        EXPORTING PI_LIFNR         = OIAQA-EXGPTR           "KH
        IMPORTING PO_LFA1          = LFA1                   "KH
        EXCEPTIONS others          = 4.        "RC used     "KH

V_KNA1_SINGLE_READ
  CALL FUNCTION 'V_KNA1_SINGLE_READ'                        "KH
          EXPORTING PI_KUNNR         = LFA1-KUNNR           "KH
          IMPORTING PE_KNA1          = kna1                 "KH
          EXCEPTIONS others          = 4.  "RC used         "KH

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'OUR_ADDRESS'
            WINDOW  = 'ADDRESS'
       EXCEPTIONS
            ELEMENT = 1
            WINDOW  = 2.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'PARTNER_ADDRESS'
            WINDOW  = 'PART_ADD'
       EXCEPTIONS
            ELEMENT = 1
            WINDOW  = 2.

ADDR_GET
  CALL FUNCTION 'ADDR_GET'                                "SO4K000872 BL
       EXPORTING                                          "SO4K000872 BL
            ADDRESS_SELECTION       = ADDRESS_SEL         "SO4K000872 BL
       IMPORTING                                          "SO4K000872 BL
            SADR                    = SADR                "SO4K000872 BL
     EXCEPTIONS                                           "SO4K000872 BL
          PARAMETER_ERROR         = 1                     "SO4K000872 BL
          ADDRESS_NOT_EXIST       = 2                     "SO4K000872 BL
          VERSION_NOT_EXIST       = 3                     "SO4K000872 BL
          INTERNAL_ERROR          = 4                     "SO4K000872 BL
          OTHERS                  = 5                     "SO4K000872 BL
          .                                               "SO4K000872 BL

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'SEL_CRIT'
            WINDOW  = 'SEL_CRIT'
       EXCEPTIONS
            ELEMENT = 1
            WINDOW  = 2.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'EXCHANGE_HEADER'
            WINDOW  = 'EXHEAD'
       EXCEPTIONS
            ELEMENT = 1
            WINDOW  = 2.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'           "First header
       EXPORTING  ELEMENT = 'RECEIPTS_DETAIL'
       EXCEPTIONS OTHERS  = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'           "First header
       EXPORTING  ELEMENT = 'ISSUES_DETAIL'
       EXCEPTIONS OTHERS  = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'           "First header
       EXPORTING  ELEMENT = 'UPE_DETAIL'
       EXCEPTIONS OTHERS  = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'EXG_SUMMARY'
       EXCEPTIONS
            OTHERS  = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'           "First header
       EXPORTING  ELEMENT = 'ITEM_HEADER'
       EXCEPTIONS OTHERS  = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'           "Activate header
       EXPORTING  ELEMENT = 'ITEM_HEADER'
                  TYPE    = 'TOP'
       EXCEPTIONS OTHERS  = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'           "Deactivate Header
       EXPORTING  ELEMENT  = 'ITEM_HEADER'
                  FUNCTION = 'DELETE'
                  TYPE     = 'TOP'
       EXCEPTIONS OTHERS   = 1.

MAKT_SINGLE_READ
    CALL FUNCTION 'MAKT_SINGLE_READ'
         EXPORTING
*             KZRFB      = ' '
*             MAXTZ      = 100
              MATNR      = G_BASPRODS-OIBASPROD
              SPRAS      = NAST-SPRAS
         IMPORTING
              WMAKT      = MAKT
         EXCEPTIONS
              WRONG_CALL = 1
              NOT_FOUND  = 2
              OTHERS     = 3.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'           "Base Prodcut Section Header
       EXPORTING  ELEMENT = 'ITEMS_SECTION_HEAD'
       EXCEPTIONS OTHERS  = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'           "Receipts Heading
       EXPORTING  ELEMENT = 'RECEIPTS_HEADING'
       EXCEPTIONS OTHERS  = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'           "Receipts Heading
       EXPORTING  ELEMENT = 'ISSUES_HEADING'
       EXCEPTIONS OTHERS  = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'           "UPE Heading
       EXPORTING  ELEMENT = 'UPE_HEADING'
       EXCEPTIONS OTHERS  = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'BOOK_RECEIPTS'
       EXCEPTIONS
            OTHERS  = 1.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'BOOK_DELIVERIES'
       EXCEPTIONS
            OTHERS  = 1.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'     "Summary Line
             EXPORTING  ELEMENT = 'LINE_SUMMARY'
             EXCEPTIONS OTHERS  = 1.

WRITE_FORM
        CALL FUNCTION 'WRITE_FORM'     "Summary_Line_Neg
             EXPORTING  ELEMENT = 'LINE_SUMMARY_NEG'
             EXCEPTIONS OTHERS  = 1.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'
           EXPORTING
                ELEMENT = 'FINANCIAL_DOCUMENTS_HEADING'
           EXCEPTIONS
                OTHERS  = 1.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'       "Summary Line
           EXPORTING  ELEMENT = 'COND_LINE_SUMMARY'
           EXCEPTIONS OTHERS  = 1.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'       "Summary_Line_Neg
           EXPORTING  ELEMENT = 'COND_LINE_SUMMARY_NEG'
           EXCEPTIONS OTHERS  = 1.

WRITE_FORM
      CALL FUNCTION 'WRITE_FORM'       "Summary Line      "SO3K250109
           EXPORTING  ELEMENT = 'COND_LINE_SUMMARY'       "SO3K250109
           EXCEPTIONS OTHERS  = 1.                        "SO3K250109

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'           "Page Break
       EXPORTING  ELEMENT = 'PAGE_BREAK'
       EXCEPTIONS OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'LOCATION_TOTAL'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'LOCATION_TOTAL_NEG'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'BASPROD_TOTAL'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'BASPROD_TOTAL_NEG'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'UPE_BASPROD_TOTAL'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'UPE_BASPROD_TOTAL_NEG'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'UPE_PLANT_SUMMARY'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'UPE_PLANT_SUMMARY_NEG'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'UPE_DETAIL'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'UPE_DETAIL_NEG'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'UPE_TYPE_SUMMARY'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
              ELEMENT = 'UPE_TYPE_SUMMARY_NEG'
         EXCEPTIONS
              OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'         "balance
         EXPORTING  ELEMENT = 'BALANCE'
         EXCEPTIONS OTHERS  = 1.

WRITE_FORM
    CALL FUNCTION 'WRITE_FORM'         "balance
         EXPORTING  ELEMENT = 'BALANCE_NEG'
         EXCEPTIONS OTHERS  = 1.

RV_PRICE_PRINT_ITEM
  CALL FUNCTION 'RV_PRICE_PRINT_ITEM'
       EXPORTING
            COMM_HEAD_I = KOMK
            COMM_ITEM_I = KOMP
            LANGUAGE    = NAST-SPRAS
            OIA_GET_ALL = C_ON
       IMPORTING
            COMM_HEAD_E = KOMK
            COMM_ITEM_E = KOMP
       TABLES
            TKOMV       = TKOMV
            TKOMVD      = TKOMVD.

CONVERT_TO_FOREIGN_CURRENCY
  CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY'
       EXPORTING
*           DATE             = SY-DATUM                    "SO6K010187
            DATE             = U_DATE                      "SO6K010187
            LOCAL_AMOUNT     = U_FROM_AMT
            FOREIGN_CURRENCY = U_TO_CURR
            LOCAL_CURRENCY   = U_FROM_CURR
*           rate             = komp-kursk
            TYPE_OF_RATE     = G_CURRENCY_TYPE
       IMPORTING
            FOREIGN_AMOUNT   = U_TO_AMT
       EXCEPTIONS
            NO_RATE_FOUND    = 4.

ME_READ_HEADER_SINGLE
* call function 'ME_READ_HEADER_SINGLE'
*      exporting
*           i_ebeln   = u_ebeln
*      importing
*           e_ekko    = ekko
*      exceptions
*           not_found = 01.

ME_READ_ITEM_SINGLE
* call function 'ME_READ_ITEM_SINGLE'
*      exporting
*           i_ebeln   = u_ebeln
*           i_ebelp   = u_ebelp
*      importing
*           e_ekpo    = ekpo
*      exceptions
*           not_found = 0.

PRICING_REFRESH
  CALL FUNCTION 'PRICING_REFRESH'
       TABLES
            TKOMK = TKOMK
            TKOMV = TKOMV.

OIA_RV_OIANF_SELECT
        CALL FUNCTION 'OIA_RV_OIANF_SELECT'
             EXPORTING
                  COMM_HEAD_I = KOMK
             IMPORTING
                  COMM_HEAD_E = KOMK
             TABLES
                  TKOMV       = TKOMV.

ME_EKKO_SINGLE_READ
    call function 'ME_EKKO_SINGLE_READ'                 "SO7K114277 GLJ
         exporting  pi_ebeln =  xek08r-ebeln            "SO7K114277 GLJ
         IMPORTING  PO_EKKO  =  ls_ekko                 "SO7K114277 GLJ
         EXCEPTIONS others   = 4.                       "SO7K114277 GLJ

ME_EKPO_SINGLE_READ
    call function 'ME_EKPO_SINGLE_READ'                 "SO7K114277 GLJ
      exporting  pi_ebeln = xek08r-ebeln                "SO7K114277 GLJ
                 pi_ebelp = xek08r-ebelp                "SO7K114277 GLJ
      importing  po_ekpo  = ls_ekpo                     "SO7K114277 GLJ
      exceptions others   = 4.                          "SO7K114277 GLJ

FIND_TAX_SPREADSHEET
  CALL FUNCTION 'FIND_TAX_SPREADSHEET'
       EXPORTING
            BUCHUNGSKREIS = TVKO-BUKRS.

CALCULATE_TAX_ITEM
  CALL FUNCTION 'CALCULATE_TAX_ITEM'
       EXPORTING
            I_TAXCOM            = XTAXCOM
       IMPORTING
            E_TAXCOM            = XTAXCOM.

NAST_PROTOCOL_INITIALIZE
  CALL FUNCTION 'NAST_PROTOCOL_INITIALIZE'.