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

Revert some

Browse Source
This commit is contained in:
Marc Bernard 2024-11-28 00:09:11 +00:00
parent 75d8cbb0ae
commit 320a74f95d
4 changed files with 53 additions and 114 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

137
src/objects/zcl_abapgit_object_iobj.clas.abap
View File

@ -61,7 +61,7 @@ CLASS zcl_abapgit_object_iobj IMPLEMENTATION.
iobj_not_found = 1 iobj_not_found = 1
illegal_input = 2 illegal_input = 2
bct_comp_invalid = 3 bct_comp_invalid = 3
* not_authorized = 4 " not in lower releases not_authorized = 4
OTHERS = 5. OTHERS = 5.
IF sy-subrc = 0. IF sy-subrc = 0.
ASSIGN COMPONENT 'TSTPNM' OF STRUCTURE <lg_viobj> TO <lg_tstpnm>. ASSIGN COMPONENT 'TSTPNM' OF STRUCTURE <lg_viobj> TO <lg_tstpnm>.
@ -200,67 +200,36 @@ CLASS zcl_abapgit_object_iobj IMPLEMENTATION.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
IF zif_abapgit_object~exists( ) = abap_false. IF zif_abapgit_object~exists( ) = abap_false.
TRY. CALL FUNCTION 'BAPI_IOBJ_CREATE'
CALL FUNCTION 'BAPI_IOBJ_CREATE' EXPORTING
EXPORTING details = <lg_details>
details = <lg_details> IMPORTING
IMPORTING return = ls_return
return = ls_return TABLES
TABLES compounds = <lt_compounds>
compounds = <lt_compounds> attributes = <lt_attributes>
attributes = <lt_attributes> navigationattributes = <lt_navigationattributes>
navigationattributes = <lt_navigationattributes> atrnavinfoprovider = <lt_atrnavinfoprovider>
atrnavinfoprovider = <lt_atrnavinfoprovider> hierarchycharacteristics = <lt_hierarchycharacteristics>
hierarchycharacteristics = <lt_hierarchycharacteristics> elimination = <lt_elimination>
elimination = <lt_elimination> hanafieldsmapping = <lt_hanafieldsmapping>
hanafieldsmapping = <lt_hanafieldsmapping> xxlattributes = <lt_xxlattributes>.
xxlattributes = <lt_xxlattributes> ##ARG_OK.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION 'BAPI_IOBJ_CREATE'
EXPORTING
details = <lg_details>
IMPORTING
return = ls_return
TABLES
compounds = <lt_compounds>
attributes = <lt_attributes>
navigationattributes = <lt_navigationattributes>
atrnavinfoprovider = <lt_atrnavinfoprovider>
hierarchycharacteristics = <lt_hierarchycharacteristics>
elimination = <lt_elimination>.
ENDTRY.
ELSE. ELSE.
TRY. CALL FUNCTION 'BAPI_IOBJ_CHANGE'
CALL FUNCTION 'BAPI_IOBJ_CHANGE' EXPORTING
EXPORTING infoobject = <lg_infoobject>
infoobject = <lg_infoobject> details = <lg_details>
details = <lg_details> IMPORTING
IMPORTING return = ls_return
return = ls_return TABLES
TABLES compounds = <lt_compounds>
compounds = <lt_compounds> attributes = <lt_attributes>
attributes = <lt_attributes> navigationattributes = <lt_navigationattributes>
navigationattributes = <lt_navigationattributes> atrnavinfoprovider = <lt_atrnavinfoprovider>
atrnavinfoprovider = <lt_atrnavinfoprovider> hierarchycharacteristics = <lt_hierarchycharacteristics>
hierarchycharacteristics = <lt_hierarchycharacteristics> elimination = <lt_elimination>
elimination = <lt_elimination> hanafieldsmapping = <lt_hanafieldsmapping>
hanafieldsmapping = <lt_hanafieldsmapping> xxlattributes = <lt_xxlattributes>.
xxlattributes = <lt_xxlattributes> ##ARG_OK.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION 'BAPI_IOBJ_CHANGE'
EXPORTING
infoobject = <lg_infoobject>
details = <lg_details>
IMPORTING
return = ls_return
TABLES
compounds = <lt_compounds>
attributes = <lt_attributes>
navigationattributes = <lt_navigationattributes>
atrnavinfoprovider = <lt_atrnavinfoprovider>
hierarchycharacteristics = <lt_hierarchycharacteristics>
elimination = <lt_elimination>.
ENDTRY.
ENDIF. ENDIF.
IF ls_return-type = 'E'. IF ls_return-type = 'E'.
@ -440,37 +409,21 @@ CLASS zcl_abapgit_object_iobj IMPLEMENTATION.
lv_iobjnam = ms_item-obj_name. lv_iobjnam = ms_item-obj_name.
TRY. CALL FUNCTION 'BAPI_IOBJ_GETDETAIL'
CALL FUNCTION 'BAPI_IOBJ_GETDETAIL' EXPORTING
EXPORTING infoobject = lv_iobjnam
infoobject = lv_iobjnam IMPORTING
IMPORTING details = <lg_details>
details = <lg_details> return = ls_return
return = ls_return TABLES
TABLES compounds = <lt_compounds>
compounds = <lt_compounds> attributes = <lt_attributes>
attributes = <lt_attributes> navigationattributes = <lt_navigationattributes>
navigationattributes = <lt_navigationattributes> atrnavinfoprovider = <lt_atrnavinfoprovider>
atrnavinfoprovider = <lt_atrnavinfoprovider> hierarchycharacteristics = <lt_hierarchycharacteristics>
hierarchycharacteristics = <lt_hierarchycharacteristics> elimination = <lt_elimination>
elimination = <lt_elimination> hanafieldsmapping = <lt_hanafieldsmapping>
hanafieldsmapping = <lt_hanafieldsmapping> xxlattributes = <lt_xxlattributes>.
xxlattributes = <lt_xxlattributes> ##ARG_OK.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION 'BAPI_IOBJ_GETDETAIL'
EXPORTING
infoobject = lv_iobjnam
IMPORTING
details = <lg_details>
return = ls_return
TABLES
compounds = <lt_compounds>
attributes = <lt_attributes>
navigationattributes = <lt_navigationattributes>
atrnavinfoprovider = <lt_atrnavinfoprovider>
hierarchycharacteristics = <lt_hierarchycharacteristics>
elimination = <lt_elimination>.
ENDTRY.
IF ls_return-type = 'E'. IF ls_return-type = 'E'.
zcx_abapgit_exception=>raise( |Error getting details of InfoObject: { ls_return-message }| ). zcx_abapgit_exception=>raise( |Error getting details of InfoObject: { ls_return-message }| ).

6
src/objects/zcl_abapgit_object_iwpr.clas.abap
View File

@ -124,11 +124,7 @@ CLASS zcl_abapgit_object_iwpr IMPLEMENTATION.
METHOD zif_abapgit_object~jump. METHOD zif_abapgit_object~jump.
DATA lv_prog TYPE progname. SUBMIT /iwbep/r_sbui_service_builder
lv_prog = '/IWBEP/R_SBUI_SERVICE_BUILDER'.
SUBMIT (lv_prog)
WITH i_prname = ms_item-obj_name WITH i_prname = ms_item-obj_name
AND RETURN. AND RETURN.

6
src/objects/zcl_abapgit_object_iwvb.clas.abap
View File

@ -131,11 +131,7 @@ CLASS zcl_abapgit_object_iwvb IMPLEMENTATION.
METHOD zif_abapgit_object~jump. METHOD zif_abapgit_object~jump.
DATA lv_prog TYPE progname. SUBMIT /iwbep/r_dst_vocan_register
lv_prog = '/IWBEP/R_DST_VOCAN_REGISTER'.
SUBMIT (lv_prog)
WITH ip_aname = ms_item-obj_name WITH ip_aname = ms_item-obj_name
WITH ip_avers = ms_item-obj_name+32(4) WITH ip_avers = ms_item-obj_name+32(4)
AND RETURN. AND RETURN.

18
src/objects/zcl_abapgit_object_msag.clas.abap
View File

@ -37,17 +37,13 @@ CLASS zcl_abapgit_object_msag DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
zcx_abapgit_exception . zcx_abapgit_exception .
METHODS delete_msgid METHODS delete_msgid
IMPORTING IMPORTING
!iv_message_id TYPE arbgb !iv_message_id TYPE arbgb .
RAISING
zcx_abapgit_exception.
METHODS free_access_permission METHODS free_access_permission
IMPORTING IMPORTING
!iv_message_id TYPE arbgb . !iv_message_id TYPE arbgb .
METHODS delete_documentation METHODS delete_documentation
IMPORTING IMPORTING
!iv_message_id TYPE arbgb !iv_message_id TYPE arbgb .
RAISING
zcx_abapgit_exception.
ENDCLASS. ENDCLASS.
@ -65,7 +61,9 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
element = iv_message_id element = iv_message_id
addition = ' ' addition = ' '
IMPORTING IMPORTING
object = lv_key_s. object = lv_key_s
EXCEPTIONS
OTHERS = 0.
CALL FUNCTION 'DOKU_DELETE_ALL' CALL FUNCTION 'DOKU_DELETE_ALL'
EXPORTING EXPORTING
@ -82,11 +80,7 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
no_docu_found = 4 no_docu_found = 4
object_is_already_enqueued = 5 object_is_already_enqueued = 5
object_is_enqueued_by_corr = 6 object_is_enqueued_by_corr = 6
user_break = 7 user_break = 7.
OTHERS = 8.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error deleting messages' ).
ENDIF.
ENDMETHOD. ENDMETHOD.