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.

PARAMETERS: monto 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