*----------------------------------------------------------------------*
***INCLUDE ZJUBE_R_ALV_CLASE_MOSTRARF01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  mostrar
*&---------------------------------------------------------------------*
FORM mostrar.

  IF gt_sflight IS INITIAL.

    IF g_custom_container IS NOT INITIAL.

      CALL METHOD g_custom_container->free.
      CLEAR g_custom_container.

    ENDIF.

  ELSEIF g_custom_container IS INITIAL.

    CREATE OBJECT g_custom_container
      EXPORTING
        container_name = g_container.

    CREATE OBJECT grid1
      EXPORTING
        i_parent = g_custom_container.

    CALL METHOD grid1->set_table_for_first_display
      EXPORTING
        i_structure_name = 'SFLIGHT'
      CHANGING
        it_outtab        = gt_sflight.

    SET HANDLER gv_manejador->manejador_barra FOR ALL INSTANCES.
    CALL METHOD grid1->set_toolbar_interactive.
    SET HANDLER gv_manejador->manejador_comando FOR ALL INSTANCES.

  ELSE.

    CALL METHOD grid1->refresh_table_display
      EXCEPTIONS
        finished = 1
        OTHERS   = 2.

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.

  ENDIF.

ENDFORM.                    " mostrar