Olá,
Dê uma olhada no código abaixo e faça as alterações necessárias.
TYPE-POOLS: SLIS.
-
Declaração da tabela de banco de dados
TABLES: VBAK.
-
Declaração da tabela interna
DATA: BEGIN OF ITAB OCCURS 0,
VBELN LIKE VBAK-VBELN,
ERNAM LIKE VBAK-ERNAM,
ERDAT LIKE VBAK-ERDAT,
END OF ITAB.
-
Declaração do Fieldcatalog
DATA: FLDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
-
Preenchendo dados na tabela interna
SELECT VBELN ERNAM ERDAT FROM VBAK INTO TABLE ITAB.
FLDCAT-FIELDNAME = 'VBELN'.
FLDCAT-COL_POS = 0.
FLDCAT-SELTEXT_M = 'DOC DE VENDAS'.
APPEND FLDCAT.
CLEAR FLDCAT.
FLDCAT-FIELDNAME = 'ERNAM'.
FLDCAT-COL_POS = 1.
FLDCAT-SELTEXT_M = 'NOME DA PESSOA'.
APPEND FLDCAT.
CLEAR FLDCAT.
FLDCAT-FIELDNAME = 'ERDAT'.
FLDCAT-COL_POS = 2.
FLDCAT-SELTEXT_M = 'DATA DO DOC.'.
APPEND FLDCAT.
CLEAR FLDCAT.
-
Chamando o módulo de função e passando a tabela interna
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
-
I_TITLE =
-
I_SELECTION = 'X'
-
I_ALLOW_NO_SELECTION =
-
I_ZEBRA = ' '
-
I_SCREEN_START_COLUMN = 0
-
I_SCREEN_START_LINE = 0
-
I_SCREEN_END_COLUMN = 0
-
I_SCREEN_END_LINE = 0
-
I_CHECKBOX_FIELDNAME =
-
I_LINEMARK_FIELDNAME =
-
I_SCROLL_TO_SEL_LINE = 'X'
I_TABNAME = 'ITAB'
-
I_STRUCTURE_NAME = 'VBAK'
IT_FIELDCAT = FLDCAT[]
-
IT_EXCLUDING =
-
I_CALLBACK_PROGRAM =
-
I_CALLBACK_USER_COMMAND =
-
IS_PRIVATE =
-
IMPORTING
-
ES_SELFIELD =
-
E_EXIT =
TABLES
T_OUTTAB = ITAB
-
Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTOSe unió el 13/07/2019
Olá,
Precisa passar o nome da estrutura criada através do SE11 no i_structure_name.
Crie um fieldcatalog e depois passe este field catalog IT_FIELDCAT.
Verifique este código.
TABLES VBAK.
DATA it_vbak LIKE VBAK OCCURS 0 WITH HEADER LINE.
SELECT * FROM VBAK
INTO CORRESPONDING FIELDS OF TABLE it_vbak
UP TO 10 ROWS.
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
I_TITLE = 'INFORMAÇÃO DO PEDIDO DE VENDA'
I_ZEBRA = 'X'
I_TABNAME = 1
I_STRUCTURE_NAME = 'VBAK'
TABLES
T_OUTTAB = it_vbak
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
Olá,
Por favor, verifique o link abaixo:
http://www.geocities.com/mpioud/Z_REUSE_ALV_POPUP_TO_SELECT.html
Passe os parâmetros conforme mostrado no código abaixo.
-
Mostrar dados em um POPUP
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
i_selection = 'X'
i_zebra = 'X'
it_fieldcat = lt_fieldcat
i_tabname = 'GT_USER'
i_checkbox_fieldname = 'CHECKBOX'
is_private = ls_private
IMPORTING
e_exit = l_exit
TABLES
t_outtab = gt_user.
Saudações,
Raj.
Olá Prachi Jhawar, Verifique este programa de exemplo. Funciona bem e atende aos seus requisitos. Um popup com caixas de seleção é exibido. Em seguida, você seleciona os registros usando as caixas de seleção e pressiona Enter. Apenas os registros selecionados são exibidos na grade de tela.
REPORT zvenkat_alv_popup.
**********************************************************************
* Declarações.
**********************************************************************
...
...
...
...
...
...
...
...
