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 |
Carregando...
Você pode se interessar

Dicas
8 visualizações
Dicas
8 visualizações
Como cortar texto sem usar uma linha de script
Carlos L. A. da Silva - 11 de janeiro de 2021Conheça o poder da propriedade text-overflow no CSS e nunca mais edite strings no braço.

Artigos
16 visualizações
Artigos
16 visualizações
Como começar a programar
Carlos L. A. da Silva - 7 de janeiro de 2021Então, você quer entrar nessa vida? A decisão é sua, mas nós podemos te ajudar com os primeiros passos.

Dicas
18 visualizações
Dicas
18 visualizações
Como cancelar qualquer conta online para sempre
Carlos L. A. da Silva - 30 de dezembro de 2020Que tal fazer uma limpeza nas suas contas inativas ou finalmente largar aquela rede social que só dá desgosto?
Mais publicações

Artigos
21 visualizações
21 visualizações

Artigos
20 visualizações
20 visualizações

Dicas
27 visualizações
27 visualizações

Notícias
32 visualizações
32 visualizações
Deixe um Comentário