Runden von Currency Feld

Code: Alles auswählen.

DATA: lv_rat12 TYPE CURRENCY,
                   lv_rat24 TYPE CURRENCY,
                   lv_rat36 TYPE CURRENCY,
                   lv_ausgabe TYPE CHAR80,
                   lc_blank value space.

*CH: 8100048300 - Bei Ratenzahlungs Bedingungen muss zterm_text angepasst werden
          IF zjhs_fk-zterm = 'ZR12'.
            refresh: zterm_text.
            lv_rat12 = zjhs_fk-brtwk * '0.08333'. "12 Raten
            REPLACE ALL OCCURRENCES OF '.' IN lv_rat12 with ','.
            CONCATENATE 'Zahlbar innerh. 12 Raten zu je' lc_blank lv_rat12 lc_blank 'Euro' INTO lv_ausgabe RESPECTING BLANKS.
            MOVE lv_ausgabe TO zterm_text-line.
          ELSEIF zjhs_fk-zterm = 'ZR24'.
            refresh: zterm_text.
            lv_rat24 = zjhs_fk-brtwk * '0.04167'. "24 Raten
            REPLACE ALL OCCURRENCES OF '.' IN lv_rat24 with ','.
            CONCATENATE 'Zahlbar innerh. 24 Raten zu je' lc_blank lv_rat24 lc_blank 'Euro' INTO lv_ausgabe RESPECTING BLANKS.
            MOVE lv_ausgabe TO zterm_text-line.
          ELSEIF zjhs_fk-zterm = 'ZR36'.
            refresh: zterm_text.
            lv_rat36 = zjhs_fk-brtwk * '0.02778'. "36 Raten
            REPLACE ALL OCCURRENCES OF '.' IN lv_rat36 with ','.
            CONCATENATE 'Zahlbar innerh. 36 Raten zu je' lc_blank lv_rat36 lc_blank 'Euro' INTO lv_ausgabe RESPECTING BLANKS.
            MOVE lv_ausgabe TO zterm_text-line.
          ENDIF.