Skip to content

Commit d5bb288

Browse files
oblomov-devoblomov-dev
committed
update
1 parent a5a06c3 commit d5bb288

7 files changed

+222
-2
lines changed

‎src/02/z2ui5add_cl_ws_test_receive_f.clas.abap‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -45,7 +45,6 @@
4545
view->_generic( ns = `html` name = `script`)->_cc_plain_xml( `` && |\n| &&
4646
` function createWS(){` && |\n| &&
4747
` var ws = new WebSocket(` && |\n| &&
48-
" ` "ws://" + window.location.host + "/sap/bc/apc/sap/z2ui5_apc_draft"` && |\n| &&
4948
` "ws://" + window.location.host + "` && z2ui5add_cl_ws_channel_wrapper=>cv_ws_path && `"` && |\n| &&
5049
` );` && |\n| &&
5150
|\n| &&

‎src/04/z2ui5add_cl_ws_sample_01.clas.xml‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55
<VSEOCLASS>
66
<CLSNAME>Z2UI5ADD_CL_WS_SAMPLE_01</CLSNAME>
77
<LANGU>E</LANGU>
8-
<DESCRIPT>basic- timer</DESCRIPT>
8+
<DESCRIPT>sample receive frontend</DESCRIPT>
99
<STATE>1</STATE>
1010
<CLSCCINCL>X</CLSCCINCL>
1111
<FIXPT>X</FIXPT>

‎src/04/z2ui5add_cl_ws_sample_02.clas.abap‎

Lines changed: 94 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,94 @@
1+
CLASS z2ui5add_cl_ws_sample_02 DEFINITION PUBLIC.
2+
3+
PUBLIC SECTION.
4+
5+
INTERFACES z2ui5_if_app.
6+
7+
DATA number TYPE i VALUE 1.
8+
DATA wait_time TYPE i VALUE 20.
9+
10+
DATA check_initialized TYPE abap_bool.
11+
12+
PROTECTED SECTION.
13+
14+
DATA mo_last_draft TYPE REF TO z2ui5_if_app.
15+
DATA client TYPE REF TO z2ui5_if_client.
16+
17+
METHODS display_view.
18+
METHODS on_event.
19+
20+
PRIVATE SECTION.
21+
22+
ENDCLASS.
23+
24+
25+
CLASS z2ui5add_cl_ws_sample_02 IMPLEMENTATION.
26+
27+
METHOD z2ui5_if_app~main.
28+
29+
me->client = client.
30+
31+
IF check_initialized = abap_false.
32+
check_initialized = abap_true.
33+
display_view( ).
34+
RETURN.
35+
ENDIF.
36+
37+
on_event( ).
38+
39+
ENDMETHOD.
40+
41+
METHOD display_view.
42+
43+
DATA(view) = z2ui5_cl_xml_view=>factory( ).
44+
client->view_display( view->shell(
45+
)->page(
46+
title = 'abap2UI5 - Send ABAP Channel Message'
47+
navbuttonpress = client->_event( val = 'BACK' s_ctrl = VALUE #( check_view_destroy = abap_true ) )
48+
shownavbutton = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL )
49+
)->simple_form( title = 'Form Title' editable = abap_true
50+
)->content( 'form'
51+
)->title( 'Input'
52+
)->label( 'Number'
53+
)->input( client->_bind_edit( number )
54+
)->label( 'Time in Sec'
55+
)->input( client->_bind_edit( wait_time )
56+
)->button(
57+
text = 'Check for Messages'
58+
press = client->_event( val = 'BUTTON_POST' )
59+
)->stringify( ) ).
60+
61+
ENDMETHOD.
62+
63+
64+
65+
METHOD on_event.
66+
67+
CASE client->get( )-event.
68+
69+
WHEN 'BUTTON_POST'.
70+
z2ui5add_cl_ws_channel_wrapper=>receive_messages(
71+
* EXPORTING
72+
* wait_time_sec = 10
73+
* number = 1
74+
RECEIVING
75+
result = DATA(lt_messages)
76+
).
77+
78+
DATA(lv_string) = ` `.
79+
LOOP AT lt_messages INTO DATA(gv_message).
80+
lv_string = lv_string && gv_message.
81+
ENDLOOP.
82+
83+
client->message_box_display( `Messages received` && lv_string ).
84+
85+
WHEN 'BACK'.
86+
client->nav_app_leave( ).
87+
88+
ENDCASE.
89+
90+
ENDMETHOD.
91+
92+
93+
94+
ENDCLASS.

‎src/04/z2ui5add_cl_ws_sample_02.clas.locals_imp.abap‎

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
2+
3+
CLASS lcl_amc_receiver DEFINITION
4+
FINAL
5+
CREATE PUBLIC.
6+
7+
PUBLIC SECTION.
8+
9+
ENDCLASS.
10+
11+
CLASS lcl_amc_receiver IMPLEMENTATION.
12+
13+
ENDCLASS.

‎src/04/z2ui5add_cl_ws_sample_02.clas.xml‎

Lines changed: 16 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,16 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
3+
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
4+
<asx:values>
5+
<VSEOCLASS>
6+
<CLSNAME>Z2UI5ADD_CL_WS_SAMPLE_02</CLSNAME>
7+
<LANGU>E</LANGU>
8+
<DESCRIPT>sample receive backend</DESCRIPT>
9+
<STATE>1</STATE>
10+
<CLSCCINCL>X</CLSCCINCL>
11+
<FIXPT>X</FIXPT>
12+
<UNICODE>X</UNICODE>
13+
</VSEOCLASS>
14+
</asx:values>
15+
</asx:abap>
16+
</abapGit>

‎src/04/z2ui5add_cl_ws_sample_03.clas.abap‎

Lines changed: 82 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,82 @@
1+
CLASS z2ui5add_cl_ws_sample_03 DEFINITION PUBLIC.
2+
3+
PUBLIC SECTION.
4+
5+
INTERFACES z2ui5_if_app.
6+
7+
DATA message TYPE string.
8+
DATA check_initialized TYPE abap_bool.
9+
10+
PROTECTED SECTION.
11+
12+
DATA mo_last_draft TYPE REF TO z2ui5_if_app.
13+
DATA client TYPE REF TO z2ui5_if_client.
14+
15+
METHODS display_view.
16+
METHODS on_event.
17+
18+
PRIVATE SECTION.
19+
20+
ENDCLASS.
21+
22+
23+
24+
CLASS z2ui5add_cl_ws_sample_03 IMPLEMENTATION.
25+
26+
METHOD z2ui5_if_app~main.
27+
28+
me->client = client.
29+
30+
IF check_initialized = abap_false.
31+
check_initialized = abap_true.
32+
display_view( ).
33+
RETURN.
34+
ENDIF.
35+
36+
on_event( ).
37+
38+
ENDMETHOD.
39+
40+
METHOD display_view.
41+
42+
DATA(view) = z2ui5_cl_xml_view=>factory( ).
43+
client->view_display( view->shell(
44+
)->page(
45+
title = 'abap2UI5 - Send ABAP Channel Message'
46+
navbuttonpress = client->_event( val = 'BACK' s_ctrl = VALUE #( check_view_destroy = abap_true ) )
47+
shownavbutton = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL )
48+
)->simple_form( title = 'Form Title' editable = abap_true
49+
)->content( 'form'
50+
)->title( 'Input'
51+
)->label( 'Message'
52+
)->input( client->_bind_edit( message )
53+
)->button(
54+
text = 'Send Message'
55+
press = client->_event( val = 'BUTTON_POST' )
56+
)->stringify( ) ).
57+
58+
ENDMETHOD.
59+
60+
61+
62+
METHOD on_event.
63+
64+
CASE client->get( )-event.
65+
66+
WHEN 'BUTTON_POST'.
67+
68+
TRY.
69+
z2ui5add_cl_ws_channel_wrapper=>send_text( message ).
70+
client->message_toast_display( `Message send!` ).
71+
CATCH cx_root INTO DATA(lx).
72+
client->message_box_display( lx->get_text( ) ).
73+
ENDTRY.
74+
75+
WHEN 'BACK'.
76+
client->nav_app_leave( ).
77+
78+
ENDCASE.
79+
80+
ENDMETHOD.
81+
82+
ENDCLASS.

‎src/04/z2ui5add_cl_ws_sample_03.clas.xml‎

Lines changed: 16 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,16 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
3+
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
4+
<asx:values>
5+
<VSEOCLASS>
6+
<CLSNAME>Z2UI5ADD_CL_WS_SAMPLE_03</CLSNAME>
7+
<LANGU>E</LANGU>
8+
<DESCRIPT>sample send</DESCRIPT>
9+
<STATE>1</STATE>
10+
<CLSCCINCL>X</CLSCCINCL>
11+
<FIXPT>X</FIXPT>
12+
<UNICODE>X</UNICODE>
13+
</VSEOCLASS>
14+
</asx:values>
15+
</asx:abap>
16+
</abapGit>

0 commit comments

Comments
 (0)