FIMAAF09 SAP ABAP INCLUDE - documentation and ABAP source code
FIMAAF09 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 FIMAAF09 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 FIMAAF09. "Basic submit
SUBMIT FIMAAF09 AND RETURN. "Return to original report after report execution complete
SUBMIT FIMAAF09 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
INCLUDES used within this REPORT FIMAAF09
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:
TRANSACTION_TYPE_SELECT * call function 'TRANSACTION_TYPE_SELECT' "H-529758 * exporting * i_rantyp = '2' "Wertpapiere * i_sbewziti = 'XA' * importing * e_sbewart_haben = r_habn-low * e_sbewart_soll = r_soll-low ** E_TZB0A_HABEN = I03 ** E_TZB0A_SOLL = I04 * exceptions * sbewart_1_2_not_found = 01 * sbewziti_not_found = 02.
TRANSACTION_TYPE_SELECT * call function 'TRANSACTION_TYPE_SELECT' "H-529758 * exporting * i_rantyp = '2' "Wertpapiere * i_sbewziti = 'XD' * importing * e_sbewart_haben = r_habn-low * e_sbewart_soll = r_soll-low ** E_TZB0A_HABEN = I03 ** E_TZB0A_SOLL = I04 * exceptions * sbewart_1_2_not_found = 01 * sbewziti_not_found = 02.
TRANSACTION_TYPE_SELECT * call function 'TRANSACTION_TYPE_SELECT' "H-529758 * exporting * i_rantyp = '2' "Wertpapiere * i_sbewziti = 'XG' * importing * e_sbewart_haben = r_habn-low * e_sbewart_soll = r_soll-low ** E_TZB0A_HABEN = I03 ** E_TZB0A_SOLL = I04 * exceptions * sbewart_1_2_not_found = 01 * sbewziti_not_found = 02.
TRANSACTION_TYPE_SELECT * call function 'TRANSACTION_TYPE_SELECT' "H-529758 * exporting * i_rantyp = '2' "Wertpapiere * i_sbewziti = 'XGF' * importing * e_sbewart_haben = r_habn-low * e_sbewart_soll = r_soll-low ** E_TZB0A_HABEN = I03 ** E_TZB0A_SOLL = I04 * exceptions * sbewart_1_2_not_found = 01 * sbewziti_not_found = 02.
VALID_VZZKOKO_SELECT CALL FUNCTION 'VALID_VZZKOKO_SELECT' EXPORTING i_bukrs = space "LEER weil Buchungskreisübergreifend i_datum = p_bisdt i_ranl = vwpanla-ranl i_sanlf = vwpanla-sanlf i_skstyp = '3' "immer nach Datum IMPORTING e_vzzkoko = xvzzkoko EXCEPTIONS not_found = 01.
FVZK_LOAD_VZZKOPO CALL FUNCTION 'FVZK_LOAD_VZZKOPO' EXPORTING get_empty = space "Rückgabe gültiger Kondition gsart = vwpanla-gsart init_tables = 'X' "SPACE koko_key = l_kokok TABLES ivzzkopo = ivzzkopo EXCEPTIONS group_not_found = 01 kondition_not_found = 02 sbewziti_different = 03 skoart_not_found = 04 text_not_found = 05.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING bukrs = t_vab-vvkey+0(4) dbestand = p_bisdt jnullb = 0 kz_bevi = 0 ranl = vwpanla-ranl rldepot = t_vab-vvkey+4(10) IMPORTING anzah = l_anz TABLES i_tvwbevi = l_vwbevi o_revalb = l_revalb.
FVWD_PRICE_CALCULATE CALL FUNCTION 'FVWD_PRICE_CALCULATE' EXPORTING bestand = l_revalb stammdaten = vwpanla rkursber = tzbz-rkursber IMPORTING kurswerte = l_revalc EXCEPTIONS allg_fehler = 01.
STOCK_RATE_SELECT CALL FUNCTION 'STOCK_RATE_SELECT' EXPORTING anlage_nummer = anlage_nummer handelsplatz = handelsplatz kursart = kursart kursdatum_ges = kursdatum_ges * VERTRAGSART = '2' IMPORTING * KURSART_GEF = kursdatum_gef = kursdatum_gef kurs_abs_proz = kurs_absolut "<= früher auch KURS_PROZENT waehrung = l_tagwert-sbwhr * HANDELSPLATZ_GEF = EXCEPTIONS no_record_found = 1 OTHERS = 2.
FWOS_CURRENCY_UNIT_READ CALL FUNCTION 'FWOS_CURRENCY_UNIT_READ' "H-197805 EXPORTING "H-197805 i_currency_unit = l_cunit "H-197805 IMPORTING "H-197805 e_currency_relation = l_relat "H-197805 * e_currency = "H-197805 EXCEPTIONS "H-197805 i_currency_unit_initial = 1 "H-197805 OTHERS = 2. "H-197805
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING i_betrag = l_tagwert-betrag i_gdatu = p_bisdt * I_KURS = KURS_ABSOLUT * I_KURSBER = i_bukrs = tzbz-bukrs i_waehrung_nach = t001-waers i_waehrung_von = l_tagwert-sbwhr IMPORTING o_betrag = l_tagwert-betrag_hw * O_CURRDEC = L_KURSWERT-KURS_DEV * O_DATUM_GUELTIG_AB = DGUELT * O_FAKTOR_NACH = FAKTOR_NACH * O_FAKTOR_VON = FAKTOR_VON o_kurs = l_kurswert-kurs_dev * O_DERIVED_RATE_TYPE = * O_FIXED_RATE = EXCEPTIONS no_rate_found = 1 no_factors_found = 2 no_spread_found = 3 overflow = 4 no_kurstyp_found = 5 no_kursber_found = 6 derived_2_times = 7 OTHERS = 8.
TRANSACTIONS_SEC_LOAD_I_VIEW CALL FUNCTION 'TRANSACTIONS_SEC_LOAD_I_VIEW' EXPORTING bukrs = t_vab-vvkey+00(04) ranl = t_vab-vvkey+14(13) rldepo = t_vab-vvkey+04(10) type_of_selection = space TABLES tvwbevi = l_vwbevi EXCEPTIONS table_tvwbevi_not_empty = 01.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING bukrs = t_vab-vvkey+00(04) dbestand = p_bisdt jnullb = 1 kz_bevi = 1 ranl = t_vab-vvkey+14(13) rldepot = t_vab-vvkey+04(10) IMPORTING anzah = l_anz TABLES i_tvwbevi = l_vwbevi o_revalb = l_revalb.
TRANSACTIONS_SEC_LOAD_P CALL FUNCTION 'TRANSACTIONS_SEC_LOAD_P' EXPORTING bukrs = t_vab-vvkey+00(04) ranl = t_vab-vvkey+14(13) rldepo = t_vab-vvkey+04(10) type_of_selection = space TABLES tvwbepp = l_vwbepp EXCEPTIONS table_tvwbepp_not_empty = 01 vwbepp_no_record_found = 02.
DARWIN_ABGRENZUNG_ERMITTELN CALL FUNCTION 'DARWIN_ABGRENZUNG_ERMITTELN' EXPORTING bukrs = p_bukrs i_sabgrenz_disa = '9' "kein Disagio i_sabgrenz_rest = ' ' "restl. Abgrenz. (Zinsen)
LOAN_AMOUNT_CALCULATE CALL FUNCTION 'LOAN_AMOUNT_CALCULATE' EXPORTING calculation_date = p_bisdt conversion_currency = t001-waers conversion_date = p_bisdt * CONVERSION_RATE = 0 * KOKO = ' ' vdarl = vdarl x_convert_currency = ' ' x_load_conditions = 'X' x_load_i = 'X' x_load_p = 'X' IMPORTING rloam = l_rloam TABLES i_bepp = l_vzzbepp i_kopo = l_vzzkopo EXCEPTIONS no_conversion_currency = 01 no_date_for_conversion = 02.
FVZR_LOAD_KOKOS CALL FUNCTION 'FVZR_LOAD_KOKOS' EXPORTING flg_last = 'X' i_bukrs = vdarl-bukrs i_rkey1 = vdarl-ranl i_sanlf = vdarl-sanlf i_skokoart = '01' "Konditionsart VERTRAG TABLES xvzzkoko = l_vzzkoko EXCEPTIONS not_found = 01.
FVZK_LOAD_VZZKOPO_BATCH CALL FUNCTION 'FVZK_LOAD_VZZKOPO_BATCH' EXPORTING gsart = vdarl-gsart koko_key = l_kokokey TABLES ivzzkopo = l_vvzzkopo.
CALL FUNCTION 'CASH_FLOW_CONSTRUCT_LOAN' "Finanzstrom neu aufbauen EXPORTING i_koko = l_vzzkoko i_ssolist = vdarl-ssolist i_vdarl = vdarl TABLES i_bepp = l_vzzbepp i_kopo = l_vvzzkopo EXCEPTIONS keine_tilgungskonditionen = 01 laufzeitende_fehlt = 02 laufzeitende_nicht_ermittelbar = 03 laufzeit_oder_rate_fehlt = 04 negative_tilgung_aufgetreten = 05.
DARWIN_ABGRENZUNG_ERMITTELN CALL FUNCTION 'DARWIN_ABGRENZUNG_ERMITTELN' EXPORTING bukrs = vdarl-bukrs i_sabgrenz_disa = '9' "kein Disagio i_sabgrenz_rest = ' ' "restl. Abgrenz. (Zinsen)
ISGP_VZGPO_READ CALL FUNCTION 'ISGP_VZGPO_READ' EXPORTING i_snumobj = 'VD' i_sobjekt = vdarl-sobjekt i_date = syst-datum * I_END_DATE = TABLES yvzgpo = t_vzgpo * R_PARTNER = r_roletyp = r_roletyp EXCEPTIONS not_found = 1 OTHERS = 2.
BPAR_P_PARTNER_READ_INTO_PRINT CALL FUNCTION 'BPAR_P_PARTNER_READ_INTO_PRINT' EXPORTING count_lines = 3 partner = t_vzgpo-partnr IMPORTING address = t_adrs EXCEPTIONS address = 1 partner = 2 OTHERS = 3.
ACCUMULATION_INIT CALL FUNCTION 'ACCUMULATION_INIT' EXPORTING foreign_currency = vwpanla-rewhr "Emissionswährung local_currency = t001-waers. "Hauswährung
ACCUMULATION_ADD CALL FUNCTION 'ACCUMULATION_ADD' EXPORTING vbepp = par_io_bepp * verarb = ' ' rldepo = par_io_bepp-rldepo.
ACCUMULATION_RESULT CALL FUNCTION 'ACCUMULATION_RESULT' IMPORTING reval = l_reval.
CASH_FLOW_RANGE CALL FUNCTION 'CASH_FLOW_RANGE' EXPORTING bukrs = par_io_bepp-bukrs gsart = vwpanla-gsart startdatum = sy-datum IMPORTING datum_bis = vzzkoko-delfz EXCEPTIONS gsart_notfound = 1 OTHERS = 2.
FVZK_LOAD_VZZKOPO CALL FUNCTION 'FVZK_LOAD_VZZKOPO' EXPORTING dguel_kp = sy-datum get_empty = space gsart = vwpanla-gsart init_tables = space koko_key = koko_key TABLES ivzzkopo = tvzzkopo EXCEPTIONS group_not_found = 1 kondition_not_found = 2 sbewziti_different = 3 skoart_not_found = 4 text_not_found = 5 OTHERS = 6.
CASH_FLOW_CONSTRUCT_SECURITY CALL FUNCTION 'CASH_FLOW_CONSTRUCT_SECURITY' EXPORTING i_bukrs = t001-bukrs i_koko = vzzkoko * i_rldepo = i_vwpdepo-rldepo "H-35460 i_rldepo = t_vab-vvkey+4(10) "H-35460 i_vwpanla = vwpanla TABLES i_bepp = par_io_bepp i_kopo = tvzzkopo EXCEPTIONS keine_tilgungskonditionen = 1 laufzeitende_fehlt = 2 laufzeitende_nicht_ermittelbar = 3 laufzeit_oder_rate_fehlt = 4 negative_tilgung_aufgetreten = 5 OTHERS = 6.
ACCUMULATION_INIT CALL FUNCTION 'ACCUMULATION_INIT' EXPORTING foreign_currency = vdarl-santwhr "Bestandswährung local_currency = t001-waers "Hauswährung rantyp = pf_rantyp "Darlehen soll_ist_reval = 'I' s_reval = '2' s_rloam = '1' s_rprof = '1' x_storno_verarbeiten = 'X'.
ACCUMULATION_ADD CALL FUNCTION 'ACCUMULATION_ADD' "summieren EXPORTING "zum Buchwert rldepo = vzbavv-vvkey+4(10) "Depot ?!? vbepp = lf_bepp.
ACCUMULATION_RESULT CALL FUNCTION 'ACCUMULATION_RESULT' "Buchwert bereitstellen IMPORTING reval = xreval rloam = xrloam.
EXCHANGE_RATE_SERVICE call function 'EXCHANGE_RATE_SERVICE' "H-610055 exporting i_betrag = lf_wert i_gdatu = p_bisdt * I_KURS = * I_KURSBER = i_bukrs = p_bukrs i_waehrung_nach = t001-waers i_waehrung_von = xreval-sbwhr * I_READ_TCURR = 'X' importing o_betrag = lf_wert * O_CURRDEC = * O_DATUM_GUELTIG_AB = * O_FAKTOR_NACH = * O_FAKTOR_VON = * O_KURS = * O_DERIVED_RATE_TYPE = * O_FIXED_RATE = exceptions no_rate_found = 1 no_factors_found = 2 no_spread_found = 3 overflow = 4 no_kurstyp_found = 5 no_kursber_found = 6 derived_2_times = 7 others = 8.
ACCUMULATION_INIT CALL FUNCTION 'ACCUMULATION_INIT' EXPORTING foreign_currency = vwpanla-rewhr "Emissions-Währung local_currency = t001-waers "Hauswährung rantyp = pf_rantyp "Wertpapiere soll_ist_reval = 'S' s_reval = '2' s_rloam = '1' s_rprof = '1' x_storno_verarbeiten = ' '.
ACCUMULATION_ADD CALL FUNCTION 'ACCUMULATION_ADD' "summieren EXPORTING "zum Buchwert rldepo = lf_bevi-rldepo "Depot vbepp = lf_bepp.
ACCUMULATION_RESULT CALL FUNCTION 'ACCUMULATION_RESULT' "Buchwert bereitstellen IMPORTING reval = xreval rloam = xrloam.
EXCHANGE_RATE_SERVICE call function 'EXCHANGE_RATE_SERVICE' "H-610055 exporting i_betrag = lf_wert i_gdatu = p_bisdt * I_KURS = * I_KURSBER = i_bukrs = p_bukrs i_waehrung_nach = t001-waers i_waehrung_von = xreval-sbwhr * I_READ_TCURR = 'X' importing o_betrag = lf_wert * O_CURRDEC = * O_DATUM_GUELTIG_AB = * O_FAKTOR_NACH = * O_FAKTOR_VON = * O_KURS = * O_DERIVED_RATE_TYPE = * O_FIXED_RATE = exceptions no_rate_found = 1 no_factors_found = 2 no_spread_found = 3 overflow = 4 no_kurstyp_found = 5 no_kursber_found = 6 derived_2_times = 7 others = 8.
TM_AMOUNTS_DETERMINE * call function 'TM_AMOUNTS_DETERMINE' "Beträge zum Stichtag * exporting cut_off_date = lf_kdat "H-610055 * importing amounts = lf_bakku "H-610055 * tables transactions = lt_bfha "H-610055 * exceptions others = 1. "H-610055
TM_AMOUNTS_DETERMINE call function 'TM_AMOUNTS_DETERMINE' "H-610055 exporting "H-610055 cut_off_date = p_bisdt "H-610055 * local_currency = t001-waers "H-610055 importing "H-610055 amounts = lf_bakku "H-610055 * amounts_lc = lf_bakku_lc "ohne Umrechnung"H-610055 tables "H-610055 transactions = lt_bfha "H-610055 exceptions "H-610055 others = 1. "H-610055
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING i_betrag = lf_bakku-bkgwr i_gdatu = lf_kdat "Umrechnungsdatum * I_KURS = * I_KURSBER = i_bukrs = t001-bukrs i_waehrung_nach = t001-waers i_waehrung_von = lf_bakku-wbstnd * I_READ_TCURR = 'X' importing * o_betrag = pf_lfertr "H-593894 o_betrag = lf_wert "H-593894 * O_CURRDEC = * O_DATUM_GUELTIG_AB = * O_FAKTOR_NACH = * O_FAKTOR_VON = * O_KURS = * O_DERIVED_RATE_TYPE = * O_FIXED_RATE = EXCEPTIONS no_rate_found = 1 no_factors_found = 2 no_spread_found = 3 overflow = 4 no_kurstyp_found = 5 no_kursber_found = 6 derived_2_times = 7 OTHERS = 8.
TM_AMOUNTS_DETERMINE call function 'TM_AMOUNTS_DETERMINE' "Beträge zum Stichtag exporting "H-610055 cut_off_date = p_bisdt "H-610055 local_currency = t001-waers "H-610055 importing "H-610055 amounts = lf_bakku "H-610055 amounts_lc = lf_bakku_lc "mit Umrechnung "H-610055 tables "H-610055 transactions = lt_bfha "H-610055 exceptions "H-610055 others = 1. "H-610055
FI_IMPORT_BALANCE_SHEET_POS CALL FUNCTION 'FI_IMPORT_BALANCE_SHEET_POS' EXPORTING version = pf_bilvb TABLES i011z = lt_011z * X011P = * X011S = * X011V = * X011F = EXCEPTIONS new_balance_sheet = 1 OTHERS = 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 FIMAAF09 or its description.