Module Pool - Table Control

 
"  Hoje vou mostrar como alimentar um 'Table control' em um 'Module Pool'
" 'Table control' e uma estrutura que recebe os dados de uma tabela e
" mostra na tela, vou mostrar como popular um, depois eu vou mostrar como
" manipular os dados que estão no 'table control'.
"  Primeiro criei seu 'Module pool'... Se não lembra acesse link abaixo:
" http://abapjuniores.blogspot.com/2011/04/module-pool-basico.html.

" Depois de criar a tela vá até o TOP do programa e declare igual abaixo.

*&---------------------------------------------------------------------*
*& Include MZSD0001TOP                                       Module Pool      SAPMZSD0001
*&
*&---------------------------------------------------------------------*

PROGRAM  SAPMZSD0001.

"  Criei uma tabela com os campos 'MANDT, MATNR e NAME1', e uma estrutura
" com os campos 'MATNR e NAME1.
TABLES : zmara,
         zst_mara
  .

" Declarações da tela 0100.
data : V_OKCODE TYPE sy-ucomm.
"  Declaração das estruturas e tabelas internas
DATA : it_zmara TYPE TABLE OF zmara,
       st_zmara TYPE          zmara.

"  Declaração do table control.
CONTROLS : ztab_ctrl TYPE TABLEVIEW USING SCREEN 0100.


*&---------------------------------------------------------------------*
"  Após ter declarado isso vamos voltar a tela e clicar no botão 'Layout'.

"  Isso irá mostrar o design da sua tela com todos os objetos dele, olhando
" no lado esquerdo você verá as ferramentas que podem ser usadas pra fazer
" sua tela conforme a necessidade do cliente ou do seu estudo.
"  Hoje nós vamos usar o 'Table Control' conforme imagem abaixo, onde é só
" clicar no icone dele, ir para a tela que ainda não tem nada, clicar e
" Arrastar, dê o nome 'ZTAB_CTRL', conforme exemplo, como o Top já foi feito
" se você perceber ele já foi declarado para a tela 0100.
"  Depois de criar, clique no botão 'Dicionário / Tabela de campos da tela'
" Conforme mostrado na imagem abaixo, coloque o nome da estrutura criada no
" SE11, e dê 'Enter', com isso irá aparecer todos os campos do mesmo,
" selecione os campos e dê 'OK', arraste o objeto para dentro do 'table Control'.
"  Pronto, agora você tem um 'Table control' relacionado com uma estrutura.

"  Depois de fazer tudo isso clique no botão 'Atributos' e selecione as
" opções conforme figura abaixo, isso é só para deixar um pouco mais bonito
" é organizado seu 'Table Control', lembre-se bem deste botão 'atributos'
" pois ele é muito importante mais tarde para a manipulação de dados.

" Agora veja os códigos comentados:

*&---------------------------------------------------------------------*

" fluxo lógico da tela 0100.

  PROCESS BEFORE OUTPUT.
" Faz a alimentação da tabela Interna.
 MODULE z_select_zmara.

"  Joga o registro pra dentro do estrutura interna 'linkando' com
" o Table control da tela.
 LOOP AT it_zmara INTO st_zmara WITH CONTROL ztab_ctrl.
   MODULE : preenche_screen.
 ENDLOOP.

" Module que 'seta' com um PF-Status com esta tela.
 MODULE STATUS_0100.

PROCESS AFTER INPUT.
"  Loop na tabela interna com os dados que serão mostrados na
" table control, este loop no PAI, serve quando você quer fazer
" alguma ação com os dados mostrados ( Insert, Modify, Update ...)
" , você precida coloca para que o programa seja executado
" corretamente.
LOOP AT it_zmara.
ENDLOOP.

"  Module contendo todas as ações de cada comando da tela.
 MODULE USER_COMMAND_0100.

*&---------------------------------------------------------------------*

" PBO


  *&---------------------------------------------------------------------*
*&  Include           MZSD0001O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
module status_0100 output.
  set pf-status 'TELA'.

endmodule.                 " STATUS_0100  OUTPUT


*&---------------------------------------------------------------------*
*&      Module  z_select_zmara  OUTPUT
*&---------------------------------------------------------------------*
module z_select_zmara output.

  select matnr name1
    from zmara
    into corresponding fields of table it_zmara.

endmodule.                 " z_select_zmara  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  preenche_screen  OUTPUT
*&---------------------------------------------------------------------*
module preenche_screen output.

  "  Verifica o espaço que tem dentro do Table Control e especifica os
  " intervalo de registros que serão exibidos, Tipo quando seu table control
  " cabe 20 registros e você tem 100 registros, os registros que serão
  " Mostrados inicialmente serão os resgistros 1 ao 20 e só, mas quando vc
  " colocar pra baixo irá aparecer do 2 ao 21.
  if sy-stepl = 1.
    ztab_ctrl-lines =
      ztab_ctrl-top_line + sy-loopc - 1.
  endif.

  "  Move os dados da estrutura interna pra dentro da estrutura que alimenta
  " o Table control.
  move-corresponding st_zmara to zst_mara.

endmodule.                 " preenche_screen  OUTPUT

*&---------------------------------------------------------------------*

" PAI

  *&---------------------------------------------------------------------*
*&  Include           MZSD0001I01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module user_command_0100 input.

  case v_okcode.
*  WHEN 'SAVE'.
    when 'BACK'.
      set screen 0.
      leave screen.
    when 'EXIT'.
      set screen 0.
      leave screen.
    when 'CANCEL'.
      set screen 0.
      leave screen.
    when others.
  endcase.

endmodule.                 " USER_COMMAND_0100  INPUT


*&---------------------------------------------------------------------*

"  Espero ter ajudado, como sempre falo 'Debbugem' tudo isso e vejam os
" valores e suas propriedades durante o processo.