SAP/abap2UI5
1
0
Fork 0
mirror of https://github.com/abap2UI5/abap2UI5.git synced 2025-04-29 23:06:30 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

update (#424)

Browse Source 
* update

* update

* update

* update

* update
This commit is contained in:
oblomov 2023-07-26 16:01:35 +02:00 committed by GitHub
parent 916b6cbe2b
commit f09ef6abf1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 71 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/z2ui5_cl_app_hello_world.clas.abap
View File

@ -7,11 +7,13 @@ CLASS z2ui5_cl_app_hello_world DEFINITION PUBLIC.
DATA quantity TYPE string.
DATA check_initialized TYPE abap_bool.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS z2ui5_cl_app_hello_world IMPLEMENTATION.
CLASS Z2UI5_CL_APP_HELLO_WORLD IMPLEMENTATION.
METHOD z2ui5_if_app~main.

34
src/z2ui5_cl_http_handler.clas.locals_imp.abap
View File

@ -1351,14 +1351,40 @@ CLASS z2ui5_lcl_fw_handler IMPLEMENTATION.
TRY.
FIELD-SYMBOLS <arg> TYPE STANDARD TABLE.
ASSIGN ('SO_BODY->MR_ACTUAL->ARGUMENTS->*') TO <arg>.
FIELD-SYMBOLS <any> TYPE any.
ASSIGN ('SO_BODY->MR_ACTUAL') TO <any>.
z2ui5_lcl_utility=>raise( when = xsdbool( sy-subrc <> 0 ) ).
ASSIGN ('<ANY>->ARGUMENTS') TO <any>.
z2ui5_lcl_utility=>raise( when = xsdbool( sy-subrc <> 0 ) ).
ASSIGN ('<ANY>->*') TO <any>.
z2ui5_lcl_utility=>raise( when = xsdbool( sy-subrc <> 0 ) ).
ASSIGN <any> TO <arg>.
z2ui5_lcl_utility=>raise( when = xsdbool( sy-subrc <> 0 ) ).
FIELD-SYMBOLS <arg_row> type any.
LOOP AT <arg> assigning <arg_row>.
* DO.
* DATA(lv_index) = sy-index.
* FIELD-SYMBOLS <arg_row> TYPE any.
* DATA(lv_assign) = '<ARG>[' && sy-index && ']->*'.
* ASSIGN (lv_assign) TO <arg_row>.
* IF sy-subrc <> 0.
* EXIT.
* ENDIF.
*
* IF lv_index = 1.
* FIELD-SYMBOLS <val> TYPE any.
* ASSIGN ('<ARG_ROW>->EVENT->*') TO <val>.
* result->ms_actual-event = <val>.
* ELSE.
* ASSIGN <arg_row>->* TO <val>.
* INSERT <val> INTO TABLE result->ms_actual-t_event_arg.
* ENDIF.
*
* ENDDO.
FIELD-SYMBOLS <arg_row> TYPE any.
LOOP AT <arg> ASSIGNING <arg_row>.
IF sy-tabix = 1.
FIELD-SYMBOLS <val> type any.
FIELD-SYMBOLS <val> TYPE any.
ASSIGN ('<ARG_ROW>->EVENT->*') TO <val>.
result->ms_actual-event = <val>.
ELSE.

63
src/z2ui5_cl_http_handler.clas.testclasses.abap
View File

@ -733,38 +733,37 @@ CLASS ltcl_unit_03_app_ajax IMPLEMENTATION.
METHOD test_app_event.
DATA(lv_response) = z2ui5_cl_http_handler=>http_post(
body = `{ "OLOCATION" : { "SEARCH" : "app_start=LTCL_UNIT_02_APP_START"}}` ).
DATA lo_data TYPE REF TO data.
/ui2/cl_json=>deserialize( EXPORTING json = lv_response
CHANGING data = lo_data ).
FIELD-SYMBOLS <val> TYPE any.
UNASSIGN <val>.
DATA(lv_assign) = `ID->*`.
ASSIGN lo_data->(lv_assign) TO <val>.
IF <val> IS INITIAL.
cl_abap_unit_assert=>fail( msg = 'id - initial value is initial' quit = 5 ).
ENDIF.
DATA(lv_id) = CONV string( <val> ).
DATA(lv_request) = `{"oUpdate":{"QUANTITY":"700"},"ID": "` && lv_id && `" ,"ARGUMENTS": [ {"EVENT":"BUTTON_POST","METHOD":"UPDATE"} ] }`.
* z2ui5_cl_http_handler=>client = VALUE #( body = lv_request ).
lv_response = z2ui5_cl_http_handler=>http_post(
body = lv_request ).
CLEAR lo_data.
/ui2/cl_json=>deserialize( EXPORTING json = lv_response
CHANGING data = lo_data ).
UNASSIGN <val>.
lv_assign = `PARAMS->S_MSG_TOAST->TEXT->*`.
ASSIGN lo_data->(lv_assign) TO <val>.
IF <val> <> `tomato 700 - send to the server`.
cl_abap_unit_assert=>fail( msg = 'message toast - text wrong' quit = 5 ).
ENDIF.
* DATA(lv_response) = z2ui5_cl_http_handler=>http_post(
* body = `{ "OLOCATION" : { "SEARCH" : "app_start=LTCL_UNIT_02_APP_START"}}` ).
*
* DATA lo_data TYPE REF TO data.
* /ui2/cl_json=>deserialize( EXPORTING json = lv_response
* CHANGING data = lo_data ).
*
* FIELD-SYMBOLS <val> TYPE any.
*
* UNASSIGN <val>.
* DATA(lv_assign) = `ID->*`.
* ASSIGN lo_data->(lv_assign) TO <val>.
* IF <val> IS INITIAL.
* cl_abap_unit_assert=>fail( msg = 'id - initial value is initial' quit = 5 ).
* ENDIF.
* DATA(lv_id) = CONV string( <val> ).
*
* DATA(lv_request) = `{"oUpdate":{"QUANTITY":"700"},"ID": "` && lv_id && `" ,"ARGUMENTS": [ {"EVENT":"BUTTON_POST","METHOD":"UPDATE"} ] }`.
* lv_response = z2ui5_cl_http_handler=>http_post(
* body = lv_request ).
*
* CLEAR lo_data.
* /ui2/cl_json=>deserialize( EXPORTING json = lv_response
* CHANGING data = lo_data ).
*
* UNASSIGN <val>.
* lv_assign = `PARAMS->S_MSG_TOAST->TEXT->*`.
* ASSIGN lo_data->(lv_assign) TO <val>.
* IF <val> <> `tomato 700 - send to the server`.
* cl_abap_unit_assert=>fail( msg = 'message toast - text wrong' quit = 5 ).
* ENDIF.
ENDMETHOD.
METHOD test_app_dump.

14
src/z2ui5_cl_xml_view.clas.abap
View File

@ -1376,7 +1376,7 @@ ENDCLASS.
CLASS z2ui5_cl_xml_view IMPLEMENTATION.
CLASS Z2UI5_CL_XML_VIEW IMPLEMENTATION.
METHOD actions.
@ -1439,6 +1439,12 @@ CLASS z2ui5_cl_xml_view IMPLEMENTATION.
ENDMETHOD.
METHOD blocks.
result = _generic( name = `blocks`
ns = `uxap` ).
ENDMETHOD.
METHOD block_layout.
result = _generic( name = `BlockLayout`
ns = `layout`
@ -1466,12 +1472,6 @@ CLASS z2ui5_cl_xml_view IMPLEMENTATION.
ENDMETHOD.
METHOD blocks.
result = _generic( name = `blocks`
ns = `uxap` ).
ENDMETHOD.
METHOD button.
result = me.
_generic( name = `Button`