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

Merge branch 'main' into alav-ddlx

Browse Source
This commit is contained in:
Marc Bernard 2025-01-23 21:29:47 +01:00 committed by GitHub
commit 8b7bd23ae7
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
3 changed files with 73 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/objects/zcl_abapgit_object_dcls.clas.abap
View File

@ -70,9 +70,10 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
METHOD zif_abapgit_object~deserialize. METHOD zif_abapgit_object~deserialize.
DATA: lr_data TYPE REF TO data, DATA: lr_data TYPE REF TO data,
lo_dcl TYPE REF TO object, lo_dcl TYPE REF TO object,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root,
lv_abap_language_version TYPE uccheck.
FIELD-SYMBOLS: <lg_data> TYPE any, FIELD-SYMBOLS: <lg_data> TYPE any,
<lg_field> TYPE any. <lg_field> TYPE any.
@ -91,6 +92,12 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
<lg_field> = mo_files->read_string( 'asdcls' ). <lg_field> = mo_files->read_string( 'asdcls' ).
ASSIGN COMPONENT 'ABAP_LANGUAGE_VERSION' OF STRUCTURE <lg_data> TO <lg_field>.
IF sy-subrc = 0.
lv_abap_language_version = <lg_field>.
set_abap_language_version( CHANGING cv_abap_language_version = lv_abap_language_version ).
ENDIF.
TRY. TRY.
tadir_insert( iv_package ). tadir_insert( iv_package ).
@ -98,13 +105,24 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
RECEIVING RECEIVING
ro_handler = lo_dcl. ro_handler = lo_dcl.
CALL METHOD lo_dcl->('SAVE') TRY.
EXPORTING CALL METHOD lo_dcl->('SAVE')
iv_dclname = ms_item-obj_name EXPORTING
iv_put_state = 'I' iv_dclname = ms_item-obj_name
is_dclsrc = <lg_data> iv_put_state = 'I'
iv_devclass = iv_package is_dclsrc = <lg_data>
iv_access_mode = 'INSERT'. iv_devclass = iv_package
iv_access_mode = 'INSERT'
iv_abap_language_version = lv_abap_language_version.
CATCH cx_sy_dyn_call_param_not_found.
CALL METHOD lo_dcl->('SAVE')
EXPORTING
iv_dclname = ms_item-obj_name
iv_put_state = 'I'
is_dclsrc = <lg_data>
iv_devclass = iv_package
iv_access_mode = 'INSERT'.
ENDTRY.
CATCH cx_root INTO lx_error. CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ). zcx_abapgit_exception=>raise_with_text( lx_error ).
@ -236,7 +254,7 @@ CLASS zcl_abapgit_object_dcls IMPLEMENTATION.
ASSIGN COMPONENT 'ABAP_LANGUAGE_VERSION' OF STRUCTURE <lg_data> TO <lg_field>. ASSIGN COMPONENT 'ABAP_LANGUAGE_VERSION' OF STRUCTURE <lg_data> TO <lg_field>.
IF sy-subrc = 0. IF sy-subrc = 0.
CLEAR <lg_field>. clear_abap_language_version( CHANGING cv_abap_language_version = <lg_field> ).
ENDIF. ENDIF.
ASSIGN COMPONENT 'SOURCE' OF STRUCTURE <lg_data> TO <lg_field>. ASSIGN COMPONENT 'SOURCE' OF STRUCTURE <lg_data> TO <lg_field>.

59
src/objects/zcl_abapgit_object_ddls.clas.abap
View File

@ -276,11 +276,12 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: FIELD-SYMBOLS:
<lg_data> TYPE any, <lg_data> TYPE any,
<lg_data_baseinfo> TYPE any, <lg_data_baseinfo> TYPE any,
<lg_source> TYPE any, <lg_source> TYPE any,
<lg_baseinfo_string> TYPE any, <lg_baseinfo_string> TYPE any,
<lg_baseinfo_ddlname> TYPE any. <lg_baseinfo_ddlname> TYPE any,
<lg_abap_language_version> TYPE any.
TRY. TRY.
CREATE DATA lr_data TYPE ('DDDDLSRCV'). CREATE DATA lr_data TYPE ('DDDDLSRCV').
@ -293,6 +294,11 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
<lg_source> = mo_files->read_string( 'asddls' ). <lg_source> = mo_files->read_string( 'asddls' ).
ASSIGN COMPONENT 'ABAP_LANGUAGE_VERSION' OF STRUCTURE <lg_data> TO <lg_abap_language_version>.
IF sy-subrc = 0.
set_abap_language_version( CHANGING cv_abap_language_version = <lg_abap_language_version> ).
ENDIF.
CALL METHOD ('CL_DD_DDL_HANDLER_FACTORY')=>('CREATE') CALL METHOD ('CL_DD_DDL_HANDLER_FACTORY')=>('CREATE')
RECEIVING RECEIVING
handler = lo_ddl. handler = lo_ddl.
@ -310,12 +316,22 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
<lg_baseinfo_ddlname> = ms_item-obj_name. <lg_baseinfo_ddlname> = ms_item-obj_name.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~SAVE') TRY.
EXPORTING CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~SAVE')
name = ms_item-obj_name EXPORTING
put_state = 'N' name = ms_item-obj_name
ddddlsrcv_wa = <lg_data> put_state = 'N'
baseinfo_string = <lg_data_baseinfo>. ddddlsrcv_wa = <lg_data>
baseinfo_string = <lg_data_baseinfo>
save_language_version = abap_true.
CATCH cx_sy_dyn_call_param_not_found.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~SAVE')
EXPORTING
name = ms_item-obj_name
put_state = 'N'
ddddlsrcv_wa = <lg_data>
baseinfo_string = <lg_data_baseinfo>.
ENDTRY.
ELSE. ELSE.
CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~SAVE') CALL METHOD lo_ddl->('IF_DD_DDL_HANDLER~SAVE')
EXPORTING EXPORTING
@ -447,13 +463,14 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
lt_clr_comps TYPE STANDARD TABLE OF fieldname WITH DEFAULT KEY, lt_clr_comps TYPE STANDARD TABLE OF fieldname WITH DEFAULT KEY,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: <lg_data> TYPE any, FIELD-SYMBOLS: <lg_data> TYPE any,
<lg_field> TYPE any, <lg_field> TYPE any,
<lv_comp> LIKE LINE OF lt_clr_comps, <lv_comp> LIKE LINE OF lt_clr_comps,
<lt_data_baseinfo> TYPE ANY TABLE, <lt_data_baseinfo> TYPE ANY TABLE,
<lg_data_baseinfo> TYPE any, <lg_data_baseinfo> TYPE any,
<lg_ddlname> TYPE any, <lg_ddlname> TYPE any,
<lg_as4local> TYPE any. <lg_as4local> TYPE any,
<lg_abap_language_version> TYPE any.
TRY. TRY.
@ -506,12 +523,16 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION.
zcx_abapgit_exception=>raise_with_text( lx_error ). zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY. ENDTRY.
ASSIGN COMPONENT 'ABAP_LANGUAGE_VERSION' OF STRUCTURE <lg_data> TO <lg_abap_language_version>.
IF sy-subrc = 0.
clear_abap_language_version( CHANGING cv_abap_language_version = <lg_abap_language_version> ).
ENDIF.
APPEND 'AS4USER' TO lt_clr_comps. APPEND 'AS4USER' TO lt_clr_comps.
APPEND 'AS4DATE' TO lt_clr_comps. APPEND 'AS4DATE' TO lt_clr_comps.
APPEND 'AS4TIME' TO lt_clr_comps. APPEND 'AS4TIME' TO lt_clr_comps.
APPEND 'ACTFLAG' TO lt_clr_comps. APPEND 'ACTFLAG' TO lt_clr_comps.
APPEND 'CHGFLAG' TO lt_clr_comps. APPEND 'CHGFLAG' TO lt_clr_comps.
APPEND 'ABAP_LANGUAGE_VERSION' TO lt_clr_comps.
APPEND 'ABAP_LANGU_VERSION' TO lt_clr_comps. APPEND 'ABAP_LANGU_VERSION' TO lt_clr_comps.
LOOP AT lt_clr_comps ASSIGNING <lv_comp>. LOOP AT lt_clr_comps ASSIGNING <lv_comp>.

5
src/ui/pages/zcl_abapgit_gui_page_patch.clas.abap
View File

@ -528,7 +528,10 @@ CLASS zcl_abapgit_gui_page_patch IMPLEMENTATION.
lv_patched TYPE abap_bool, lv_patched TYPE abap_bool,
lv_is_patch_possible TYPE abap_bool. lv_is_patch_possible TYPE abap_bool.
lv_patched = get_diff_object( iv_filename )->is_line_patched( iv_index ). " In case an object is falsely detected as changed, filename is empty and there's no diff object
IF iv_filename IS NOT INITIAL.
lv_patched = get_diff_object( iv_filename )->is_line_patched( iv_index ).
ENDIF.
lv_is_patch_possible = is_patch_line_possible( is_diff_line ). lv_is_patch_possible = is_patch_line_possible( is_diff_line ).