SAP Reports / Programs | Sales and Distribution | Foreign Trade | Basic Functions(SD-FT-PRO) SAP SD

comments icon Comments

RVEXPAIC SAP ABAP Report - V.A.R.(Simplified Export Declaration): Paper Form - Switzerland







RVEXPAIC is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Simplified export declaration for Switzerland: Paper version for export transactions This program is used in Switzerland to create the 'Vereinfachte Ausfuhrerklärung' (VAR)...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.

If you would like to execute this report or see the full code listing simply enter RVEXPAIC 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

VE22 - Create VAR form for Switzerland


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 RVEXPAIC. "Basic submit
SUBMIT RVEXPAIC AND RETURN. "Return to original report after report execution complete
SUBMIT RVEXPAIC 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: S_WERKS = Plant
Selection Text: P_VARIA = Layout
Selection Text: P_SOF1 = Print Immediately
Selection Text: P_LIST = Issue Log
Selection Text: P_ACCUM = Aggregate Data
Selection Text: NUMMBUKR = Company Code
Selection Text: DATUMMON = Reporting Month
Selection Text: DATUMJAH = Reporting Year
Title: V.A.R.(Simplified Export Declaration): Paper Form - Switzerland
Text Symbol: Z01 = Issue to printer
Text Symbol: T07 = Form Data
Text Symbol: T04 = Print Immediately
Text Symbol: T03 = Printer for forms
Text Symbol: T02 = Language (<-- ma
Text Symbol: T01 = Form
Text Symbol: E12 = Issue Log
Text Symbol: E10 = Aggregate Data
Text Symbol: E02 = Technical Specs
Text Symbol: E01 = Selection criteria - General
Text Symbol: B02 = @B_ADDR@Declarant address
Text Symbol: 01I = Stat. form
Text Symbol: 001 = VAR


INCLUDES used within this REPORT RVEXPAIC

INCLUDE RVEXDATY.
INCLUDE RVEXINRO.
INCLUDE RVEXEXPR.


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:

ADDR_GET
* CALL FUNCTION 'ADDR_GET'
*      EXPORTING
*           address_selection = selection
*           address_group     = 'CA01'
*      IMPORTING
*           sadr              = sadr   "SADR40A
*      exceptions
*           parameter_error   = 1
*           address_not_exist = 2
*           version_not_exist = 3
*           internal_error    = 4
*           others            = 5.     "SADR40A

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

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

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

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT = 'ITEM_HEADER'
            TYPE    = 'TOP'.

WRITE_FORM
  CALL FUNCTION 'WRITE_FORM'
       EXPORTING
            ELEMENT  = 'ITEM_HEADER'
            FUNCTION = 'DELETE'
            TYPE     = 'TOP'.

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

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

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

RV_FTT_GOV_TABLES_INITIALIZE
  CALL FUNCTION 'RV_FTT_GOV_TABLES_INITIALIZE'.

COUNTRY_CODE_ISO_TO_SAP
  CALL FUNCTION 'COUNTRY_CODE_ISO_TO_SAP'
     EXPORTING
          iso_code  = country_iso
     IMPORTING
          sap_code  = country_t001
*         unique    =
     EXCEPTIONS
          not_found = 1
          OTHERS    = 2.

RV_FTT_GOV_ADDR_ORGUNIT_SELECT
    CALL FUNCTION 'RV_FTT_GOV_ADDR_ORGUNIT_SELECT'
         EXPORTING
              I_DIRECTION          = P_ARIDEP
*             I_EINKAUFORG         =
*             I_VERKAUFORG         =
              I_BUKRS              = NUMMBUKR
              I_WERK               = S_WERKS-LOW
              i_country            = country_t001
              i_number_lines       = 5
         CHANGING
              ADRESSE              = P_ADRS
              SELECTED_ORG_UNIT    = ORG_UNIT
              SADRESSE             = SADR
              NAME_SEL_ORG_UNIT    = NAME_SEL
         EXCEPTIONS
              WRONG_DIRECTION      = 1
*             NO_ORG_UNIT_SELECTED = 2
              OTHERS               = 3.

SELECT_FORM
  CALL FUNCTION 'SELECT_FORM'
       EXPORTING
            CLIENT        = SY-MANDT   "aktiver Mandant
            FORM          = P_FORM     "Formular
            LANGUAGE      = P_LANG     "alle Sprachen
            STATUS        = '   '      "nur aktive Formulare
            THROUGHCLIENT = 'X'        "ggf. auch Mandant 000

SELECT_FORM
    CALL FUNCTION 'SELECT_FORM'
         EXPORTING
              CLIENT        = SY-MANDT "aktiver Mandant
              FORM          = P_FORM   "Formular
              LANGUAGE      = 'D'      "alle Sprachen
              STATUS        = '   '    "nur aktive Formulare
              THROUGHCLIENT = 'X'      "ggf. auch Mandant 000

ADDR_GET
  CALL FUNCTION 'ADDR_GET'
       EXPORTING
            ADDRESS_SELECTION = SELECTION
            ADDRESS_GROUP     = 'CA01'
       IMPORTING
            SADR              = SADR
       EXCEPTIONS
            PARAMETER_ERROR   = 1
            ADDRESS_NOT_EXIST = 2
            VERSION_NOT_EXIST = 3
            INTERNAL_ERROR    = 4
            OTHERS            = 5.     "SADR40A

ADDRESS_INTO_PRINTFORM
  CALL FUNCTION 'ADDRESS_INTO_PRINTFORM'
       EXPORTING
            ADRSWA_IN  = ADRS
       IMPORTING
            ADRSWA_OUT = ADRS.

ADDR_GET
  CALL FUNCTION 'ADDR_GET'
       EXPORTING
            ADDRESS_SELECTION = SELECTION
            ADDRESS_GROUP     = 'CA01'
       IMPORTING
            SADR              = SADR   "SADR40A
       EXCEPTIONS
            PARAMETER_ERROR   = 1
            ADDRESS_NOT_EXIST = 2
            VERSION_NOT_EXIST = 3
            INTERNAL_ERROR    = 4
            OTHERS            = 5.     "SADR40A

ADDRESS_INTO_PRINTFORM
  CALL FUNCTION 'ADDRESS_INTO_PRINTFORM'
       EXPORTING
            ADRSWA_IN  = ADRS
       IMPORTING
            ADRSWA_OUT = ADRS.         "SADR40A

OPEN_FORM
















    CALL FUNCTION 'OPEN_FORM'
         EXPORTING
              FORM     = P_FORM
              LANGUAGE = P_LANG
              OPTIONS  = ITCPO
              DEVICE   = 'PRINTER'
              DIALOG   = ' '
         EXCEPTIONS
              OTHERS   = 1.

OPEN_FORM
    CALL FUNCTION 'OPEN_FORM'
         EXPORTING
              FORM     = P_FORM
              LANGUAGE = P_LANG
              OPTIONS  = ITCPO
              DEVICE   = 'PRINTER'
              DIALOG   = 'X'
         EXCEPTIONS
              OTHERS   = 1.

CLOSE_FORM
  CALL FUNCTION 'CLOSE_FORM'
       IMPORTING
            RESULT = ITCPP
       EXCEPTIONS
            OTHERS = 1.

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


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


   
 

RVEXPAIC - V.A.R.(Simplified Export Declaration): Paper Form - Switzerland
RVEXPAIC - V.A.R.(Simplified Export Declaration): Paper Form - Switzerland
RVEXPAIB - INTRASTAT: Paper Version for Receipt/Dispatch - Belgium
RVEXPAIB - INTRASTAT: Paper Version for Receipt/Dispatch - Belgium
RVEXPAIA - INTRASTAT: Paper Version for Receipt/Dispatch - Austria
RVEXPAIA - INTRASTAT: Paper Version for Receipt/Dispatch - Austria