*&---------------------------------------------------------------------*
*& Report  Z_USER_MENU
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  z_user_menu.


PARAMETERS sub_log(16) TYPE c NO-DISPLAY.

CALL SCREEN 0001.

DATA: BEGIN OF wa_login,
        login TYPE zdel_id_login,
      END OF wa_login.

* Image
DATA: container_1 TYPE REF TO cl_gui_custom_container,
      frame_img   TYPE REF TO cl_gui_picture,
      url         TYPE cndp_url.                " URL-field in screen 200


SELECT nivel FROM zdb_niveles INTO wa_login
WHERE id_login = sub_log.
ENDSELECT.



*&---------------------------------------------------------------------*
*&      Module  STATUS_0001  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0001 OUTPUT.

*  IF wa_login IS NOT INITIAL.
    SET PF-STATUS 'STATUS1'.
*  ELSE.
*    SET PF-STATUS 'STATUS2'.
*    SET TITLEBAR 'TITULO1'.
*  ENDIF.

    perform put_image.

ENDMODULE.                 " STATUS_0001  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0001  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0001 INPUT.

  CASE sy-ucomm.

    WHEN 'BACK'.
      LEAVE PROGRAM.

    WHEN 'BFORO'.
      SUBMIT z_userforo.

    WHEN 'BMENSPRIV'.
      SUBMIT z_user_menspriv.

    WHEN 'BDATOS'.
      SUBMIT z_user_moddatos with sub_modt = sub_log and return.

    WHEN 'BAGENDA'.
      SUBMIT z_user_agenda with p_agenda = sub_log and return.

    WHEN 'BPERMISOS'.
      SUBMIT z_user_permisos.

    WHEN 'BADMIN'.
      SUBMIT z_user_alv3.

  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0001  INPUT
*&---------------------------------------------------------------------*
*&      Form  put_image
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form put_image .

* Create controls
    CREATE OBJECT container_1
      EXPORTING container_name = 'FRAME_IMG'.

    CREATE OBJECT frame_img EXPORTING parent = container_1.

    data pict type ref to zcl_picture.
    try.
        pict = zcl_picture=>factory(
          mime_file = '/SAP/PUBLIC/BC/ABAP/Sources/PLANE.GIF'
          pict_type = 'GIF' ).
      catch zcx_no_picture.
        return.
    endtry.
    pict->display( frame_img ).

endform.                    " put_image