- SAP Managed Tags
hi everyone
i want to download the result of my ALV with only 'carrid' 'connid' 'fldate' 'price' and 'currency'
i got the right result but when i download the table and open the file with EXCEL, i can't see the head |carrid | connid | date | price | currency | and i have anither data like type-of-plane, .....
*&---------------------------------------------------------------------*
*& Include Z_AAA_ALV_FOR
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form search_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM search_data .
IF p_sfl = 'X'.
SELECT *
FROM sflight
INTO TABLE it_sflight
WHERE carrid IN comp
AND connid IN num_vol
AND fldate IN date_vol
AND price IN prix_vol
AND currency IN devise
AND planetype IN type_av
AND seatsocc IN place_oc
AND paymentsum IN mont_tot
.
ELSEIF p_spfli = 'X'.
SELECT *
FROM spfli
INTO TABLE it_spfli
WHERE carrid IN comp_ae
AND connid IN n_vol
AND countryfr IN pays_dep
AND cityfrom IN ville_D
AND airpfrom IN aerop_D
AND countryto IN pays_arr
AND cityto IN ville_A
AND airpto IN aerop_A
AND distance IN distance
.
ENDIF.
IF p_sfl = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
it_fieldcat = lt_fieldcat[]
i_callback_pf_status_set = 'SET_PF_STATUS'
i_callback_user_command = 'AAA_REPORT'
i_save = 'A'
i_default = 'X'
TABLES
t_outtab = it_sflight.
ELSEIF
p_spfli = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
it_fieldcat = lt_fieldcatt[]
i_callback_pf_status_set = 'SET_PF_STATUS'
i_callback_user_command = 'AAA_REPORT_SPLFI'
TABLES
t_outtab = it_spfli.
ENDIF.
ENDFORM.
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
****************** btn alv01 ***************
IF p_sfl = 'X'.
SET PF-STATUS 'ZAAA_ALV' EXCLUDING rt_extab.
****************** BTN ALV02 ***************
ELSEIF p_spfli = 'X'.
SET PF-STATUS 'ZAAA_ALV_SPFLI' EXCLUDING rt_extab.
ENDIF.
ENDFORM.
FORM aaa_report USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE sy-ucomm.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'ENREG'.
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
initial_directory = 'C:\'
file_filter = '*.csv'
default_extension = 'csv'
CHANGING
filename = v_filename
path = v_path
fullpath = v_fullpath.
CALL METHOD cl_gui_frontend_services=>gui_download
EXPORTING
filename = v_filename
CHANGING
data_tab = it_sflight.
WHEN 'ENREG'.
CALL METHOD cl_gui_frontend_services=>gui_download
EXPORTING
filename = v_filename
CHANGING
data_tab = it_sflight[].
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDCASE.
ENDFORM.
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
CASE sy-ucomm.
WHEN 'SE11'.
CALL TRANSACTION 'SE11'.
ENDCASE.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form fill_fieldcat
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM fill_fieldcat .
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = 1.
ls_fieldcat-fieldname = 'CARRID'.
ls_fieldcat-tabname = 'lt_sflight'.
ls_fieldcat-seltext_m = 'Carrid'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = 2.
ls_fieldcat-fieldname = 'CONNID'.
ls_fieldcat-tabname = 'lt_sflight'.
ls_fieldcat-seltext_m = 'connid'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = 3.
ls_fieldcat-fieldname = 'FLDATE'.
ls_fieldcat-tabname = 'lt_sflight'.
ls_fieldcat-seltext_m = 'Date'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = 4.
ls_fieldcat-fieldname = 'PRICE'.
ls_fieldcat-tabname = 'lt_sflight'.
ls_fieldcat-seltext_m = 'Prix'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = 5.
ls_fieldcat-fieldname = 'CURRENCY'.
ls_fieldcat-tabname = 'lt_sflight'.
ls_fieldcat-seltext_m = 'Devise'.
APPEND ls_fieldcat TO lt_fieldcat.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form fill_fieldcatt
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM fill_fieldcatt .
CLEAR ls_fieldcatt.
ls_fieldcatt-col_pos = 1.
ls_fieldcatt-fieldname = 'CARRID'.
ls_fieldcatt-tabname = 'lt_sflight'.
ls_fieldcatt-seltext_m = 'C_ie'.
APPEND ls_fieldcatt TO lt_fieldcatt.
CLEAR ls_fieldcatt.
ls_fieldcatt-col_pos = 2.
ls_fieldcatt-fieldname = 'CONNID'.
ls_fieldcatt-tabname = 'lt_sflight'.
ls_fieldcatt-seltext_m = 'Code_Liaison'.
APPEND ls_fieldcatt TO lt_fieldcatt.
CLEAR ls_fieldcatt.
ls_fieldcatt-col_pos = 3.
ls_fieldcatt-fieldname = 'CITYFROM'.
ls_fieldcatt-tabname = 'lt_sflight'.
ls_fieldcatt-seltext_m = 'Ville dep'.
APPEND ls_fieldcatt TO lt_fieldcatt.
CLEAR ls_fieldcatt.
ls_fieldcatt-col_pos = 4.
ls_fieldcatt-fieldname = 'CITYTO'.
ls_fieldcatt-tabname = 'lt_sflight'.
ls_fieldcatt-seltext_m = 'Ville Arr'.
APPEND ls_fieldcatt TO lt_fieldcatt.
ENDFORM.THANKS FOR HELP
Bluesky