*&---------------------------------------------------------------------*
*& Report  Z_HEL_CSV_EXO
*&
*&---------------------------------------------------------------------*
*& @author : hassan el mzabi
*& @But : Stockage de données d’achat depuis une application externe.
*&---------------------------------------------------------------------*

INCLUDE z_hel_csv_exo_top                       .    " global Data and forms.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name  = syst-repid
      dynpro_number = syst-dynnr
      field_name    = 'P_FILE '
    IMPORTING
      file_name     = p_file
    EXCEPTIONS
      OTHERS        = 5.

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


START-OF-SELECTION.
  IF flat_upload = 1.
    file_str = p_file.
    PERFORM uploadcsvfile.
    PERFORM readcsvfile.
    PERFORM showinalv.
  ENDIF.