topic Re: How to display data horizontally in Application Development and Automation Discussions

How to display data horizontally

Former Member — Wed, 10 Nov 2010 21:53:33 GMT

Hi,

I have to display data the following format.

sales order item description 01/09/2010 02/09/2010 03/09/2010

100 1 test 3 4 6

in currently i am displaying the following format.

sales order date1 date2 date3

item

description

1.how to fill field catelog.

2. i have written code like below,

wa_lvc_cat-fieldname = 'COLUMNTEXT'.

wa_lvc_cat-ref_table = 'LVC_S_DETA'.

APPEND wa_lvc_cat TO lt_lvc_cat.

wa_fieldcat-fieldname = 'COLUMNTEXT'.

wa_fieldcat-ref_tabname = 'LVC_S_DETA'.

wa_fieldcat-key = 'X'.

APPEND wa_fieldcat TO lt_fieldcat.

DESCRIBE TABLE i_final.

DO sy-tfill TIMES.

For each line, a column 'VALUEx' is created in the fieldcatalog
Build Fieldcatalog

WRITE sy-index TO wa_lvc_cat-fieldname LEFT-JUSTIFIED.

CONCATENATE 'VALUE' wa_lvc_cat-fieldname

INTO wa_lvc_cat-fieldname.

wa_lvc_cat-ref_field = 'VALUE'.

wa_lvc_cat-ref_table = 'LVC_S_DETA'.

APPEND wa_lvc_cat TO lt_lvc_cat.

Build Fieldcatalog

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = wa_lvc_cat-fieldname.

wa_fieldcat-ref_fieldname = 'VALUE'.

wa_fieldcat-ref_tabname = 'LVC_S_DETA'.

APPEND wa_fieldcat TO lt_fieldcat.

ENDDO.

create dynamic internal table

CALL METHOD cl_alv_table_create=>create_dynamic_table

EXPORTING

it_fieldcatalog = lt_lvc_cat

IMPORTING

ep_table = l_dyntable.

ASSIGN l_dyntable->* TO <dynamictable>.

create structure as structure of the internal table

CREATE DATA l_structure LIKE LINE OF <dynamictable>.

ASSIGN l_structure->* TO <header>.

create structure = structure of the internal table

CREATE DATA l_structure LIKE i_final.

ASSIGN l_structure->* TO <ls_table>.

create field catalog from our table structure

wa_fieldcat-fieldname = 'DATE'.
wa_fieldcat-tabname = 'I_FINAL'.
APPEND wa_fieldcat TO lt_fieldcatalogue.

wa_fieldcat-fieldname = 'CNT'.
wa_fieldcat-tabname = 'I_FINAL'.
APPEND wa_fieldcat TO lt_fieldcatalogue.

wa_fieldcat-fieldname = 'FUNCT'.
wa_fieldcat-tabname = 'I_FINAL'.
APPEND wa_fieldcat TO lt_fieldcatalogue.

wa_fieldcat-fieldname = 'ITEM'.

wa_fieldcat-tabname = 'I_FINAL'.

APPEND wa_fieldcat TO lt_fieldcatalogue.

wa_fieldcat-fieldname = 'TRANS'.

wa_fieldcat-tabname = 'I_FINAL'.

APPEND wa_fieldcat TO lt_fieldcatalogue.

*call function 'REUSE_ALV_FIELDCATALOG_MERGE'

exporting
i_structure_name = <LS_TABLE>
changing
ct_fieldcat = lt_fieldcatalogue
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.

*IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

*ENDIF.

DESCRIBE TABLE lt_fieldcatalogue.

fill the internal to display <dynamictable>

DO sy-tfill TIMES.

IF sy-index = 1.

READ TABLE lt_fieldcatalogue INTO wa_fieldcat INDEX 1.

ENDIF.

For each field of it_table

ASSIGN COMPONENT 1 OF STRUCTURE <header> TO <dynheader>.

IF sy-subrc NE 0. EXIT .ENDIF.

READ TABLE lt_fieldcatalogue INTO wa_fieldcat INDEX sy-index.

Fill 1st column

<dynheader> = wa_fieldcat-seltext_m.

IF <dynheader> IS INITIAL.

<dynheader> = wa_fieldcat-fieldname.

ENDIF.

*filling the other columns

LOOP AT i_final INTO <ls_table>.

l_col = sy-tabix + 1.

ASSIGN COMPONENT sy-index OF STRUCTURE <ls_table> TO <dyndata>.

IF sy-subrc NE 0. EXIT .ENDIF.

ASSIGN COMPONENT l_col OF STRUCTURE <header> TO

<dynheader>.

IF sy-subrc NE 0. EXIT .ENDIF.

WRITE <dyndata> TO <dynheader> LEFT-JUSTIFIED.

ENDLOOP.

APPEND <header> TO <dynamictable>.

ENDDO.

*layout for alv output

lt_layout-zebra = 'X'.

lt_layout-no_colhead = 'X'..

lt_layout-colwidth_optimize ='X'.

lt_layout-window_titlebar = 'ALV GRID TRANSPOSED'.

*alv grid output for display

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

is_layout = lt_layout

it_fieldcat = lt_fieldcat

TABLES

t_outtab = <dynamictable>.

Plz correct me code.

Re: How to display data horizontally

andreas_mann3 — Thu, 11 Nov 2010 12:57:21 GMT

here's a sample to prepare a alv-fieldcatalog with many similar value-fields:

 
*get metadata of itab
DESCRIBE FIELD itab INTO td.

  LOOP AT td-types INTO watypes.
    READ TABLE td-names INTO wanames INDEX  watypes-idx_name.
    CHECK sy-subrc = 0.
    MOVE wanames-name TO fld-name.

    READ TABLE td-names INTO wanames INDEX  watypes-idx_help_id .
    MOVE wanames-name TO fld-def.
    WHILE wanames-continue = '*'.
      hindex = watypes-idx_help_id + 1.
      READ TABLE td-names INTO wanames INDEX  hindex.
      CONCATENATE fld-def  wanames-name INTO fld-def.
    ENDWHILE.
    APPEND fld.
  ENDLOOP.

*build fieldcatalog
  LOOP AT fld.
    CLEAR katalog.
    katalog-fieldname = fld-name.
    IF fld-name = 'RCOMP'
     OR fld-name ='GSBER'
     OR fld-name ='ITEM'
     OR fld-name ='FUNKTION'.
      katalog-key = 'X'.
    ENDIF.

    SPLIT fld-def AT '-' INTO t f.

    SELECT SINGLE scrtext_m leng
           FROM  dd03m INTO: (katalog-reptext_ddic, katalog-outputlen)
           WHERE  tabname     = t
           AND    fieldname   = f
           AND    ddlanguage  = sy-langu.
    IF sy-subrc <> 0.
      katalog-reptext_ddic = fld-name.
    ENDIF.

    IF fld-name = 'TXT'.
      katalog-outputlen = 30.
    ELSEIF fld-name = 'GSBER'.
      katalog-outputlen = 4.
    ELSE.
      katalog-tabname = t.
    ENDIF.


*here: different value-fields
    IF fld-name BETWEEN 'KSL00' AND 'KSL99'.
      IF fld-name <> 'KSL99'.
        CONCATENATE 'Periode' fld-name+3(2) '/' jahr INTO
                     katalog-reptext_ddic SEPARATED BY space.

*hide fields
        IF NOT fld-name+3(2)  IN buper.
          katalog-no_out = 'X'.
        ENDIF.
      ELSE.
        katalog-outputlen = 19.
        IF ohnevj = 'X'.
          katalog-reptext_ddic = 'Summe'.
        ELSE.
*previous year
          CONCATENATE 'Periode' buper-low '/' vorjahr INTO
                       katalog-reptext_ddic SEPARATED BY space.
        ENDIF.
      ENDIF.
      katalog-currency = 'EUR'.
      katalog-do_sum = 'X'.
      katalog-inttype  = 'P'.
      katalog-datatype = 'CURR'.
    ENDIF.

*hide more fields
    CASE fld-name.
      WHEN 'GSBER'.
        MOVE x_gebe TO katalog-no_out.
        katalog-reptext_ddic = 'Gsbr'.
      WHEN 'ITEM'.
        MOVE x_item TO katalog-no_out.
      WHEN 'FUNKTION'.
        MOVE x_func TO katalog-no_out.
      WHEN 'TXT'.
        MOVE x_text TO katalog-no_out.
    ENDCASE.


    APPEND katalog TO cat.

  ENDLOOP.

...

grx

Re: How to display data horizontally

Former Member — Thu, 11 Nov 2010 14:17:39 GMT

I didn't get your point.mine is different of kind of requirement.