WDA Table: Getting column sequence as it really is for the user

Question

Hi Folks!
I need the current sequence of table columns as it really is for the user. He may have personalized his table: he may have removed some columns and may have changed the sequence of some columns. And this is what I need to know.
But unfortunately so far I could only get the column sequence as it is defined in the View Layout using this coding:
  DATA lo_table TYPE REF TO cl_wd_table.
  DATA lo_table_columns TYPE cl_wd_table_column=>tt_table_column.
  DATA lo_table_column TYPE REF TO cl_wd_table_column.
  DATA lt_abstr_table_columns TYPE STANDARD TABLE OF REF TO cl_wd_abstr_table_column.
  DATA ls_abstr_table_column TYPE REF TO cl_wd_abstr_table_column.
  lo_table ?= wd_this->mv_view->get_element( 'RLTAB' ).
  lt_abstr_table_columns = lo_table->get_grouped_columns( ).
  LOOP AT lt_abstr_table_columns INTO ls_abstr_table_column.
    lo_table_column ?= ls_abstr_table_column.
  ENDLOOP.
Thus: How to get the table column information as they are currently outside in the reald user world (only visible columns in the displayed sequence).
Background: I need this information, because I want to export the table to excel and/or print it in exactly the state the user currently sees it (in personalized state).
Thanx and points for any useful hints - ideally coding snippets!
Regards,
Volker

Answer 1

Hi both!
1) I have searched the framework like a mad man an dI think I will dream of all these IF_WD... and CL_WD... most having the useful information in protected or even private areas. A fact I cannot really understand.
2) Although some kind of "criminal" I trewd to go the way in the second answer by creating child classes for cl_wd_abstr_table_column and cl_wd_table_column both containing the protected attribute PERSINDEX I need.
I added a public class get_pers_index to the child classes. So far so good.
But when I try to type-cast SAP standard instance to my instance vairables I get type-cast errors in both cases.
Any ideas?
Here's the relevant coding snippet:
DATA lo_table TYPE REF TO cl_wd_table.
  DATA lo_table_columns TYPE cl_wd_table_column=>tt_table_column.
  DATA lo_table_column TYPE REF TO cl_wd_table_column.
  DATA lo_table_column2 TYPE REF TO /rand/cl_wd_table_column.
  DATA lt_abstr_table_columns TYPE STANDARD TABLE OF REF TO cl_wd_abstr_table_column.
  DATA ls_abstr_table_column TYPE REF TO cl_wd_abstr_table_column.
  data lo_abstr_table_column type ref to /rand/cl_wd_abstr_table_column.
  data lv_pers_index type i.
  lo_table ?= wd_this->mv_view->get_element( 'RLTAB' ).
  lt_abstr_table_columns = lo_table->get_grouped_columns( ).
  LOOP AT lt_abstr_table_columns INTO ls_abstr_table_column.
    lo_table_column ?= ls_abstr_table_column.                 "this casting is successful
    lo_table_column2 ?= lo_table_column.                      "this casting throws type-cast exception
    lv_pers_index = lo_table_column2->get_pers_index( ).
    lo_abstr_table_column ?= ls_abstr_table_column.           "this casting throws type-cast exception, too
    lv_pers_index = lo_abstr_table_column->get_pers_index( ).
  ENDLOOP.
Any help very welcome.
Thanx and Regards,
Volker