domingo, 25 de enero de 2015

Convertir números a letras ABAP



REPORT  Z_NUM_LETRA.

DATA:  monto_en_letras TYPE spell,
       texto type string.

PARAMETERSmonto TYPE netwr.

 "Funcion ABAP para convertir numeros a letras:
 CALL FUNCTION 'SPELL_AMOUNT'
   EXPORTING
     amount   monto "Importe (valor) a convertir
     currency 'X'
     filler   ' '
     language sy-langu
   IMPORTING
     in_words monto_en_letras"Cantidad o importe en letras

 "Ejemplo de como leer el importe en letras
 concatenate monto_en_letras-word 'con'
             monto_en_letras-decimal(2)" 'decimales'
             into texto separated by space.

 WRITE texto.







No hay comentarios:

Publicar un comentario