SAP BTE Agorum DMS Listing - IT Service Bergisch Gladbach

Hier das Listing zum Beitrag (Link). Der Funktionsbaustein SAMPLE_INTERFACE_00001030 wurde in den Kundennamensraum kopiert und wie folgt programmiert.
FUNCTION z_bte_00001030.
*"------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(I_BKDF) LIKE BKDF STRUCTURE BKDF
*" VALUE(I_UF05A) LIKE UF05A STRUCTURE UF05A
*" VALUE(I_XVBUP) LIKE OFIWA-XVBUP DEFAULT 'X'
*" TABLES
*" T_AUSZ1 STRUCTURE AUSZ1 OPTIONAL
*" T_AUSZ2 STRUCTURE AUSZ2 OPTIONAL
*" T_AUSZ3 STRUCTURE AUSZ_CLR OPTIONAL
*" T_BKP1 STRUCTURE BKP1
*" T_BKPF STRUCTURE BKPF
*" T_BSEC STRUCTURE BSEC
*" T_BSED STRUCTURE BSED
*" T_BSEG STRUCTURE BSEG
*" T_BSET STRUCTURE BSET
*" T_BSEU STRUCTURE BSEU
*"------------------------------------------------------------------

CHECK t_bkpf-blart = 'AG'.

TYPES: BEGIN OF agorum,
id TYPE c LENGTH 10,
name TYPE c LENGTH 100,
END OF agorum.

DATA: lo_client TYPE REF TO if_http_client,
lv_result_url TYPE string,
jdata TYPE string,
e_jdata TYPE string,
lv_bin TYPE xstring,
lo_conv TYPE REF TO cl_abap_conv_in_ce,
lv_response TYPE string,
lv_conf TYPE string,
itab TYPE TABLE OF smum_xmltb,
wa LIKE LINE OF itab,
gt_return TYPE TABLE OF bapiret2,
session(30) TYPE c.

DATA: itabres TYPE TABLE OF agorum,
wares LIKE LINE OF itabres,
zaehler TYPE i.

cl_http_client=>create(
EXPORTING
host = 'roihost'
service = '81'
scheme = 1
IMPORTING
client = lo_client ).

lo_client->request->set_method( if_http_request=>co_request_method_post ).

CONCATENATE '/api/rest/session?'
'username=Demo&password=Gast'
INTO
lv_result_url.

cl_http_utility=>set_request_uri( request = lo_client->request uri = lv_result_url ).

lo_client->send( ).
lo_client->receive( ).

lv_bin = lo_client->response->get_data( ).

CALL FUNCTION 'SMUM_XML_PARSE'
EXPORTING
xml_input = lv_bin
TABLES
xml_table = itab
return = gt_return.

LOOP AT itab INTO wa.
IF wa-cname = 'sessionId'.
session = wa-cvalue.
ENDIF.
ENDLOOP.

CONCATENATE '/api/rest/object?provider=search&'
'query=' t_bkpf-bktxt '&properties=name&sessionId='
session
INTO
lv_result_url.

lo_client->request->set_method( if_http_request=>co_request_method_get ).

cl_http_utility=>set_request_uri( request = lo_client->request uri = lv_result_url ).

lo_client->send( ).
lo_client->receive( ).

lv_bin = lo_client->response->get_data( ).

CALL FUNCTION 'SMUM_XML_PARSE'
EXPORTING
xml_input = lv_bin
TABLES
xml_table = itab
return = gt_return.

LOOP AT itab INTO wa.
IF wa-cname = 'value'.
wares-name = wa-cvalue.
MOVE t_bkpf-xblnr TO wares-id.
APPEND wares TO itabres.
ENDIF.
ENDLOOP.

* Notiz schreiben und senden

CONCATENATE '{ "target":"'
t_bkpf-bktxt
'","sessionid":"'
session
'","content":"SAP Buchung von \n '
sy-uname '- ' sy-datum ' \n '
'Belegnummer \n ' t_bkpf-belnr ' \n '
'Buchungskreis \n ' t_bkpf-bukrs ' \n '
'Geschaeftsjahr \n ' t_bkpf-gjahr ' \n '
'Buchungsdatum \n ' t_bkpf-budat '"'
',"recipients":["user:Demo"] }'
INTO
jdata .

CALL METHOD cl_http_utility=>escape_url
EXPORTING
unescaped = jdata
RECEIVING
escaped = e_jdata.

CONCATENATE '/api/rest/object?handler=note&data='
e_jdata
INTO
lv_result_url.

lo_client->request->set_method( if_http_request=>co_request_method_post ).

cl_http_utility=>set_request_uri( request = lo_client->request uri = lv_result_url ).

lo_client->send( ).
lo_client->receive( ).
* ****************************************************************
lo_client->close( ).
* MESSAGE s000(zago) WITH wares-name.
CLEAR itab.
CLEAR itabres.
CLEAR gt_return.

ENDFUNCTION.
Teilen mit:
