有兄弟开发过矩阵报表么

VagrantLee

学习了！！

qdbarry

http://blog.chinaunix.net/u1/40527/showart.php?id=411190

awarecan

easy，动态生成内表就可以了。

等我过两天把那个怎么动态生成内表的文章写完的

spider30

记得原来做个一个库存报表，列为storage location，行为material number，行列交点field即为此行material在此列storage location下的数量。storage location是变化的，根据选择的materials所在的不为0的storage location而定（好像很多user都喜欢看这类型的交叉表，就跟现在深圳公交上那个价格表似的，密密麻麻一堆数字...）
好像这就是用到的那个动态内表的方式，关键好像是一个叫FIELD-SYMBOLS的语句，来实现的

shadowaijj2

很是期待

kkmh

动态内表

wjfonhand

用BW实现很容易，用ABAP实现比较复杂

zhao_417

原帖由 spider30 于 2008-10-9 15:18 发表
记得原来做个一个库存报表，列为storage location，行为material number，行列交点field即为此行material在此列storage location下的数量。storage location是变化的，根据选择的materials所在的不为0的storage location而定（好像很多user都喜欢看这类型的交叉表，就跟现在深圳公交上那个价格表似的，密密麻麻一堆数字...）
好像这就是用到的那个动态内表的方式，关键好像是一个叫FIELD-SYMBOLS的语句，来实现的

就这意思！！！

ruyue318

我刚才看了一下楼上提供的一个链接，是Barry.Bai先生写的，在这里我摘录下来：

行转化为列

转换为：


REPORT z_barry_test_fieldsymols .
TYPE-POOLS: slis.
TABLES: mseg,mkpf.
DATA: gd_fieldcat TYPE slis_t_fieldcat_alv.
DATA: sla TYPE slis_layout_alv ,
      ivariant LIKE disvariant,
      i_repid LIKE sy-repid ,
      i_excluding TYPE slis_t_extab.
TYPES: BEGIN OF ty_sum ,
        werks LIKE mseg-werks ,
        matnr LIKE mseg-matnr ,
        lgort LIKE mseg-lgort ,
        bwart LIKE mseg-bwart ,
        menge LIKE mseg-menge ,
      END OF ty_sum.
DATA : itab TYPE STANDARD TABLE OF ty_sum WITH HEADER LINE .
DATA : hs_sum TYPE HASHED TABLE OF ty_sum
       WITH UNIQUE KEY werks matnr lgort bwart WITH HEADER LINE .
DATA : itab_sum TYPE STANDARD TABLE OF ty_sum WITH HEADER LINE .
DATA: BEGIN OF itab_out OCCURS 0,
        werks LIKE mseg-werks ,
        matnr LIKE mseg-matnr ,
        lgort LIKE mseg-lgort ,
        menge01 TYPE i        ,
        menge02 TYPE i        ,
        menge03 TYPE i        ,
        menge04 TYPE i        ,
        menge05 TYPE i        ,
        menge06 TYPE i        ,
        menge07 TYPE i        ,
        menge08 TYPE i        ,
        menge09 TYPE i        ,
        menge10 TYPE i        ,
        menge11 TYPE i        ,
        menge12 TYPE i        ,
        menge13 TYPE i        ,
        menge14 TYPE i        ,
        menge15 TYPE i        ,
        menge16 TYPE i        ,
        menge17 TYPE i        ,
        menge18 TYPE i        ,
        menge19 TYPE i        ,
        menge20 TYPE i        ,
        menge21 TYPE i        ,
        menge22 TYPE i        ,
        menge23 TYPE i        ,
        menge24 TYPE i        ,
        menge25 TYPE i        ,
        menge26 TYPE i        ,
        line_sum TYPE i       ,
      END OF itab_out.
TYPES: BEGIN OF ty_bwart ,
        bwart LIKE mseg-bwart ,
      END OF ty_bwart.
DATA : hs_bwart TYPE HASHED TABLE OF ty_bwart
       WITH UNIQUE KEY bwart WITH HEADER LINE .
DATA : itab_bwart TYPE STANDARD TABLE OF ty_bwart WITH HEADER LINE .
FIELD-SYMBOLS: <f_fs1> ,
               <f_fs2>.
DATA: max_count TYPE i .
SELECT-OPTIONS: s_mblnr FOR mseg-mblnr ,
                s_budat FOR mkpf-budat .
PARAMETERS:     p_sum AS CHECKBOX .
START-OF-SELECTION.
  PERFORM getdata.
  PERFORM fixdata.
  IF p_sum = 'X'.
    PERFORM outdata.
  ELSE.
    PERFORM outdata2.
  ENDIF.
*&---------------------------------------------------------------------*
*&      Form  GETDATA
*&---------------------------------------------------------------------*
FORM getdata.
  SELECT werks matnr lgort bwart menge INTO TABLE itab
  FROM mkpf INNER JOIN mseg ON mkpf~mblnr = mseg~mblnr AND
                               mkpf~mjahr = mseg~mjahr
  WHERE mkpf~mblnr IN s_mblnr AND
        mkpf~budat IN s_budat .
ENDFORM.                    " GETDATA
*&---------------------------------------------------------------------*
*&      Form  FIXDATA
*&---------------------------------------------------------------------*
FORM fixdata.
  DATA: index LIKE sy-tabix .
  LOOP AT itab.
    hs_sum = itab.
    COLLECT hs_sum.
    hs_bwart = itab-bwart .
    COLLECT hs_bwart.
  ENDLOOP.
  SORT hs_bwart.
  itab_bwart[] = hs_bwart[].
  itab_sum[] = hs_sum[].
  LOOP AT itab_sum.
    itab_out-werks = itab_sum-werks .
    itab_out-matnr = itab_sum-matnr .
    itab_out-lgort = itab_sum-lgort .
    READ TABLE itab_bwart WITH KEY bwart = itab_sum-bwart .
    index = sy-tabix + 3.
    ASSIGN COMPONENT index OF STRUCTURE itab_out TO <f_fs1>.
    <f_fs1> = itab_sum-menge.
    itab_out-line_sum = itab_sum-menge.
    COLLECT itab_out.
    CLEAR itab_out.
  ENDLOOP.
ENDFORM.                    " FIXDATA
*&---------------------------------------------------------------------*
*&      Form  outdata
*&---------------------------------------------------------------------*
FORM outdata.
  PERFORM fieldcat_init .
  sla-colwidth_optimize = 'X'.
  sla-zebra             = 'X'.
  i_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = i_repid
            it_fieldcat             = gd_fieldcat[]
            i_save                  = 'A'
            is_variant              = ivariant
            is_layout               = sla
            it_excluding            = i_excluding
            i_callback_user_command = 'USER_COMMAND'
       TABLES
            t_outtab                = itab_sum
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
ENDFORM.                    " outdata
*---------------------------------------------------------------------*
*       FORM fieldcat_init                                            *
*---------------------------------------------------------------------*
FORM fieldcat_init .
  PERFORM frm_catlg_set USING: 'WERKS'     'WERKS' 'X' ,
                               'MATNR'     'MATNR' 'X' ,
                               'LGORT'     'LGORT' 'X' ,
                               'BWART'     'BWART' 'X' ,
                               'MENGE'     'MENGE' '' .
ENDFORM.                    "fieldcat_init
*---------------------------------------------------------------------*
*       FORM frm_catlg_set                                            *
*---------------------------------------------------------------------*
FORM frm_catlg_set USING p_field
                         p_text
                         p_key.
  DATA: ls_fieldcat TYPE slis_fieldcat_alv.
  ls_fieldcat-fieldname     = p_field.
  ls_fieldcat-seltext_l     = p_text.
  ls_fieldcat-key           = p_key.
  IF p_field = 'LINE_SUM'.
    ls_fieldcat-emphasize  = 'C700'.
  ENDIF.
  APPEND ls_fieldcat TO gd_fieldcat .
  CLEAR ls_fieldcat .
ENDFORM.                    "frm_catlg_set
*&--------------------------------------------------------------------*
*&      Form  user_command
*&--------------------------------------------------------------------*
FORM user_command USING r_ucomm LIKE sy-ucomm
                    rs_selfield TYPE slis_selfield.
  READ TABLE itab INDEX rs_selfield-tabindex.
  CASE r_ucomm.
    WHEN '&IC1'. "双击
    WHEN 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.
  rs_selfield-refresh = 'X'.  "自动刷新
ENDFORM. "user_com
*---------------------------------------------------------------------*
*       FORM outdata2                                                 *
*---------------------------------------------------------------------*
FORM outdata2.
  PERFORM fieldcat_init2 .
  sla-colwidth_optimize = 'X'.
  sla-zebra             = 'X'.
  i_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = i_repid
            it_fieldcat             = gd_fieldcat[]
            i_save                  = 'A'
            is_variant              = ivariant
            is_layout               = sla
            it_excluding            = i_excluding
            i_callback_user_command = 'USER_COMMAND'
       TABLES
            t_outtab                = itab_out
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
ENDFORM.                    " outdata
*---------------------------------------------------------------------*
*       FORM fieldcat_init2                                           *
*---------------------------------------------------------------------*
FORM fieldcat_init2 .
  DATA: c(2) TYPE n ,
        txt(20) TYPE c .
  PERFORM frm_catlg_set USING: 'WERKS'   'WERKS' 'X' ,
                               'MATNR'   'MATNR' 'X' ,
                               'LGORT'   'LGORT' 'X' .
  LOOP AT hs_bwart .
    c = c + 1.
    CONCATENATE 'MENGE' c INTO txt.
    PERFORM frm_catlg_set USING: txt hs_bwart-bwart '' .
  ENDLOOP.
  PERFORM frm_catlg_set USING: 'LINE_SUM'  'SUM' '' .
ENDFORM.                    "fieldcat_init




使用指针动态生成内表的方法：

REPORT z_barry_test_fieldsymols .
TYPE-POOLS: slis.
TABLES: mseg,mkpf.
DATA: gd_fieldcat TYPE slis_t_fieldcat_alv.
DATA: sla TYPE slis_layout_alv ,
      ivariant LIKE disvariant,
      i_repid LIKE sy-repid ,
      i_excluding TYPE slis_t_extab.
TYPES: BEGIN OF ty_sum ,
        werks LIKE mseg-werks ,
        matnr LIKE mseg-matnr ,
        lgort LIKE mseg-lgort ,
        bwart LIKE mseg-bwart ,
        menge LIKE mseg-menge ,
      END OF ty_sum.
DATA : itab TYPE STANDARD TABLE OF ty_sum WITH HEADER LINE .
DATA : hs_sum TYPE HASHED TABLE OF ty_sum
       WITH UNIQUE KEY werks matnr lgort bwart WITH HEADER LINE .
DATA : itab_sum TYPE STANDARD TABLE OF ty_sum WITH HEADER LINE .

TYPES: BEGIN OF ty_bwart ,
        bwart LIKE mseg-bwart ,
      END OF ty_bwart.
DATA : hs_bwart TYPE HASHED TABLE OF ty_bwart
       WITH UNIQUE KEY bwart WITH HEADER LINE .
DATA : itab_bwart TYPE STANDARD TABLE OF ty_bwart WITH HEADER LINE .
FIELD-SYMBOLS: <f_fs1> ,
               <f_out> TYPE STANDARD TABLE ,
               <f_out_wa> .
DATA: max_count TYPE i ,
      dy_out    TYPE REF TO data ,
      dy_out_wa TYPE REF TO data,
      xfc       TYPE lvc_s_fcat,
      ifc       TYPE lvc_t_fcat.
DATA: c(2) TYPE n ,
      txt(20) TYPE c .

SELECT-OPTIONS: s_mblnr FOR mseg-mblnr ,
                s_budat FOR mkpf-budat .
PARAMETERS:     p_sum AS CHECKBOX .
START-OF-SELECTION.
  PERFORM getdata.
  PERFORM fixdata.
  IF p_sum = 'X'.
    PERFORM outdata.
  ELSE.
    PERFORM outdata2.
  ENDIF.

*&---------------------------------------------------------------------*
*&      Form  GETDATA
*&---------------------------------------------------------------------*
FORM getdata.
  SELECT werks matnr lgort bwart menge INTO TABLE itab
  FROM mkpf INNER JOIN mseg ON mkpf~mblnr = mseg~mblnr AND
                               mkpf~mjahr = mseg~mjahr
  WHERE mkpf~mblnr IN s_mblnr AND
        mkpf~budat IN s_budat .
ENDFORM.                    " GETDATA

*&---------------------------------------------------------------------*
*&      Form  FIXDATA
*&---------------------------------------------------------------------*
FORM fixdata.
  DATA: index LIKE sy-tabix .
  LOOP AT itab.
    hs_sum = itab.
    COLLECT hs_sum.
    hs_bwart = itab-bwart .
    COLLECT hs_bwart.
  ENDLOOP.
  SORT hs_bwart.
  itab_bwart[] = hs_bwart[].
  itab_sum[] = hs_sum[].
  PERFORM creat_itab_out.
  LOOP AT itab_sum.
    ASSIGN COMPONENT 'WERKS' OF STRUCTURE <f_out_wa> TO <f_fs1>.
    <f_fs1> = itab_sum-werks.
    ASSIGN COMPONENT 'MATNR' OF STRUCTURE <f_out_wa> TO <f_fs1>.
    <f_fs1> = itab_sum-matnr.
    ASSIGN COMPONENT 'LGORT' OF STRUCTURE <f_out_wa> TO <f_fs1>.
    <f_fs1> = itab_sum-lgort.

    READ TABLE itab_bwart WITH KEY bwart = itab_sum-bwart .
    index = sy-tabix + 3.
    ASSIGN COMPONENT index OF STRUCTURE <f_out_wa> TO <f_fs1>.
    <f_fs1> = itab_sum-menge.

    ASSIGN COMPONENT 'LINE_SUM' OF STRUCTURE <f_out_wa> TO <f_fs1>.
    <f_fs1> = itab_sum-menge.

    COLLECT <f_out_wa> INTO <f_out>  .
    CLEAR <f_out_wa>.
  ENDLOOP.
ENDFORM.                    " FIXDATA

*&---------------------------------------------------------------------*
*&      Form  outdata
*&---------------------------------------------------------------------*
FORM outdata.
  PERFORM fieldcat_init .
  sla-colwidth_optimize = 'X'.
  sla-zebra             = 'X'.
  i_repid = sy-repid.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = i_repid
            it_fieldcat             = gd_fieldcat[]
            i_save                  = 'A'
            is_variant              = ivariant
            is_layout               = sla
            it_excluding            = i_excluding
*            i_callback_user_command = 'USER_COMMAND'
       TABLES
            t_outtab                = itab_sum
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
ENDFORM.                    " outdata
*---------------------------------------------------------------------*
*       FORM fieldcat_init                                            *
*---------------------------------------------------------------------*
FORM fieldcat_init .
  PERFORM frm_catlg_set USING: 'WERKS'     'WERKS' 'X' ,
                               'MATNR'     'MATNR' 'X' ,
                               'LGORT'     'LGORT' 'X' ,
                               'BWART'     'BWART' '' ,
                               'MENGE'     'MENGE' '' .
ENDFORM.                    "fieldcat_init

*---------------------------------------------------------------------*
*       FORM frm_catlg_set                                            *
*---------------------------------------------------------------------*
FORM frm_catlg_set USING p_field
                         p_text
                         p_key.
  DATA: ls_fieldcat TYPE slis_fieldcat_alv.
  ls_fieldcat-fieldname     = p_field.
  ls_fieldcat-seltext_l     = p_text.
  ls_fieldcat-key           = p_key.
  IF p_field = 'LINE_SUM'.
    ls_fieldcat-emphasize  = 'C700'.
  ENDIF.
  APPEND ls_fieldcat TO gd_fieldcat .
  CLEAR ls_fieldcat .
ENDFORM.                    "frm_catlg_set

*&--------------------------------------------------------------------*
*&      Form  user_command
*&--------------------------------------------------------------------*
*FORM user_command USING r_ucomm LIKE sy-ucomm
*                    rs_selfield TYPE slis_selfield.
*  READ TABLE itab INDEX rs_selfield-tabindex.
*  CASE r_ucomm.
*    WHEN '&IC1'. "双击
*
*    WHEN 'EXIT'.
*      LEAVE PROGRAM.
*  ENDCASE.
**  rs_selfield-refresh = 'X'.  "自动刷新
*ENDFORM. "user_com

*---------------------------------------------------------------------*
*       FORM outdata2                                                 *
*---------------------------------------------------------------------*
FORM outdata2.
  PERFORM fieldcat_init2 .
  sla-colwidth_optimize = 'X'.
  sla-zebra             = 'X'.
  i_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = i_repid
            it_fieldcat             = gd_fieldcat[]
            i_save                  = 'A'
            is_variant              = ivariant
            is_layout               = sla
            it_excluding            = i_excluding
       TABLES
            t_outtab                = <f_out>
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
ENDFORM.                    " outdata

*---------------------------------------------------------------------*
*       FORM fieldcat_init2                                           *
*---------------------------------------------------------------------*
FORM fieldcat_init2 .
  CLEAR c .
  PERFORM frm_catlg_set USING: 'WERKS'   'WERKS' 'X' ,
                               'MATNR'   'MATNR' 'X' ,
                               'LGORT'   'LGORT' 'X' .
  LOOP AT hs_bwart .
    c = c + 1.
    CONCATENATE 'MENGE' c INTO txt.
    PERFORM frm_catlg_set USING: txt hs_bwart-bwart '' .
  ENDLOOP.
  PERFORM frm_catlg_set USING: 'LINE_SUM'  'SUM' '' .
ENDFORM.                    "fieldcat_init

*---------------------------------------------------------------------*
*       FORM creat_itab_out                                           *
*---------------------------------------------------------------------*
FORM creat_itab_out.
  CLEAR c.
  PERFORM build_itab_stru USING: 'WERKS' 'MSEG' 'WERKS' ,
                                 'MATNR' 'MSEG' 'MATNR' ,
                                 'LGORT' 'MSEG' 'LGORT' .
  LOOP AT hs_bwart.
    c = c + 1.
    CONCATENATE 'MENGE' c INTO txt.
    PERFORM build_itab_stru USING: txt 'MSEG' 'MENGE' .
  ENDLOOP.
  PERFORM build_itab_stru USING: 'LINE_SUM' 'MSEG' 'MENGE' .

  CALL METHOD cl_alv_table_create=>create_dynamic_table
               EXPORTING
                  it_fieldcatalog = ifc
               IMPORTING
                  ep_table        = dy_out.
  ASSIGN dy_out->* TO <f_out>.
  CREATE DATA dy_out_wa LIKE LINE OF <f_out>.
  ASSIGN dy_out_wa->* TO <f_out_wa>.
ENDFORM.

*---------------------------------------------------------------------*
*       FORM build_itab_stru                                          *
*---------------------------------------------------------------------*
FORM build_itab_stru USING fdname ref_t ref_f.
  xfc-fieldname = fdname .
  xfc-ref_table = ref_t.
  xfc-ref_field = ref_f.
  APPEND xfc TO ifc.
ENDFORM.

[ 本帖最后由 ruyue318 于 2008-10-16 10:33 编辑 ]

Winkchow

我看的贴子，动态内表，ALV，肯定可以满足你的要求，可以无限扩展