VIEW file format updates (#4010)

This commit is contained in:
Lars Hvam 2020-11-22 09:45:34 +01:00 committed by GitHub
parent 6c0df0f5bd
commit 4a30a3c079
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -109,6 +109,7 @@ CLASS ZCL_ABAPGIT_OBJECT_VIEW IMPLEMENTATION.
lt_dd28j TYPE TABLE OF dd28j,
lt_dd28v TYPE TABLE OF dd28v.
FIELD-SYMBOLS: <ls_dd27p> LIKE LINE OF lt_dd27p.
io_xml->read( EXPORTING iv_name = 'DD25V'
CHANGING cg_data = ls_dd25v ).
@ -123,11 +124,23 @@ CLASS ZCL_ABAPGIT_OBJECT_VIEW IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'DD28V_TABLE'
CHANGING cg_data = lt_dd28v ).
lv_name = ms_item-obj_name. " type conversion
LOOP AT lt_dd27p ASSIGNING <ls_dd27p>.
<ls_dd27p>-objpos = sy-tabix.
<ls_dd27p>-viewname = lv_name.
* rollname seems to be mandatory in the API, but is typically not defined in the VIEW
SELECT SINGLE rollname FROM dd03l INTO <ls_dd27p>-rollname
WHERE tabname = <ls_dd27p>-tabname
AND fieldname = <ls_dd27p>-fieldname.
IF <ls_dd27p>-rollnamevi IS INITIAL.
<ls_dd27p>-rollnamevi = <ls_dd27p>-rollname.
ENDIF.
ENDLOOP.
corr_insert( iv_package = iv_package
ig_object_class = 'DICT' ).
lv_name = ms_item-obj_name. " type conversion
CALL FUNCTION 'DDIF_VIEW_PUT'
EXPORTING
name = lv_name
@ -295,6 +308,13 @@ CLASS ZCL_ABAPGIT_OBJECT_VIEW IMPLEMENTATION.
<ls_dd27p>-scrlen2,
<ls_dd27p>-scrlen3,
<ls_dd27p>-memoryid.
IF <ls_dd27p>-rollchange = abap_false.
CLEAR <ls_dd27p>-rollnamevi.
ENDIF.
CLEAR <ls_dd27p>-ddlanguage.
CLEAR <ls_dd27p>-rollname.
CLEAR <ls_dd27p>-viewname.
CLEAR <ls_dd27p>-objpos.
ENDLOOP.
io_xml->add( iv_name = 'DD25V'