git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@223 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Ivan Femia 2011-09-26 06:59:02 +00:00
parent 358ecc4dc9
commit f4107fa169

View File

@ -322,6 +322,7 @@ endmethod.</source>
lo_elemdescr TYPE REF TO cl_abap_elemdescr, lo_elemdescr TYPE REF TO cl_abap_elemdescr,
lt_dfies TYPE ddfields, lt_dfies TYPE ddfields,
ls_dfies TYPE dfies, ls_dfies TYPE dfies,
lv_sytabix TYPE sytabix,
ls_fieldcatalog TYPE zexcel_s_fieldcatalog, ls_fieldcatalog TYPE zexcel_s_fieldcatalog,
lt_components TYPE abap_component_tab, lt_components TYPE abap_component_tab,
ls_component LIKE LINE OF lt_components. ls_component LIKE LINE OF lt_components.
@ -343,6 +344,7 @@ endmethod.</source>
&quot;if structure is not DDIC check components &quot;if structure is not DDIC check components
lt_components = lo_structdescr-&gt;get_components( ). lt_components = lo_structdescr-&gt;get_components( ).
LOOP AT lt_components INTO ls_component. LOOP AT lt_components INTO ls_component.
lv_sytabix = sy-tabix.
CLEAR ls_fieldcatalog. CLEAR ls_fieldcatalog.
lo_elemdescr ?= ls_component-type. lo_elemdescr ?= ls_component-type.
&quot;component is DDIC &quot;component is DDIC
@ -356,7 +358,7 @@ endmethod.</source>
ls_fieldcatalog-dynpfld = abap_true. ls_fieldcatalog-dynpfld = abap_true.
ls_fieldcatalog-scrtext_m = ls_component-name. ls_fieldcatalog-scrtext_m = ls_component-name.
ENDIF. ENDIF.
ls_fieldcatalog-position = sy-tabix. &quot; Fix issue #119 ls_fieldcatalog-position = lv_sytabix.
APPEND ls_fieldcatalog TO ep_fieldcatalog. APPEND ls_fieldcatalog TO ep_fieldcatalog.
ENDLOOP. ENDLOOP.
ENDIF. ENDIF.