*----------------------------------------------------------------------*
***INCLUDE ZJUBE_R_ALV_CLASE_PRINCIPALF01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  principal
*&---------------------------------------------------------------------*
FORM principal .

  IF gv_contenedor IS INITIAL.

    CREATE OBJECT gv_contenedor
      EXPORTING
        container_name = gv_cont.

    CREATE OBJECT gv_grid
      EXPORTING
        i_parent = gv_contenedor.

    CALL METHOD gv_grid->set_table_for_first_display
      EXPORTING
        i_structure_name = 'SCARR'
      CHANGING
        it_outtab        = it_tabla.

    CREATE OBJECT gv_manejador.
    SET HANDLER gv_manejador->manejador_click FOR gv_grid.

  ENDIF.

ENDFORM.                    " principal