*----------------------------------------------------------------------*
***INCLUDE MZ_TP3I01 .
*----------------------------------------------------------------------*
*
MODULE navigate INPUT.
  CASE fcode.
    WHEN 'BACK'.
      CASE sy-dynnr.
        WHEN '0100'.
*          CLEAR: alv_cont, cust_cont.
          LEAVE PROGRAM.
        WHEN '0200'.
          SET SCREEN 100. LEAVE SCREEN.
        WHEN '0300'.
          SET SCREEN 200. LEAVE SCREEN.
        WHEN '0310'.
          SET SCREEN 200. LEAVE SCREEN.
        WHEN '0320'.
          SET SCREEN 200. LEAVE SCREEN.
        WHEN '0400'.
          SET SCREEN 200. LEAVE SCREEN.
        WHEN '0500'.
          SET SCREEN 400. LEAVE SCREEN.
      ENDCASE.
    WHEN 'EXIT'.
      CLEAR: alv_cont, cust_cont.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " navigate  INPUT
*
MODULE check_date INPUT.
  IF zflug_input-vondatum > zflug_input-bisdatum.
    MESSAGE e001 WITH zflug_input-vondatum zflug_input-bisdatum.
*   Vondatum & liegt vor Bisdatum &.
  ENDIF.
ENDMODULE.                 " check_date  INPUT
*
MODULE check_city INPUT.
  IF zflug_input-cityfrom = zflug_input-cityto.
    MESSAGE e002 WITH zflug_input-cityfrom.
*   Fr Abflugstadt und Ankunftsstadt wurde identisch & eingegeben.
  ENDIF.
ENDMODULE.                 " check_city  INPUT
*
MODULE user_command_0100 INPUT.
  CASE fcode.
    WHEN 'FIND'.
      PERFORM suchen.
      SET SCREEN 200. LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*
MODULE abbrechen INPUT.
  CASE fcode.
    WHEN 'CANCEL'.
      CLEAR: alv_cont, cust_cont.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " abbrechen  INPUT
*
MODULE user_command_0200 INPUT.

ENDMODULE.                 " user_command_0200  INPUT
*
MODULE user_command_0300 INPUT.
  CASE fcode.
    WHEN 'NEWCUSTOM'.
      SET SCREEN 310. LEAVE SCREEN.
    WHEN 'BOOKFLIGHT'.
      SELECT SINGLE * FROM scarr
        WHERE carrid = zzflug-carrid.
      SELECT SINGLE * FROM scustom
        WHERE id = scustom-id.
      SELECT SINGLE * FROM sbook
        WHERE carrid = zzflug-carrid
        AND   connid = zzflug-connid
        AND   fldate = zzflug-fldate
        AND   bookid = sbook-bookid.
      SELECT SINGLE * FROM spfli
        WHERE carrid = zzflug-carrid
        AND   connid = zzflug-connid.
      PERFORM buchen.
      SET SCREEN 400.
      LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " user_command_0300  INPUT
*
MODULE user_command_0400 INPUT.
  CASE fcode.
    WHEN 'WEBSITE'.
      SET SCREEN 500. LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " user_command_0400  INPUT
*
MODULE user_command_0310 INPUT.
  CASE fcode.
    WHEN 'INSERT'.
      PERFORM kunde_anlegen.
      SET SCREEN 320. LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " user_command_0310  INPUT
*
MODULE user_command_0320 INPUT.
  CASE fcode.
    WHEN 'GO'.
      SET SCREEN 300. LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " user_command_0320  INPUT
*
MODULE user_command_0500 INPUT.

ENDMODULE.                 " user_command_0500  INPUT