REPORT z_alv_crossed_table.
*---------------------------------------------------------------------*
* This report displays data from table VBAK (Orders) in a crossed     *
* table :                                                             *
* - Column        : Sales organization                                *
* - Line          : Creation date                                     *
* - Intersection  : Number of orders created                          *
*---------------------------------------------------------------------*
* Author : Michel PIOUD                                               *
* Email : 
 Esta dirección electrónica esta protegida contra spam bots. Necesita activar JavaScript para visualizarla
   HomePage : http://www.geocities.com/mpioud *
*---------------------------------------------------------------------*
TABLES : vbak.                         " Sales Document

 TYPE-POOLS:  slis.                      " ALV Global types

SELECT-OPTIONS :
   s_vkorg FOR vbak-vkorg,              " Sales organization
   s_kunnr FOR vbak-kunnr,              " Sold-to party
   s_vbeln FOR vbak-vbeln,              " Sales document
   s_erdat FOR vbak-erdat.              " Creation Date

SELECTION-SCREEN :
  SKIP, BEGIN OF LINE,COMMENT 5(27) v_1 FOR FIELD p_max.    "#EC NEEDED
PARAMETERS p_max(2) TYPE n DEFAULT '20' OBLIGATORY.
SELECTION-SCREEN END OF LINE.

DATA::
  BEGIN OF gt_data OCCURS 0,
     vkorg TYPE vkorg,                  " Sales organization
     erdat TYPE sydatum,                " Creation Date
     total TYPE i,                      " Total of orders
  END OF gt_data.

*---------------------------------------------------------------------*
INITIALIZATION.

   v_1 = 'Maximum of lines to display'. 

*---------------------------------------------------------------------*
START-OF-SELECTION.

  PERFORM f_read_data.

  PERFORM f_display_data.

*---------------------------------------------------------------------*
*      Form  f_read_data
*---------------------------------------------------------------------*
FORM f_read_data.

  SELECT vkorg erdat COUNT(*) AS total
    INTO TABLE gt_data
    FROM vbak
       UP TO p_max ROWS
   WHERE kunnr IN s_kunnr
     AND vbeln IN s_vbeln
     AND vkorg IN s_vkorg
     AND erdat IN s_erdat
   GROUP BY vkorg erdat
    ORDER BY erdat DESCENDING.

ENDFORM.                               " F_READ_DATA
*---------------------------------------------------------------------*
*      Form  F_DISPLAY_DATA
*---------------------------------------------------------------------*
FORM f_display_data.

   FIELD-SYMBOLS:
      TYPE ANY,
     
 TYPE ANY,
      TYPE TABLE.              " Data to display

* Macro definition
   DEFINE m_sort.
    ADD 1 TO ls_sort-spos.
     ls_sort-fieldname = &1.
     ls_sort-down = 'X'. 
    APPEND ls_sort TO lt_sort.
   END-OF-DEFINITION.

  DATA::
     l_col(5),
     lp_struct TYPE REF TO DATA,
     lp_table TYPE REF TO DATA,      " Pointer to dynamic table
     ls_lvc_cat TYPE lvc_s_fcat,
     lt_lvc_cat TYPE lvc_t_fcat,       " Field catalog
     ls_fieldcat TYPE slis_fieldcat_alv,
     lt_fieldcat TYPE slis_t_fieldcat_alv,  " Field catalog
     lt_sort TYPE slis_t_sortinfo_alv,
     ls_sort TYPE slis_sortinfo_alv,
     ls_layout TYPE slis_layout_alv.

* Build Fieldcatalog - First column
   ls_lvc_cat-fieldname = 'ERDAT'. 
   ls_lvc_cat-ref_table = 'VBAK'. 
  APPEND ls_lvc_cat TO lt_lvc_cat.

   ls_fieldcat-fieldname = 'ERDAT'. 
   ls_fieldcat-ref_tabname = 'VBAK'. 
   ls_fieldcat-key = 'X'. 
  APPEND ls_fieldcat TO lt_fieldcat.

  SORT gt_data BY vkorg.
  LOOP AT gt_data.

    AT NEW vkorg.
*     Build Fieldcatalog
      CLEAR ls_lvc_cat.
      CONCATENATE 'V' gt_data-vkorg INTO ls_lvc_cat-fieldname.
       ls_lvc_cat-datatype = 'INT4'. 
      APPEND ls_lvc_cat TO lt_lvc_cat.
*     Build Fieldcatalog
      CLEAR ls_fieldcat.
       ls_fieldcat-fieldname = ls_lvc_cat-fieldname.
       ls_fieldcat-datatype = 'INT4'. 
       ls_fieldcat-seltext_s = gt_data-vkorg.
       ls_fieldcat-no_zero = 'X'. 
      APPEND ls_fieldcat TO lt_fieldcat.
     ENDAT.

  ENDLOOP.

* Create internal table
  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING it_fieldcatalog = lt_lvc_cat
    IMPORTING ep_table = lp_table.

   ASSIGN lp_table->* TO .

* Create structure = structure of the internal table
   CREATE DATA lp_struct LIKE LINE OF .
   ASSIGN lp_struct->* TO 
.

  SORT gt_data BY erdat.

* Fill the internal table 
  LOOP AT gt_data.

    AT NEW erdat.
      CLEAR 
.
       ASSIGN COMPONENT 'ERDAT'  OF STRUCTURE 
 TO .
      IF SY-SUBRC NE 0. EXIT ENDIF.
        = gt_data-erdat.
     ENDAT.

    CONCATENATE 'V' gt_data-vkorg INTO l_col.
     ASSIGN COMPONENT l_col OF STRUCTURE 
 TO .
    IF SY-SUBRC NE 0. EXIT ENDIF.
      = gt_data-total.

    AT END OF erdat.
      APPEND 
 TO .
     ENDAT.

  ENDLOOP.

* Layout
   ls_layout-colwidth_optimize = 'X'. 
   ls_layout-zebra = 'X'. 

   m_sort 'ERDAT'.                       " Sort by creation date

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' 
       EXPORTING
             is_layout = ls_layout
             it_fieldcat = lt_fieldcat
             it_sort = lt_sort
       TABLES
             t_outtab = .

ENDFORM.                               " F_DISPLAY_DATA
************ END OF PROGRAM Z_ALV_CROSSED_TABLE **********************