Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
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
4 changes: 2 additions & 2 deletions abap_transpile.json
Original file line number Diff line number Diff line change
Expand Up @@ -12,8 +12,8 @@
"\\.g4ba\\.",
"zbp_",
"zasis_cl_interprettypetext",
"zasis_cl_catstattext",
"zasis_cl_calc_export_url",
"zasis_cl_catstattext",
"zasis_cl_get_domain_fix_values"
],
"output_folder": "output",
Expand All @@ -39,4 +39,4 @@
"addCommonJS": true,
"unknownTypes": "compileError"
}
}
}
30 changes: 12 additions & 18 deletions src/catalogs/sharedobjects/zasis_cl_catstattext.clas.abap
Original file line number Diff line number Diff line change
Expand Up @@ -13,10 +13,7 @@ ENDCLASS.


CLASS zasis_cl_catstattext IMPLEMENTATION.


METHOD if_sadl_exit_calc_element_read~calculate.

TYPES: BEGIN OF ty_stat,
status TYPE zasis_cat_stat,
statustext TYPE c LENGTH 20,
Expand All @@ -26,24 +23,21 @@ CLASS zasis_cl_catstattext IMPLEMENTATION.

original_data = CORRESPONDING #( it_original_data ).

SELECT domvalue_l, ddtext
FROM dd07t
WHERE ddlanguage = @sy-langu AND domname = 'ZASIS_CAT_STAT'
ORDER BY domvalue_l
INTO TABLE @DATA(domain_values).

IF sy-subrc = 0.

LOOP AT original_data ASSIGNING FIELD-SYMBOL(<line>).
CAST cl_abap_elemdescr( cl_abap_typedescr=>describe_by_name( 'ZASIS_CAT_STAT' ) )->get_ddic_fixed_values(
EXPORTING p_langu = sy-langu
RECEIVING p_fixed_values = DATA(fixed_values)
EXCEPTIONS not_found = 1
no_ddic_type = 2
OTHERS = 3 ).

READ TABLE domain_values WITH KEY domvalue_l = <line>-status INTO DATA(domain_value).
IF sy-subrc = 0.
<line>-statustext = domain_value-ddtext.
ENDIF.
LOOP AT original_data ASSIGNING FIELD-SYMBOL(<line>).

ENDLOOP.
READ TABLE fixed_values WITH KEY low = <line>-status INTO DATA(domain_value).
IF sy-subrc = 0.
<line>-statustext = domain_value-ddtext.
ENDIF.

ENDIF.
ENDLOOP.

ct_calculated_data = CORRESPONDING #( original_data ).
ENDMETHOD.
Expand Down
2 changes: 1 addition & 1 deletion src/utils/zasis_cl_get_domain_fix_values.clas.abap
Original file line number Diff line number Diff line change
Expand Up @@ -87,7 +87,7 @@ CLASS zasis_cl_get_domain_fix_values IMPLEMENTATION.

SELECT domain_name, pos, low, high, description FROM @result AS data_source_fields
WHERE domain_name IN @domain_name_filter-range
ORDER BY domain_name
ORDER BY domain_name
INTO TABLE @result
UP TO @max_index ROWS ##SUBRC_OK.

Expand Down