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

Enable deserialization of DSFD, DSFI and DRAS (#7029)

Browse Source 
Co-authored-by: Lars Hvam <larshp@hotmail.com>
Co-authored-by: abaplint[bot] <24845621+abaplint[bot]@users.noreply.github.com>
This commit is contained in:
fvalves 2024-08-29 09:46:23 +02:00 committed by GitHub
parent 72a1a13033
commit ff60057e62
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
4 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/objects/aff/zcl_abapgit_object_dras.clas.abap
View File

@ -31,19 +31,19 @@ CLASS zcl_abapgit_object_dras IMPLEMENTATION.
RECEIVING RECEIVING
handler = lo_dras_handler. handler = lo_dras_handler.
CALL METHOD lo_dras_handler->('CHECK_EXISTENCE') CALL METHOD lo_dras_handler->('IF_DD_DRAS_WB_HANDLER~CHECK_EXISTENCE')
EXPORTING EXPORTING
iv_as4local = 'A' iv_as4local = 'A'
RECEIVING RECEIVING
rv_exists = lv_exists. rv_exists = lv_exists.
IF lv_exists = abap_true. IF lv_exists = abap_true.
CALL METHOD lo_dras_handler->('GET_SOURCE_CONTAINER') CALL METHOD lo_dras_handler->('IF_DD_DRAS_WB_HANDLER~GET_SOURCE_CONTAINER')
EXPORTING EXPORTING
iv_as4local = 'A' iv_as4local = 'A'
RECEIVING RECEIVING
ro_result = lo_dras_source_container. ro_result = lo_dras_source_container.
CALL METHOD lo_dras_source_container->('GET_AS4USER') CALL METHOD lo_dras_source_container->('IF_DD_DRAS_SOURCE_CONTAINER~GET_AS4USER')
RECEIVING RECEIVING
rv_as4user = rv_user. rv_as4user = rv_user.
ENDIF. ENDIF.

8
src/objects/aff/zcl_abapgit_object_dsfd.clas.abap
View File

@ -31,20 +31,20 @@ CLASS zcl_abapgit_object_dsfd IMPLEMENTATION.
RECEIVING RECEIVING
handler = lo_dsfd_handler. handler = lo_dsfd_handler.
CALL METHOD lo_dsfd_handler->('CHECK_EXISTENCE') CALL METHOD lo_dsfd_handler->('IF_DD_DSFD_WB_HANDLER~CHECK_EXISTENCE')
EXPORTING EXPORTING
iv_as4local = 'A' iv_as4local = 'A'
RECEIVING RECEIVING
rv_exists = lv_exists. rv_exists = lv_exists.
IF lv_exists = abap_true. IF lv_exists = abap_true.
CALL METHOD lo_dsfd_handler->('GET_SOURCE_CONTAINER') CALL METHOD lo_dsfd_handler->('IF_DD_DSFD_WB_HANDLER~GET_SOURCE_CONTAINER')
EXPORTING EXPORTING
iv_as4local = 'A' iv_as4local = 'A'
RECEIVING RECEIVING
ro_result = lo_dsfd_source_container. ro_result = lo_dsfd_source_container.
CALL METHOD lo_dsfd_source_container->('GET_AS4USER') CALL METHOD lo_dsfd_source_container->('IF_DD_DSFD_CONTAINER_SRC~GET_AS4USER')
RECEIVING RECEIVING
rv_as4user = rv_user. rv_as4user = rv_user.
ENDIF. ENDIF.

8
src/objects/aff/zcl_abapgit_object_dsfi.clas.abap
View File

@ -34,22 +34,22 @@ CLASS zcl_abapgit_object_dsfi IMPLEMENTATION.
ASSIGN ('CE_DD_DSFI_AS4LOCAL=>EN_STATE-ACTIVE') ASSIGN ('CE_DD_DSFI_AS4LOCAL=>EN_STATE-ACTIVE')
TO <lv_active>. TO <lv_active>.
IF sy-subrc = 0. IF sy-subrc = 0.
CALL METHOD lo_dsfi_handler->('CHECK_EXISTENCE') CALL METHOD lo_dsfi_handler->('IF_DD_DSFI_WB_HANDLER~CHECK_EXISTENCE')
EXPORTING EXPORTING
iv_as4local = <lv_active> iv_as4local = <lv_active>
RECEIVING RECEIVING
rv_exists = lv_exists. rv_exists = lv_exists.
IF lv_exists = abap_true. IF lv_exists = abap_true.
CALL METHOD lo_dsfi_handler->('GET_SOURCE_CONTAINER') CALL METHOD lo_dsfi_handler->('IF_DD_DSFI_WB_HANDLER~GET_SOURCE_CONTAINER')
EXPORTING EXPORTING
iv_as4local = <lv_active> iv_as4local = <lv_active>
RECEIVING RECEIVING
ro_result = lo_dsfi_source_container. ro_result = lo_dsfi_source_container.
CALL METHOD lo_dsfi_source_container->('GET_AS4USER') CALL METHOD lo_dsfi_source_container->('IF_DD_DSFI_SRC_CONTAINER~GET_AS4USER')
RECEIVING RECEIVING
rv_as4user = rv_user. rv_result = rv_user.
ENDIF. ENDIF.
ENDIF. ENDIF.

7
src/objects/core/zcl_abapgit_objects_activation.clas.abap
View File

@ -56,7 +56,9 @@ CLASS zcl_abapgit_objects_activation DEFINITION
c_ddls TYPE c LENGTH 24 VALUE 'DDLS DRUL DTDC DTEB', c_ddls TYPE c LENGTH 24 VALUE 'DDLS DRUL DTDC DTEB',
c_switches TYPE c LENGTH 24 VALUE 'SF01 SF02 SFSW SFBS SFBF', c_switches TYPE c LENGTH 24 VALUE 'SF01 SF02 SFSW SFBS SFBF',
c_para TYPE c LENGTH 4 VALUE 'PARA', " can be referenced by DTEL c_para TYPE c LENGTH 4 VALUE 'PARA', " can be referenced by DTEL
c_enhd TYPE c LENGTH 4 VALUE 'ENHD'. c_enhd TYPE c LENGTH 4 VALUE 'ENHD',
c_scalarfunc TYPE c LENGTH 9 VALUE 'DSFD DSFI',
c_aspect TYPE c LENGTH 4 VALUE 'DRAS'.
CLASS-DATA: CLASS-DATA:
gt_classes TYPE STANDARD TABLE OF ty_classes WITH DEFAULT KEY . gt_classes TYPE STANDARD TABLE OF ty_classes WITH DEFAULT KEY .
@ -554,7 +556,8 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION.
c_enqueue NS iv_obj_type AND c_sqsc NS iv_obj_type AND c_enqueue NS iv_obj_type AND c_sqsc NS iv_obj_type AND
c_stob NS iv_obj_type AND c_ntab NS iv_obj_type AND c_stob NS iv_obj_type AND c_ntab NS iv_obj_type AND
c_ddls NS iv_obj_type AND c_para NS iv_obj_type AND c_ddls NS iv_obj_type AND c_para NS iv_obj_type AND
c_switches NS iv_obj_type AND iv_obj_type <> c_enhd. c_switches NS iv_obj_type AND iv_obj_type <> c_enhd AND
c_aspect NS iv_obj_type AND c_scalarfunc NS iv_obj_type.
rv_result = abap_false. rv_result = abap_false.
ENDIF. ENDIF.