Write Simples no ABAP
Impressão do Write simples.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 |
************************************************************************ * * * Consultoria * * * * Nome do Programa : TYPES * * Transação : N/A * * Módulo funcional : FI * * Título do Programa : TYPES * * Programador : BRUNA * * Data de criação : 28/08/2008 * ************************************************************************ * Objetivo: * *----------------------------------------------------------------------* * Lista de Modificações: * * Data | Autor | Request # |Breve descrição * * ---------------------------------------------------------------------* * 28/08/2008 | BRUNA | LOCAL | Versão Inicial * ************************************************************************ REPORT ZPX006_10. ************************************************************************ *** Tabela *** ************************************************************************ *TABELAS QUE SERÃO ULTILIZADAS. Tables: MARA, MAKT. ************************************************************************ *** PARAMETRO DE SELEÇÃO *** ************************************************************************ *parameter: p_MATNR type MARA-MATNR. (VAI SER SELECIONADO UM MATERIAL POR VEZ *OU SEJA, VAI SER VIZUALIZADO UM CAMPO). *VAI SER VIZUALIDADO DOIS CAMPOS DE, ATÉ ONDE O USUARIO DESCIDIR). select-options: s_MATNR for MARA-MATNR. ************************************************************************ *** TYPES *** ************************************************************************ *ABRINDO 3 CAMPOS (LINHAS DA 'PLANILHA' COM SEUS RESPCTIVOS NOMES). TYPES: BEGIN OF TY_MARA, *CRIANDO UM TIPO PARA TABELA INTERNA. MATNR TYPE MARA-MATNR, "NOME DA COLUNA. ERSDA TYPE MARA-ERSDA, LAEDA TYPE MARA-LAEDA, *CRIADO TODOS OS CAMPOS E FINALIZADO. END OF TY_MARA. *ABRINDO 2 CAMPOS (LINHAS DA 'PLANILHA' COM SEUS RESPCTIVOS NOMES). TYPES: BEGIN OF TY_MAKT, *CRIANDO UM TIPO PARA TABELA INTERNA. MATNR TYPE MAKT-MATNR, MAKTX TYPE MAKT-MAKTX, *CRIADO TODOS OS CAMPOS E FINALIZADO. END OF TY_MAKT. ************************************************************************ *** TABELAS INTERNAS *** ************************************************************************ *CRIANDO A TABELA POR INTEIRA DATA: T_MARA TYPE TABLE OF TY_MARA, T_MAKT TYPE TABLE OF TY_MAKT. ************************************************************************ *** ESTRUTURAS *** ************************************************************************ *CRIANDO A LINHA QUE VAI LER A TABELA. DATA: E_MARA TYPE TY_MARA, E_MAKT TYPE TY_MAKT. ************************************************************************ *** START OF SELECTION *** ************************************************************************ START-OF-SELECTION. *LIMPAR O CODIGO. PERFORM F_SELECT. PERFORM F_IMPRESSAO. *&---------------------------------------------------------------------* *& Form F_SELECT *&---------------------------------------------------------------------* * SELEÇÃO DE MATERIAIS. *----------------------------------------------------------------------* FORM F_SELECT . SELECT MATNR ERSDA LAEDA *GUARDANDO DENTRO DA TABELA. INTO TABLE T_MARA *BUSCANDO DA TABELA MARA. FROM MARA *WHERE PEGA SOMENTE AS LINHAS FILTRADAS PELO MATNR (NO CASO). WHERE MATNR IN S_MATNR. *VAI CHECAR SE A TABELA MARA NÃO ESTÁ VAZIA. IF NOT T_MARA[] IS INITIAL. SELECT MATNR MAKTX *GUARDANDO DENTRO DA TABELA. INTO TABLE T_MAKT *BUSCANDO DA TABELA MARA. FROM MAKT *ESTÁ BUSCANDO TODO CONTEUDO DA TABELA MARA. FOR ALL ENTRIES IN T_MARA WHERE MATNR = T_MARA-MATNR. ENDIF. ENDFORM. " F_SELECT *&---------------------------------------------------------------------* *& Form F_IMPRESSÃO *&---------------------------------------------------------------------* * IMPRESSÃO *----------------------------------------------------------------------* FORM F_IMPRESSAO . *VERIFICANDO REGISTRO A REGISTRO (LINHA Á LINHA). LOOP AT T_MARA INTO E_MARA. *LENDO AS DESCRIÇÕES DO REGISTRO E_MAKT. READ TABLE T_MAKT INTO E_MAKT WITH KEY MATNR = E_MARA-MATNR. *FORMATAR RELATÓRIO. FORMAT COLOR COL_POSITIVE INTENSIFIED OFF. FORMAT RESET. ULINE. FORMAT COLOR COL_NORMAL INTENSIFIED ON. *IMPRESSÃO DO RELATÓRIO. WRITE: / SY-VLINE, E_MARA-MATNR, SY-VLINE, E_MARA-ERSDA, SY-VLINE, E_MARA-LAEDA, SY-VLINE, E_MAKT-MAKTX, SY-VLINE. *FINALIZAR LOOP. ENDLOOP. ENDFORM. " F_IMPRESSÃO |
Você pode se interessar
Notícias
10 visualizações
Notícias
10 visualizações
Promoções de Jogos do Final de Semana (17/01)
Carlos L. A. da Silva - 17 de janeiro de 2020Confira as melhores ofertas de jogos de PC para o final de semana.
Artigos
10 visualizações
Artigos
10 visualizações
Dez habilidades essenciais para desenvolvedores em 2020
Carlos L. A. da Silva - 16 de janeiro de 2020Amplie e aperfeiçoe seu arsenal de conhecimento com essas competências fundamentais.
Notícias
19 visualizações
Notícias
19 visualizações
Promoções de Jogos do Final de Semana (10/01)
Carlos L. A. da Silva - 10 de janeiro de 2020Confira as melhores ofertas de jogos de PC para o final de semana.
Mais publicações
Artigos
20 visualizações
20 visualizações
A IA do Google derrubou o câncer de mama? Não exatamente
Carlos L. A. da Silva - 10 de janeiro de 2020
Notícias
21 visualizações
21 visualizações
Mudanças no YouTube para conteúdo infantil já estão valendo
Carlos L. A. da Silva - 7 de janeiro de 2020
Artigos
32 visualizações
32 visualizações
Notícias
21 visualizações
21 visualizações
Artigos
20 visualizações
20 visualizações
A IA do Google derrubou o câncer de mama? Não exatamente
Carlos L. A. da Silva - 10 de janeiro de 2020Notícias
21 visualizações
21 visualizações
Mudanças no YouTube para conteúdo infantil já estão valendo
Carlos L. A. da Silva - 7 de janeiro de 2020
Promoções de Jogos do Final de Semana (17/01)
17 de janeiro de 2020
Dez habilidades essenciais para desenvolvedores em 2020
16 de janeiro de 2020
Promoções de Jogos do Final de Semana (10/01)
10 de janeiro de 2020
A IA do Google derrubou o câncer de mama? Não exatamente
10 de janeiro de 2020
