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

some work on includes and dynpros

Browse Source
This commit is contained in:
Lars Hvam 2014-07-06 20:53:26 +02:00
parent e7e8254d87
commit a289fdea0d
1 changed files with 71 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
zagit.abap
View File

@ -811,6 +811,8 @@ CLASS lcl_serialize IMPLEMENTATION.
_raise 'Serialize, unknown type'. _raise 'Serialize, unknown type'.
ENDCASE. ENDCASE.
* todo, duplicates in rt_files? via includes?
ENDMETHOD. "serialize ENDMETHOD. "serialize
METHOD status. METHOD status.
@ -909,10 +911,16 @@ CLASS lcl_serialize IMPLEMENTATION.
lv_xml TYPE string, lv_xml TYPE string,
lt_source TYPE TABLE OF abaptxt255, lt_source TYPE TABLE OF abaptxt255,
lv_source TYPE string, lv_source TYPE string,
lt_files LIKE rt_files,
lt_dynpros TYPE TABLE OF d020s,
lt_includes TYPE programt,
lt_textelements TYPE textpool_table, lt_textelements TYPE textpool_table,
ls_file LIKE LINE OF rt_files, ls_file LIKE LINE OF rt_files,
lo_xml TYPE REF TO lcl_xml. lo_xml TYPE REF TO lcl_xml.
FIELD-SYMBOLS: <lv_include> LIKE LINE OF lt_includes,
<ls_dynpro> LIKE LINE OF lt_dynpros.
lv_program_name = iv_obj_name. lv_program_name = iv_obj_name.
@ -952,6 +960,47 @@ CLASS lcl_serialize IMPLEMENTATION.
lo_xml->table_add( lt_textelements ). lo_xml->table_add( lt_textelements ).
lv_xml = lo_xml->render( ). lv_xml = lo_xml->render( ).
CALL FUNCTION 'RS_SCREEN_LIST'
EXPORTING
dynnr = '*'
progname = lv_program_name
TABLES
dynpros = lt_dynpros
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc = 2.
_raise 'error from screen_list'.
ENDIF.
DATA: ls_header TYPE rpy_dyhead,
lt_containers TYPE dycatt_tab,
lt_fields_to_containers TYPE dyfatc_tab,
lt_flow_logic TYPE swydyflow.
LOOP AT lt_dynpros ASSIGNING <ls_dynpro>.
CALL FUNCTION 'RPY_DYNPRO_READ'
EXPORTING
progname = lv_program_name
dynnr = <ls_dynpro>-dnum
IMPORTING
header = ls_header
TABLES
containers = lt_containers
fields_to_containers = lt_fields_to_containers
flow_logic = lt_flow_logic
EXCEPTIONS
cancelled = 1
not_found = 2
permission_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'Error while reading dynpro'.
ENDIF.
* todo, add to xml
ENDLOOP.
CLEAR ls_file. CLEAR ls_file.
ls_file-path = '/'. ls_file-path = '/'.
CONCATENATE lv_program_name '.prog.xml' INTO ls_file-filename. "#EC NOTEXT CONCATENATE lv_program_name '.prog.xml' INTO ls_file-filename. "#EC NOTEXT
@ -967,6 +1016,25 @@ CLASS lcl_serialize IMPLEMENTATION.
ls_file-data = lcl_convert=>string_to_xstring_utf8( lv_source ). ls_file-data = lcl_convert=>string_to_xstring_utf8( lv_source ).
APPEND ls_file TO rt_files. APPEND ls_file TO rt_files.
CALL FUNCTION 'RS_GET_ALL_INCLUDES'
EXPORTING
program = lv_program_name
TABLES
includetab = lt_includes
EXCEPTIONS
not_existent = 1
no_program = 2
OTHERS = 3.
IF sy-subrc <> 0.
_raise 'Error from get_all_includes'.
ENDIF.
LOOP AT lt_includes ASSIGNING <lv_include>.
lt_files = prog_serialize( <lv_include> ).
APPEND LINES OF lt_files TO rt_files.
ENDLOOP.
ENDMETHOD. "prog_serialize ENDMETHOD. "prog_serialize
@ -3241,6 +3309,8 @@ CLASS lcl_gui IMPLEMENTATION.
<ls_result>-obj_type && <ls_result>-obj_type &&
'&nbsp;' && '&nbsp;' &&
<ls_result>-obj_name && <ls_result>-obj_name &&
'&nbsp;' &&
<ls_result>-match &&
'<br>'. '<br>'.
ENDLOOP. ENDLOOP.