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
Notícias
11 visualizações
Notícias
11 visualizações
Promoções de Jogos do Final de Semana (07/08)
Carlos L. A. da Silva - 7 de agosto de 2020Confira as melhores ofertas de jogos de PC para o final de semana.
Artigos
13 visualizações
Artigos
13 visualizações
Bloqueando robôs do seu site
Carlos L. A. da Silva - 6 de agosto de 2020Nem todo robô que visita seu site é bonzinho como o do Google... aprenda a se defender!
Dicas
18 visualizações
Dicas
18 visualizações
Como encriptar seu dispositivo móvel
Carlos L. A. da Silva - 4 de agosto de 2020Privacidade nunca é demais e ela pode estar na palma da sua mão, sem dificuldades. Aprenda a encriptar dispositivos Android, iOS e até Windows Phone.
Mais publicações
Artigos
25 visualizações
25 visualizações
Aposente essas DIVs: aprenda a estruturar semanticamente seu HTML 5
Carlos L. A. da Silva - 2 de agosto de 2020
Notícias
24 visualizações
24 visualizações
Artigos
27 visualizações1
27 visualizações1
Quem está lucrando com os aplicativos de entrega? Ninguém
Carlos L. A. da Silva - 28 de julho de 2020
Dicas
25 visualizações
25 visualizações
Como ditar um documento (Office, Google Docs, OpenOffice)
Carlos L. A. da Silva - 27 de julho de 2020Artigos
25 visualizações
25 visualizações
Aposente essas DIVs: aprenda a estruturar semanticamente seu HTML 5
Carlos L. A. da Silva - 2 de agosto de 2020Notícias
24 visualizações
24 visualizações
Promoções de Jogos do Final de Semana (31/07)
Carlos L. A. da Silva - 31 de julho de 2020Artigos
27 visualizações1
27 visualizações1
Quem está lucrando com os aplicativos de entrega? Ninguém
Carlos L. A. da Silva - 28 de julho de 2020
Promoções de Jogos do Final de Semana (07/08)
7 de agosto de 2020
Bloqueando robôs do seu site
6 de agosto de 2020
Como encriptar seu dispositivo móvel
4 de agosto de 2020
Aposente essas DIVs: aprenda a estruturar semanticamente seu HTML 5
2 de agosto de 2020
Deixe um Comentário