Prévia do material em texto

<p>Criar programa: ZT6ADVNANP</p><p>*&---------------------------------------------------------------------*</p><p>*& Report  ZT6ADV0001</p><p>*&</p><p>*&---------------------------------------------------------------------*</p><p>*&</p><p>*&</p><p>*&---------------------------------------------------------------------*</p><p>REPORT  zt6adv0001.</p><p>*** Tipos de Dados</p><p>* O comando DATA é utilizado para declarar variáveis, tabelas, estruturas,etc.</p><p>DATA: v_char(10) TYPE c, "Variável caracteres tamanho 10. - V.I. = '          '</p><p>v_char2 TYPE c LENGTH 10, "Idem V_CHAR.</p><p>v_data TYPE d, "Variável data -> AAAAMMDD -> 15.09.2012</p><p>v_hora TYPE t, "Variável hora -> HHMMSS -> 11:07:28</p><p>v_dec  TYPE p DECIMALS 3, "Variável com e casas decimais -> 0.000</p><p>" 123.456,789 -> 123456.789</p><p>v_numc(10) TYPE n, "Variável numérica tam 10 -> '0000000000'.</p><p>v_int TYPE i, "variável inteira -> 0.</p><p>v_string TYPE string. "Varíavel caracteres tamanho automático.</p><p>*** Criar  Constantes - Neste caso é obrigatório definir o valor da constante</p><p>CONSTANTS: c_pis TYPE p DECIMALS 2 VALUE '1.65'.</p><p>IF v_dec EQ c_pis.                                          "'1.65'.</p><p>""Bloco de comandos</p><p>ENDIF.</p><p>*** O comando TABLES cria uma WORK-AREA para a tabela definida</p><p>TABLES: kna1.</p><p>*** Tipos de Dados.</p><p>TYPES: ty_nome(40) TYPE c.</p><p>DATA: v_nome TYPE ty_nome.</p><p>v_nome = 'Fernando'.</p><p>*** Tipo de dados estruturado</p><p>TYPES: BEGIN OF ty_cliente,</p><p>nome(40) TYPE c,</p><p>cpf(11)  TYPE n,</p><p>tel(16)  TYPE c,</p><p>END OF ty_cliente.</p><p>DATA: wa_cliente TYPE ty_cliente.</p><p>wa_cliente-nome = 'Eliezer'.</p><p>wa_cliente-cpf  = '12345678901'.</p><p>wa_cliente-tel  = '11 3256-9874'.</p><p>DATA: BEGIN OF wa_cliente2,</p><p>nome(40) TYPE c,</p><p>cpf(11)  TYPE n,</p><p>tel(16)  TYPE c,</p><p>END OF wa_cliente2.</p><p>*** Criar variáveis utilizando Dicionário de dados</p><p>DATA: BEGIN OF wa_cliente3,</p><p>kunnr TYPE kna1-kunnr,  "Código do cliente</p><p>name1 LIKE kna1-name1,  "nome do cliente</p><p>pstlz TYPE pstlz,       "CEP</p><p>END OF wa_cliente3.</p><p>DATA: wa_cliente4 TYPE kna1.</p><p>*** Tabelas internas</p><p>* Criar uma tabela interna a partir de uma estrutura/tabela do Dicionario dados</p><p>DATA: ti_kna1 TYPE kna1 OCCURS 0 WITH HEADER LINE.</p><p>ti_kna1-kunnr = '0000000010'.</p><p>ti_kna1-name1 = 'Fernando Smargiasse'.</p><p>APPEND ti_kna1.</p><p>ti_kna1-kunnr = '0000000011'.</p><p>ti_kna1-name1 = 'Domenica Wakai'.</p><p>APPEND ti_kna1.</p><p>ti_kna1-kunnr = '0000000012'.</p><p>ti_kna1-name1 = 'Alex Miura'.</p><p>APPEND ti_kna1.</p><p>ti_kna1-kunnr = '0000000013'.</p><p>ti_kna1-name1 = 'Guilherme'.</p><p>APPEND ti_kna1.</p><p>ti_kna1-kunnr = '0000000014'.</p><p>ti_kna1-name1 = 'Isaias'.</p><p>APPEND ti_kna1.</p><p>ti_kna1-kunnr = '0000000015'.</p><p>ti_kna1-name1 = 'Eliezer'.</p><p>APPEND ti_kna1.</p><p>ti_kna1-kunnr = '0000000016'.</p><p>ti_kna1-name1 = 'Ricardo'.</p><p>APPEND ti_kna1.</p><p>ti_kna1-kunnr = '0000000017'.</p><p>ti_kna1-name1 = 'Fábio'.</p><p>APPEND ti_kna1.</p><p>ti_kna1-kunnr = '0000000018'.</p><p>ti_kna1-name1 = 'Jefferson'.</p><p>APPEND ti_kna1.</p><p>ti_kna1-kunnr = '0000000019'.</p><p>ti_kna1-name1 = 'Paulo'.</p><p>APPEND ti_kna1.</p><p>LOOP AT ti_kna1.</p><p>WRITE: / ti_kna1-kunnr, ti_kna1-name1.</p><p>ENDLOOP.</p><p>CLEAR: ti_kna1. "Limpa o cabeçalho da tabela interna</p><p>CLEAR: ti_kna1[]. "limpa o conteudo da tabela interna</p><p>REFRESH: ti_kna1.</p><p>DATA: BEGIN OF ti_kna12 OCCURS 0,</p><p>kunnr LIKE kna1-kunnr,</p><p>linfr LIKE lfa1-lifnr,</p><p>END OF ti_kna12.</p><p>*** Tabela interna -> Tipo Standard</p><p>DATA: ti_cli TYPE STANDARD TABLE OF kna1.</p><p>wa_cliente4-kunnr = '0000000010'.</p><p>wa_cliente4-name1 = 'Teste de Cliente'.</p><p>APPEND wa_cliente4 TO ti_cli .</p><p>wa_cliente4-kunnr = '0000000011'.</p><p>wa_cliente4-name1 = 'Teste de Cliente 2'.</p><p>APPEND wa_cliente4 TO ti_cli .</p><p>LOOP AT ti_cli INTO wa_cliente4.</p><p>WRITE: / wa_cliente4-kunnr, wa_cliente4-name1.</p><p>wa_cliente4-name1 = 'Nome alterado'.</p><p>MODIFY ti_cli FROM wa_cliente4.</p><p>ENDLOOP.</p><p>*** tabelas ordenadas - Sorted TABLE</p><p>DATA: ti_cliente5 TYPE SORTED TABLE OF ty_cliente</p><p>WITH HEADER LINE</p><p>WITH NON-UNIQUE KEY cpf.</p><p>ti_cliente5-nome = 'Alex'.</p><p>ti_cliente5-cpf  = '11111111111'.</p><p>APPEND ti_cliente5.</p><p>ti_cliente5-nome = 'Alex'.</p><p>ti_cliente5-cpf  = '22222222222'.</p><p>APPEND ti_cliente5.</p><p>DATA: ti_cliente6 TYPE HASHED TABLE OF ty_cliente</p><p>WITH HEADER LINE</p><p>WITH UNIQUE KEY cpf.</p><p>*** Campos de Sistema mais utilizados</p><p>WRITE: / sy-subrc, "Código de Retorno do ultimo comando.</p><p>/ sy-uname, "Usuário logado no SAP</p><p>/ sy-datum, "Data do Sistema</p><p>/ sy-uzeit, "Hora do Sistema</p><p>/ sy-tcode, "Transação atual</p><p>/ sy-tabix, "Número da linha atual (LOOPS)</p><p>/ sy-langu, "Idioma de Logon</p><p>/ sy-dynnr, "Numero da tela atual</p><p>/ sy-datlo, "Data do fuso horário do usuário logado</p><p>/ sy-timlo. "hora do fuso do usuário.</p><p>*** Operadores Lógicos</p><p>* EQ -- =</p><p>* NE -- <></p><p>* GT -- ></p><p>* GE -- >=</p><p>* LT -- <</p><p>* LE -- <=</p><p>* BT -- Between VAL1 AND VAL2</p><p>* IS INITIAL</p><p>* NOT IS INITIAL</p><p>*** Instruções de Controle</p><p>IF sy-datum IS INITIAL OR sy-uname EQ 'FERNANDO'.           "00000000</p><p>WRITE: / 'Sem data'.</p><p>ELSEIF sy-datum EQ '20120915'.</p><p>WRITE: / 'Curso ABAP'.</p><p>ELSE.</p><p>WRITE: / 'Sem curso. Folga.'.</p><p>ENDIF.</p><p>CASE sy-datum.</p><p>WHEN '00000000'.</p><p>WRITE: / 'Sem data'.</p><p>WHEN '20120915'.</p><p>WRITE: / 'Curso ABAP'.</p><p>WHEN OTHERS.</p><p>WRITE: / 'Sem curso. Folga.'.</p><p>ENDCASE.</p><p>DO 10 TIMES.</p><p>" Bloco de programa.</p><p>ENDDO.</p><p>*DO.</p><p>*  IF v_politico NE v_honesto.</p><p>*    "Bloco de programa</p><p>*  ELSE.</p><p>*    EXIT. "Sai do loop</p><p>*  ENDIF.</p><p>*ENDDO.</p><p>*</p><p>*WHILE v_preco_gasolina EQ v_caro.</p><p>*  "Bloco de programa</p><p>*ENDWHILE.</p><p>*</p><p>*CHECK v_pis = '1.65'.</p><p>*</p><p>Criar tabela:</p><p>Clique em Criar</p><p>Inserir os campos:</p><p>Salvar.</p><p>Criar Dominios:</p><p>SE11 Selecionar Dominio Inserir nome do domínio Clicar em Criar:</p><p>Clique em Salvar e depois ativar.</p><p>Salvar e ativar.</p><p>Salve a ative.</p><p>Salve e ative.</p><p>Criar Elementos de Dados:</p><p>Transação: SE11</p><p>Salvar e ativar</p><p>Salvar e Ativar.</p><p>Salvar e Ativar.</p><p>Salvar e Ativar.</p><p>Salvar e ativar.</p><p>Salvar e Ativar.</p><p>Salvar e Ativar.</p><p>Salvar e Ativar.</p><p>Salvar e Ativar.</p><p>image7.png</p><p>image8.png</p><p>image9.png</p><p>image10.png</p><p>image11.png</p><p>image12.png</p><p>image13.png</p><p>image14.png</p><p>image15.png</p><p>image16.png</p><p>image17.png</p><p>image18.png</p><p>image19.png</p><p>image20.png</p><p>image21.png</p><p>image22.png</p><p>image23.png</p><p>image24.png</p><p>image25.png</p><p>image26.png</p><p>image27.png</p><p>image28.png</p><p>image29.png</p><p>image30.png</p><p>image31.png</p><p>image32.png</p><p>image33.png</p><p>image34.png</p><p>image35.png</p><p>image36.png</p><p>image1.png</p><p>image37.png</p><p>image38.png</p><p>image39.png</p><p>image40.png</p><p>image41.png</p><p>image42.png</p><p>image43.png</p><p>image44.png</p><p>image45.png</p><p>image46.png</p><p>image2.png</p><p>image47.png</p><p>image48.png</p><p>image49.png</p><p>image50.png</p><p>image51.png</p><p>image52.png</p><p>image53.png</p><p>image54.png</p><p>image55.png</p><p>image3.png</p><p>image4.png</p><p>image5.png</p><p>image6.png</p>