SAP Reports / Programs

comments icon Comments

S3VBRKWR SAP ABAP Report - Archiving Billng Documents: Write Program







S3VBRKWR is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Archiving billing documents in SD: Write program This program writes billing documents from the database into the archive files...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 S3VBRKWR 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 S3VBRKWR. "Basic submit
SUBMIT S3VBRKWR AND RETURN. "Return to original report after report execution complete
SUBMIT S3VBRKWR 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: CREATE = Create Archive
Selection Text: C_DBAS = Check Flow Documents Residence
Selection Text: C_ITAB = Alternative Database Access
Selection Text: DELETE = Delete Program in Test Mode
Selection Text: SO_VBELN = Document Selection
Title: Archiving Billng Documents: Write Program


INCLUDES used within this REPORT S3VBRKWR

INCLUDE ARCHCOMO.
INCLUDE S3VBRKTB.
INCLUDE SDZAVDAT.
INCLUDE RVVBTYP.
INCLUDE V60A_BILL_DIFF_GLOBAL_CONST.
INCLUDE SDVBRKSP.


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:

ARCHIVE_OPEN_FOR_WRITE
CALL FUNCTION 'ARCHIVE_OPEN_FOR_WRITE'
  EXPORTING
    CALL_DELETE_JOB_IN_TEST_MODE = DELETE
    CREATE_ARCHIVE_FILE          = CREATE
    OBJECT                       = 'SD_VBRK'
  IMPORTING
    ARCHIVE_HANDLE               = ARCHIVE_HANDLE.

ARCHIVE_GET_INFORMATION
CALL FUNCTION 'ARCHIVE_GET_INFORMATION'
  EXPORTING
    ARCHIVE_HANDLE          = ARCHIVE_HANDLE
  IMPORTING
    ADK_VERSION             = ADK_VERSION
  EXCEPTIONS
    INTERNAL_ERROR          = 1
    WRONG_ACCESS_TO_ARCHIVE = 2
    OTHERS                  = 3.

ARCHIVE_WRITE_STATISTICS
CALL FUNCTION 'ARCHIVE_WRITE_STATISTICS'
  EXPORTING
    ARCHIVE_HANDLE = ARCHIVE_HANDLE.

ARCHIVE_CLOSE_FILE
CALL FUNCTION 'ARCHIVE_CLOSE_FILE'
  EXPORTING
    ARCHIVE_HANDLE = ARCHIVE_HANDLE.

DYNSQL_READ_CONTROL_TABLE
    CALL FUNCTION 'DYNSQL_READ_CONTROL_TABLE'
      EXPORTING
        KEY_1             = XXVBRK-FKART
        KEY_2             = XXVBRK-VKORG
      IMPORTING
        CONTROL_LINE      = ZTVARR
      EXCEPTIONS
        KEY_VALUE_INVALID = 1
        OTHERS            = 2.

DYNSQL_GENERATE_WHERE_CLAUSE
  CALL FUNCTION 'DYNSQL_GENERATE_WHERE_CLAUSE'
    EXPORTING
      FIELDNAME_KEY_1              = 'FKART'
      FIELDNAME_KEY_2              = 'VKORG'
      FIELDNAME_VALUE              = 'ERDAT'
      OPERATOR                     = '<='
    TABLES
      WHERE_CLAUSE                 = DYN_SQL
      CONTROL_TABLE                = ZTVARR
      ALL_VALUES_KEY_1             = FKART_ALL
      VALUES_KEY_1                 = FKART_TEIL
      ALL_VALUES_KEY_2             = VKORG_ALL
      VALUES_KEY_2                 = VKORG_TEIL
    EXCEPTIONS
      DYNSQL_TOO_LARGE             = 1
      WRONG_ENTRY_IN_CONTROL_TABLE = 2
      KEY_VALUES_INCONSISTENT      = 3
      NO_ENTRY_FOUND               = 4
      FUNCTION_ALREADY_CALLED      = 5.

CPE_APPL_ACTIVATED_CHECK_CB
  CALL FUNCTION 'CPE_APPL_ACTIVATED_CHECK_CB'
    EXPORTING
      IV_APPLICATION = 'V   '
    IMPORTING
      EV_ACTIVATED   = lv_cpe_active
    EXCEPTIONS
      NOT_FOUND      = 1
      OTHERS         = 2.

CPE_KNUMVTOGUID_READ_MULTI_DB
  CALL FUNCTION 'CPE_KNUMVTOGUID_READ_MULTI_DB'
    EXPORTING
      it_knumv_struct = lt_knumv
    IMPORTING
      et_knumvtoguid  = gt_knumvtoguid
    EXCEPTIONS
      nothing_found   = 1.

CPE_DEFFORMULA_ALL_PRESELEC_AC
  CALL FUNCTION 'CPE_DEFFORMULA_ALL_PRESELEC_AC'
    EXPORTING
      IT_DOC_GUID = LT_DOC_GUID.

CPE_FORMULA_ALL_PRESELECT_AC
  CALL FUNCTION 'CPE_FORMULA_ALL_PRESELECT_AC'
    EXPORTING
      IT_DOCITEM_GUID = LT_DOCITEM_GUID.

SD_BILL_DIFF_CHECK_ARCHIVABLE
      CALL FUNCTION 'SD_BILL_DIFF_CHECK_ARCHIVABLE'
        EXPORTING
          IS_VBRK       = WA_VBRK
        IMPORTING
          EV_ARCHIVE_OK = LD_DIFF_OK.

DYNSQL_READ_CONTROL_TABLE
  CALL FUNCTION 'DYNSQL_READ_CONTROL_TABLE'
    EXPORTING
      KEY_1             = WA_VBRK-FKART
      KEY_2             = WA_VBRK-VKORG
    IMPORTING
      CONTROL_LINE      = ZTVARR
    EXCEPTIONS
      KEY_VALUE_INVALID = 1.

VFKK_ARCH_BADI_FICA_CHECK
    CALL FUNCTION 'VFKK_ARCH_BADI_FICA_CHECK'
      EXPORTING
        i_awtyp = 'VBRK'
        i_awkey = ld_awkey
      CHANGING
        c_subrc = ld_subrc.

DYNSQL_READ_CONTROL_TABLE
  CALL FUNCTION 'DYNSQL_READ_CONTROL_TABLE'
    EXPORTING
      KEY_1             = WA-FKART
      KEY_2             = WA-VKORG
    IMPORTING
      CONTROL_LINE      = ZTVARR
    EXCEPTIONS
      KEY_VALUE_INVALID = 1.

DYNSQL_READ_CONTROL_TABLE
  CALL FUNCTION 'DYNSQL_READ_CONTROL_TABLE'
    EXPORTING
      KEY_1             = XXVBRK-FKART
      KEY_2             = XXVBRK-VKORG
    IMPORTING
      CONTROL_LINE      = ZTVARR
    EXCEPTIONS
      KEY_VALUE_INVALID = 1
      OTHERS            = 2.

ARCHIVE_NEW_OBJECT
    CALL FUNCTION 'ARCHIVE_NEW_OBJECT'
      EXPORTING
        ARCHIVE_HANDLE = ARCHIVE_HANDLE
        OBJECT_ID      = OBJ_ID.

ARCHIVE_PUT_RECORD
    CALL FUNCTION 'ARCHIVE_PUT_RECORD'
      EXPORTING
        ARCHIVE_HANDLE   = ARCHIVE_HANDLE
        RECORD           = XVBUK
        RECORD_FLAGS     = ' '
        RECORD_STRUCTURE = 'VBUK'.

CHANGEDOCU_ARCHIVE_OBJECT
    CALL FUNCTION 'CHANGEDOCU_ARCHIVE_OBJECT'
      EXPORTING
        ARCHIVE_HANDLE = ARCHIVE_HANDLE
        OBJECTCLASS    = CDHDR-OBJECTCLAS
        OBJECTID       = CDHDR-OBJECTID.

ARCHIVE_PUT_RECORD
















    CALL FUNCTION 'ARCHIVE_PUT_RECORD'
      EXPORTING
        ARCHIVE_HANDLE   = ARCHIVE_HANDLE
        RECORD           = XVBRK
        RECORD_FLAGS     = ' '
        RECORD_STRUCTURE = 'VBRK'.

TEXT_ARCHIVE_OBJECT
    CALL FUNCTION 'TEXT_ARCHIVE_OBJECT'
      EXPORTING
        ARCHIVE_HANDLE     = ARCHIVE_HANDLE
        CLIENT             = SY-MANDT
        ID                 = '*'
        LANGUAGE           = '*'
        NAME               = TEXTNAME
        OBJECT             = 'VBBK'
        OBJECT_DELETE_FLAG = 'X'.

TEXT_ARCHIVE_OBJECT
    CALL FUNCTION 'TEXT_ARCHIVE_OBJECT'
      EXPORTING
        ARCHIVE_HANDLE     = ARCHIVE_HANDLE
        CLIENT             = SY-MANDT
        ID                 = '*'
        LANGUAGE           = '*'
        NAME               = TEXTNAME
        OBJECT             = 'VBBP'
        OBJECT_DELETE_FLAG = 'X'.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'NAST'
        TABLES
          TABLE            = YNAST.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'VBFA'
        TABLES
          TABLE            = YVBFA.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'VBRP'
        TABLES
          TABLE            = YVBRP.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'KONV'
        TABLES
          TABLE            = YKONV.

PRC_SUPPL_ARCHIVE_OBJECT
      CALL FUNCTION 'PRC_SUPPL_ARCHIVE_OBJECT'
        EXPORTING
          iv_archive_handle       = archive_handle
          is_key                  = ls_key
          iv_object_delete_flag   = abap_true
        EXCEPTIONS
          wrong_access_to_archive = 1
          OTHERS                  = 2.

ADDRESS_ARCHIVE_OBJECT
              CALL FUNCTION 'ADDRESS_ARCHIVE_OBJECT'
                   EXPORTING
                        ARCHIVE_HANDLE          = ARCHIVE_HANDLE
                     ADDRESS_OBJECT_TYPE     = GCF_ADDRESS_TYPE_COMPANY
                        ADDRESS_NUMBER          = P_ADRNR
                        ADDRESS_REFERENCE       = ADDR_REF
                   EXCEPTIONS
                        WRONG_ACCESS_TO_ARCHIVE = 1
                        PARAMETER_ERROR         = 2
                        OTHERS                  = 3.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'SADR'
        TABLES
          TABLE            = YSADR.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'VBPA'
        TABLES
          TABLE            = YVBPA.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'VBSSSK'
        TABLES
          TABLE            = YVBSSSK.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'EIKP'
        TABLES
          TABLE            = YEIKP.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'EIPO'
        TABLES
          TABLE            = YEIPO.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'VBRL'
        TABLES
          TABLE            = YVBRL.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'FPLA'
        TABLES
          TABLE            = YFPLA.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'FPLT'
        TABLES
          TABLE            = YFPLT.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'FPLTC'
        TABLES
          TABLE            = YFPLTC.

ARCHIVE_PUT_TABLE
      CALL FUNCTION 'ARCHIVE_PUT_TABLE'
        EXPORTING
          ARCHIVE_HANDLE   = ARCHIVE_HANDLE
          RECORD_FLAGS     = ' '
          RECORD_STRUCTURE = 'VBPA3'
        TABLES
          TABLE            = YVBPA3.

ARCHIVE_SAVE_OBJECT
    CALL FUNCTION 'ARCHIVE_SAVE_OBJECT'
      EXPORTING
        ARCHIVE_HANDLE = ARCHIVE_HANDLE
      EXCEPTIONS
        termination_requested   = 1
        file_io_error           = 2
        internal_error          = 3
        open_error              = 4
        wrong_access_to_archive = 5
        others                  = 6.




CPE_KNUMVTOGUID_INIT_DB
  CALL FUNCTION 'CPE_KNUMVTOGUID_INIT_DB'.

CPE_FORMULA_ALL_INIT_DB
  CALL FUNCTION 'CPE_FORMULA_ALL_INIT_DB'
    EXPORTING
      IV_INCLUDING_DEFAULTS       = 'X'.

CPE_APPL_ACTIVATED_CHECK_CB
  CALL FUNCTION 'CPE_APPL_ACTIVATED_CHECK_CB'
    EXPORTING
      IV_APPLICATION = 'V   '
    IMPORTING
      EV_ACTIVATED   = lv_cpe_active
    EXCEPTIONS
      NOT_FOUND      = 1
      OTHERS         = 2.

ARCHIVE_PUT_TABLE
  CALL FUNCTION 'ARCHIVE_PUT_TABLE'
       EXPORTING
            ARCHIVE_HANDLE   = ARCHIVE_HANDLE
            RECORD_FLAGS     = ' '
            RECORD_STRUCTURE = 'CPED_KNUMVTOGUID'
       TABLES
            TABLE            = lt_knumvtoguid.

CPE_DEFFORMULA_ALL_SAVE_AC
  CALL FUNCTION 'CPE_DEFFORMULA_ALL_SAVE_AC'
    EXPORTING
      IV_ARCHIVE_HANDLE = ARCHIVE_HANDLE
      IT_DOC_GUID       = LT_DOC_GUID.

CPE_FORMULA_ALL_SAVE_AC
  CALL FUNCTION 'CPE_FORMULA_ALL_SAVE_AC'
    EXPORTING
      IV_ARCHIVE_HANDLE = ARCHIVE_HANDLE
      IT_DOCITEM_GUID   = LT_DOCITEM_GUID.

MM_ARRANG_CHECK_COND_ARCHIVE
    CALL FUNCTION 'MM_ARRANG_CHECK_COND_ARCHIVE'
* Check auf noch gültige Absprachen im Einkauf
        EXPORTING
             I_KNUMA        = AB_VBRK-KNUMA
             I_BLTYPA       = '02'
        EXCEPTIONS
             AGREEMENT_NOT_SETTLED = 1
             AGREEMENT_DATBI_VALID = 2
             AGREEMENT_RESZT_VALID = 3
        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 S3VBRKWR or its description.


   
 

S3VBRKWR - Archiving Billng Documents: Write Program
S3VBRKWR - Archiving Billng Documents: Write Program
S3VBRKTB - Archive Billing Documents: Logical Databank Tables
S3VBRKSEL - documentation and ABAP source code
S3VBRKRL - Archiving billing documents: Reload program
S3VBRKRL - Archiving billing documents: Reload program