Kurs aus TCURR über "Gültig ab" Datum ermitteln
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
5 Beiträge
•
Seite 1 von 1
5 Beiträge
Seite 1 von 1
Hallo zusammen,
rechne in einem einfachen ABAP-Report Beträge in eine andere Währung um.
Per PARAMETERS-Anweisung lasse ich Kurstyp, von-Währung, nach-Währung und Belegdatum eingeben.
Per SELECT-Anweisung frage ich den gemäß Parametereingaben gültigen Kurs aus der TCURR ab.
Nun fehlt mir noch die entsprechende Anweisung für den Fall, dass das eingebene Buchungsdatum nicht exakt dem "Gültig ab"-Datum aus der TCURR entspricht.
Beispiel:
1. Eingabe mit Buchungsdatum: 20.03.2013
2. Eingabe mit Buchungsdatum: 21.03.2013
Über SELECT-Anweisung wird ein gültiger Kurs in TCURR gefunden:
Kurstyp: EURX, Von-Währung: USD, Nach-Währung: EUR, Gültig ab: 20.03.2013
Somit wird aktuell lediglich für das 1. Beispiel (Buchungsdatum: 20.03.2013) ein Kurs gefunden.
Für das zweite Beispiel (Buchungsdatum: 21.03.2013) existiert in der TCURR kein Kurs zum Stichtag. Logischerweise soll der nächstgültige Kurs (Gültig ab: 20.03.2013) gezogen werden.
Danke im voraus!
Gruß Michael
rechne in einem einfachen ABAP-Report Beträge in eine andere Währung um.
Per PARAMETERS-Anweisung lasse ich Kurstyp, von-Währung, nach-Währung und Belegdatum eingeben.
Per SELECT-Anweisung frage ich den gemäß Parametereingaben gültigen Kurs aus der TCURR ab.
Nun fehlt mir noch die entsprechende Anweisung für den Fall, dass das eingebene Buchungsdatum nicht exakt dem "Gültig ab"-Datum aus der TCURR entspricht.
Beispiel:
1. Eingabe mit Buchungsdatum: 20.03.2013
2. Eingabe mit Buchungsdatum: 21.03.2013
Über SELECT-Anweisung wird ein gültiger Kurs in TCURR gefunden:
Kurstyp: EURX, Von-Währung: USD, Nach-Währung: EUR, Gültig ab: 20.03.2013
Somit wird aktuell lediglich für das 1. Beispiel (Buchungsdatum: 20.03.2013) ein Kurs gefunden.
Für das zweite Beispiel (Buchungsdatum: 21.03.2013) existiert in der TCURR kein Kurs zum Stichtag. Logischerweise soll der nächstgültige Kurs (Gültig ab: 20.03.2013) gezogen werden.
Danke im voraus!
Gruß Michael
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Moin Michael,
die einzige sichere Standard Methode, (die SAP empfiehlt) zum Umrechnen,
führt über die Funktionsbausteine CONVERT_TO_LOCAL_CURRENCY und CONVERT_TO_FOREIGN_CURRENCY.
gruß Jens
die einzige sichere Standard Methode, (die SAP empfiehlt) zum Umrechnen,
führt über die Funktionsbausteine CONVERT_TO_LOCAL_CURRENCY und CONVERT_TO_FOREIGN_CURRENCY.
gruß Jens
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.
servus Michael,
also den richtigen gültigen Kurs zum Stichtag kannst du mit dem FUBA: READ_EXCHANGE_RATE aus der TCURR lesen.
gruss
ratsnus
also den richtigen gültigen Kurs zum Stichtag kannst du mit dem FUBA: READ_EXCHANGE_RATE aus der TCURR lesen.
gruss
ratsnus
<:: XING-Gruppe Tricktresor::>
Moin Jens, servus ratsnus,
danke für Eure beiden Antworten und die Standard Fubas.
Was mir für mein Übungs-Test-Progrämmchen gefehlt hat war das aufsteigende sortieren der itab nach gdatu, die prüfung "gdatu GE pa_bdatu" und das EXIT innerhalb der Schleife.
Bekomme nun bei nicht exakter Übereinstimmung des "eingegebenen Datum" und des "Gültig ab Datums" den nächstmöglichen gültigen Kurs aus der TCURR.
PS: Habe den Fuba CONVERT_TO_LOCAL_CURRENCY mal mit FOREIGN_CURRENCY = 'HUF' und LOCAL_CURRENCY = 'EUR' getestet bzw. in einer zweiten Version meines Test-Programms aufgerufen. Als LOCAL_AMOUNT wird ein um den Faktor 100 zu großer Betrag geliefert. Liegt ja daran weil für den Währungsschlüssel HUF keine (0) Dezimalstellen gelten (Tabelle TCURX).
Bsp.: 500 HUF / 298.55000 = 167 EUR => Korrekt wäre 1,67 EUR
Wie lassen sich solche Sonderfälle am sinnvollsten abfangen? Einfach den Export-Parameter "LOCAL_AMOUNT" um den Faktor 100 korrigieren wenn FOREIGN_CURRENCY = 'HUF' ?
Danke und Grüße
Michae
danke für Eure beiden Antworten und die Standard Fubas.
Was mir für mein Übungs-Test-Progrämmchen gefehlt hat war das aufsteigende sortieren der itab nach gdatu, die prüfung "gdatu GE pa_bdatu" und das EXIT innerhalb der Schleife.
Bekomme nun bei nicht exakter Übereinstimmung des "eingegebenen Datum" und des "Gültig ab Datums" den nächstmöglichen gültigen Kurs aus der TCURR.
Code: Alles auswählen.
IF pa_fcurr NE pa_tcurr.
SELECT * FROM tcurr INTO TABLE itab_tcurr
WHERE kurst = pa_kurst
AND fcurr = pa_fcurr
AND tcurr = pa_tcurr
AND gdatu GE pa_bdatu " vorher wurde zwangsweise hart mit EQ geprüft
ORDER BY gdatu ASCENDING. " hat gefehlt
...
IF sy-subrc IS NOT INITIAL.
WRITE: 'Kein gültiger Kurs gepflegt!'.
ELSE.
...
LOOP AT itab_tcurr INTO wa_tcurr.
lf_ukurs = wa_tcurr-ukurs * -1.
lf_stat_amount = pa_valhw / lf_ukurs.
WRITE: / 'Kurs gültig ab:', wa_tcurr-gdatu.
WRITE: / 'Kurs:', wa_tcurr-ukurs.
ULINE.
WRITE: / 'Beleg- bzw. Buchungsdatum:', pa_bdatu.
WRITE: / 'Wert in Hauswährung: ', pa_valhw, wa_tcurr-fcurr.
WRITE: / 'Wert in Statistikwährung:', lf_stat_amount, pa_tcurr.
EXIT. " hat gefehlt
ENDLOOP.
Bsp.: 500 HUF / 298.55000 = 167 EUR => Korrekt wäre 1,67 EUR
Wie lassen sich solche Sonderfälle am sinnvollsten abfangen? Einfach den Export-Parameter "LOCAL_AMOUNT" um den Faktor 100 korrigieren wenn FOREIGN_CURRENCY = 'HUF' ?
Code: Alles auswählen.
IF pa_fcurr EQ 'HUF'.
lf_stat_amount = lf_stat_amount / 100.
ENDIF.
Michae
moin michael,
hast du dir den READ_EXCHANGE_RATE genau angesehen ? der macht doch alles für dich, was brauchst du da noch einen eigenen select auf die TCURR ?
der bringt dir sicher auch den richtigen Kurs für HUF <-> EUR da musst du nicht selber irgendwelche Sonderfälle berücksichtigen.
das einzige was du prüfen musst, sind natürlich die Ausnahmemeldungen die der FUBA dir zurückgibt falls irgendwas nicht passt.
Teste den FUBA in der SE37 mal. mach dir dein Progrämmchen doch nicht so umständlich wenn es einfacher geht
gruss
ratsnus
hast du dir den READ_EXCHANGE_RATE genau angesehen ? der macht doch alles für dich, was brauchst du da noch einen eigenen select auf die TCURR ?
der bringt dir sicher auch den richtigen Kurs für HUF <-> EUR da musst du nicht selber irgendwelche Sonderfälle berücksichtigen.
das einzige was du prüfen musst, sind natürlich die Ausnahmemeldungen die der FUBA dir zurückgibt falls irgendwas nicht passt.
Teste den FUBA in der SE37 mal. mach dir dein Progrämmchen doch nicht so umständlich wenn es einfacher geht
gruss
ratsnus
<:: XING-Gruppe Tricktresor::>
Seite 1 von 1
Vergleichbare Themen
1
Antw.
Antw.
3496
Views
Views
3
Antw.
Antw.
2321
Views
Views
Datum + Uhrzeit zu Datei auf Client oder Server ermitteln
von ralf.wenzel » 12.11.2013 12:32 • Verfasst in ABAP® Core
von ralf.wenzel » 12.11.2013 12:32 • Verfasst in ABAP® Core
3
Antw.
Antw.
3102
Views
Views
2
Antw.
Antw.
5383
Views
Views
1
Antw.
Antw.
2340
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.