*----------------------------------------------------------------------*
***INCLUDE ZALVE_CALCULADORA_USER_COMMI01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  user_command_1000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_1000 INPUT.

  SET TITLEBAR 'TITULIN'.

  lv_save_ok = sy-ucomm.



  CASE lv_save_ok.
    WHEN 'BUTTON_EXIT'.
      LEAVE PROGRAM.
    WHEN 'B1'.
      CALL METHOD calculin->I_NUMERO~b1
        IMPORTING
          get_num = lv_output.
    WHEN 'B2'.
      CALL METHOD calculin->I_NUMERO~b2
        IMPORTING
          get_num2 = lv_output.
    WHEN 'B3'.
      CALL METHOD calculin->I_NUMERO~b3
        IMPORTING
          get_num3 = lv_output.
    WHEN 'B4'.
      CALL METHOD calculin->I_NUMERO~b4
        IMPORTING
          get_num4 = lv_output.
    WHEN 'B5'.
      CALL METHOD calculin->I_NUMERO~b5
        IMPORTING
          get_num5 = lv_output.
    WHEN 'B6'.
      CALL METHOD calculin->I_NUMERO~b6
        IMPORTING
          get_num6 = lv_output.
    WHEN 'B7'.
      CALL METHOD calculin->I_NUMERO~b7
        IMPORTING
          get_num7 = lv_output.
    WHEN 'B8'.
      CALL METHOD calculin->I_NUMERO~b8
        IMPORTING
          get_num8 = lv_output.
    WHEN 'B9'.
      CALL METHOD calculin->I_NUMERO~b9
        IMPORTING
          get_num9 = lv_output.
    WHEN 'B0'.
      CALL METHOD calculin->I_NUMERO~b0
        IMPORTING
          get_num0 = lv_output.
    WHEN 'B+'.
      CALL METHOD calculin->I_OPERACION~b11
        IMPORTING
          get_op = lv_op.
    WHEN 'B-'.
      CALL METHOD calculin->I_OPERACION~b12
        IMPORTING
          get_op2 = lv_op.
    WHEN 'B*'.
      CALL METHOD calculin->I_OPERACION~b13
        IMPORTING
          get_op3 = lv_op.
    WHEN 'B/'.
      CALL METHOD calculin->I_OPERACION~b14
        IMPORTING
          get_op4 = lv_op.
    WHEN 'B='.
      CALL METHOD calculin->I_OTHER~ejecutar
        EXPORTING
          set_op = lv_op
        IMPORTING
          get_value = lv_input.
     WHEN 'CLEAR'.
       CALL METHOD calculin->I_OTHER~BC.
       lv_input = ''.
       lv_output = ''.
       lv_op = ''.
  ENDCASE.


ENDMODULE.                 " user_command_1000  INPUT