TABLE CONTROL .
Table control ? Vc deve estar se perguntando mais oque é isso né. Então Galera nada mais do que um objeto para visualizar informações estilo uma planilha eletrônica.
CONCEITO BÁSICO.
O objeto Table control permite várias tipos de controle, como seleção de linhas e de colunas, ajustes de
largura e latitude.
Obs : usando o Table control vc não afeta a tabela Real, vc só manipula os dados de uma tabela interna.
No meu Caso eu eu manipulei dados quaisquer só para uso do exemplo do nosso programa.
CÓDIGO.
*&---------------------------------------------------------------------*
*& Report ZTABELA_ELETRONICA_FUN01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
PROGRAM ZTABELA_ELETRONICA_FUN01.
*ZMJ_FUNC_LO01 "TABALE QUE VOU COLOCOR COMO INCLUDE
TYPE-POOLS: ICON,ABAP.
TYPES : BEGIN OF ZMJ_FUNC_LO01,
MARKED TYPE BOOLEAN,
ICON TYPE ICON.
INCLUDE STRUCTURE ZMJ_FUNC_LO01.
TYPES : END OF ZMJ_FUNC_LO01.
DATA : ITAB TYPE STANDARD TABLE OF ZMJ_FUNC_LO01 WITH KEY MARKED WITH HEADER LINE,
FCODE TYPE SY-UCOMM.
SELECT-OPTIONS: S_NOME FOR ITAB-NOME.
START-OF-SELECTION.
SELECT * INTO CORRESPONDING FIELDS OF TABLE ITAB[] FROM ZMJ_FUNC_LO01 WHERE ZMJ_FUNC_LO01~NOME IN S_NOME[].
CALL SCREEN '0100'.
END-OF-SELECTION.
"CRIANDO OS EVENTOS DA PLANILHA ELETRONICA COM O EVENTO PBO E PAI.
MODULE PBO OUTPUT.
CLEAR FCODE.
ENDMODULE.
MODULE PAI INPUT.
CASE FCODE.
WHEN 'DELETE'.
PERFORM FORM_DELETE.
WHEN 'UNDO'.
PERFORM FORM_UNDO.
ENDCASE.
ENDMODULE.
FORM FORM_DELETE.
DATA WA LIKE LINE OF ITAB[].
LOOP AT ITAB[] INTO WA WHERE MARKED EQ ABAP_TRUE AND ICON NE ICON_DELETE.
WA-ICON = ICON_DELETE.
MODIFY ITAB[] FROM WA TRANSPORTING ICON.
ENDLOOP.
ENDFORM.
FORM FORM_UNDO.
DATA WA LIKE LINE OF ITAB[].
LOOP AT ITAB[] INTO WA WHERE MARKED EQ ABAP_TRUE AND ICON EQ ICON_DELETE.
CLEAR WA-ICON.
MODIFY ITAB[] FROM WA TRANSPORTING ICON.
ENDLOOP.
ENDFORM.
*&SPWIZARD: DECLARATION OF TABLECONTROL 'TABLECONTROL' ITSELF
CONTROLS: TABLECONTROL TYPE TABLEVIEW USING SCREEN 0100.
*&SPWIZARD: OUTPUT MODULE FOR TC 'TABLECONTROL'. DO NOT CHANGE THIS LINE
*&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR
MODULE TABLECONTROL_CHANGE_TC_ATTR OUTPUT.
DESCRIBE TABLE ITAB LINES TABLECONTROL-lines.
ENDMODULE.
*&SPWIZARD: INPUT MODUL FOR TC 'TABLECONTROL'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MARK TABLE
MODULE TABLECONTROL_MARK INPUT.
DATA: g_TABLECONTROL_wa2 like line of ITAB.
if TABLECONTROL-line_sel_mode = 1
and ITAB-MARKED = 'X'.
loop at ITAB into g_TABLECONTROL_wa2
where MARKED = 'X'.
g_TABLECONTROL_wa2-MARKED = ''.
modify ITAB
from g_TABLECONTROL_wa2
transporting MARKED.
endloop.
endif.
MODIFY ITAB
FROM ITAB
INDEX TABLECONTROL-CURRENT_LINE
TRANSPORTING MARKED.
ENDMODULE.
