diff --git a/abaplint.json b/abaplint.json index 33dce0f6a..a55b060d7 100644 --- a/abaplint.json +++ b/abaplint.json @@ -28,6 +28,7 @@ "seoc_exposure_private", "seoc_exposure_protected", "seoc_exposure_public", + "seoc_state_implemented", "seoc_version_active", "seoc_version_inactive", "seok_access_free", diff --git a/ci/abaplint.json b/ci/abaplint.json index 1cd0aff4b..e073c7bfd 100644 --- a/ci/abaplint.json +++ b/ci/abaplint.json @@ -41,6 +41,7 @@ "seoc_exposure_private", "seoc_exposure_protected", "seoc_exposure_public", + "seoc_state_implemented", "seoc_version_active", "seoc_version_inactive", "seok_access_free", diff --git a/src/objects/oo/zcl_abapgit_oo_base.clas.abap b/src/objects/oo/zcl_abapgit_oo_base.clas.abap index de6a4715c..06346df9b 100644 --- a/src/objects/oo/zcl_abapgit_oo_base.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_base.clas.abap @@ -32,6 +32,8 @@ CLASS ZCL_ABAPGIT_OO_BASE IMPLEMENTATION. INSERT INITIAL LINE INTO TABLE rt_vseoattrib ASSIGNING . MOVE-CORRESPONDING TO . -clsname = iv_clsname. + -state = seoc_state_implemented. + -exposure = -exposure. UNASSIGN . ENDLOOP. UNASSIGN . @@ -134,7 +136,7 @@ CLASS ZCL_ABAPGIT_OO_BASE IMPLEMENTATION. METHOD zif_abapgit_oo_object_fnc~read_attributes. - SELECT cmpname attbusobj attkeyfld + SELECT cmpname attbusobj attkeyfld exposure FROM seocompodf INTO CORRESPONDING FIELDS OF TABLE rt_attributes WHERE clsname = iv_object_name diff --git a/src/zif_abapgit_definitions.intf.abap b/src/zif_abapgit_definitions.intf.abap index d40d12c48..bb6decf3b 100644 --- a/src/zif_abapgit_definitions.intf.abap +++ b/src/zif_abapgit_definitions.intf.abap @@ -234,6 +234,7 @@ INTERFACE zif_abapgit_definitions cmpname TYPE seocmpname, attkeyfld TYPE seokeyfld, attbusobj TYPE seobusobj, + exposure TYPE seoexpose, END OF ty_obj_attribute . TYPES: ty_obj_attribute_tt TYPE STANDARD TABLE OF ty_obj_attribute WITH DEFAULT KEY