*&---------------------------------------------------------------------*
*& Report  Z_HEL_CSV_EXO_2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

INCLUDE z_hel_csv_exo2_top                      .    " global Data

* INCLUDE Z_HEL_CSV_EXO2_O01                      .  " PBO-Modules
* INCLUDE Z_HEL_CSV_EXO2_I01                      .  " PAI-Modules
* INCLUDE Z_HEL_CSV_EXO2_F01                      .  " FORM-Routines

TABLES : lfa1.

DATA : gd_path TYPE string.

DATA : itab_lfa1 TYPE STANDARD TABLE OF lfa1 WITH HEADER LINE.
DATA: hassancsv TYPE c LENGTH 20 VALUE '\hassan.csv'.

DATA: iout TYPE TABLE OF string .
DATA: xout TYPE string.
FIELD-SYMBOLS: <fs>.

DATA : zcount(10) TYPE N.

DATA: ITAB1 TYPE TRUXS_T_TEXT_DATA.


SELECTION-SCREEN BEGIN OF SCREEN 500 AS WINDOW.
SELECT-OPTIONS : n_frn FOR lfa1-lifnr.
SELECT-OPTIONS : d_achat FOR lfa1-erdat.
PARAMETERS: p_path LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF SCREEN 500.

CALL SELECTION-SCREEN 500.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
  CALL METHOD cl_gui_frontend_services=>directory_browse
    EXPORTING
      window_title    = 'File Directory'
      initial_folder  = 'C:'
    CHANGING
      selected_folder = gd_path.
  CALL METHOD cl_gui_cfw=>flush.
  CONCATENATE gd_path '' INTO p_path.

START-OF-SELECTION.
  PERFORM traitement.


FORM traitement.
  IF n_frn = ''.
    PERFORM selectallsuppliers.
  ELSEIF d_achat IS INITIAL.
    PERFORM selectsupplierbycurrentdate.
  ELSE.
    PERFORM showsupplierbydateandnum.
  ENDIF.

  DESCRIBE TABLE itab_lfa1 LINES zcount.

  CLEAR gd_path.
  CONCATENATE p_path hassancsv  INTO gd_path.
  PERFORM exportcsvfile.

ENDFORM.


FORM selectallsuppliers.
  SELECT * FROM lfa1 INTO TABLE itab_lfa1.
ENDFORM.

FORM selectsupplierbycurrentdate.
  SELECT * FROM  lfa1 AS f
  INTO TABLE itab_lfa1
  WHERE erdat <= sy-datum.


ENDFORM.


FORM showsupplierbydateandnum.
  SELECT * FROM  lfa1 AS f
  INTO TABLE itab_lfa1
  WHERE erdat <= d_achat AND lifnr IN n_frn.
ENDFORM.


FORM exportcsvfile.
  CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'
    EXPORTING
      i_field_seperator    = ';'
    TABLES
      i_tab_sap_data       = itab_lfa1
    CHANGING
      i_tab_converted_data = itab1
    EXCEPTIONS
      conversion_failed    = 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.

CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    FILENAME = gd_path
  TABLES
    DATA_TAB = itab1
  EXCEPTIONS
    OTHERS   = 1.

  if sy-subrc = 0.
      MESSAGE text-001  TYPE 'I' DISPLAY LIKE 'I'.
      WRITE : / 'nombre de fournisseurs créer ', zcount .
  else.
      MESSAGE text-002 TYPE 'W' DISPLAY LIKE 'W'.
  endif.


ENDFORM.