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

report text pools supported

Browse Source
This commit is contained in:
Lars Hvam 2014-07-19 09:48:08 +02:00
parent 13893444c4
commit 13f82fc3d1
1 changed files with 104 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
zabapgit.abap
View File

@ -376,19 +376,20 @@ CLASS lcl_xml IMPLEMENTATION.
METHOD xml_find. METHOD xml_find.
DATA: li_root LIKE ii_root.
IF ii_root IS BOUND. IF ii_root IS BOUND.
ri_element = ii_root->find_from_name( depth = 0 name = iv_name ). li_root = ii_root.
IF NOT ri_element IS BOUND.
RETURN.
ENDIF.
ii_root->remove_child( ri_element ).
ELSE. ELSE.
ri_element = mi_root->find_from_name( depth = 0 name = iv_name ). li_root = mi_root.
ENDIF.
ri_element = li_root->find_from_name( depth = 0 name = iv_name ).
IF NOT ri_element IS BOUND. IF NOT ri_element IS BOUND.
RETURN. RETURN.
ENDIF. ENDIF.
mi_root->remove_child( ri_element ). li_root->remove_child( ri_element ).
ENDIF.
ENDMETHOD. "xml_find ENDMETHOD. "xml_find
@ -1167,7 +1168,7 @@ CLASS lcl_serialize_common IMPLEMENTATION.
APPEND INITIAL LINE TO lcl_serialize_common=>gt_ddic ASSIGNING <ls_object>. APPEND INITIAL LINE TO lcl_serialize_common=>gt_ddic ASSIGNING <ls_object>.
<ls_object>-object = iv_type. <ls_object>-object = iv_type.
<ls_object>-obj_name = lv_obj_name. <ls_object>-obj_name = lv_obj_name.
WHEN 'REPS' OR 'DYNP' OR 'CUAD'. WHEN 'REPS' OR 'DYNP' OR 'CUAD' OR 'REPT'.
* these seem to go into the workarea automatically * these seem to go into the workarea automatically
APPEND INITIAL LINE TO lcl_serialize_common=>gt_programs ASSIGNING <ls_object>. APPEND INITIAL LINE TO lcl_serialize_common=>gt_programs ASSIGNING <ls_object>.
<ls_object>-object = iv_type. <ls_object>-object = iv_type.
@ -1331,7 +1332,6 @@ CLASS lcl_serialize_doma IMPLEMENTATION.
* fm TR_TADIR_INTERFACE * fm TR_TADIR_INTERFACE
* fm RS_CORR_INSERT ? * fm RS_CORR_INSERT ?
* break LSTRDF31 line 540
DATA: lo_xml TYPE REF TO lcl_xml, DATA: lo_xml TYPE REF TO lcl_xml,
ls_dd01v TYPE dd01v, ls_dd01v TYPE dd01v,
@ -2172,30 +2172,47 @@ CLASS lcl_serialize_prog DEFINITION INHERITING FROM lcl_serialize_common FINAL.
RETURNING value(rt_files) TYPE tt_files RETURNING value(rt_files) TYPE tt_files
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: deserialize IMPORTING is_item TYPE st_item CLASS-METHODS: deserialize
IMPORTING is_item TYPE st_item
it_files TYPE tt_files it_files TYPE tt_files
RAISING lcx_exception. RAISING lcx_exception.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS: serialize_dynpros IMPORTING iv_program_name TYPE programm CLASS-METHODS: serialize_dynpros
IMPORTING iv_program_name TYPE programm
io_xml TYPE REF TO lcl_xml io_xml TYPE REF TO lcl_xml
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: serialize_cua IMPORTING iv_program_name TYPE programm CLASS-METHODS: serialize_cua
IMPORTING iv_program_name TYPE programm
io_xml TYPE REF TO lcl_xml io_xml TYPE REF TO lcl_xml
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: deserialize_dynpros IMPORTING io_xml TYPE REF TO lcl_xml CLASS-METHODS: serialize_textpool
IMPORTING iv_program_name TYPE programm
io_xml TYPE REF TO lcl_xml
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: deserialize_cua IMPORTING io_xml TYPE REF TO lcl_xml CLASS-METHODS: deserialize_dynpros
IMPORTING io_xml TYPE REF TO lcl_xml
RAISING lcx_exception.
CLASS-METHODS: deserialize_cua
IMPORTING io_xml TYPE REF TO lcl_xml
is_item TYPE st_item is_item TYPE st_item
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS: deserialize_abap IMPORTING is_item TYPE st_item CLASS-METHODS: deserialize_textpool
IMPORTING it_tpool TYPE textpool_table
is_item TYPE st_item
RAISING lcx_exception.
CLASS-METHODS: deserialize_abap
IMPORTING is_item TYPE st_item
io_xml TYPE REF TO lcl_xml io_xml TYPE REF TO lcl_xml
it_source TYPE abaptxt255_tab it_source TYPE abaptxt255_tab
it_tpool TYPE textpool_table
RAISING lcx_exception. RAISING lcx_exception.
CLASS-METHODS exists IMPORTING iv_obj_name TYPE tadir-obj_name CLASS-METHODS exists IMPORTING iv_obj_name TYPE tadir-obj_name
@ -2210,6 +2227,39 @@ ENDCLASS. "lcl_serialize_prog DEFINITION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
CLASS lcl_serialize_prog IMPLEMENTATION. CLASS lcl_serialize_prog IMPLEMENTATION.
METHOD deserialize_textpool.
READ TABLE it_tpool WITH KEY id = 'R' TRANSPORTING NO FIELDS.
IF ( sy-subrc = 0 AND lines( it_tpool ) = 1 ) OR lines( it_tpool ) = 0.
RETURN. " no action for includes
ENDIF.
INSERT TEXTPOOL is_item-obj_name
FROM it_tpool
LANGUAGE sy-langu
STATE 'I'. "#EC CI_INSERT_REP
IF sy-subrc <> 0.
_raise 'error from INSERT TEXTPOOL'.
ENDIF.
activation_add( iv_type = 'REPT'
iv_name = is_item-obj_name ).
ENDMETHOD. "deserialize_textpool
METHOD serialize_textpool.
* function modules RS_TEXTPOOL_* cannot be used as these dont work for includes
DATA: lt_tpool TYPE textpool_table.
READ TEXTPOOL iv_program_name INTO lt_tpool LANGUAGE sy-langu.
io_xml->table_add( lt_tpool ).
ENDMETHOD. "serialize_textpool
METHOD deserialize_cua. METHOD deserialize_cua.
DATA: ls_tr_key TYPE trkey, DATA: ls_tr_key TYPE trkey,
@ -2427,7 +2477,8 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
io_xml = lo_xml ). io_xml = lo_xml ).
ENDIF. ENDIF.
serialize_textpool( EXPORTING iv_program_name = lv_program_name
io_xml = lo_xml ).
ls_file = xml_to_file( is_item = is_item ls_file = xml_to_file( is_item = is_item
io_xml = lo_xml ). io_xml = lo_xml ).
@ -2506,6 +2557,7 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
METHOD deserialize. METHOD deserialize.
DATA: lo_xml TYPE REF TO lcl_xml, DATA: lo_xml TYPE REF TO lcl_xml,
lt_tpool TYPE textpool_table,
lt_source TYPE abaptxt255_tab. lt_source TYPE abaptxt255_tab.
@ -2516,15 +2568,22 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
it_files = it_files it_files = it_files
CHANGING ct_abap = lt_source ). CHANGING ct_abap = lt_source ).
lo_xml->table_read( CHANGING ct_table = lt_tpool ).
deserialize_abap( is_item = is_item deserialize_abap( is_item = is_item
io_xml = lo_xml io_xml = lo_xml
it_source = lt_source ). it_source = lt_source
it_tpool = lt_tpool ).
deserialize_dynpros( lo_xml ). deserialize_dynpros( lo_xml ).
deserialize_cua( is_item = is_item deserialize_cua( is_item = is_item
io_xml = lo_xml ). io_xml = lo_xml ).
deserialize_textpool( is_item = is_item
it_tpool = lt_tpool
).
ENDMETHOD. "lif_serialize~deserialize ENDMETHOD. "lif_serialize~deserialize
METHOD deserialize_dynpros. METHOD deserialize_dynpros.
@ -2588,7 +2647,9 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
METHOD deserialize_abap. METHOD deserialize_abap.
DATA: ls_progdir TYPE progdir, DATA: ls_tpool LIKE LINE OF it_tpool,
ls_progdir TYPE progdir,
lv_title TYPE rglif-title,
ls_item LIKE is_item, ls_item LIKE is_item,
ls_progdir_new TYPE progdir. ls_progdir_new TYPE progdir.
@ -2596,11 +2657,14 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
io_xml->structure_read( CHANGING cg_structure = ls_progdir ). io_xml->structure_read( CHANGING cg_structure = ls_progdir ).
READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'. "#EC SUBRC
lv_title = ls_tpool-entry.
IF exists( is_item-obj_name ) = abap_true. IF exists( is_item-obj_name ) = abap_true.
CALL FUNCTION 'RPY_PROGRAM_UPDATE' CALL FUNCTION 'RPY_PROGRAM_UPDATE'
EXPORTING EXPORTING
program_name = ls_progdir-name program_name = ls_progdir-name
title_string = lv_title
save_inactive = 'I' save_inactive = 'I'
TABLES TABLES
source_extended = it_source source_extended = it_source
@ -2623,7 +2687,7 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
authorization_group = ls_progdir-secu authorization_group = ls_progdir-secu
program_name = ls_progdir-name program_name = ls_progdir-name
program_type = ls_progdir-subc program_type = ls_progdir-subc
title_string = 'todo' title_string = lv_title
save_inactive = 'I' save_inactive = 'I'
TABLES TABLES
source_extended = it_source source_extended = it_source
@ -2653,6 +2717,7 @@ CLASS lcl_serialize_prog IMPLEMENTATION.
ls_progdir_new-ldbname = ls_progdir-ldbname. ls_progdir_new-ldbname = ls_progdir-ldbname.
ls_progdir_new-dbapl = ls_progdir-dbapl. ls_progdir_new-dbapl = ls_progdir-dbapl.
ls_progdir_new-rload = ls_progdir-rload. ls_progdir_new-rload = ls_progdir-rload.
ls_progdir_new-fixpt = ls_progdir-fixpt.
CALL FUNCTION 'UPDATE_PROGDIR' CALL FUNCTION 'UPDATE_PROGDIR'
EXPORTING EXPORTING