mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
handle delete on more objects
This commit is contained in:
Lars Hvam
parent
b75ade8b3f
commit
9b3e33ac15
176
zabapgit.abap
176
zabapgit.abap
|
|
@ -2,7 +2,8 @@ REPORT zabapgit.
|
||||||
|
|
||||||
* See https://github.com/larshp/abapGit/
|
* See https://github.com/larshp/abapGit/
|
||||||
|
|
||||||
CONSTANTS: gc_version TYPE string VALUE 'v0.2-alpha'. "#EC NOTEXT
|
CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT
|
||||||
|
gc_abap_version TYPE string VALUE 'v0.3'. "#EC NOTEXT
|
||||||
|
|
||||||
********************************************************************************
|
********************************************************************************
|
||||||
* The MIT License (MIT)
|
* The MIT License (MIT)
|
||||||
|
|
@ -556,7 +557,7 @@ CLASS lcl_xml IMPLEMENTATION.
|
||||||
mi_root = mi_xml_doc->find_from_name( depth = 0 name = 'abapGit' ).
|
mi_root = mi_xml_doc->find_from_name( depth = 0 name = 'abapGit' ).
|
||||||
ELSEIF iv_empty = abap_false.
|
ELSEIF iv_empty = abap_false.
|
||||||
mi_root = mi_xml_doc->create_element( 'abapGit' ).
|
mi_root = mi_xml_doc->create_element( 'abapGit' ).
|
||||||
mi_root->set_attribute( name = 'version' value = gc_version ). "#EC NOTEXT
|
mi_root->set_attribute( name = 'version' value = gc_xml_version ). "#EC NOTEXT
|
||||||
mi_xml_doc->append_child( mi_root ).
|
mi_xml_doc->append_child( mi_root ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
|
|
@ -1428,7 +1429,27 @@ ENDCLASS. "lcl_serialize_doma DEFINITION
|
||||||
CLASS lcl_serialize_doma IMPLEMENTATION.
|
CLASS lcl_serialize_doma IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD delete.
|
METHOD delete.
|
||||||
_raise 'todo, delete, doma'.
|
* see class CL_WB_DDIC
|
||||||
|
|
||||||
|
DATA: lv_objname TYPE rsedd0-ddobjname.
|
||||||
|
|
||||||
|
|
||||||
|
lv_objname = is_item-obj_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'RS_DD_DELETE_OBJ'
|
||||||
|
EXPORTING
|
||||||
|
no_ask = abap_true
|
||||||
|
objname = lv_objname
|
||||||
|
objtype = 'D'
|
||||||
|
EXCEPTIONS
|
||||||
|
not_executed = 1
|
||||||
|
object_not_found = 2
|
||||||
|
object_not_specified = 3
|
||||||
|
permission_failure = 4.
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
_raise 'error from RS_DD_DELETE_OBJ, DOMA'.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
ENDMETHOD. "delete
|
ENDMETHOD. "delete
|
||||||
|
|
||||||
METHOD serialize.
|
METHOD serialize.
|
||||||
|
|
@ -1460,8 +1481,6 @@ CLASS lcl_serialize_doma IMPLEMENTATION.
|
||||||
RETURN. " does not exist
|
RETURN. " does not exist
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
* todo, translated texts?
|
|
||||||
|
|
||||||
CLEAR: ls_dd01v-as4user,
|
CLEAR: ls_dd01v-as4user,
|
||||||
ls_dd01v-as4date,
|
ls_dd01v-as4date,
|
||||||
ls_dd01v-as4time.
|
ls_dd01v-as4time.
|
||||||
|
|
@ -1554,7 +1573,24 @@ CLASS lcl_serialize_dtel IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD delete.
|
METHOD delete.
|
||||||
|
|
||||||
_raise 'todo, delete dtel'.
|
DATA: lv_objname TYPE rsedd0-ddobjname.
|
||||||
|
|
||||||
|
|
||||||
|
lv_objname = is_item-obj_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'RS_DD_DELETE_OBJ'
|
||||||
|
EXPORTING
|
||||||
|
no_ask = abap_true
|
||||||
|
objname = lv_objname
|
||||||
|
objtype = 'E'
|
||||||
|
EXCEPTIONS
|
||||||
|
not_executed = 1
|
||||||
|
object_not_found = 2
|
||||||
|
object_not_specified = 3
|
||||||
|
permission_failure = 4.
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
_raise 'error from RS_DD_DELETE_OBJ, DTEL'.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
ENDMETHOD. "delete
|
ENDMETHOD. "delete
|
||||||
|
|
||||||
|
|
@ -1586,8 +1622,6 @@ CLASS lcl_serialize_dtel IMPLEMENTATION.
|
||||||
RETURN. " does not exist
|
RETURN. " does not exist
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
* todo, translated texts?
|
|
||||||
|
|
||||||
CLEAR: ls_dd04v-as4user,
|
CLEAR: ls_dd04v-as4user,
|
||||||
ls_dd04v-as4date,
|
ls_dd04v-as4date,
|
||||||
ls_dd04v-as4time.
|
ls_dd04v-as4time.
|
||||||
|
|
@ -2328,9 +2362,27 @@ CLASS lcl_serialize_ssfo IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD delete.
|
METHOD delete.
|
||||||
|
|
||||||
* fm FB_DELETE_FORM
|
DATA: lv_formname TYPE tdsfname.
|
||||||
|
|
||||||
_raise 'todo, delete ssfo'.
|
|
||||||
|
lv_formname = is_item-obj_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'FB_DELETE_FORM'
|
||||||
|
EXPORTING
|
||||||
|
i_formname = lv_formname
|
||||||
|
i_with_dialog = abap_false
|
||||||
|
i_with_confirm_dialog = abap_false
|
||||||
|
EXCEPTIONS
|
||||||
|
no_name = 1
|
||||||
|
no_form = 2
|
||||||
|
form_locked = 3
|
||||||
|
no_access_permission = 4
|
||||||
|
illegal_language = 5
|
||||||
|
illegal_formtype = 6
|
||||||
|
OTHERS = 7.
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
_raise 'Error from FB_DELETE_FORM'.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
ENDMETHOD. "delete
|
ENDMETHOD. "delete
|
||||||
|
|
||||||
|
|
@ -2496,7 +2548,24 @@ CLASS lcl_serialize_tabl IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD delete.
|
METHOD delete.
|
||||||
|
|
||||||
_raise 'todo, delete tabl'.
|
DATA: lv_objname TYPE rsedd0-ddobjname.
|
||||||
|
|
||||||
|
|
||||||
|
lv_objname = is_item-obj_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'RS_DD_DELETE_OBJ'
|
||||||
|
EXPORTING
|
||||||
|
no_ask = abap_true
|
||||||
|
objname = lv_objname
|
||||||
|
objtype = 'T'
|
||||||
|
EXCEPTIONS
|
||||||
|
not_executed = 1
|
||||||
|
object_not_found = 2
|
||||||
|
object_not_specified = 3
|
||||||
|
permission_failure = 4.
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
_raise 'error from RS_DD_DELETE_OBJ, TABL'.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
ENDMETHOD. "delete
|
ENDMETHOD. "delete
|
||||||
|
|
||||||
|
|
@ -2716,7 +2785,24 @@ CLASS lcl_serialize_enqu IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD delete.
|
METHOD delete.
|
||||||
|
|
||||||
_raise 'todo delete enqu'.
|
DATA: lv_objname TYPE rsedd0-ddobjname.
|
||||||
|
|
||||||
|
|
||||||
|
lv_objname = is_item-obj_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'RS_DD_DELETE_OBJ'
|
||||||
|
EXPORTING
|
||||||
|
no_ask = abap_true
|
||||||
|
objname = lv_objname
|
||||||
|
objtype = 'L'
|
||||||
|
EXCEPTIONS
|
||||||
|
not_executed = 1
|
||||||
|
object_not_found = 2
|
||||||
|
object_not_specified = 3
|
||||||
|
permission_failure = 4.
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
_raise 'error from RS_DD_DELETE_OBJ, ENQU'.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
ENDMETHOD. "delete
|
ENDMETHOD. "delete
|
||||||
|
|
||||||
|
|
@ -2844,7 +2930,24 @@ CLASS lcl_serialize_shlp IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD delete.
|
METHOD delete.
|
||||||
|
|
||||||
_raise 'todo, delete shlp'.
|
DATA: lv_objname TYPE rsedd0-ddobjname.
|
||||||
|
|
||||||
|
|
||||||
|
lv_objname = is_item-obj_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'RS_DD_DELETE_OBJ'
|
||||||
|
EXPORTING
|
||||||
|
no_ask = abap_true
|
||||||
|
objname = lv_objname
|
||||||
|
objtype = 'H'
|
||||||
|
EXCEPTIONS
|
||||||
|
not_executed = 1
|
||||||
|
object_not_found = 2
|
||||||
|
object_not_specified = 3
|
||||||
|
permission_failure = 4.
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
_raise 'error from RS_DD_DELETE_OBJ, SHLP'.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
ENDMETHOD. "delete
|
ENDMETHOD. "delete
|
||||||
|
|
||||||
|
|
@ -2982,7 +3085,24 @@ CLASS lcl_serialize_view IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD delete.
|
METHOD delete.
|
||||||
|
|
||||||
_raise 'todo, delete view'.
|
DATA: lv_objname TYPE rsedd0-ddobjname.
|
||||||
|
|
||||||
|
|
||||||
|
lv_objname = is_item-obj_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'RS_DD_DELETE_OBJ'
|
||||||
|
EXPORTING
|
||||||
|
no_ask = abap_true
|
||||||
|
objname = lv_objname
|
||||||
|
objtype = 'V'
|
||||||
|
EXCEPTIONS
|
||||||
|
not_executed = 1
|
||||||
|
object_not_found = 2
|
||||||
|
object_not_specified = 3
|
||||||
|
permission_failure = 4.
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
_raise 'error from RS_DD_DELETE_OBJ, VIEW'.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
ENDMETHOD. "delete
|
ENDMETHOD. "delete
|
||||||
|
|
||||||
|
|
@ -3140,7 +3260,24 @@ CLASS lcl_serialize_ttyp IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD delete.
|
METHOD delete.
|
||||||
|
|
||||||
_raise 'todo, delete ttyp'.
|
DATA: lv_objname TYPE rsedd0-ddobjname.
|
||||||
|
|
||||||
|
|
||||||
|
lv_objname = is_item-obj_name.
|
||||||
|
|
||||||
|
CALL FUNCTION 'RS_DD_DELETE_OBJ'
|
||||||
|
EXPORTING
|
||||||
|
no_ask = abap_true
|
||||||
|
objname = lv_objname
|
||||||
|
objtype = 'A'
|
||||||
|
EXCEPTIONS
|
||||||
|
not_executed = 1
|
||||||
|
object_not_found = 2
|
||||||
|
object_not_specified = 3
|
||||||
|
permission_failure = 4.
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
_raise 'error from RS_DD_DELETE_OBJ, TTYP'.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
ENDMETHOD. "delete
|
ENDMETHOD. "delete
|
||||||
|
|
||||||
|
|
@ -4015,8 +4152,6 @@ CLASS lcl_serialize IMPLEMENTATION.
|
||||||
DELETE ADJACENT DUPLICATES FROM rt_results
|
DELETE ADJACENT DUPLICATES FROM rt_results
|
||||||
COMPARING obj_type obj_name filename.
|
COMPARING obj_type obj_name filename.
|
||||||
|
|
||||||
* todo, how to handle deleted in repo?
|
|
||||||
|
|
||||||
ENDMETHOD. "status
|
ENDMETHOD. "status
|
||||||
|
|
||||||
METHOD deserialize.
|
METHOD deserialize.
|
||||||
|
|
@ -5482,7 +5617,7 @@ CLASS lcl_transport IMPLEMENTATION.
|
||||||
is_repo-branch_name &&
|
is_repo-branch_name &&
|
||||||
get_null( ) &&
|
get_null( ) &&
|
||||||
` ` &&
|
` ` &&
|
||||||
'report-status agent=abapGit/' && gc_version &&
|
'report-status agent=abapGit/' && gc_abap_version &&
|
||||||
gc_newline. "#EC NOTEXT
|
gc_newline. "#EC NOTEXT
|
||||||
lv_cmd_pkt = pkt_string( lv_line ).
|
lv_cmd_pkt = pkt_string( lv_line ).
|
||||||
|
|
||||||
|
|
@ -5590,7 +5725,7 @@ CLASS lcl_transport IMPLEMENTATION.
|
||||||
` ` &&
|
` ` &&
|
||||||
ev_branch &&
|
ev_branch &&
|
||||||
` ` &&
|
` ` &&
|
||||||
'side-band-64k no-progress agent=abapGit/' && gc_version
|
'side-band-64k no-progress agent=abapGit/' && gc_abap_version
|
||||||
&& gc_newline. "#EC NOTEXT
|
&& gc_newline. "#EC NOTEXT
|
||||||
lv_pkt = pkt_string( lv_line ).
|
lv_pkt = pkt_string( lv_line ).
|
||||||
|
|
||||||
|
|
@ -6414,7 +6549,6 @@ CLASS lcl_gui IMPLEMENTATION.
|
||||||
ls_comment TYPE st_comment,
|
ls_comment TYPE st_comment,
|
||||||
lv_branch TYPE t_sha1,
|
lv_branch TYPE t_sha1,
|
||||||
ls_repo TYPE st_repo,
|
ls_repo TYPE st_repo,
|
||||||
lt_fields TYPE TABLE OF sval,
|
|
||||||
lt_spopli TYPE TABLE OF spopli,
|
lt_spopli TYPE TABLE OF spopli,
|
||||||
lv_answer TYPE c.
|
lv_answer TYPE c.
|
||||||
|
|
||||||
|
|
@ -6731,7 +6865,7 @@ CLASS lcl_gui IMPLEMENTATION.
|
||||||
|
|
||||||
rv_html = rv_html &&
|
rv_html = rv_html &&
|
||||||
'<br><br><hr><center><h3>abapGit Version: ' &&
|
'<br><br><hr><center><h3>abapGit Version: ' &&
|
||||||
gc_version &&
|
gc_abap_version &&
|
||||||
' <a href="sapevent:debug" class="white">d</a></h3></center>'. "#EC NOTEXT
|
' <a href="sapevent:debug" class="white">d</a></h3></center>'. "#EC NOTEXT
|
||||||
|
|
||||||
rv_html = rv_html && '</body></html>'.
|
rv_html = rv_html && '</body></html>'.
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user