Code: Alles auswählen.
CLASS lcl_application DEFINITION.
PUBLIC SECTION.
CLASS-METHODS:
start_of_selection.
ENDCLASS. "lcl_application DEFINITION
CLASS lcl_application IMPLEMENTATION.
METHOD start_of_selection.
DATA lo_fobu_formula TYPE REF TO cl_fobu_formula.
DATA lo_foev_formula TYPE REF TO cl_foev_formula.
DATA lr_result TYPE REF TO data.
FIELD-SYMBOLS <l_result> TYPE data.
TRY.
cl_fobu_formula=>create( IMPORTING ex_formula = lo_fobu_formula ).
lo_fobu_formula->parse( 'SYST-DATUM >= ''20190101'' AND SYST-DATUM <= ''20191231''' ).
lo_foev_formula = cl_foev_formula=>load_from_fobu( lo_fobu_formula ).
lr_result = lo_foev_formula->evaluate( ).
IF lr_result IS BOUND.
ASSIGN lr_result->* TO <l_result>.
ENDIF.
IF <l_result> IS ASSIGNED
AND <l_result> EQ abap_true.
WRITE / 'Back to the future!'.
ELSEIF <l_result> IS ASSIGNED
AND <l_result> EQ abap_false .
WRITE / 'Wir sollten im Hier und Jetzt leben.'.
ENDIF.
CATCH cx_foev_formula_invalid
cx_fobu_formula_empty
cx_fobu_formula_invalid
cx_fobu_formula_not_found.
WRITE / 'Ärgerlich.'.
ENDTRY.
ENDMETHOD. "start_of_selection
ENDCLASS. "lcl_application IMPLEMENTATION
START-OF-SELECTION.
lcl_application=>start_of_selection( ).
Folgende Benutzer bedankten sich beim Autor m.andreschak für den Beitrag:
Jan