Puntos y comas decimales

[abapito]

Hola tengo que cambiar de forma dinámica los puntos y comas de los decimales en los importes.

¿Como se hace?

Gracias

[molaci]

:: Te paso un ejemplo.

Código [Seleccionar] Expandir


    DATA: lf_formato_dec LIKE usr01-dcpfm.

*   Obtenemos el formato decimal del sistema
    SELECT SINGLE dcpfm INTO lf_formato_dec
             FROM usr01
            WHERE bname = sy-uname.

*   Cambiamos el separador decimal a la variable de importe
    CASE lf_formato_dec.
      WHEN ' '.                                  " Coma Decimal
        REPLACE '.' IN it_bbseg-wrbtr WITH ','.
      WHEN 'X'.                                  " Punto Decimal
        REPLACE ',' IN it_bbseg-wrbtr WITH '.'.
    ENDCASE.


Un saludo,