Idoc
Páginas: 2 (483 palabras)
Publicado: 5 de febrero de 2012
*& Report ZCOBOL2_ALV_OBJETOS
*&
*&---------------------------------------------------------------------*
*&
*&*&---------------------------------------------------------------------*
REPORT zcobol2_alv_objetos.
TYPE-POOLS : icon,
slis.
TABLES: z00_version.
DATA: g_nombre LIKE sy-repid.DATA: g_t_versiones TYPE STANDARD TABLE OF z02_e_versiones,
g_wa_versiones TYPE z02_e_versiones.
* Declaración del alv grid
DATA: alv_grid TYPE REF TO cl_gui_alv_grid.* Declaración del contenedor
DATA: container TYPE REF TO cl_gui_custom_container.
* Declaración del layout
DATA: gs_layout TYPE lvc_s_layo.*CONTROLS: contenedor TYPE TABLEVIEW USING SCREEN '0100'.
" Con la dynpro donde va a estar
*DATA: gt_fieldcat TYPE slis_fieldname.
DATA: g_ok_code TYPE syucomm.
DATA: g_t_fieldcat TYPE STANDARD TABLE OF lvc_s_fcat, g_wa_fieldcat TYPE lvc_s_fcat.
DATA: l_t_srows TYPE lvc_t_row.
SELECT-OPTIONS: so_marc FOR z00_version-id_marca,
so_mode FOR z00_version-id_modelo.
******************
INITIALIZATION.******************
g_nombre = sy-repid.
*********************
START-OF-SELECTION.
*********************
PERFORM hacer_seleccion.
*********************
END-OF-SELECTION.
********************* PERFORM comp_objet.
*&---------------------------------------------------------------------*
*& Form hacer_seleccion
*&---------------------------------------------------------------------*
* text*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*FORM hacer_seleccion .
SELECT * FROM z00_version
INTO CORRESPONDING FIELDS OF TABLE g_t_versiones
WHERE id_marca IN so_marc AND
id_modelo IN so_mode....
Leer documento completo
Regístrate para leer el documento completo.