дата
ДАННЫЕ: lv_date типа DATS.
ВЫЗОВ Функции ' DATE_CHECK_PLAUSIBILITY ' ЭКСПОРТ DATE = lv_date Исключения plausibility_check_failed = 1. Иной = 2 . IF SY-SUBRC NE 0. " , если она возвращает ненулевое значение, то дата не действует = gv_error ' Х ' gs_data-msgtp =. ' E ' . Светло-gs_data = icon_red_light. gs_data-MSG = ' ошибка формата даты ' . Error_flag = ' Х ' . ENDIF . ВЫЗОВФУНКЦИЯ ' CONVERT_DATE_TO_EXTERNAL ' ЭКСПОРТИРОВАНИЕ date_internal = lv_date ИМПОРТИРОВАНИЕ date_external = gs_data- datbi EXCEPTIONS date_internal_is_invalid = 1 ДРУГИЕ = 2.
деньги
http://blog.sina.com.cn/s/blog_5d3b01030100tv1b.html
https://blog.csdn.net/zhongguomao/article/details/80298971
DATA l_internal_amount ТИП bseg- dmbtr. DATA ОГО LIKE t001- waers. ЖХ = ' CNY ' . ОЧИСТИТЬ : l_internal_amount. l_internal_amount = gs_excel- kbetr. ВЫЗОВ FUNCTION ' BAPI_CURRENCY_CONV_TO_EXTERNAL ' ЭКСПОРТ валюта = ЖХ amount_internal = l_internal_amount ИМПОРТ amount_external = l_internal_amount. gs_data-kbetr = l_internal_amount.
Величина отрицательных проблем знака
CONVERSION_EXIT_Z001_INPUT уменьшая количество отрицательной функции знака (десятичная 2)
CONVERSION_EXIT_Z001_OUTPUT заранее сумму минус функция (десятичное 2)
Количество отрицательной функции уменьшения CONVERSION_EXIT_Z002_INPUT (десятичные 3)
Заглавные символы конвертируются количество
ФУНКЦИЯ z_numeric_to_chinese. * «------------------------------------------------ ---------------------- * "*"本地接口: * "ИМПОРТ * " VALUE (IV_MONEY) ТИП BF_DMBTR * "ЭКСПОРТ * " VALUE (EV_MONEY) ТИП STRING * "ИСКЛЮЧЕНИЕ * " WRONG_MONEY * «----------------------------------------- ----------------------------- iv_money = абс (iv_money). DATA : (И 30 ) ТИП C, разреш ( 60 ) ТИП с, Fen ( 2 )TYPE с. DATA : Len TYPE я, c1 TYPE I, c2 TYPE я, с3 TYPE I, c4 TYPE я. ДАННЫЕ : d1 ( 1 ) ТИП с, d 2 ( 1 ) ТИП с, d3 , ТИП я. ДАННЫЕ : цифра ( 2 ) ТИП с, вес ( 2 ) ТИП гр. ДАННЫЕ : rule1 ( 20 ) ТИП C ЗНАЧЕНИЕ ' 零壹贰叁肆伍陆柒捌玖' . DATA : rule2 (30 ) ТИП С от VALUE « биссектрисы элемента съемки собирания Ван Бай Бой тысяча тысячи миллиардов пикап Бой тысяча Вана » . SCR = iv_money * 100 . Сконденсировать SCR NO- зазоров. ПЧ SCR = « 0 » . Res = « Ноль » . ИНАЧЕ . LEN = StrLen (SCR). С1 = 0 . D1 = ' 0 ' . СБРОС RES. DO , LEN времен . C1= С1 + 1 . c2 = Len - c1. d2 = И + с2 ( 1 ). ЕСЛИ d2 = ' 0 ' . d3 = 0 . ELSE . d3 = d2. ENDIF . значный = rule1 + d3 ( 1 ). с3 = (с1 - 1 ). вес = rule2 + с3 ( 1 ). ЕСЛИ d2 = ' 0 ' . Если c1 =3 . цифра = '' . ELSEIF с1 = 7 . цифра = '' . Если длина> 10 . с4 = Len - 10 . ЕСЛИ И + с4 ( 4 ) = ' 0000 ' . вес = '' . ENDIF . ENDIF . ELSEIF с1 = 11 . цифра = «», ELSEIF d1 = ' 0 ' . цифра = '' . вес = '' . ELSE . вес = '' . ENDIF . ENDIF . CONCATENATE Рез цифра веса INTO Рез. d1 = d2. ENDDO . ENDIF . LEN = StrLen (разрешение) - 1 . низинные = разреш + LEN ( 1 ). ЕСЛИфенов <> ' 分' . CONCATENATE Res ' 整' INTO ev_money. ELSE . ev_money = Рез. ENDIF . EndFunction .