Foro de programación ABAP

Programación => Programación ABAP => Mensaje iniciado por: abapito en 17 Nov 2009, 11:57

Título: Puntos y comas decimales
Publicado por: abapito en 17 Nov 2009, 11:57
Hola tengo que cambiar de forma dinámica los puntos y comas de los decimales en los importes.

¿Como se hace?

Gracias
Título: Re: Puntos y comas decimales
Publicado por: molaci en 17 Nov 2009, 16:18
:: Te paso un ejemplo.


    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,