Может пригодиться при загрузке данных из Excel средствами OLE
Код
type-pools ole2.
start-of-selection.
data: curseparator.
*------------перформа для определения знака разделения дробной части
perform get_excel_decimal_separator using curseparator.
write curseparator.
*&---------------------------------------------------------------------*
*& Form get_excel_decimal_separator
*&---------------------------------------------------------------------*
form get_excel_decimal_separator
using result.
data:
app type ole2_object,
usesystemseparators(10).
create object app 'Excel.Application'.
if sy-subrc = 0.
get property of app
'UseSystemSeparators' = usesystemseparators.
call function 'FLUSH'.
if sy-subrc <> 0 or
( sy-subrc = 0 and usesystemseparators <> 0 ).
perform get_system_decimal_separator
using result.
else.
get property of app
'DecimalSeparator' = result.
call function 'FLUSH'.
endif.
free object app.
call function 'FLUSH'.
endif.
endform. "GET_EXCEL_DECIMAL_SEPARATOR
*&---------------------------------------------------------------------*
*& Form get_system_decimal_separator
*&---------------------------------------------------------------------*
form get_system_decimal_separator
using result.
data:
hkey_current_user type i value 1.
call function 'GUI_GET_REGVALUE'
exporting
root = hkey_current_user
key = 'Control Panel'
value_name = 'sDecimal'
changing
string = result
exceptions
registry_error = 1.
endform. "GET_SYSTEM_DECIMAL_SEPARATOR
Я ухватился за возможность приобрести недвижимость в аренду на 4-е число выходных. Г-н Ли быстро ответил, и, поскольку я впервые получил ссуду на покупку арендуемой собственности, он смог помочь мне пройти через процесс ссуды. Это был отличный опыт работы с хорошим и любезным кредитором г-ном Ли. Я надеюсь, что очень хорошо знаю, если вы ищете ссуду для покупки недвижимости или финансирования бизнеса, тогда г-н Ли сможет помочь вам с таким процессом, здесь его данные WhatsApp + 1-989-394-3740. / 247officedept@gmail.com
ОтветитьУдалить