RFVIRECH SAP ABAP Report - Correspondence - Print Invoice for Rent (With POR number)
RFVIRECH is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for The report retrieves data to print an invoice for rent with POR number (in Switzerland) and prints the letter using
If you would like to execute this report or see the full code listing simply enter RFVIRECH 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 RFVIRECH. "Basic submit
SUBMIT RFVIRECH AND RETURN. "Return to original report after report execution complete
SUBMIT RFVIRECH VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Correspondence - Print Invoice for Rent (With POR number)
Text Symbol: 001 = Amount equal to 0. No POR procedure possible
Text Symbol: 201 = Invoice for rent ;
Text Symbol: 202 = SINGLE TOTALS
INCLUDES used within this REPORT RFVIRECH
INCLUDE RFVIMVD1_PRINT_LETTER.
INCLUDE RFVIMVCA.
INCLUDE RFVIMVCC.
INCLUDE RFVZTVI2.
INCLUDE RFVZTVI3.
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:
POPUP_TTXBS CALL FUNCTION 'POPUP_TTXBS' TABLES itxbs = loc_tab_ttxbs EXCEPTIONS zurueck = 01.
FORM_CHECK CALL FUNCTION 'FORM_CHECK' EXPORTING i_pzfor = fle_ttxbf-tdform EXCEPTIONS not_defined = 1.
OPEN_FORM CALL FUNCTION 'OPEN_FORM' EXPORTING form = fle_ttxbf-tdform options = linkitcpo device = 'PRINTER' dialog = hlp_fbkz IMPORTING result = linkitcpp EXCEPTIONS canceled = 1 device = 2 form = 3 options = 4 unclosed = 5.
CLOSE_FORM CALL FUNCTION 'CLOSE_FORM' IMPORTING result = linkitcpp EXCEPTIONS unopened = 1.
OPEN_FI_PERFORM_00005010_P call function 'OPEN_FI_PERFORM_00005010_P' exporting i_chgtype = 'U' i_origin = 'RFVIRECH' i_tabname = 'BSID' i_where_bukrs = tab_bsid_zus-bukrs i_where_kunnr = tab_bsid_zus-kunnr i_where_umsks = tab_bsid_zus-umsks i_where_umskz = tab_bsid_zus-umskz i_where_augdt = tab_bsid_zus-augdt i_where_augbl = tab_bsid_zus-augbl i_where_zuonr = tab_bsid_zus-zuonr i_where_gjahr = tab_bsid_zus-gjahr i_where_belnr = tab_bsid_zus-belnr i_where_buzei = tab_bsid_zus-buzei exceptions others = 1.
RE_ASSEMBLE_OBJECTKEY CALL FUNCTION 'RE_ASSEMBLE_OBJECTKEY' EXPORTING i_key = fle_virekey IMPORTING e_businessobject_key = sav_objkey e_businessobject_name = sav_busobj_name e_kz_key_parts_missing = flg_key_parts_missing EXCEPTIONS unknown_object_type = 1 name_of_key_not_valid = 2 object_key_not_found = 3 OTHERS = 4.
RE_GET_OPT_ARC_VALUES CALL FUNCTION 'RE_GET_OPT_ARC_VALUES' EXPORTING i_busobj_name = sav_busobj_name i_objkey = sav_objkey i_ar_object = sav_ar_object * I_INFO = ' ' i_name1 = debiadr-name1 CHANGING c_arc_params = tab_opt_archive-fle_arc_params c_toa_dara = tab_opt_archive-fle_toa_dara EXCEPTIONS busobj_not_used_for_re_opt_arc = 1 wrong_object_combination = 2 OTHERS = 3.
RE_GET_OPT_ARC_VALUES CALL FUNCTION 'RE_GET_OPT_ARC_VALUES' EXPORTING i_busobj_name = sav_busobj_name i_objkey = sav_objkey i_ar_object = sav_ar_object * I_INFO = ' ' i_name1 = debiadr-name1 CHANGING c_arc_params = tab_opt_archive-fle_arc_params c_toa_dara = tab_opt_archive-fle_toa_dara EXCEPTIONS busobj_not_used_for_re_opt_arc = 1 wrong_object_combination = 2 OTHERS = 3.
OPEN_FORM CALL FUNCTION 'OPEN_FORM' EXPORTING archive_params = tab_opt_archive-fle_arc_params form = fle_ttxbf-tdform options = linkitcpo device = 'PRINTER' dialog = hlp_fbkz IMPORTING result = linkitcpp EXCEPTIONS canceled = 1 device = 2 form = 3 options = 4 unclosed = 5.
CLOSE_FORM CALL FUNCTION 'CLOSE_FORM' IMPORTING result = linkitcpp EXCEPTIONS unopened = 1.
START_FORM CALL FUNCTION 'START_FORM' EXPORTING form = form language = viscript-sprslrcp startpage = 'PLAIN' EXCEPTIONS form = 1 format = 2 unended = 3 unopened = 4 unused = 5.
START_FORM CALL FUNCTION 'START_FORM' EXPORTING archive_index = tab_opt_archive-fle_toa_dara form = form language = viscript-sprslrcp startpage = 'PLAIN' EXCEPTIONS form = 1 format = 2 unended = 3 unopened = 4 unused = 5.
NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING nr_range_nr = '01' object = 'RE_INVOICE' * QUANTITY = '1' * SUBOBJECT = ' ' toyear = sav_toyear * IGNORE_BUFFER = ' ' IMPORTING number = sav_rechnnr * quantity = returncode = sav_retcode 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 OTHERS = 7.
END_FORM CALL FUNCTION 'END_FORM'.
READ_TEXT CALL FUNCTION 'READ_TEXT' EXPORTING id = rstxt-tdid language = rstxt-tdspras name = rstxt-tdname object = rstxt-tdobject IMPORTING header = fle_thead TABLES lines = tab_tline EXCEPTIONS id = 04 language = 04 name = 04 not_found = 04.
WRITE_FORM_LINES CALL FUNCTION 'WRITE_FORM_LINES' EXPORTING header = fle_thead window = 'MAIN' TABLES lines = tab_tline EXCEPTIONS window = 08.
WRITE_FORM CALL FUNCTION 'WRITE_FORM' EXPORTING element = '110' window = 'MAIN'.
ESR_NUMBER_MAKE CALL FUNCTION 'ESR_NUMBER_MAKE' EXPORTING p_belnr = loc_belnr p_betrag = betrag p_bukrs = tab_bsid_zus-bukrs p_kundnr = tab_bsid_zus-kunnr IMPORTING esr_nr = esrnr fle_vzchesr = fle_vzchesr EXCEPTIONS abort = 01 error = 02 warning = 03.
CALL FUNCTION 'ESR_NUMBER_MAKE_TPM' EXPORTING p_belnr = loc_belnr p_betrag = betrag p_bukrs = tab_bsid_zus-bukrs p_kundnr = tab_bsid_zus-kunnr p_esrnr_eig = l_vivw01-esrnr_eig p_ESRKUID_EIG = l_vivw01-ESRKUID_EIG IMPORTING esr_nr = esrnr fle_vzchesr = fle_vzchesr EXCEPTIONS abort = 01 error = 02 warning = 03.
FVZU_GET_HIER_FOR_OBJECT cALL FUNCTION 'FVZU_GET_HIER_FOR_OBJECT' EXPORTING I_DSTICH = tab_bsid_zus-ZFBDT * I_INTRENO = ' ' I_IMKEY = tab_bsid_zus-imkey * I_OBJNR = ' ' I_FLAG_HIER_DOWN = 'X' I_FLAG_HIER_UP = 'X' I_FLAG_GE_HIER = 'X' I_SEL_OBJECTS = l_sel_obj TABLES * T_VIREKEY = * T_VIMIMV = * T_VICN01 = T_VIVW01 = l_vivw01 * T_VIOBOV = * T_CHILDOBJ = EXCEPTIONS OBJECT_KEY_INCONSISTENT = 1 OBJECT_NOT_FOUND = 2 CONTRACT_NOT_FOUND = 3 WRONG_OBJECT_TYPE = 4 OTHERS = 5 .
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 RFVIRECH or its description.
RFVIRECH - Correspondence - Print Invoice for Rent (With POR number) RFVIRECH - Correspondence - Print Invoice for Rent (With POR number) RFVIREC3 - documentation and ABAP source code RFVIREC2 - Include with fixed forms for entity and text RFVIRE8F - documentation and ABAP source code RFVIRE8D - documentation and ABAP source code