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

getting closer

Browse Source
This commit is contained in:
Lars Hvam 2014-07-15 12:30:04 +02:00
parent 883b7cc46b
commit 84b1255993
1 changed files with 170 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

221
zabapgit.abap
View File

@ -1068,13 +1068,15 @@ CLASS lcl_serialize_common DEFINITION ABSTRACT.
CLASS-METHODS: activate IMPORTING is_item TYPE st_item CLASS-METHODS: activate IMPORTING is_item TYPE st_item
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: corr_insert IMPORTING is_item TYPE st_item
RAISING lcx_exception.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS: filename IMPORTING is_item TYPE st_item CLASS-METHODS: filename IMPORTING is_item TYPE st_item
iv_extra TYPE string OPTIONAL iv_extra TYPE string OPTIONAL
iv_ext TYPE string iv_ext TYPE string
RETURNING value(rv_filename) TYPE string. RETURNING value(rv_filename) TYPE string.
ENDCLASS. "lcl_serialize_common DEFINITION ENDCLASS. "lcl_serialize_common DEFINITION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
@ -1084,6 +1086,30 @@ ENDCLASS. "lcl_serialize_common DEFINITION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
CLASS lcl_serialize_common IMPLEMENTATION. CLASS lcl_serialize_common IMPLEMENTATION.
METHOD corr_insert.
DATA: ls_object TYPE ddenqs.
ls_object-objtype = is_item-obj_type.
ls_object-objname = is_item-obj_name.
CALL FUNCTION 'RS_CORR_INSERT'
EXPORTING
object = ls_object
object_class = 'DICT'
master_language = sy-langu
EXCEPTIONS
cancelled = 1
permission_failure = 2
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'error from RS_CORR_INSERT'.
ENDIF.
ENDMETHOD. "corr_insert
METHOD filename. METHOD filename.
IF iv_extra IS INITIAL. IF iv_extra IS INITIAL.
@ -1097,37 +1123,59 @@ CLASS lcl_serialize_common IMPLEMENTATION.
METHOD activate. METHOD activate.
* function group SEWORKINGAREA
DATA: lt_objects TYPE dwinactiv_tab, DATA: lt_objects TYPE dwinactiv_tab,
lv_obj_name TYPE dwinactiv-obj_name. lv_obj_name TYPE dwinactiv-obj_name.
lv_obj_name = is_item-obj_name. lv_obj_name = is_item-obj_name.
CALL FUNCTION 'RS_INACTIVE_OBJECTS_IN_OBJECT' CASE is_item-obj_type.
EXPORTING WHEN 'CLAS'.
obj_name = lv_obj_name CALL FUNCTION 'RS_INACTIVE_OBJECTS_IN_OBJECT'
object = is_item-obj_type EXPORTING
TABLES obj_name = lv_obj_name
inactive_objects = lt_objects. object = is_item-obj_type
TABLES
inactive_objects = lt_objects.
IF lt_objects[] IS INITIAL. IF lt_objects[] IS INITIAL.
RETURN. RETURN.
ENDIF. ENDIF.
CALL FUNCTION 'RS_WORKING_OBJECTS_ACTIVATE' CALL FUNCTION 'RS_WORKING_OBJECTS_ACTIVATE'
TABLES TABLES
objects = lt_objects objects = lt_objects
EXCEPTIONS EXCEPTIONS
excecution_error = 1 excecution_error = 1
cancelled = 2 cancelled = 2
insert_into_corr_error = 3 insert_into_corr_error = 3
execution_error = 4 execution_error = 4
OTHERS = 5. OTHERS = 5.
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'error from RS_WORKING_OBJECTS_ACTIVATE'. _raise 'error from RS_WORKING_OBJECTS_ACTIVATE'.
ENDIF. ENDIF.
* todo, fm RS_MASS_ACTIVATION? WHEN 'DOMA' OR 'DTEL'.
CALL FUNCTION 'RS_WORKING_OBJECT_ACTIVATE'
EXPORTING
object = is_item-obj_type
obj_name = lv_obj_name
dictionary_only = abap_true
EXCEPTIONS
object_not_in_working_area = 1
execution_error = 2
cancelled = 3
insert_into_corr_error = 4
OTHERS = 5.
IF sy-subrc <> 0.
_raise 'error from RS_WORKING_OBJECT_ACTIVATE'.
ENDIF.
WHEN OTHERS.
_raise 'activate, unknown type'.
ENDCASE.
ENDMETHOD. "activate ENDMETHOD. "activate
@ -1257,6 +1305,10 @@ CLASS lcl_serialize_doma IMPLEMENTATION.
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'error from DDIF_DOMA_GET'. _raise 'error from DDIF_DOMA_GET'.
ENDIF. ENDIF.
IF ls_dd01v IS INITIAL.
RETURN. " does not exist
ENDIF.
* todo, translated texts? * todo, translated texts?
CLEAR: ls_dd01v-as4user, CLEAR: ls_dd01v-as4user,
@ -1275,9 +1327,17 @@ CLASS lcl_serialize_doma IMPLEMENTATION.
METHOD deserialize. METHOD deserialize.
DATA: lo_xml TYPE REF TO lcl_xml, * package SEDD
ls_dd01v TYPE dd01v, * package SDIC
lt_dd07v TYPE dd07v_tab.
* fm TR_TADIR_INTERFACE
* fm RS_CORR_INSERT ?
* break LSTRDF31 line 540
DATA: lo_xml TYPE REF TO lcl_xml,
ls_dd01v TYPE dd01v,
lv_name TYPE ddobjname,
lt_dd07v TYPE dd07v_tab.
lo_xml = read_xml( is_item = is_item lo_xml = read_xml( is_item = is_item
@ -1286,7 +1346,28 @@ CLASS lcl_serialize_doma IMPLEMENTATION.
lo_xml->structure_read( CHANGING cg_structure = ls_dd01v ). lo_xml->structure_read( CHANGING cg_structure = ls_dd01v ).
lo_xml->table_read( CHANGING ct_table = lt_dd07v ). lo_xml->table_read( CHANGING ct_table = lt_dd07v ).
_raise 'todo'. corr_insert( is_item ).
lv_name = is_item-obj_name. " type conversion
CALL FUNCTION 'DDIF_DOMA_PUT'
EXPORTING
name = lv_name
dd01v_wa = ls_dd01v
TABLES
dd07v_tab = lt_dd07v
EXCEPTIONS
doma_not_found = 1
name_inconsistent = 2
doma_inconsistent = 3
put_failure = 4
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from DDIF_DOMA_PUT'.
ENDIF.
activate( is_item ).
ENDMETHOD. "deserialize ENDMETHOD. "deserialize
@ -1341,7 +1422,11 @@ CLASS lcl_serialize_dtel IMPLEMENTATION.
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'Error from DDIF_DTEL_GET'. _raise 'Error from DDIF_DTEL_GET'.
ENDIF. ENDIF.
* translated texts? IF ls_dd04v IS INITIAL.
RETURN. " does not exist
ENDIF.
* todo, translated texts?
CLEAR: ls_dd04v-as4user, CLEAR: ls_dd04v-as4user,
ls_dd04v-as4date, ls_dd04v-as4date,
@ -1361,6 +1446,7 @@ CLASS lcl_serialize_dtel IMPLEMENTATION.
DATA: lo_xml TYPE REF TO lcl_xml, DATA: lo_xml TYPE REF TO lcl_xml,
ls_dd04v TYPE dd04v, ls_dd04v TYPE dd04v,
lv_name TYPE ddobjname,
ls_tpara TYPE tpara. ls_tpara TYPE tpara.
@ -1370,7 +1456,26 @@ CLASS lcl_serialize_dtel IMPLEMENTATION.
lo_xml->structure_read( CHANGING cg_structure = ls_dd04v ). lo_xml->structure_read( CHANGING cg_structure = ls_dd04v ).
lo_xml->structure_read( CHANGING cg_structure = ls_tpara ). lo_xml->structure_read( CHANGING cg_structure = ls_tpara ).
_raise 'todo'. corr_insert( is_item ).
lv_name = is_item-obj_name. " type conversion
CALL FUNCTION 'DDIF_DTEL_PUT'
EXPORTING
name = lv_name
dd04v_wa = ls_dd04v
EXCEPTIONS
dtel_not_found = 1
name_inconsistent = 2
dtel_inconsistent = 3
put_failure = 4
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from DDIF_DTEL_PUT'.
ENDIF.
activate( is_item ).
ENDMETHOD. "deserialize ENDMETHOD. "deserialize
@ -2397,6 +2502,7 @@ CLASS lcl_serialize IMPLEMENTATION.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF it_files. FIELD-SYMBOLS: <ls_file> LIKE LINE OF it_files.
* todo, sort objects when activating? DOMA first, DTEL, etc.
LOOP AT it_files ASSIGNING <ls_file>. LOOP AT it_files ASSIGNING <ls_file>.
SPLIT <ls_file>-filename AT '.' INTO lv_pre lv_type lv_ext. SPLIT <ls_file>-filename AT '.' INTO lv_pre lv_type lv_ext.
TRANSLATE lv_pre TO UPPER CASE. TRANSLATE lv_pre TO UPPER CASE.
@ -2410,6 +2516,7 @@ CLASS lcl_serialize IMPLEMENTATION.
ls_item-obj_type = lv_type. ls_item-obj_type = lv_type.
ls_item-obj_name = lv_pre. ls_item-obj_name = lv_pre.
* todo, dont deserialize if it already matches
CASE lv_type. CASE lv_type.
WHEN 'PROG'. WHEN 'PROG'.
lcl_serialize_prog=>deserialize( is_item = ls_item lcl_serialize_prog=>deserialize( is_item = ls_item
@ -3635,6 +3742,8 @@ CLASS lcl_transport IMPLEMENTATION.
ELSEIF sy-tabix > 2 AND strlen( lv_data ) > 45 AND lv_data+45 = is_repo-branch_name. ELSEIF sy-tabix > 2 AND strlen( lv_data ) > 45 AND lv_data+45 = is_repo-branch_name.
lv_hash = lv_data+4. lv_hash = lv_data+4.
EXIT. " current loop EXIT. " current loop
ELSEIF sy-tabix = 2 AND strlen( lv_data ) = 8 AND lv_data(8) = '00000000'.
_raise 'No branches, create branch manually by adding file'.
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.
@ -4512,26 +4621,30 @@ CLASS lcl_gui IMPLEMENTATION.
FIELD-SYMBOLS: <ls_spopli> LIKE LINE OF lt_spopli. FIELD-SYMBOLS: <ls_spopli> LIKE LINE OF lt_spopli.
DEFINE _add.
append initial line to lt_spopli assigning <ls_spopli>.
<ls_spopli>-varoption = &1. "#EC NOTEXT
END-OF-DEFINITION.
* todo, by package * todo, by package
* todo, by transport * todo, by transport
APPEND INITIAL LINE TO lt_spopli ASSIGNING <ls_spopli>. _add 'PROG Program'.
<ls_spopli>-varoption = 'PROG Program'. "#EC NOTEXT _add 'DTEL Data Element'.
APPEND INITIAL LINE TO lt_spopli ASSIGNING <ls_spopli>. _add 'DOMA Domain'.
<ls_spopli>-varoption = 'DTEL Data Element'. "#EC NOTEXT _add 'CLAS Class'.
APPEND INITIAL LINE TO lt_spopli ASSIGNING <ls_spopli>. _add 'FUGR Function Group (todo)'.
<ls_spopli>-varoption = 'DOMA Domain'. "#EC NOTEXT _add 'MSAG Message Class (todo)'.
APPEND INITIAL LINE TO lt_spopli ASSIGNING <ls_spopli>. _add 'TABL Table/Structure (todo)'.
<ls_spopli>-varoption = 'CLAS Class'. "#EC NOTEXT _add 'TRAN Transaction (todo)'.
APPEND INITIAL LINE TO lt_spopli ASSIGNING <ls_spopli>. _add 'SSFO Smart Form (todo)'.
<ls_spopli>-varoption = 'FUGR Function Group'. "#EC NOTEXT _add 'FORM SAP Script (todo)'.
APPEND INITIAL LINE TO lt_spopli ASSIGNING <ls_spopli>. _add 'SHLP Search Help (todo)'.
<ls_spopli>-varoption = 'MSAG Message Class'. "#EC NOTEXT _add 'VIEW View (todo)'.
APPEND INITIAL LINE TO lt_spopli ASSIGNING <ls_spopli>. *table contents
<ls_spopli>-varoption = 'TABL Table'. "#EC NOTEXT *lock object
APPEND INITIAL LINE TO lt_spopli ASSIGNING <ls_spopli>. *web dynpro
<ls_spopli>-varoption = 'TRAN Transaction'. "#EC NOTEXT
CALL FUNCTION 'POPUP_TO_DECIDE_LIST' CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING EXPORTING
@ -4708,11 +4821,15 @@ CLASS lcl_gui IMPLEMENTATION.
'</a>&nbsp;'. '</a>&nbsp;'.
ENDLOOP. ENDLOOP.
rv_html = rv_html && '<br><br><br>'. IF lt_repos[] IS INITIAL.
rv_html = rv_html && '<br><a href="sapevent:explore">Explore</a> new projects'.
ELSE.
rv_html = rv_html && '<br><br><br>'.
LOOP AT lt_repos INTO ls_repo. LOOP AT lt_repos INTO ls_repo.
rv_html = rv_html && render_repo( ls_repo ). rv_html = rv_html && render_repo( ls_repo ).
ENDLOOP. ENDLOOP.
ENDIF.
rv_html = rv_html && render_footer( ). rv_html = rv_html && render_footer( ).
@ -4754,7 +4871,7 @@ CLASS lcl_gui IMPLEMENTATION.
IMPORTING et_files = lt_files IMPORTING et_files = lt_files
ev_branch = lv_branch ). ev_branch = lv_branch ).
rv_html = rv_html && '<table border="1">' && gc_newline. rv_html = rv_html && '<br><u>Remote files</u><table border="1">' && gc_newline.
LOOP AT lt_files ASSIGNING <ls_file>. LOOP AT lt_files ASSIGNING <ls_file>.
rv_html = rv_html && rv_html = rv_html &&
'<tr>' && gc_newline && '<tr>' && gc_newline &&
@ -4778,7 +4895,7 @@ CLASS lcl_gui IMPLEMENTATION.
ENDIF. ENDIF.
ENDIF. ENDIF.
rv_html = rv_html && '<table border="1">' && gc_newline. rv_html = rv_html && '<u>Objects</u><table border="1">' && gc_newline.
LOOP AT lt_results ASSIGNING <ls_result>. LOOP AT lt_results ASSIGNING <ls_result>.
IF <ls_result>-match = abap_false. IF <ls_result>-match = abap_false.
lv_link = '<a href="sapevent:diff?' && lv_link = '<a href="sapevent:diff?' &&
@ -4810,6 +4927,8 @@ CLASS lcl_gui IMPLEMENTATION.
_raise 'status unknown'. _raise 'status unknown'.
ENDCASE. ENDCASE.
rv_html = rv_html && '<br><br><br>'.
ENDMETHOD. "render_repo ENDMETHOD. "render_repo
METHOD run. METHOD run.