mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
* typo corrected "Guide for installing bundle" * zcl_abapgit_factory naming convention https://github.com/larshp/abapGit/issues/1132 * zcl_abapgit_object_form naming convention https://github.com/larshp/abapGit/issues/1132
This commit is contained in:
parent
e74e03f5a5
commit
e34d80214e
|
@ -27,23 +27,23 @@ CLASS zcl_abapgit_object_form DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
|
||||||
tys_text_header TYPE LINE OF tyt_text_header,
|
tys_text_header TYPE LINE OF tyt_text_header,
|
||||||
tyt_lines TYPE tline_tab.
|
tyt_lines TYPE tline_tab.
|
||||||
|
|
||||||
METHODS _get_last_changes
|
METHODS get_last_changes
|
||||||
IMPORTING
|
IMPORTING
|
||||||
iv_form_name TYPE zif_abapgit_definitions=>ty_item-obj_name
|
iv_form_name TYPE zif_abapgit_definitions=>ty_item-obj_name
|
||||||
RETURNING
|
RETURNING
|
||||||
VALUE(es_last_changed) TYPE tys_form_header.
|
VALUE(rs_last_changed) TYPE tys_form_header.
|
||||||
|
|
||||||
METHODS _build_extra_from_header
|
METHODS build_extra_from_header
|
||||||
IMPORTING
|
IMPORTING
|
||||||
ls_header TYPE tys_form_header
|
is_header TYPE tys_form_header
|
||||||
RETURNING
|
RETURNING
|
||||||
VALUE(r_result) TYPE string.
|
VALUE(rv_result) TYPE string.
|
||||||
|
|
||||||
METHODS _build_extra_from_header_old
|
METHODS build_extra_from_header_old
|
||||||
IMPORTING
|
IMPORTING
|
||||||
ls_header TYPE tys_form_header
|
is_header TYPE tys_form_header
|
||||||
RETURNING
|
RETURNING
|
||||||
VALUE(r_result) TYPE string.
|
VALUE(rv_result) TYPE string.
|
||||||
|
|
||||||
METHODS _save_form
|
METHODS _save_form
|
||||||
IMPORTING
|
IMPORTING
|
||||||
|
@ -51,11 +51,11 @@ CLASS zcl_abapgit_object_form DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
|
||||||
CHANGING
|
CHANGING
|
||||||
cs_form_data TYPE zcl_abapgit_object_form=>tys_form_data.
|
cs_form_data TYPE zcl_abapgit_object_form=>tys_form_data.
|
||||||
|
|
||||||
METHODS _extract_tdlines
|
METHODS extract_tdlines
|
||||||
IMPORTING
|
IMPORTING
|
||||||
is_form_data TYPE zcl_abapgit_object_form=>tys_form_data
|
is_form_data TYPE zcl_abapgit_object_form=>tys_form_data
|
||||||
RETURNING
|
RETURNING
|
||||||
VALUE(et_lines) TYPE zcl_abapgit_object_form=>tyt_lines
|
VALUE(rt_lines) TYPE zcl_abapgit_object_form=>tyt_lines
|
||||||
RAISING
|
RAISING
|
||||||
zcx_abapgit_exception.
|
zcx_abapgit_exception.
|
||||||
|
|
||||||
|
@ -63,18 +63,18 @@ CLASS zcl_abapgit_object_form DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
|
||||||
CHANGING
|
CHANGING
|
||||||
cs_form_data TYPE zcl_abapgit_object_form=>tys_form_data.
|
cs_form_data TYPE zcl_abapgit_object_form=>tys_form_data.
|
||||||
|
|
||||||
METHODS _compress_lines
|
METHODS compress_lines
|
||||||
IMPORTING
|
IMPORTING
|
||||||
is_form_data TYPE zcl_abapgit_object_form=>tys_form_data
|
is_form_data TYPE zcl_abapgit_object_form=>tys_form_data
|
||||||
it_lines TYPE zcl_abapgit_object_form=>tyt_lines
|
it_lines TYPE zcl_abapgit_object_form=>tyt_lines
|
||||||
RAISING
|
RAISING
|
||||||
zcx_abapgit_exception.
|
zcx_abapgit_exception.
|
||||||
|
|
||||||
METHODS _find_form
|
METHODS find_form
|
||||||
IMPORTING
|
IMPORTING
|
||||||
iv_object_name TYPE zif_abapgit_definitions=>ty_item-obj_name
|
iv_object_name TYPE zif_abapgit_definitions=>ty_item-obj_name
|
||||||
RETURNING
|
RETURNING
|
||||||
VALUE(et_text_header) TYPE zcl_abapgit_object_form=>tyt_text_header.
|
VALUE(rt_text_header) TYPE zcl_abapgit_object_form=>tyt_text_header.
|
||||||
|
|
||||||
METHODS _read_form
|
METHODS _read_form
|
||||||
IMPORTING
|
IMPORTING
|
||||||
|
@ -93,7 +93,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
DATA: ls_last_changed TYPE tys_form_header.
|
DATA: ls_last_changed TYPE tys_form_header.
|
||||||
DATA: lv_last_changed_ts TYPE timestamp.
|
DATA: lv_last_changed_ts TYPE timestamp.
|
||||||
|
|
||||||
ls_last_changed = _get_last_changes( ms_item-obj_name ).
|
ls_last_changed = get_last_changes( ms_item-obj_name ).
|
||||||
|
|
||||||
CONVERT DATE ls_last_changed-tdldate TIME ls_last_changed-tdltime
|
CONVERT DATE ls_last_changed-tdldate TIME ls_last_changed-tdltime
|
||||||
INTO TIME STAMP lv_last_changed_ts TIME ZONE sy-zonlo.
|
INTO TIME STAMP lv_last_changed_ts TIME ZONE sy-zonlo.
|
||||||
|
@ -106,7 +106,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
|
|
||||||
DATA: ls_last_changed TYPE tys_form_header.
|
DATA: ls_last_changed TYPE tys_form_header.
|
||||||
|
|
||||||
ls_last_changed = _get_last_changes( ms_item-obj_name ).
|
ls_last_changed = get_last_changes( ms_item-obj_name ).
|
||||||
|
|
||||||
IF ls_last_changed-tdluser IS NOT INITIAL.
|
IF ls_last_changed-tdluser IS NOT INITIAL.
|
||||||
rv_user = ls_last_changed-tdluser.
|
rv_user = ls_last_changed-tdluser.
|
||||||
|
@ -193,7 +193,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
DATA: lv_form_found TYPE flag.
|
DATA: lv_form_found TYPE flag.
|
||||||
FIELD-SYMBOLS: <ls_text_header> LIKE LINE OF lt_text_header.
|
FIELD-SYMBOLS: <ls_text_header> LIKE LINE OF lt_text_header.
|
||||||
|
|
||||||
lt_text_header = _find_form( ms_item-obj_name ).
|
lt_text_header = find_form( ms_item-obj_name ).
|
||||||
|
|
||||||
LOOP AT lt_text_header ASSIGNING <ls_text_header>.
|
LOOP AT lt_text_header ASSIGNING <ls_text_header>.
|
||||||
CLEAR lt_lines.
|
CLEAR lt_lines.
|
||||||
|
@ -209,7 +209,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
|
|
||||||
_clear_changed_fields( CHANGING cs_form_data = ls_form_data ).
|
_clear_changed_fields( CHANGING cs_form_data = ls_form_data ).
|
||||||
|
|
||||||
_compress_lines( is_form_data = ls_form_data
|
compress_lines( is_form_data = ls_form_data
|
||||||
it_lines = lt_lines ).
|
it_lines = lt_lines ).
|
||||||
|
|
||||||
INSERT ls_form_data INTO TABLE lt_form_data.
|
INSERT ls_form_data INTO TABLE lt_form_data.
|
||||||
|
@ -238,7 +238,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
|
|
||||||
LOOP AT lt_form_data ASSIGNING <ls_form_data>.
|
LOOP AT lt_form_data ASSIGNING <ls_form_data>.
|
||||||
|
|
||||||
lt_lines = _extract_tdlines( <ls_form_data> ).
|
lt_lines = extract_tdlines( <ls_form_data> ).
|
||||||
|
|
||||||
_save_form( EXPORTING it_lines = lt_lines
|
_save_form( EXPORTING it_lines = lt_lines
|
||||||
CHANGING cs_form_data = <ls_form_data> ).
|
CHANGING cs_form_data = <ls_form_data> ).
|
||||||
|
@ -259,29 +259,29 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
CREATE OBJECT ro_comparison_result TYPE zcl_abapgit_comparison_null.
|
CREATE OBJECT ro_comparison_result TYPE zcl_abapgit_comparison_null.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD _build_extra_from_header.
|
METHOD build_extra_from_header.
|
||||||
|
|
||||||
DATA: lv_tdspras type laiso.
|
DATA: lv_tdspras TYPE laiso.
|
||||||
|
|
||||||
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
|
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
|
||||||
EXPORTING
|
EXPORTING
|
||||||
input = ls_header-tdspras
|
input = is_header-tdspras
|
||||||
IMPORTING
|
IMPORTING
|
||||||
output = lv_tdspras.
|
output = lv_tdspras.
|
||||||
|
|
||||||
r_result = c_objectname_tdlines && '_' && lv_tdspras.
|
rv_result = c_objectname_tdlines && '_' && lv_tdspras.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD _build_extra_from_header_old.
|
METHOD build_extra_from_header_old.
|
||||||
r_result = c_objectname_tdlines && '_' && ls_header-tdspras.
|
rv_result = c_objectname_tdlines && '_' && is_header-tdspras.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD _get_last_changes.
|
METHOD get_last_changes.
|
||||||
|
|
||||||
DATA: lv_form_name TYPE thead-tdform.
|
DATA: lv_form_name TYPE thead-tdform.
|
||||||
|
|
||||||
CLEAR es_last_changed.
|
CLEAR rs_last_changed.
|
||||||
|
|
||||||
lv_form_name = iv_form_name.
|
lv_form_name = iv_form_name.
|
||||||
|
|
||||||
|
@ -290,7 +290,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
form = lv_form_name
|
form = lv_form_name
|
||||||
read_only_header = abap_true
|
read_only_header = abap_true
|
||||||
IMPORTING
|
IMPORTING
|
||||||
form_header = es_last_changed.
|
form_header = rs_last_changed.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
@ -322,26 +322,26 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD _extract_tdlines.
|
METHOD extract_tdlines.
|
||||||
|
|
||||||
DATA lv_string TYPE string.
|
DATA lv_string TYPE string.
|
||||||
DATA lo_xml TYPE REF TO zcl_abapgit_xml_input.
|
DATA lo_xml TYPE REF TO zcl_abapgit_xml_input.
|
||||||
|
|
||||||
TRY.
|
TRY.
|
||||||
lv_string = mo_files->read_string( iv_extra =
|
lv_string = mo_files->read_string( iv_extra =
|
||||||
_build_extra_from_header( is_form_data-form_header )
|
build_extra_from_header( is_form_data-form_header )
|
||||||
iv_ext = c_extension_xml ).
|
iv_ext = c_extension_xml ).
|
||||||
CATCH zcx_abapgit_exception.
|
CATCH zcx_abapgit_exception.
|
||||||
|
|
||||||
lv_string = mo_files->read_string( iv_extra =
|
lv_string = mo_files->read_string( iv_extra =
|
||||||
_build_extra_from_header_old( is_form_data-form_header )
|
build_extra_from_header_old( is_form_data-form_header )
|
||||||
iv_ext = c_extension_xml ).
|
iv_ext = c_extension_xml ).
|
||||||
|
|
||||||
ENDTRY.
|
ENDTRY.
|
||||||
|
|
||||||
CREATE OBJECT lo_xml EXPORTING iv_xml = lv_string.
|
CREATE OBJECT lo_xml EXPORTING iv_xml = lv_string.
|
||||||
lo_xml->read( EXPORTING iv_name = c_objectname_tdlines
|
lo_xml->read( EXPORTING iv_name = c_objectname_tdlines
|
||||||
CHANGING cg_data = et_lines ).
|
CHANGING cg_data = rt_lines ).
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
@ -368,7 +368,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD _compress_lines.
|
METHOD compress_lines.
|
||||||
|
|
||||||
DATA lv_string TYPE string.
|
DATA lv_string TYPE string.
|
||||||
DATA lo_xml TYPE REF TO zcl_abapgit_xml_output.
|
DATA lo_xml TYPE REF TO zcl_abapgit_xml_output.
|
||||||
|
@ -379,7 +379,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
lv_string = lo_xml->render( ).
|
lv_string = lo_xml->render( ).
|
||||||
IF lv_string IS NOT INITIAL.
|
IF lv_string IS NOT INITIAL.
|
||||||
mo_files->add_string( iv_extra =
|
mo_files->add_string( iv_extra =
|
||||||
_build_extra_from_header( is_form_data-form_header )
|
build_extra_from_header( is_form_data-form_header )
|
||||||
iv_ext = c_extension_xml
|
iv_ext = c_extension_xml
|
||||||
iv_string = lv_string ).
|
iv_string = lv_string ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
@ -387,7 +387,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD _find_form.
|
METHOD find_form.
|
||||||
|
|
||||||
DATA: lv_text_name TYPE thead-tdname.
|
DATA: lv_text_name TYPE thead-tdname.
|
||||||
|
|
||||||
|
@ -401,7 +401,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION.
|
||||||
name = lv_text_name
|
name = lv_text_name
|
||||||
object = c_objectname_form
|
object = c_objectname_form
|
||||||
TABLES
|
TABLES
|
||||||
selections = et_text_header
|
selections = rt_text_header
|
||||||
EXCEPTIONS
|
EXCEPTIONS
|
||||||
OTHERS = 1
|
OTHERS = 1
|
||||||
##fm_subrc_ok ##NO_TEXT. "#EC CI_SUBRC
|
##fm_subrc_ok ##NO_TEXT. "#EC CI_SUBRC
|
||||||
|
|
Loading…
Reference in New Issue
Block a user