Generalmente entre distintas computadoras el separador decimal de un importe puede variar. Puede ser un punto o una coma, por ejemplo 100.60 o bien 100,60 .
Como no sabemos qué configuración tiene el sistema donde se va a ejecutar nuestro programa, con lo siguiente vamos a poder poner el separador decimal correcto automáticamente.
DATA: FORMATO_DEC LIKE USR01-DCPFM.
*Obtenemos el formato decimal del sistema en la variable FORMATO_DEC
SELECT SINGLE DCPFM
INTO FORMATO_DEC
FROM USR01
WHERE BNAME = SY-UNAME.
*Cambiamos el separador decimal a la variable de importe (LV_DMBTR)
CASE FORMATO_DEC.
WHEN ‘ ‘. «Coma Decimal
REPLACE ‘.’ IN LV_DMBTR WITH ‘,’.
WHEN ‘X’. «Punto Decimal
REPLACE ‘,’ IN LV_DMBTR WITH ‘.’.
ENDCASE.
Technorati tags: sdn blogger
Comentarios Recientes: