Skip to content

Automatic Update #50

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Automatic Update #50

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
186 changes: 98 additions & 88 deletions src/zoblomov_cl_util.clas.abap
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -11,6 +11,14 @@ CLASS zoblomov_cl_util DEFINITION
" author: https://github.com/oblomov-dev
" license: MIT.

CONSTANTS:
BEGIN OF cs_ui5_msg_type,
e TYPE string VALUE `Error` ##NO_TEXT,
s TYPE string VALUE `Success` ##NO_TEXT,
w TYPE string VALUE `Warning` ##NO_TEXT,
i TYPE string VALUE `Information` ##NO_TEXT,
END OF cs_ui5_msg_type.

TYPES:
BEGIN OF ty_s_name_value,
n TYPE string,
Expand Down Expand Up @@ -164,14 +172,6 @@ CLASS zoblomov_cl_util DEFINITION
RETURNING
VALUE(result) TYPE string.

CLASS-METHODS tab_get_where_by_dfies
IMPORTING
mv_check_tab_field TYPE string
ms_data_row TYPE REF TO data
it_dfies TYPE zoblomov_cl_util=>ty_t_dfies
RETURNING
VALUE(result) TYPE string.

CLASS-METHODS itab_get_itab_by_csv
IMPORTING
val TYPE string
Expand Down Expand Up @@ -204,7 +204,7 @@ CLASS zoblomov_cl_util DEFINITION

CLASS-METHODS filter_get_sql_where
IMPORTING
val TYPE zoblomov_cl_util=>ty_t_filter_multi
val TYPE ty_t_filter_multi
RETURNING
VALUE(result) TYPE string.

Expand Down Expand Up @@ -423,7 +423,7 @@ CLASS zoblomov_cl_util DEFINITION

CLASS-METHODS filter_get_range_by_token
IMPORTING
VALUE(value) TYPE string
val TYPE string
RETURNING
VALUE(result) TYPE ty_s_range.

Expand All @@ -449,6 +449,12 @@ CLASS zoblomov_cl_util DEFINITION
CHANGING
!tab TYPE STANDARD TABLE.

CLASS-METHODS itab_get_by_struc
IMPORTING
val TYPE any
RETURNING
VALUE(result) TYPE zoblomov_cl_util=>ty_t_name_value.

CLASS-METHODS itab_filter_by_t_range
IMPORTING
val TYPE ty_t_filter_multi
Expand Down Expand Up @@ -516,7 +522,8 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
TRY.
DATA(lv_type_name) = rtti_get_type_name( val ).
result = boolean_check_by_name( lv_type_name ).
CATCH cx_root.
CATCH cx_root INTO DATA(x).
DATA(lv_error) = x->get_text( ).
ENDTRY.

ENDMETHOD.
Expand Down Expand Up @@ -586,7 +593,8 @@ CLASS zoblomov_cl_util IMPLEMENTATION.

METHOD conv_get_as_data_ref.

GET REFERENCE OF val INTO result.
* GET REFERENCE OF val INTO result.
result = REF #( val ).

ENDMETHOD.

Expand Down Expand Up @@ -652,51 +660,53 @@ CLASS zoblomov_cl_util IMPLEMENTATION.

METHOD filter_get_range_by_token.

DATA(lv_length) = strlen( value ) - 1.
CASE VALUE(1).
DATA(lv_value) = val.
DATA(lv_length) = strlen( lv_value ) - 1.

CASE lv_value(1).

WHEN `=`.
result = VALUE #( sign = `I`
option = `EQ`
low = value+1 ).
low = lv_value+1 ).
WHEN `<`.
IF value+1(1) = `=`.
IF lv_value+1(1) = `=`.
result = VALUE #( sign = `I`
option = `LE`
low = value+2 ).
low = lv_value+2 ).
ELSE.
result = VALUE #( sign = `I`
option = `LT`
low = value+1 ).
low = lv_value+1 ).
ENDIF.
WHEN `>`.
IF value+1(1) = `=`.
IF lv_value+1(1) = `=`.
result = VALUE #( sign = `I`
option = `GE`
low = value+2 ).
low = lv_value+2 ).
ELSE.
result = VALUE #( sign = `I`
option = `GT`
low = value+1 ).
low = lv_value+1 ).
ENDIF.

WHEN `*`.
IF value+lv_length(1) = `*`.
SHIFT value RIGHT DELETING TRAILING `*`.
SHIFT value LEFT DELETING LEADING `*`.
IF lv_value+lv_length(1) = `*`.
SHIFT lv_value RIGHT DELETING TRAILING `*`.
SHIFT lv_value LEFT DELETING LEADING `*`.
result = VALUE #( sign = `I`
option = `CP`
low = value ).
low = lv_value ).
ENDIF.

WHEN OTHERS.
IF value CP `...`.
SPLIT value AT `...` INTO result-low result-high.
IF lv_value CP `...`.
SPLIT lv_value AT `...` INTO result-low result-high.
result-option = `BT`.
ELSE.
result = VALUE #( sign = `I`
option = `EQ`
low = value ).
low = lv_value ).
ENDIF.

ENDCASE.
Expand Down Expand Up @@ -838,47 +848,6 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
ENDMETHOD.


METHOD tab_get_where_by_dfies.

DATA val TYPE string.

LOOP AT it_dfies REFERENCE INTO DATA(dfies).

IF NOT ( dfies->keyflag = abap_true OR dfies->fieldname = mv_check_tab_field ).
CONTINUE.
ENDIF.

ASSIGN ms_data_row->* TO FIELD-SYMBOL(<row>).

ASSIGN COMPONENT dfies->fieldname OF STRUCTURE <row> TO FIELD-SYMBOL(<value>).
IF <value> IS NOT ASSIGNED.
CONTINUE.
ENDIF.
IF <value> IS INITIAL.
CONTINUE.
ENDIF.

IF result IS NOT INITIAL.
DATA(and) = ` AND `.
ENDIF.

IF <value> CA `_`.
DATA(escape) = `ESCAPE '#'`.
ELSE.
CLEAR escape.
ENDIF.

val = <value>.

IF val CA `_`.
REPLACE ALL OCCURRENCES OF `_` IN val WITH `#_`.
ENDIF.

result = |{ result }{ and } ( { dfies->fieldname } LIKE '%{ val }%' { escape } )|.

ENDLOOP.

ENDMETHOD.


METHOD itab_get_itab_by_csv.
Expand Down Expand Up @@ -961,8 +930,8 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
result = abap_true.
ENDIF.

CATCH cx_root.
" cx_sy_rtti_syntax_error
CATCH cx_root INTO DATA(x).
DATA(lv_error) = x->get_text( ).
ENDTRY.

ENDMETHOD.
Expand All @@ -974,7 +943,8 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
DATA(lo_typdescr) = cl_abap_typedescr=>describe_by_data( val ).
DATA(lo_ref) = CAST cl_abap_refdescr( lo_typdescr ) ##NEEDED.
result = abap_true.
CATCH cx_root.
CATCH cx_root INTO DATA(x).
DATA(lv_error) = x->get_text( ).
ENDTRY.

ENDMETHOD.
Expand Down Expand Up @@ -1022,17 +992,25 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
DATA(lo_ele) = CAST cl_abap_elemdescr( lo_descr ).
result = lo_ele->get_relative_name( ).

CATCH cx_root.
CATCH cx_root INTO DATA(x).
DATA(lv_error) = x->get_text( ).
ENDTRY.
ENDMETHOD.


METHOD rtti_get_t_attri_by_include.

cl_abap_typedescr=>describe_by_name( EXPORTING p_name = type->absolute_name
RECEIVING p_descr_ref = DATA(type_desc)
EXCEPTIONS type_not_found = 1 ).
TRY.

cl_abap_typedescr=>describe_by_name( EXPORTING p_name = type->absolute_name
RECEIVING p_descr_ref = DATA(type_desc)
EXCEPTIONS type_not_found = 1 ).

CATCH cx_root INTO DATA(x).
RAISE EXCEPTION TYPE zoblomov_cx_util_error
EXPORTING
previous = x.
ENDTRY.
DATA(sdescr) = CAST cl_abap_structdescr( type_desc ).
DATA(comps) = sdescr->get_components( ).

Expand Down Expand Up @@ -1127,7 +1105,8 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
result = rtti_get_t_fixvalues( elemdescr = elemdescr
langu = langu ).

CATCH cx_root.
CATCH cx_root INTO DATA(x).
DATA(lv_error) = x->get_text( ).
ENDTRY.

ENDMETHOD.
Expand All @@ -1154,7 +1133,8 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
result = rtti_tab_get_relative_name( <table> ).

ENDCASE.
CATCH cx_root.
CATCH cx_root INTO DATA(x).
DATA(lv_error) = x->get_text( ).
ENDTRY.

ENDMETHOD.
Expand All @@ -1168,7 +1148,7 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
|pt, json, jsoniq, jsp, jsx, julia, kotlin, latex, lean, less, liquid, lisp, live_script, livescript, logiql, lsl, lua, luapage, lucene, makefile, markdown, mask, matlab, mavens_mate_log, maze, mel, mips_assembler, mipsassembler, mushcode, mysql, ni| &&
|x, nsis, objectivec, ocaml, pascal, perl, pgsql, php, plain_text, powershell, praat, prolog, properties, protobuf, python, r, razor, rdoc, rhtml, rst, ruby, rust, sass, scad, scala, scheme, scss, sh, sjs, smarty, snippets, soy_template, space, sql,| &&
| sqlserver, stylus, svg, swift, swig, tcl, tex, text, textile, toml, tsx, twig, typescript, vala, vbscript, velocity, verilog, vhdl, wollok, xml, xquery, terraform, slim, redshift, red, puppet, php_laravel_blade, mixal, jssm, fsharp, edifact,| &&
| csp, cssound_score, cssound_orchestra, cssound_document|.
| csp, cssound_score, cssound_orchestra, cssound_document| ##NO_TEXT.
SPLIT lv_types AT ',' INTO TABLE result.

ENDMETHOD.
Expand All @@ -1189,7 +1169,8 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
LOOP AT it_source INTO DATA(lv_source).
TRY.
result = result && lv_source+1 && cl_abap_char_utilities=>newline.
CATCH cx_root.
CATCH cx_root INTO DATA(x).
DATA(lv_error) = x->get_text( ).
ENDTRY.
ENDLOOP.

Expand Down Expand Up @@ -1230,6 +1211,7 @@ CLASS zoblomov_cl_util IMPLEMENTATION.

result = cl_abap_tstmp=>subtractsecs( tstmp = time
secs = seconds ).

ENDMETHOD.


Expand Down Expand Up @@ -1376,7 +1358,6 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
data_object = data
RECEIVING
srtti = srtti.

CALL TRANSFORMATION id SOURCE srtti = srtti dobj = data RESULT XML result.

ELSE.
Expand All @@ -1387,18 +1368,16 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
data_object = data
RECEIVING
srtti = srtti.

CALL TRANSFORMATION id SOURCE srtti = srtti dobj = data RESULT XML result.

CATCH cx_root.

DATA(lv_text) = `UNSUPPORTED_FEATURE - Please install the open-source project S-RTTI by sandraros and try again: https://github.com/sandraros/S-RTTI`.
DATA(lv_text) = `UNSUPPORTED_FEATURE`.
RAISE EXCEPTION TYPE zoblomov_cx_util_error
EXPORTING
val = lv_text.

ENDTRY.

ENDIF.

ENDMETHOD.
Expand Down Expand Up @@ -1532,6 +1511,32 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
ENDMETHOD.


METHOD itab_get_by_struc.

DATA(lt_attri) = zoblomov_cl_util=>rtti_get_t_attri_by_any( val ).
* result = VALUE z2ui5_cl_util=>ty_t_name_value( ).
LOOP AT lt_attri REFERENCE INTO DATA(lr_attri).

ASSIGN COMPONENT lr_attri->name OF STRUCTURE val TO FIELD-SYMBOL(<component>).
IF sy-subrc <> 0.
CONTINUE.
ENDIF.

CASE zoblomov_cl_util=>rtti_get_type_kind( <component> ).

WHEN cl_abap_typedescr=>typekind_table.

WHEN OTHERS.
INSERT VALUE #(
n = lr_attri->name
v = <component>
) INTO TABLE result.
ENDCASE.

ENDLOOP.

ENDMETHOD.

METHOD itab_filter_by_t_range.

ENDMETHOD.
Expand Down Expand Up @@ -1588,6 +1593,11 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
EXCEPTIONS
internal_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE zoblomov_cx_util_error
EXPORTING
val = zoblomov_cl_util=>context_get_sy( ).
ENDIF.

ENDIF.

Expand Down Expand Up @@ -1618,10 +1628,10 @@ CLASS zoblomov_cl_util IMPLEMENTATION.
METHOD ui5_get_msg_type.

result = SWITCH #( val
WHEN 'E' THEN `Error`
WHEN 'S' THEN `Success`
WHEN `W` THEN `Warning`
ELSE `Information` ).
WHEN 'E' THEN cs_ui5_msg_type-e
WHEN 'S' THEN cs_ui5_msg_type-s
WHEN `W` THEN cs_ui5_msg_type-w
ELSE cs_ui5_msg_type-i ).

ENDMETHOD.

Expand Down
Loading