SAP Reports / Programs | Financials | Financial Supply Chain Management | Transaction Manager(FIN-FSCM-TRM-TM) SAP FIN
MF64KI01 SAP ABAP INCLUDE - documentation and ABAP source code
MF64KI01 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 MF64KI01 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 MF64KI01. "Basic submit
SUBMIT MF64KI01 AND RETURN. "Return to original report after report execution complete
SUBMIT MF64KI01 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 MF64KI01
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:
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING BUKRS = RMF64K200-BUKRS DBESTAND = RMF64K200-VALUTA JNULLB = 0 RANL = RMF64K200-RANL_V RLDEPOT = ' ' IMPORTING ANZAH = RMF64K200-ENTRSUM TABLES * I_TVWBEKI = X_TVWBEKI I_TVWBEVI = X_TVWBEVI O_REVALB = I_REVALB.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING BUKRS = RMF64K200-BUKRS DBESTAND = RMF64K200-VALUTA JNULLB = 0 RANL = RMF64K200-RANL RLDEPOT = ' ' IMPORTING ANZAH = RMF64K200-ENTRSUM TABLES * I_TVWBEKI = X_TVWBEKI I_TVWBEVI = X_TVWBEVI O_REVALB = I_REVALB.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING BUKRS = RMF64K200-BUKRS DBESTAND = RMF64K200-VALUTA JNULLB = 0 RANL = RMF64K200-RANL RLDEPOT = ' ' IMPORTING ANZAH = RMF64K200-ENTRSUM TABLES * I_TVWBEKI = X_TVWBEKI I_TVWBEVI = X_TVWBEVI O_REVALB = I_REVALB.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING BUKRS = RMF64K200-BUKRS DBESTAND = RMF64K200-VALUTA JNULLB = 0 RANL = RMF64K200-RANL RLDEPOT = ' ' IMPORTING ANZAH = RMF64K200-ENTRSUM TABLES * I_TVWBEKI = X_TVWBEKI I_TVWBEVI = X_TVWBEVI O_REVALB = I_REVALB.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING BUKRS = RMF64K200-BUKRS DBESTAND = RMF64K200-VALUTA JNULLB = 0 RANL = RMF64K200-RANL RLDEPOT = ' ' IMPORTING ANZAH = RMF64K200-ENTRSUM TABLES * I_TVWBEKI = X_TVWBEKI I_TVWBEVI = X_TVWBEVI O_REVALB = I_REVALB.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING BUKRS = RMF64K200-BUKRS DBESTAND = RMF64K200-VALUTA JNULLB = 0 RANL = RMF64K200-RANL_V RLDEPOT = ' ' IMPORTING ANZAH = RMF64K200-ENTRSUM TABLES * I_TVWBEKI = X_TVWBEKI I_TVWBEVI = X_TVWBEVI O_REVALB = I_REVALB.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING BUKRS = RMF64K200-BUKRS DBESTAND = RMF64K200-VALUTA JNULLB = 0 RANL = RMF64K200-RANL_V RLDEPOT = ' ' IMPORTING ANZAH = RMF64K200-ENTRSUM TABLES * I_TVWBEKI = X_TVWBEKI I_TVWBEVI = X_TVWBEVI O_REVALB = I_REVALB.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING BUKRS = RMF64K200-BUKRS DBESTAND = RMF64K200-VALUTA JNULLB = 0 RANL = RMF64K200-RANL RLDEPOT = ' ' IMPORTING ANZAH = RMF64K200-ENTRSUM TABLES * I_TVWBEKI = X_TVWBEKI I_TVWBEVI = X_TVWBEVI O_REVALB = I_REVALB.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING BUKRS = RMF64K200-BUKRS DBESTAND = RMF64K200-VALUTA JNULLB = 0 RANL = RMF64K200-RANL_V RLDEPOT = ' ' IMPORTING ANZAH = RMF64K200-ENTRSUM TABLES * I_TVWBEKI = X_TVWBEKI I_TVWBEVI = X_TVWBEVI O_REVALB = I_REVALB.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING BUKRS = RMF64K200-BUKRS DBESTAND = RMF64K200-VALUTA JNULLB = 0 RANL = RMF64K200-RANL RLDEPOT = ' ' IMPORTING ANZAH = RMF64K200-ENTRSUM TABLES * I_TVWBEKI = X_TVWBEKI I_TVWBEVI = X_TVWBEVI O_REVALB = I_REVALB.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = I_REVALB-BBEZUGWR I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKURSFW I_KURSBER = TZBZ-RKURSBER I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-RHAUSWHRG I_WAEHRUNG_VON = RMF64K200-RWAUF1 IMPORTING O_BETRAG = I_REVALB-BBEZUGHW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE *+CALL FUNCTION 'EXCHANGE_RATE_SERVICE' * EXPORTING * I_BETRAG = RMF64K200-BAUFP * I_GDATU = RMF64K200-VALUTA * I_HANDELSPLATZ = TZBZ-VVRHANDPL * I_KURS = RMF64K200-VVKURSHW * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS * I_SSEEK = '3' * I_WAEHRUNG_NACH = RMF64K200-RHAUSWHRG * I_WAEHRUNG_VON = RMF64K200-RWAUF1 * IMPORTING * O_BETRAG = I_REVALB-BBEZUGWR ** O_CURRDEC = I02 ** O_DATUM_GUELTIG_AB = I03 ** O_FAKTOR_NACH = I04 ** O_FAKTOR_VON = I05 ** O_KURS = RMF64K200-VVKURSHW ** O_KURSART = I07 ** O_KURSHERKUNFT = I08 ** O_KURSTYP = I09 ** O_SPREAD = I10 ** O_SSEEK = I11 * EXCEPTIONS * NO_RECORD_FOUND_TCURA = 01 * NO_RECORD_FOUND_TCURB = 02 * NO_RECORD_FOUND_TCURC = 03 * NO_RECORD_FOUND_TCURX = 04 * NO_RECORD_FOUND_TCURY = 05 * NO_RECORD_FOUND_TCURZ = 06 * OVERFLOW_BETRAG = 07 * OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = I_REVAL_OS-BZAHLWR * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVHW2 I_WAEHRUNG_VON = I_REVAL_OS-SZAHLWR IMPORTING O_BETRAG = I_REVAL_OS-BZAHLHW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = i06 * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = I_REVAL_OS-BZAHLWR * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVHW2 I_WAEHRUNG_VON = I_REVAL_OS-SZAHLWR IMPORTING O_BETRAG = I_REVAL_OS-BZAHLHW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = i06 * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
6B_INFO_READ CALL FUNCTION '6B_INFO_READ' EXPORTING I_BUKRS = T001-BUKRS IMPORTING E_6B = FLAG_6B EXCEPTIONS BUKRS_NOT_FOUND = 01.
6B_TRANSFER CALL FUNCTION '6B_TRANSFER' EXPORTING UMBU_KZ = TP-UMBU_KZ TABLES I_GES = I_REVALB I_GES_6B = I_REVALB_6B X_TVWBEVI = X_TVWBEVI.
6B_TRANSFER_CHECK CALL FUNCTION '6B_TRANSFER_CHECK' EXPORTING UMBU_KZ = TP-UMBU_KZ TABLES I_GES = I_REVALB I_GES_6B = I_REVALB_6B X_TVWBEVI = X_TVWBEVI.
TRANSFER_CONTROL CALL FUNCTION 'TRANSFER_CONTROL' EXPORTING DYN_FELDER = RMF64T200 FI_KZ = TP-FI_KZ FLAG_6B = FLAG_6B SPLIT_N = TP-SPLIT_N SPLIT_Z = TP-SPLIT_Z UMBU_KZ = TP-UMBU_KZ TABLES E_BEPP = TP-I_BEPP E_VWBEKI = TP-T_VWBEKI E_VWBEPI = TP-T_VWBEPI I_GES = I_REVALB I_GES_6B = I_REVALB_6B I_GES_OS = I_REVAL_OS I_KBEPP = SUM_VWBEPP I_VWBEVI = X_TVWBEVI.
TRANSFER_POSTING
CALL FUNCTION 'TRANSFER_POSTING' EXPORTING DYN_FELDER = RMF64T200 FI_KZ = TP-FI_KZ SPLIT_Z = TP-SPLIT_Z SPLIT_N = TP-SPLIT_N UMBU_KZ = TP-UMBU_KZ TABLES I_BEPP = TP-I_BEPP I_GES = I_REVALB K_BEPP = K_VWBEPP " ldgl. für OS-Ausübung
TRANSFER_CONTROL CALL FUNCTION 'TRANSFER_CONTROL' EXPORTING DYN_FELDER = RMF64T200 DYN_OS = DYN_OS FI_KZ = TP-FI_KZ SPLIT_N = 1 SPLIT_Z = 1 UMBU_KZ = TP-UMBU_KZ TABLES E_BEPP = TP-I_BEPP E_VWBEKI = TP-T_VWBEKI E_VWBEPI = TP-T_VWBEPI I_GES = I_REVALB I_GES_6B = I_REVALB_6B I_GES_OS = I_REVAL_OS * I_KBEPP = SUM_VZZBEPP I_KBEPP = SUM_VWBEPP I_VWBEVI = X_TVWBEVI.
CHANGEDOCUMENT_PREPARE_TABLES CALL FUNCTION 'CHANGEDOCUMENT_PREPARE_TABLES' EXPORTING CHECK_INDICATOR = SPACE TABLENAME = 'VWBEKI' * IMPORTING * RESULT = I01 TABLES TABLE_NEW = XVWBEKI TABLE_OLD = YVWBEKI EXCEPTIONS NAMETAB_ERROR = 01.
USERDATA_MAINTAIN CALL FUNCTION 'USERDATA_MAINTAIN' EXPORTING * HERKUNFT = SY-TCODE INUSER = RUSER IMPORTING EXUSER = RUSER.
CHANGEDOCUMENT_PREPARE_TABLES CALL FUNCTION 'CHANGEDOCUMENT_PREPARE_TABLES' EXPORTING CHECK_INDICATOR = SPACE TABLENAME = 'VWBEPI' * IMPORTING * RESULT = I01 TABLES TABLE_NEW = XVWBEPI TABLE_OLD = YVWBEPI EXCEPTIONS NAMETAB_ERROR = 01.
USERDATA_MAINTAIN CALL FUNCTION 'USERDATA_MAINTAIN' EXPORTING * HERKUNFT = SY-TCODE INUSER = RUSER IMPORTING EXUSER = RUSER.
TRANSACTIONS_SEC_UPDATE_I CALL FUNCTION 'TRANSACTIONS_SEC_UPDATE_I' IN UPDATE TASK TABLES DTAB_KI = YVWBEKI DTAB_PI = YVWBEPI VTAB_KI = XVWBEKI VTAB_PI = XVWBEPI.
6B_UPDATE CALL FUNCTION '6B_UPDATE' EXPORTING I_RANL = RMF64K200-RANL_V UMBU_KZ = '3'.
6B_UPDATE CALL FUNCTION '6B_UPDATE' EXPORTING I_RANL = RMF64K200-RANL UMBU_KZ = '10'.
ENQUEUE_EFWBEST CALL FUNCTION 'ENQUEUE_EFWBEST' EXPORTING BUKRS = RMF64K200-BUKRS RANL = RMF64K200-RANL * X_BUKRS = E03 * X_RANL = E04 * _WAIT = E05 * _SCOPE = E06 EXCEPTIONS FOREIGN_LOCK = 01 "515 SYSTEM_FAILURE = 02. "145
ENQUEUE_EFWBEST CALL FUNCTION 'ENQUEUE_EFWBEST' EXPORTING BUKRS = RMF64K200-BUKRS RANL = RMF64K200-RANL_V * X_BUKRS = E03 * X_RANL = E04 * _WAIT = E05 * _SCOPE = E06 EXCEPTIONS FOREIGN_LOCK = 01 "515 SYSTEM_FAILURE = 02. "145
ENQUEUE_EFWBEST CALL FUNCTION 'ENQUEUE_EFWBEST' EXPORTING BUKRS = RMF64K200-BUKRS RANL = RMF64K200-RANL_N * X_BUKRS = E03 * X_RANL = E04 * _WAIT = E05 * _SCOPE = E06 EXCEPTIONS FOREIGN_LOCK = 01 "515 SYSTEM_FAILURE = 02. "145
DEQUEUE_EFWBEST CALL FUNCTION 'DEQUEUE_EFWBEST' EXPORTING BUKRS = RMF64K200-BUKRS RANL = RMF64K200-RANL.
DEQUEUE_EFWBEST CALL FUNCTION 'DEQUEUE_EFWBEST' EXPORTING BUKRS = RMF64K200-BUKRS RANL = RMF64K200-RANL_N.
DEQUEUE_EFWBEST CALL FUNCTION 'DEQUEUE_EFWBEST' EXPORTING BUKRS = RMF64K200-BUKRS RANL = RMF64K200-RANL_V.
POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING DEFAULTOPTION = 'J' TEXTLINE1 = TEXT-P61 TEXTLINE2 = TEXT-P62 TITEL = TEXT_OBJEKT_BEENDEN IMPORTING ANSWER = CONFIRM.
POPUP_TO_CONFIRM_LOSS_OF_DATA CALL FUNCTION 'POPUP_TO_CONFIRM_LOSS_OF_DATA' EXPORTING TEXTLINE1 = TEXT-003 TITEL = TEXT-004 IMPORTING ANSWER = CONFIRM.
PARTNER_SELECT CALL FUNCTION 'PARTNER_SELECT' EXPORTING FUNCTION = 'P' * FUNCTION = 'S' ist ausgesternt PARTWA_IN = SPRT1 ROLLE = TZRE-SROLEXT IMPORTING ANSCHWA_OUT = SANS1 PABEZWA_OUT = SPAB1 PARTWA_OUT = SPRT1 * RETURNCODE = RET_CODE ist ausgesternt EXCEPTIONS ILLEGAL_FUNCTION = 01 ILLEGAL_ROLL = 02 NO_PARTNER_SELECTED = 03 PARTNER_NOT_FOUND = 04 PARTNER_ROLL_NOT_FOUND = 05.
STOCK_RATE_SELECT CALL FUNCTION 'STOCK_RATE_SELECT' EXPORTING ANLAGEFORM = VWPANLE-SANLF ANLAGE_NUMMER = VWPANLE-RANL HANDELSPLATZ = TZBZ-VVRHANDPL KURSART = STOCK_RATE_SELECT_KURSART KURSDATUM_GES = RMF64K200-VALUTA IMPORTING * KURSART_GEF = I01 KURSDATUM_GEF = RMF64K200-KURS_CUM_D KURS_ABSOLUT = RMF64K200-KURS_CUM_B KURS_PROZENT = RMF64K200-KURS_CUM_P EXCEPTIONS NO_RECORD_FOUND = 01.
STOCK_RATE_SELECT CALL FUNCTION 'STOCK_RATE_SELECT' EXPORTING ANLAGEFORM = VWPTERM-SANLF ANLAGE_NUMMER = RMF64K200-RANL_V HANDELSPLATZ = TZBZ-VVRHANDPL KURSART = STOCK_RATE_SELECT_KURSART KURSDATUM_GES = RMF64K200-VALUTA IMPORTING * KURSART_GEF = I01 KURSDATUM_GEF = RMF64K200-KURS_OS_D KURS_ABSOLUT = RMF64K200-KURS_OS_B * KURS_PROZENT = RMF64K200-KURS_CUM_P EXCEPTIONS NO_RECORD_FOUND = 01.
STOCK_RATE_SELECT CALL FUNCTION 'STOCK_RATE_SELECT' EXPORTING ANLAGEFORM = VWPANLE-SANLF ANLAGE_NUMMER = VWPANLE-RANL HANDELSPLATZ = TZBZ-VVRHANDPL KURSART = STOCK_RATE_SELECT_KURSART KURSDATUM_GES = RMF64K200-VALUTA IMPORTING * KURSART_GEF = I01 KURSDATUM_GEF = RMF64K200-KURS_EX_D KURS_ABSOLUT = RMF64K200-KURS_EX_B KURS_PROZENT = RMF64K200-KURS_EX_P EXCEPTIONS NO_RECORD_FOUND = 01.
STOCK_RATE_SELECT CALL FUNCTION 'STOCK_RATE_SELECT' EXPORTING ANLAGEFORM = VWPANLA-SANLF ANLAGE_NUMMER = RMF64K200-RANL HANDELSPLATZ = TZBZ-VVRHANDPL KURSART = STOCK_RATE_SELECT_KURSART KURSDATUM_GES = RMF64K200-VALUTA IMPORTING * KURSART_GEF = I01 KURSDATUM_GEF = RMF64K200-KURS_OS_D KURS_ABSOLUT = RMF64K200-KURS_OS_B KURS_PROZENT = RMF64K200-KURS_OS_B EXCEPTIONS NO_RECORD_FOUND = 01.
STOCK_RATE_SELECT CALL FUNCTION 'STOCK_RATE_SELECT' EXPORTING ANLAGEFORM = OSA-SANLF ANLAGE_NUMMER = RMF64K200-RANL_N HANDELSPLATZ = TZBZ-VVRHANDPL KURSART = STOCK_RATE_SELECT_KURSART KURSDATUM_GES = RMF64K200-VALUTA IMPORTING * KURSART_GEF = I01 KURSDATUM_GEF = RMF64K200-KURS_OSA_D KURS_ABSOLUT = RMF64K200-KURS_OSA_B KURS_PROZENT = RMF64K200-KURS_OSA_P EXCEPTIONS NO_RECORD_FOUND = 01.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBEZP_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKREF_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVWHRREF2 I_WAEHRUNG_VON = RMF64K200-VVWHRREF1 IMPORTING O_BETRAG = RMF64K200-VVBARAG_OS * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = i06 * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVHW2 I_WAEHRUNG_VON = RMF64K200-VVWBPWH_OS IMPORTING O_BETRAG = RMF64K200-VVBARAG_EW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = i06 * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_EW * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKEMWH_OR * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVWEMWH_OR I_WAEHRUNG_VON = RMF64K200-VVHW3 IMPORTING O_BETRAG = RMF64K200-VVBARAG_EW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = i06 * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_VON = RMF64K200-VVWBPWH_OS I_WAEHRUNG_NACH = RMF64K200-VVHW2 IMPORTING * O_BETRAG = BA1-KURS_OSA_B O_BETRAG = RMF64K200-VVBARAG_EW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKEMWH_OR * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVWEMWH_OR I_WAEHRUNG_VON = RMF64K200-VVHW3 IMPORTING * O_BETRAG = BA1-KURS_OSA_B O_BETRAG = RMF64K200-VVBARAG_EW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_VON = RMF64K200-VVWBPWH_OS I_WAEHRUNG_NACH = RMF64K200-VVHW1 IMPORTING * O_BETRAG = BA1-KURS_OSA_B * O_BETRAG = RMF64K200-VVBARAG_OS O_BETRAG = X_ERGEBNIS * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING * I_BETRAG = RMF64K200-VVBARAG_OS I_BETRAG = X_ERGEBNIS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKEMWH_OR * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVWEMWH_OR I_WAEHRUNG_VON = RMF64K200-VVHW3 IMPORTING * O_BETRAG = BA1-KURS_OSA_B O_BETRAG = RMF64K200-VVBARAG_EW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_VON = RMF64K200-VVWBPWH_OS I_WAEHRUNG_NACH = RMF64K200-VVHW2 IMPORTING * O_BETRAG = BA1-KURS_OSA_B O_BETRAG = RMF64K200-VVBARAG_EW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKEMWH_OR * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVWEMWH_OR I_WAEHRUNG_VON = RMF64K200-VVHW3 IMPORTING * O_BETRAG = BA1-KURS_OSA_B O_BETRAG = RMF64K200-VVBARAG_EW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_VON = RMF64K200-VVWBPWH_OS I_WAEHRUNG_NACH = RMF64K200-VVHW2 IMPORTING * O_BETRAG = BA1-KURS_OSA_B * O_BETRAG = RMF64K200-VVBARAG_OS O_BETRAG = X_ERGEBNIS * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING * I_BETRAG = RMF64K200-VVBARAG_OS I_BETRAG = X_ERGEBNIS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKEMWH_OR * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVWEMWH_OR I_WAEHRUNG_VON = RMF64K200-VVHW3 IMPORTING * O_BETRAG = BA1-KURS_OSA_B O_BETRAG = RMF64K200-VVBARAG_EW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_VON = RMF64K200-VVWBPWH_OS I_WAEHRUNG_NACH = RMF64K200-VVHW2 IMPORTING * O_BETRAG = BA1-KURS_OSA_B O_BETRAG = RMF64K200-VVBARAG_EW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKEMWH_OR * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVWEMWH_OR I_WAEHRUNG_VON = RMF64K200-VVHW3 IMPORTING * O_BETRAG = BA1-KURS_OSA_B O_BETRAG = RMF64K200-VVBARAG_EW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_VON = RMF64K200-VVWBPWH_OS I_WAEHRUNG_NACH = RMF64K200-VVHW2 IMPORTING * O_BETRAG = BA1-KURS_OSA_B * O_BETRAG = RMF64K200-VVBARAG_OS O_BETRAG = X_ERGEBNIS * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING * I_BETRAG = RMF64K200-VVBARAG_OS I_BETRAG = X_ERGEBNIS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKEMWH_OR * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVWEMWH_OR I_WAEHRUNG_VON = RMF64K200-VVHW3 IMPORTING * O_BETRAG = BA1-KURS_OSA_B O_BETRAG = RMF64K200-VVBARAG_EW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 *Y O_KURS = RMF64K200-VVKURSHW * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = MAIN_VZZBEPP-BCWHR I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = RMF64K200-VVWBPWH_OS IMPORTING O_BETRAG = MAIN_VZZBEPP-BHWHR * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = i06 * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
TRANSACTIONS_MAINTAIN CALL FUNCTION 'TRANSACTIONS_MAINTAIN' EXPORTING DISPLAY = ' ' "änderung GSART = RMF64K200-GSART_N "Produktart I_DYNNR = '1661' I_REPID = 'SAPMF64K' LOCAL_CURRENCY = T001-WAERS MAIN_TRANSACTION = MAIN_VZZBEPP "basis-gv X_STUECKZINS = X_STUECKZINS "bei OSZ <> ' ' * MASTER_DATA = E07 SCREEN_TYPE = '2' "anz. zeilen
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = MAIN_VZZBEPP-BCWHR * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = RMF64K200-VVWBPWH_OS IMPORTING O_BETRAG = MAIN_VZZBEPP-BHWHR * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = i06 * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = MAIN_VZZBEPP-BCWHR I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKURSHW * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = RMF64K200-REWHR_V IMPORTING O_BETRAG = MAIN_VZZBEPP-BHWHR * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 O_KURS = MAIN_VZZBEPP-KCROSS * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
TRANSACTIONS_MAINTAIN CALL FUNCTION 'TRANSACTIONS_MAINTAIN' EXPORTING DISPLAY = ' ' "änderung GSART = RMF64K200-GSART_N "Produktart I_DYNNR = '1381' I_REPID = 'SAPMF64K' LOCAL_CURRENCY = T001-WAERS MAIN_TRANSACTION = MAIN_VZZBEPP "basis-gv X_STUECKZINS = X_STUECKZINS "bei OSZ <> ' ' * MASTER_DATA = E07 SCREEN_TYPE = '2' "anz. zeilen
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = MAIN_VZZBEPP-BCWHR I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKURSHW * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = RMF64K200-REWHR_V IMPORTING O_BETRAG = MAIN_VZZBEPP-BHWHR * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = MAIN_VZZBEPP-KCROSS * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = X_MAIN_VZZBEPP-BCWHR I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKURSFW * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = RMF64K200-REWHR_N IMPORTING O_BETRAG = X_MAIN_VZZBEPP-BHWHR * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = MAIN_VZZBEPP-KCROSS * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
TRANSACTIONS_MAINTAIN CALL FUNCTION 'TRANSACTIONS_MAINTAIN' EXPORTING DISPLAY = ' ' "änderung GSART = RMF64K200-GSART_N "Produktart I_DYNNR = '1382' I_REPID = 'SAPMF64K' LOCAL_CURRENCY = T001-WAERS MAIN_TRANSACTION = MAIN_VZZBEPP "basis-gv *Y X_STUECKZINS = X_STUECKZINS "bei OSZ <> ' ' * MASTER_DATA = E07 SCREEN_TYPE = '2' "anz. zeilen
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = MAIN_VZZBEPP-BCWHR I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL * I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = RMF64K200-REWHR_V IMPORTING O_BETRAG = MAIN_VZZBEPP-BHWHR * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 O_KURS = MAIN_VZZBEPP-KURS1 * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
TRANSACTIONS_MAINTAIN CALL FUNCTION 'TRANSACTIONS_MAINTAIN' EXPORTING DISPLAY = ' ' "änderung GSART = RMF64K200-GSART_N "Produktart I_DYNNR = '1481' I_REPID = 'SAPMF64K' LOCAL_CURRENCY = T001-WAERS MAIN_TRANSACTION = MAIN_VZZBEPP "basis-gv X_STUECKZINS = X_STUECKZINS "bei OSZ <> ' ' * MASTER_DATA = E07 SCREEN_TYPE = '2' "anz. zeilen
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = MAIN_VZZBEPP-BHWHR I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = RMF64K200-REWHR_V IMPORTING O_BETRAG = MAIN_VZZBEPP-BHWHR * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 O_KURS = MAIN_VZZBEPP-KCROSS * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
TRANSACTIONS_MAINTAIN CALL FUNCTION 'TRANSACTIONS_MAINTAIN' EXPORTING DISPLAY = ' ' "änderung GSART = RMF64K200-GSART_N "Produktart I_DYNNR = '1481' I_REPID = 'SAPMF64K' LOCAL_CURRENCY = T001-WAERS MAIN_TRANSACTION = MAIN_VZZBEPP "basis-gv X_STUECKZINS = X_STUECKZINS "bei OSZ <> ' ' * MASTER_DATA = E07 SCREEN_TYPE = '2' "anz. zeilen
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = MAIN_VZZBEPP-BHWHR I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = RMF64K200-REWHR_V IMPORTING O_BETRAG = MAIN_VZZBEPP-BHWHR * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 O_KURS = MAIN_VZZBEPP-KCROSS * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
TRANSACTIONS_MAINTAIN CALL FUNCTION 'TRANSACTIONS_MAINTAIN' EXPORTING DISPLAY = ' ' "änderung GSART = RMF64K200-GSART_N "Produktart I_DYNNR = '1482' I_REPID = 'SAPMF64K' LOCAL_CURRENCY = T001-WAERS MAIN_TRANSACTION = MAIN_VZZBEPP "basis-gv X_STUECKZINS = X_STUECKZINS "bei OSZ <> ' ' * MASTER_DATA = E07 SCREEN_TYPE = '2' "anz. zeilen
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = MAIN_VZZBEPP-BHWHR I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = RMF64K200-REWHR_V IMPORTING O_BETRAG = MAIN_VZZBEPP-BHWHR * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 O_KURS = MAIN_VZZBEPP-KCROSS * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
TRANSACTIONS_MAINTAIN CALL FUNCTION 'TRANSACTIONS_MAINTAIN' EXPORTING DISPLAY = ' ' "änderung GSART = RMF64K200-GSART_N "Produktart I_DYNNR = '1483' I_REPID = 'SAPMF64K' LOCAL_CURRENCY = T001-WAERS MAIN_TRANSACTION = MAIN_VZZBEPP "basis-gv X_STUECKZINS = X_STUECKZINS "bei OSZ <> ' ' * MASTER_DATA = E07 SCREEN_TYPE = '2' "anz. zeilen
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = 1000 I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL * I_KURS = RMF64K200-VVKREF_OS I_KURSBER = TZBZ-RKURSBER I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_VON = RMF64K200-VVWBPWH_OS I_WAEHRUNG_NACH = RMF64K200-VVHW2 IMPORTING * O_BETRAG = RMF64K200-VVBARAG_OS * O_CURRDEC = I02 O_DATUM_GUELTIG_AB = RMF64K200-VVDBPWH_OS * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 O_KURS = RMF64K200-VVKBPWH_OS * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = 1000 I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL * I_KURS = RMF64K200-VVKREF_OS I_KURSBER = TZBZ-RKURSBER I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_VON = RMF64K200-VVWEMWH_OS I_WAEHRUNG_NACH = RMF64K200-VVHW1 IMPORTING * O_BETRAG = RMF64K200-VVBARAG_OS * O_CURRDEC = I02 O_DATUM_GUELTIG_AB = RMF64K200-VVDEMWH_OS * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 O_KURS = RMF64K200-VVKEMWH_OS * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = 1000 I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL * I_KURS = RMF64K200-VVKREF_OS I_KURSBER = TZBZ-RKURSBER I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVWEMWH_OR I_WAEHRUNG_VON = RMF64K200-VVHW3 IMPORTING * O_BETRAG = RMF64K200-VVBARAG_OS * O_CURRDEC = I02 O_DATUM_GUELTIG_AB = RMF64K200-VVDEMWH_OR * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 O_KURS = RMF64K200-VVKEMWH_OR * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = 1000 I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL * I_KURS = RMF64K200-VVKREF_OS I_KURSBER = TZBZ-RKURSBER I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVBASPW_O1 I_WAEHRUNG_VON = RMF64K200-VVHW3 IMPORTING * O_BETRAG = RMF64K200-VVBARAG_OS * O_CURRDEC = I02 O_DATUM_GUELTIG_AB = RMF64K200-VVDBAWH_OS * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 O_KURS = RMF64K200-VVKBAWH_OS * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = 1000 I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL * I_KURS = RMF64K200-VVKREF_OS I_KURSBER = TZBZ-RKURSBER I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = RMF64K200-VVWHRREF2 I_WAEHRUNG_VON = RMF64K200-VVWHRREF1 IMPORTING * O_BETRAG = RMF64K200-VVBARAG_OS * O_CURRDEC = I02 O_DATUM_GUELTIG_AB = RMF64K200-VVKREF_OSD * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 O_KURS = RMF64K200-VVKREF_OS * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = RMF64K200-VVBARAG_OS * I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = RMF64K200-VVWBPWH_OS IMPORTING O_BETRAG = RMF64K200-VVBARAG_HW * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = i06 * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
TRANSACTIONS_SEC_LOAD_I_VIEW CALL FUNCTION 'TRANSACTIONS_SEC_LOAD_I_VIEW' EXPORTING BUKRS = RMF64K200-BUKRS RANL = READ_IST-RANL RLDEPO = READ_IST-RLDEPO *?? TYPE_OF_SELECTION = E04 TABLES TVWBEVI = CHECK_TABLE1 EXCEPTIONS TABLE_TVWBEVI_NOT_EMPTY = 01 VWBEVI_NO_RECORD_FOUND = 02.
STOCK_CHECK_A CALL FUNCTION 'STOCK_CHECK_A' EXPORTING BESTAND_AKTUELL_S = CHECK_A-BESTAND_AKTUELL_S BESTAND_AKTUELL_P = CHECK_A-BESTAND_AKTUELL_P DATUM_AKTUELL = RMF64K200-VALUTA REWHR = VWPANLA-REWHR SNOTI = VWPANLA-SNOTI X_MESSAGE = ' ' IMPORTING BESTAND_NEGATIV_P = CHECK_A-BESTAND_NEGATIV_P BESTAND_NEGATIV_S = CHECK_A-BESTAND_NEGATIV_S DATUM_NEGATIV = CHECK_A-DATUM_NEGATIV RETURNCODE = CHECK_A_RC.
STOCK_CHECK_TABLE1 CALL FUNCTION 'STOCK_CHECK_TABLE1' EXPORTING INIT_TABLE = 'X' TABLES TBEVI = CHECK_TABLE1.
ACCUMULATION_DEPOT CALL FUNCTION 'ACCUMULATION_DEPOT' EXPORTING BUKRS = RMF64K200-BUKRS DBESTAND = RMF64K200-VALUTA JNULLB = 1 RANL = ACCUM_REFERENZ-RANL RLDEPOT = ACCUM_REFERENZ-RLDEPOT IMPORTING ANZAH = ACCUM_REFERENZ-ANZAHL TABLES * I_TVWBEKI = X_TVWBEKI I_TVWBEVI = XOS_TVWBEVI O_REVALB = IOS_REVALB.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = ACT_VZZBEPP-BBWHR I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = ACT_VZZBEPP-SBWHR IMPORTING O_BETRAG = ACT_VZZBEPP-BHWHR * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = i06 * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
EXCHANGE_RATE_SERVICE CALL FUNCTION 'EXCHANGE_RATE_SERVICE' EXPORTING I_BETRAG = SUM_VWBEPP-BBWHR I_GDATU = RMF64K200-VALUTA I_HANDELSPLATZ = TZBZ-VVRHANDPL I_KURS = RMF64K200-VVKBPWH_OS * I_KURSBER = TZBZ-RKURSBER * I_MWAER = T001-WAERS I_SSEEK = '3' I_WAEHRUNG_NACH = T001-WAERS I_WAEHRUNG_VON = SUM_VWBEPP-SBWHR IMPORTING O_BETRAG = SUM_VWBEPP-BHWHR * O_CURRDEC = I02 * O_DATUM_GUELTIG_AB = I03 * O_FAKTOR_NACH = I04 * O_FAKTOR_VON = I05 * O_KURS = i06 * O_KURSART = I07 * O_KURSHERKUNFT = I08 * O_KURSTYP = I09 * O_SPREAD = I10 * O_SSEEK = I11 EXCEPTIONS NO_RECORD_FOUND_TCURA = 01 NO_RECORD_FOUND_TCURB = 02 NO_RECORD_FOUND_TCURC = 03 NO_RECORD_FOUND_TCURX = 04 NO_RECORD_FOUND_TCURY = 05 NO_RECORD_FOUND_TCURZ = 06 OVERFLOW_BETRAG = 07 OVERFLOW_KURS = 08.
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 MF64KI01 or its description.