Idoc

Solo disponible en BuenasTareas
  • Páginas : 2 (483 palabras )
  • Descarga(s) : 0
  • Publicado : 5 de febrero de 2012
Leer documento completo
Vista previa del texto
*&---------------------------------------------------------------------*
*& 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....
tracking img