&---------------------------------------------------------------------* *& Report ZPEXEMP_TAB_DINAMICA *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT ZPEXEMP_TAB_DINAMICA NO STANDARD PAGE HEADING MESSAGE-ID 00 LINE-SIZE 120. *----------------------------------------------------------------------* * Tabelas Transparentes *----------------------------------------------------------------------* TABLES: MARA, MARC, MAKT, MVKE, TVKO, T001, TSPAT, T179T, TVM3T, MARM, MLGN, TVKWZ, T604N. *----------------------------------------------------------------------* * Constantes *----------------------------------------------------------------------* DATA: C_ON(1) VALUE 'X', C_OFF(1). *----------------------------------------------------------------------* * Field-symbols *----------------------------------------------------------------------* * p/ser a tabela dinâmica onde constaram os dados de exibição FIELD-SYMBOLS: TYPE ANY TABLE, *work-área p/ trabalhar os dados antes de inclui TYPE ANY, *campo que recebera dados e apontara p/ os campos dinâmicos da wa. TYPE ANY. *----------------------------------------------------------------------* * Tabelas Interna *----------------------------------------------------------------------* *Tabela dinâmica de exibição do ALV DATA: T_DATA TYPE REF TO DATA. *Tabela Descrição do empresa DATA: BEGIN OF T_EMP OCCURS 0, BUKRS LIKE TVKO-BUKRS, BUTXT LIKE T001-BUTXT, END OF T_EMP, *Tabela Descrição do material BEGIN OF T_MAKT OCCURS 0, MATNR LIKE MAKT-MATNR, MAKTX LIKE MAKT-MAKTX, END OF T_MAKT, *Tabela descrição da divisão BEGIN OF T_DIV OCCURS 0, SPART LIKE TSPAT-SPART, VTEXT LIKE TSPAT-VTEXT, END OF T_DIV, *Tabela de descrição Materiais: hierarquias de produtos: textos BEGIN OF T_HIERAR OCCURS 0, PRODH LIKE T179T-PRODH,
VTEX1 LIKE T179T-VTEXT, END OF T_HIERAR, *Tabela descrição da família do produto BEGIN OF T_FP OCCURS 0,