Столкнулся с необходимостью создать подпрограмму преобразования для полей с количеством.
Данный код является примером.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
FUNCTION conversion_exit_zqty_input. *"---------------------------------------------------------------------- *"*"Локальный интерфейс: *" IMPORTING *" REFERENCE(INPUT) TYPE ANY *" EXPORTING *" REFERENCE(OUTPUT) TYPE ANY *"---------------------------------------------------------------------- DATA: lv_decimal TYPE p DECIMALS 2. lv_decimal = input. WRITE : lv_decimal TO output. CONDENSE output. ENDFUNCTION. |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
FUNCTION conversion_exit_zqty_output. *"---------------------------------------------------------------------- *"*"Локальный интерфейс: *" IMPORTING *" REFERENCE(INPUT) TYPE ANY *" EXPORTING *" REFERENCE(OUTPUT) TYPE ANY *"---------------------------------------------------------------------- WRITE: input TO output. REPLACE ALL OCCURRENCES OF ',' IN output WITH '.'. CONDENSE output NO-GAPS. ENDFUNCTION. |
