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
Artigos
21 visualizações
Artigos
21 visualizações
Sir Clive Sinclair, o homem adiantado no tempo
Carlos L. A. da Silva - 18 de setembro de 2021O inglês Clive Marles Sinclair nasceu de uma família de engenheiros. Seu avô foi engenheiro, assim como o seu pai. Com um talento natural pela Matemática e um forte interesse em eletrônica, ele se tornaria uma página importante da popularização da computação em diversas partes do mundo, construindo um legado que se perpetuará por anos […]
Artigos
143 visualizações
Artigos
143 visualizações
A cibersegurança por trás das vacinas
Carlos L. A. da Silva - 7 de setembro de 2021Vacinas contra o coronavírus contam com aparato sofisticado de cibersegurança que bateu de frente com tentativa de ação de hackers.
Artigos
274 visualizações
Artigos
274 visualizações
Top 25 comandos do Git
Carlos L. A. da Silva - 28 de agosto de 2021Git é uma mão na roda para source control, mas pode ficar melhor ainda conhecendo os comandos certos.
Mais publicações
Artigos
338 visualizações
338 visualizações
Artigos
471 visualizações
471 visualizações
As tecnologias de Aprendizado de Máquina das Olimpíadas de Tóquio 2020
Carlos L. A. da Silva - 8 de agosto de 2021
Artigos
639 visualizações
639 visualizações
Notícias
8 compartilhamentos748 visualizações
8 compartilhamentos748 visualizações
Trybe e XP se unem na formação de novos desenvolvedores de software
Gabriel Fróes - 27 de julho de 2021Artigos
471 visualizações
471 visualizações
As tecnologias de Aprendizado de Máquina das Olimpíadas de Tóquio 2020
Carlos L. A. da Silva - 8 de agosto de 2021Artigos
639 visualizações
639 visualizações
10 jogos que todo programador deveria conhecer
Carlos L. A. da Silva - 1 de agosto de 2021
Sir Clive Sinclair, o homem adiantado no tempo
18 de setembro de 2021
A cibersegurança por trás das vacinas
7 de setembro de 2021
Top 25 comandos do Git
28 de agosto de 2021
Dez anos de Kotlin: origens e futuro
20 de agosto de 2021
Deixe um Comentário