SELECT DATA & DISPLAY COLUMN'S NAME

Former Member — Mon, 13 Jun 2022 14:47:15 GMT

hi everyone

*&---------------------------------------------------------------------*
*& 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

Re: SELECT DATA & DISPLAY COLUMN'S NAME

Sandra_Rossi — Mon, 13 Jun 2022 14:58:01 GMT

Please don't delete and recreate your question if you just want to edit it. You have an EDIT button.

Re: SELECT DATA & DISPLAY COLUMN'S NAME

Former Member — Mon, 13 Jun 2022 15:10:30 GMT

thanx @Sandra but one answer is better than two remarks 🙂

need help plz

Re: SELECT DATA & DISPLAY COLUMN'S NAME

shivakrishna1507 — Mon, 13 Jun 2022 17:54:40 GMT

CALL METHOD cl_gui_frontend_services=>gui_download
EXPORTING
filename = v_filename
CHANGING
data_tab = lt_fieldcat.
if sy-subrc = 0.
CALL METHOD cl_gui_frontend_services=>gui_download
EXPORTING
filename = v_filename
CHANGING
data_tab = it_sflight.
endif.

Please refer this code.

Re: SELECT DATA & DISPLAY COLUMN'S NAME

matt — Mon, 13 Jun 2022 19:14:57 GMT

Former Member With comments like that, you'll be lucky to get any answers.

Oh and your code looks about twenty years old. FORMs have been obsolete for years, and the FM REUSE_ALV_GRID_DISPLAY has been replaced with CL_SALV_TABLE.

topic Re: SELECT DATA & DISPLAY COLUMN'S NAME in Application Development and Automation Discussions

SELECT DATA & DISPLAY COLUMN'S NAME

Re: SELECT DATA & DISPLAY COLUMN'S NAME

Re: SELECT DATA & DISPLAY COLUMN'S NAME

Re: SELECT DATA & DISPLAY COLUMN'S NAME

Re: SELECT DATA & DISPLAY COLUMN'S NAME