MF68VI01 SAP ABAP INCLUDE - PAI Module for Loan Reversal
MF68VI01 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 MF68VI01 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 MF68VI01. "Basic submit
SUBMIT MF68VI01 AND RETURN. "Return to original report after report execution complete
SUBMIT MF68VI01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: PAI Module for Loan Reversal
INCLUDES used within this REPORT MF68VI01
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:
FVD_DB_VDARL_GET_SNG CALL FUNCTION 'FVD_DB_VDARL_GET_SNG' EXPORTING i_bukrs = bukrs i_sarchiv = space i_ranl = ranl IMPORTING E_STR_VDARL = vdarl EXCEPTIONS CONTRACT_NOT_FOUND = 1 OTHERS = 2 .
ENQUEUE_EFVDARL * CALL FUNCTION 'ENQUEUE_EFVDARL' * EXPORTING * bukrs = bukrs * sarchiv = space * ranl = ranl * x_bukrs = space * x_sarchiv = space * x_ranl = space * _scope = '3' * EXCEPTIONS * foreign_lock = 01 * system_failure = 02.
FVD_ENQUEUE_EFVDARL CALL FUNCTION 'FVD_ENQUEUE_EFVDARL' EXPORTING MODE_VDARL = 'E' MANDT = SY-MANDT BUKRS = bukrs SARCHIV = space RANL = ranl * X_BUKRS = ' ' * X_SARCHIV = ' ' * X_RANL = ' ' _SCOPE = '3' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2 OTHERS = 3 .
DEQUEUE_EFVDARL CALL FUNCTION 'DEQUEUE_EFVDARL' EXPORTING bukrs = bukrs sarchiv = space ranl = ranl x_bukrs = space x_sarchiv = space x_ranl = space.
FVD_DB_VDARL_GET_SNG CALL FUNCTION 'FVD_DB_VDARL_GET_SNG' EXPORTING i_bukrs = storno_beki-bukrs i_sarchiv = space i_ranl = storno_beki-ranl IMPORTING E_STR_VDARL = vdarl EXCEPTIONS CONTRACT_NOT_FOUND = 1 OTHERS = 2 .
FVD_DB_VDARL_GET_SNG CALL FUNCTION 'FVD_DB_VDARL_GET_SNG' EXPORTING i_bukrs = f_beki-bukrs i_sarchiv = space i_ranl = f_beki-ranl IMPORTING E_STR_VDARL = vdarl EXCEPTIONS CONTRACT_NOT_FOUND = 1 OTHERS = 2 .
SCHWELLWERT_ERMITTELN CALL FUNCTION 'SCHWELLWERT_ERMITTELN' IMPORTING beleg_sum = beleg_sum beleg_waer = beleg_waer TABLES ibeki = storno_beki.
CHECK_CONFIRMATION_PROCEDURE CALL FUNCTION 'CHECK_CONFIRMATION_PROCEDURE' EXPORTING bukrs = storno_beki-bukrs fgobj = 'STORNO' sparam1 = ' ' sparam2 = save_gsart waers = beleg_waer amount = beleg_sum IMPORTING sfgaktiv = freigabe EXCEPTIONS not_found = 01.
FVD_DB_VDARL_GET_SNG CALL FUNCTION 'FVD_DB_VDARL_GET_SNG' EXPORTING i_bukrs = storno_beki-bukrs i_sarchiv = space i_ranl = storno_beki-ranl IMPORTING E_STR_VDARL = vdarl EXCEPTIONS CONTRACT_NOT_FOUND = 1 OTHERS = 2 .
PRELIMINARY_DATA_DELETE CALL FUNCTION 'PRELIMINARY_DATA_DELETE' EXPORTING bukrs = storno_beki-bukrs sbuakt = sbuakt sobjekt = vdarl-sobjekt update_task = ' ' EXCEPTIONS del_failed = 01 error = 02 not_found = 03.
CONFIRMATION_INITIALIZE CALL FUNCTION 'CONFIRMATION_INITIALIZE' EXPORTING fgobj = 'STORNO' key = key verarbfkt = 'D' EXCEPTIONS fgobj_not_found = 1 read_error = 2 OTHERS = 3.
STRING_CONCATENATE * call function 'STRING_CONCATENATE' * exporting * string1 = storno_beki-bukrs * string2 = storno_beki-ranl * importing * string = key * exceptions * too_small = 01.
CONFIRMATION_INITIALIZE CALL FUNCTION 'CONFIRMATION_INITIALIZE' EXPORTING begru = ' ' bukrs = storno_beki-bukrs fgobj = 'STORNO' flg_no_update_vzfgd = ' ' key = key keyergaenzung = ' ' sparam1 = ' ' sparam2 = save_gsart text15 = ' ' text50 = ' ' verarbfkt = 'I' waers = beleg_waer amount = beleg_sum EXCEPTIONS fgobj_not_found = 01 read_error = 02.
PRELIMINARY_DATA_SAVE CALL FUNCTION 'PRELIMINARY_DATA_SAVE' EXPORTING bukrs = storno_beki-bukrs sbuakt = sbuakt sobjekt = vdarl-sobjekt * IMPORTING * SFGBEW = * SVORGANG = TABLES i_vdausz = i_vdausz i_vdbeki = storno_beki i_vdbepp = i_vdbepp i_vdnbze = i_vdnbze EXCEPTIONS entry_exists = 01 error = 02 insert_failed = 03 no_entry_vdbepp = 04 number_error = 05.
POPUP_LOAN_INPUT CALL FUNCTION 'POPUP_LOAN_INPUT' EXPORTING buchen_per_btci = 'X' bldat = bldat budat = budat callt = 'X' flg_son = 'X' IMPORTING abbruch = abbruch bktxt = bktxt bldat = bldat budat = budat callt = callt mappe = mappe monat = monat simkz = simkz.
FVD_ARC_KEYDATES_CHECK CALL FUNCTION 'FVD_ARC_KEYDATES_CHECK' EXPORTING i_bukrs = storno_beki-bukrs i_ranl = storno_beki-ranl * I_VDARC_DOC_ADM = i_dbudat = budat * I_DDISPO = * I_DFAELL = * I_DVALUT = IMPORTING e_date_in_archived_period = l_date_in_archived_period * E_DBUDAT_BEFORE_DPARC = * E_DPARC = * E_DDISPO_BEFORE_DDARC = * E_DDARC = * E_DFAELL_BEFORE_DFARC = * E_DFARC = * E_DVALUT_BEFORE_DVARC = * E_DVARC = * EXCEPTIONS * KEY_NOT_FILLED = 1 * NO_DATE_PARAMETER = 2 * OTHERS = 3 .
POPUP_ZE_VERRECHUNG * call function 'POPUP_ZE_VERRECHUNG' * importing * abbruch = abbruch * zehkont = zehkont.
REVERSE_LOAN_ACCOUNT CALL FUNCTION 'REVERSE_LOAN_ACCOUNT' EXPORTING batch_kz = 'X' simkz = simkz bldat = bldat budat = budat callt = callt mappe = mappe prot_text = bktxt code = 'FNM3' zehkont = zehkont monat = monat IMPORTING flg_ok = buch_ok flg_einbehalt_ruec = flg_einbehalt_ruec TABLES sbeki = storno_create_beki tsmg = tsmg.
* call function 'ACCOUNT_REPORT_DIALOG' * exporting * flg_error_account = ' ' * name = bktxt * prot_text = bktxt.
PRELIMINARY_DATA_DELETE CALL FUNCTION 'PRELIMINARY_DATA_DELETE' EXPORTING bukrs = vdarl-bukrs * KEY = ' ' sbuakt = l_sbuakt sobjekt = vdarl-sobjekt * SVORGANG = 0 update_task = ' ' IMPORTING sfgbew = vdarl-sfgbew EXCEPTIONS del_failed = 1 error = 2 not_found = 3 OTHERS = 4 .
ACCOUNT_REPORT CALL FUNCTION 'ACCOUNT_REPORT' EXPORTING batch_kz = 'X' * FLG_ERROR_ACCOUNT = ' ' header_text = ' ' name = bktxt only_in_spool = 'X' rantyp = '1' sverrkz = ' ' * SWITCH_WAER = ' ' TABLES parameter = t_bsspara tbkpf = t_bssbkpf tbseg = t_bssbseg.
DB_COMMIT * CALL FUNCTION 'DB_COMMIT'.
ACCOUNT_REPORT_DIALOG CALL FUNCTION 'ACCOUNT_REPORT_DIALOG' EXPORTING flg_error_account = ' ' name = bktxt prot_text = bktxt flg_release = freigabe.
ERROR_RULE_ACCOUNT CALL FUNCTION 'ERROR_RULE_ACCOUNT' EXPORTING batch_kz = 'X' channel = 'O' name = text-030.
REBUILD_BEPP_FROM_BEPI CALL FUNCTION 'REBUILD_BEPP_FROM_BEPI' EXPORTING flag_storno = 'X' TABLES ibeki = storno_beki ibepi = ibepi ibepp = ibepp.
FVVI_PREPARE_TABLES * CALL FUNCTION 'FVVI_PREPARE_TABLES' * EXPORTING * TABLENAME = 'VDBEKI' * IMPORTING * RESULT = RET_CODE * TABLES * TABLE_NEW = I_STORNO_BEKI * TABLE_OLD = STORNO_BEKI * TABLE_RES = IO_TABLE * EXCEPTIONS * NAMETAB_ERROR = 01 * TABLE_RES_TOO_SMALL = 02.
FVVD_TABLE_UPDATE * CALL FUNCTION 'FVVD_TABLE_UPDATE' * TABLES * IO_TAB = IO_TABLE.
LOAN_IST_SCHREIBEN *CALL FUNCTION 'LOAN_IST_SCHREIBEN' * EXPORTING * HERKUNFT = E01 * TABLES * IBEKI = STORNO_BEKI * IBEPI = I_BEPI.
FVD_TABLE_INIT CALL FUNCTION 'FVD_TABLE_INIT' EXCEPTIONS OTHERS = 1.
FVD_TABLE_SET_VDBEPP CALL FUNCTION 'FVD_TABLE_SET_VDBEPP' EXPORTING i_tab_vdbepp_old = y_ibepp[] i_tab_vdbepp_new = ibepp[] EXCEPTIONS OTHERS = 1.
FVD_TABLE_UPDATE CALL FUNCTION 'FVD_TABLE_UPDATE' EXPORTING i_flg_update_task = space EXCEPTIONS OTHERS = 1.
PRELIMINARY_DATA_DELETE CALL FUNCTION 'PRELIMINARY_DATA_DELETE' EXPORTING bukrs = f_beki-bukrs sbuakt = sbuakt sobjekt = vdarl-sobjekt update_task = ' ' EXCEPTIONS del_failed = 01 error = 02 not_found = 03.
CONFIRMATION_INITIALIZE CALL FUNCTION 'CONFIRMATION_INITIALIZE' EXPORTING fgobj = 'STORNO' key = key verarbfkt = 'D' EXCEPTIONS fgobj_not_found = 1 read_error = 2 OTHERS = 3.
FVD_SM_SHOW CALL FUNCTION 'FVD_SM_SHOW' EXPORTING i_bukrs = bukrs i_ranl = ranl * I_DTO = * I_DFROM = EXCEPTIONS no_authority = 1 loan_does_not_exist = 2 OTHERS = 3 .
BILL_SHOW CALL FUNCTION 'BILL_SHOW' EXPORTING beki = storno_beki * BEKI = KZ_BEKI TABLES bepi = storno_bepi1.
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 MF68VI01 or its description.