Get Fields equalent to ALV Layout Fields

I have an ALV report that have ALV layout selected by user. My requirement is i need to get same set of fields from the layout selected. and using this i need to create the internal table at runtime
Any info on this appreciated.
a®

Hi,
<li>Check the below sample code how you have to get build internal table at run time.
*       Form GET_FIELDCAT_FROM_VARIANT
*       Retrieve the fieldcatalog stored for the variant
form get_fieldcat_from_variant using disvar    like disvariant
                                     itab_head type c
                                     itab_item type c.
data: fieldcat_new type kkblo_t_fieldcat.
call function 'REUSE_ALV_TRANSFER_DATA'
       exporting
            it_fieldcat = fieldcat
            is_layout   = layout
       importing
            et_fieldcat = fieldcat_kkb
            es_layout   = layout_kkb.
call function 'LT_VARIANT_LOAD'
       exporting
            i_tabname           = itab_head
            i_tabname_slave     = itab_item
            i_dialog            = space
            i_user_specific     = 'X'
       importing
            et_fieldcat         = fieldcat_new
       changing
            ct_default_fieldcat = fieldcat_kkb
            cs_layout           = layout_kkb
            cs_variant          = disvar
       exceptions
            wrong_input         = 1
            fc_not_complete     = 2
            not_found           = 3
            others              = 4.
if sy-subrc = 0.
    refresh fieldcat.
    call function 'REUSE_ALV_TRANSFER_DATA_BACK'
         exporting
              it_fieldcat = fieldcat_new
         importing
              et_fieldcat = fieldcat.
    clear: fieldcat_ln.
    modify fieldcat from fieldcat_ln transporting no_out
      where no_out <> 'X'.
endif.
endform.                               " GET_FIELDCAT_FROM_VARIANT
Thanks
Venkat.O

Similar Messages

How to send pdf or excel attachment as saved alv layout in email

Hi Guru,
I am developing a report in which, i am sending report as excel attachment after clicking a button on top of alv grid, and pdf attachment after clicking another button on top of alv grid. I am sending mail by two ways they are:
1) I am populating my internal table value in separate internal table and converting that to string and sending email as excel attachment.
2) And am converting report as spooljob, and using abapspool 2 pdf function module i am converting spool to pdf, after that am send that pdf as mail attachment.
Now my requirement is i need to send email attachment as layout which is displayed in the alv screen, even i hide a column and change the layout it is going with all the columns. What should i do for this problem.
Regards,
Rithika

Hi,
Check if the below steps will solve the problem.
* Get the run time ALV layout (field catalog) using the below method.
     data: r_grid TYPE REF TO cl_gui_alv_grid.
     CALL METHOD r_grid->get_frontend_fieldcatalog
          IMPORTING
               et_fieldcatalog = t_fcat.
* Adjust the download table according to t_fcat.

Getting ALV Layout columns

Hi Experts,
I save an ALV layout with some filtered columns. Now I would like to take the columns through program giving the variant name as input. I get variant info from LTDX table, but no the columns of ALV. Could u please tell me any FM to find out the columns or any table which stores those details?
Thanks and regards,
Venkat.

Hi Venkat,
Now as you have the variant into some varaible. Pass this varaint name to FM 'LT_FC_LOAD' with IS_VARAINT = variant variable name, I_TABNAME = '1', and import your fields into the field catalog.
You will get the fields according to your variant.
Now after having fields in field catalog, you can easily create dynamic internal table from the same field catalog.

How to get field separator in flat file using GUI_DOWNLOAD function

hi,
how to get field separator in flat file using GUI_DOWNLOAD function.
                                thanking you.

Hi,
Use WRITE_FIELD_SEPARATOR = 'X'.
Check this sample code
REPORT z_file_download.
DATA: w_name(90) TYPE c.
DATA:
BEGIN OF fs_flight,
    carrid   LIKE sflight-carrid,
    connid   LIKE sflight-connid,
    fldate   LIKE sflight-fldate,
    price    LIKE sflight-price,
    currency LIKE sflight-currency,
END OF fs_flight.
DATA:
BEGIN OF fs_head,
    carrid(10) TYPE c,
    connid(10) TYPE c,
    fldate(10) TYPE c,
    price(10) TYPE c,
    curr(10) TYPE c,
END OF fs_head.
DATA:
t_head LIKE
   TABLE OF
         fs_head.
DATA:
t_flight LIKE
     TABLE OF
           fs_flight.
fs_head-carrid = 'CARRID'.
fs_head-connid = 'CONNID'.
fs_head-fldate = 'FLDATE'.
fs_head-price = 'PRICE'.
fs_head-curr   = 'CURRENCY'.
APPEND fs_head TO t_head.
SELECT-OPTIONS:
s_carrid FOR fs_flight-carrid.
START-OF-SELECTION.
SELECT carrid
         connid
         fldate
         price
         currency
    FROM sflight
    INTO TABLE t_flight
   WHERE carrid IN s_carrid.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
*   BIN_FILESIZE                  =
    filename                      = 'D:\flight.xls'
   FILETYPE                      = 'ASC'
*   APPEND                        = ' '
    WRITE_FIELD_SEPARATOR         = 'X'
*   HEADER                        = '00'
*   TRUNC_TRAILING_BLANKS         = ' '
*   WRITE_LF                      = 'X'
*   COL_SELECT                    = ' '
*   COL_SELECT_MASK               = ' '
*   DAT_MODE                      = ' '
*   CONFIRM_OVERWRITE             = ' '
*   NO_AUTH_CHECK                 = ' '
*   CODEPAGE                      = ' '
*   IGNORE_CERR                   = ABAP_TRUE
*   REPLACEMENT                   = '#'
*   WRITE_BOM                     = ' '
* IMPORTING
*   FILELENGTH                    =
tables
    data_tab                      = t_head
EXCEPTIONS
   FILE_WRITE_ERROR              = 1
   NO_BATCH                      = 2
   GUI_REFUSE_FILETRANSFER       = 3
   INVALID_TYPE                  = 4
   NO_AUTHORITY                  = 5
   UNKNOWN_ERROR                 = 6
   HEADER_NOT_ALLOWED            = 7
   SEPARATOR_NOT_ALLOWED         = 8
   FILESIZE_NOT_ALLOWED          = 9
   HEADER_TOO_LONG               = 10
   DP_ERROR_CREATE               = 11
   DP_ERROR_SEND                 = 12
   DP_ERROR_WRITE                = 13
   UNKNOWN_DP_ERROR              = 14
   ACCESS_DENIED                 = 15
   DP_OUT_OF_MEMORY              = 16
   DISK_FULL                     = 17
   DP_TIMEOUT                    = 18
   FILE_NOT_FOUND                = 19
   DATAPROVIDER_EXCEPTION        = 20
   CONTROL_FLUSH_ERROR           = 21
   OTHERS                        = 22
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                = 'D:\flight.xls'
      filetype                = 'ASC'
      append                  = 'X'
      write_field_separator   = 'X'
    TABLES
      data_tab                = t_flight
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6
      header_not_allowed      = 7
      separator_not_allowed   = 8
      filesize_not_allowed    = 9
      header_too_long         = 10
      dp_error_create         = 11
      dp_error_send           = 12
      dp_error_write          = 13
      unknown_dp_error        = 14
      access_denied           = 15
      dp_out_of_memory        = 16
      disk_full               = 17
      dp_timeout              = 18
      file_not_found          = 19
      dataprovider_exception = 20
      control_flush_error     = 21
      OTHERS                  = 22.
IF sy-subrc EQ 0.
    MESSAGE 'Download successful' TYPE 'I'.
ENDIF.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

How to get field in Report

Hi all,
Please tell me how to get field from following path
GO to MSC2N --
insert material, batch , plant , storage location
Now select classification...
there is box containing 'characsteristics descr ' & value
so how to get that value
I think that values are store in table cawn but i wont found any link to get that
Correct ans will be rewarded

Hi,
If you are trying to get the vaues of these charecteristics in your report, then
Try using the fm VB_BATCH_GET_DETAIL
CALL FUNCTION 'VB_BATCH_GET_DETAIL'
    EXPORTING
      matnr                    = is_final-matnr
      charg                    = is_final-charg
      werks                    = is_final-werks
      get_classification       = 'X'
*   EXISTENCE_CHECK          =
*   READ_FROM_BUFFER         =
*   NO_CLASS_INIT            = ' '
*   LOCK_BATCH               = ' '
   IMPORTING
     ymcha                    = ymcha
*   CLASSNAME                =
TABLES
char_of_batch            = it_batch
EXCEPTIONS
no_material              = 1
no_batch                 = 2
no_plant                 = 3
material_not_found       = 4
plant_not_found          = 5
no_authority             = 6
batch_not_exist          = 7
lock_on_batch            = 8
OTHERS                   = 9
also the function module VC_I_GET_CONFIGURATION
And for table try cabn
Regards
Debarshi

Can I get field name of Selection screen ?

Hi, experts.
I'd like to manage PGM's screens & fields of screens. I need to know field names of selection screen in external PGMs to manage input values of those fields.
For values, I'll use 'Dynp_values_read', but what should I use for getting field names of selection screen?
Is there any functions, classes or tables for PGM's fields of selection screen?
I've found tables&functions for this and I found D020S, D020T, D021T for PGM's screen. But I counld't see proper field names that shows on a selection screen when I excuted PGM. I guess there's a conversion routine between data that saved in repository and field name on screen.
Please let me know what should I use a function, tables or else.
Thanks.

Hi
Use Read text pool syntax
READ TEXTPOOL program name
INTO T_TPOOL
LANGUAGE 'NL'.
within TB_TPOOL all select option field namees will be stored under field ID with type S
Edited by: Lavanya K on Apr 22, 2009 10:02 AM

Error getting fields for PSA /BIC/B0002603

Hi Experts,
Can any one tell me please why am I getting these errors while i'm try to activate the DataSource
Error getting fields for PSA /BIC/B0002603
Error Saving Datasource ZDSXXX
Thanks

Hi Ahmed,
please run this program in SE38: " RSDS_DATASOURCE_ACTIVATE_ALL "
give data source name and flat file source system name.
hope this will solve the problem.
Best Regards.
Edited by: Daya Sagar on Sep 1, 2009 1:33 PM

Error getting fields for PSA

When trying to activate the datasource i am getting the following error 'Error getting fields for PSA'. anyone having any idea about how to resolve this issue

Hi,
Try activating the datasource using the program in SE38: RSDS_DATASOURCE_ACTIVATE_ALL
give the data source name and source system name.
Check the following threads:
Error getting fields for PSA /BIC/B0002603
Error occured during replicate the metadata of datasource
thanks,
Arminder

Get fields value javascript sharepoint 2010

How can i get field values in a newform.aspx without the weird id.
Can I get by sharepoint internal field name or field name, or by title?
Ex.
<input name="ctl00$m$g_ac5e7c13_02a0_4407_9219_c5ed488b0821$ctl00$ctl05$ctl00$ctl00$ctl00$ctl04$ctl00$ctl00$TextField" type="text" maxlength="255" id="ctl00_m_g_ac5e7c13_02a0_4407_9219_c5ed488b0821_ctl00_ctl05_ctl00_ctl00_ctl00_ctl04_ctl00_ctl00_TextField"
title="Morada Required Field" class="ms-long ms-spellcheck-true">
javascript to get value
var Morada = document.getElementById("ctl00_m_g_ac5e7c13_02a0_4407_9219_c5ed488b0821_ctl00_ctl05_ctl00_ctl00_ctl00_ctl04_ctl00_ctl00_TextField").value;

Prasath's jQuery would work.
If you don't want to use jQuery, you can use the native JavaScript document.querySelector() or
document.querySelectorAll(), using the same CSS selector syntax. Should run a bit faster than the jQuery equivalent.
var Morada = document.querySelector("input[title='Morada Required Field']").value;
CSS Selectors Reference:
http://www.w3schools.com/cssref/css_selectors.asp

Total is not getting displayed in the ALV output.

Hi,
Total is not getting displayed in the ALV output.
I m using :REUSE_ALV_BLOCK_LIST_APPEND & REUSE_ALV_BLOCK_LIST_DISPLAY
Are there any issues with it as the same settings are working fine with REUSE_ALV_LIST_DISPLAY
source code:
DATA: layout TYPE slis_layout_alv,
      IT_eventS TYPE slis_t_event,
      fcat   TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      rec_fcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
TYPES: BEGIN OF ty_tab,
      belnr TYPE dberchz-belnr,
      belzart TYPE dberchz-belzart,
      net TYPE dberchz-nettobtr,
      END OF ty_tab.
DATA: lt_tab TYPE STANDARD TABLE OF ty_tab.
SELECT belnr belzart nettobtr
FROM dberchz
INTO TABLE lt_tab[]
WHERE belnr eq '000000000001'.
if sy-subrc ne 0.
ENDIF.
* defining layout
layout-colwidth_optimize = 'X'.
layout-def_status = 'X'.
*defning event
*event
*defining field catalog
fcat-col_pos = 1.
fcat-fieldname = 'BELNR'.
fcat-tabname = 'LT_TAB'.
APPEND fcat.
fcat-col_pos = 2.
fcat-fieldname = 'BELZART'.
fcat-tabname = 'LT_TAB'.
APPEND fcat.
fcat-col_pos = 3.
fcat-fieldname = 'NET'.
fcat-tabname = 'LT_TAB'.
fcat-do_sum = 'X'.
APPEND fcat.
*calling alv
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
    i_callback_program             = 'YZ_PLR'
*   I_CALLBACK_PF_STATUS_SET       = ' '
*   I_CALLBACK_USER_COMMAND        = ' '
*   IT_EXCLUDING                   =
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
    is_layout                        = layout
    it_fieldcat                      = fcat[]
    i_tabname                        = 'LT_TAB'
    it_events                        = IT_EVENTS[]
*   IT_SORT                          =
*   I_TEXT                           = ' '
tables
    t_outtab                         = lt_tab[]
* EXCEPTIONS
*   PROGRAM_ERROR                    = 1
*   MAXIMUM_OF_APPENDS_REACHED       = 2
*   OTHERS                           = 3
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 'REUSE_ALV_BLOCK_LIST_DISPLAY'
Thanks,
Gaurav

Hi
No I don't think, this is my code (based on your code) and it works fine:
TYPE-POOLS SLIS.
DATA: BEGIN OF LT_TAB OCCURS 0,
       BELNR LIKE BSEG-BELNR,
       GJAHR LIKE BSEG-GJAHR,
       WRBTR LIKE BSEG-WRBTR,
       WAERS LIKE BKPF-WAERS,
      END OF LT_TAB.
DATA: LAYOUT     TYPE SLIS_LAYOUT_ALV,
      IT_EVENTS TYPE SLIS_T_EVENT,
      FCAT       TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      REC_FCAT   TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
START-OF-SELECTION.
FCAT-COL_POS       = 1.
FCAT-FIELDNAME     = 'BELNR'.
FCAT-TABNAME       = 'LT_TAB'.
FCAT-REF_FIELDNAME = 'BELNR'.
FCAT-REF_TABNAME   = 'BSEG'.
APPEND FCAT.
FCAT-COL_POS       = 2.
FCAT-FIELDNAME     = 'GJAHR'.
FCAT-TABNAME       = 'LT_TAB'.
FCAT-REF_FIELDNAME = 'GJAHR'.
FCAT-REF_TABNAME   = 'BSEG'.
APPEND FCAT.
FCAT-COL_POS       = 3.
FCAT-FIELDNAME     = 'WRBTR'.
FCAT-TABNAME       = 'LT_TAB'.
FCAT-CFIELDNAME    = 'WAERS'.
FCAT-REF_FIELDNAME = 'WRBTR'.
FCAT-REF_TABNAME   = 'BSEG'.
FCAT-DO_SUM        = 'X'.
APPEND FCAT.
FCAT-COL_POS       = 4.
FCAT-FIELDNAME     = 'WAERS'.
FCAT-TABNAME       = 'LT_TAB'.
FCAT-REF_FIELDNAME = 'WAERS'.
FCAT-REF_TABNAME   = 'BKPF'.
FCAT-DO_SUM        = SPACE.
APPEND FCAT.
SELECT * FROM BSEG INTO CORRESPONDING FIELDS OF TABLE LT_TAB
    WHERE BUKRS = 'MAAB'
      AND BELNR = '0000000001'.
LT_TAB-WAERS = 'EUR'.
MODIFY LT_TAB FROM LT_TAB TRANSPORTING WAERS WHERE WAERS = SPACE.
*CALLING ALV
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
    EXPORTING
      I_CALLBACK_PROGRAM = 'ZPROVAMAX5'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
    EXPORTING
      IS_LAYOUT   = LAYOUT
      IT_FIELDCAT = FCAT[]
      I_TABNAME   = 'LT_TAB'
      IT_EVENTS   = IT_EVENTS[]
    TABLES
      T_OUTTAB    = LT_TAB[].
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.
I've also inserted a currency field
Max

ALV layout variant missing in background job.

hi guys,
Having problem on getting the default ALV layout variant when run the job in backgorund. Please advise any correction needed in the following code.
Thanks.
*& Include           Z_MM_KBR_AGSUBCONINV_MOD2                        *
MODULE status_0100 OUTPUT.
SET PF-STATUS '100'.
SET TITLEBAR '100'.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module display_data OUTPUT
      text
MODULE display_data OUTPUT.
IF sy-batch IS INITIAL. "Foreground
IF w_container IS INITIAL.
    IF cl_gui_alv_grid=>offline( ) IS INITIAL.
*Creating the container
      CREATE OBJECT w_container
        EXPORTING
          container_name              = c_container
        EXCEPTIONS
          cntl_error                  = 1
          cntl_system_error           = 2
          create_error                = 3
          lifetime_error              = 4
          lifetime_dynpro_dynpro_link = 5
          OTHERS                      = 6.
      IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDIF.
*Creating the ALV GRID
    CREATE OBJECT w_grid
      EXPORTING
        i_parent          = w_container
        i_appl_events     = c_check
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        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.
    ENDIF.
    else.
     exit.
    ENDIF.
ELSE.
*Creating the ALV GRID
    CREATE OBJECT w_grid
      EXPORTING
        i_parent          = go_dock_container
        i_appl_events     = c_check
      EXCEPTIONS
        error_cntl_create = 1
        error_cntl_init   = 2
        error_cntl_link   = 3
        error_dp_create   = 4
        OTHERS            = 5.
    IF sy-subrc <> 0.
      WRITE:/ 'Error in grid'.
    ENDIF.
     CREATE OBJECT w_grid
      EXPORTING i_parent = go_dock_container.
ENDIF.
*getting the variant option
    wa_variant-report     = sy-repid.
    wa_variant-username   = sy-uname.
    wa_layout-grid_title = sy-title.
    wa_layout-cwidth_opt = c_check.
    wa_layout-zebra       = c_check.
    wa_layout-no_f4       = c_check.
    wa_layout-sel_mode    = 'D'.
*Excluding the unwanted buttons
     PERFORM exclude_toolbar_buttons.
build field catalog.
    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
      EXPORTING
        i_buffer_active        = c_check
        i_structure_name       = c_fcat_str
        i_bypassing_buffer     = c_check
      CHANGING
        ct_fieldcat            = t_fieldcat
      EXCEPTIONS
        inconsistent_interface = 1
        program_error          = 2
        OTHERS                 = 3.
    IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    loop at t_fieldcat into w_fieldcat.
     if w_fieldcat-FIELDNAME = 'AGING1'.
      W_FIELDCAT-NO_ZERO = 'X'.
      MODIFY t_fieldcat FROM W_FIELDCAT INDEX SY-TABIX.
     ENDIF.
    endloop.
Generate sort critria
    PERFORM generate_sort.
Create object of class lcl_event_receiver.
    CREATE OBJECT w_event.
Handler for events.
   SET HANDLER w_event->handle_top_of_page       FOR w_grid.
   SET HANDLER w_event->handle_print_top_of_page FOR w_grid.
   SET HANDLER w_event->handle_print_end_of_list FOR w_grid.
    SET HANDLER w_event->handle_hotspot_click     FOR w_grid.
*Displaying the alv
   IF NOT sy-batch IS INITIAL.
     PERFORM create_snp.
   ENDIF.
t_data = i_final.
    CALL METHOD w_grid->set_table_for_first_display
      EXPORTING
        i_save                        = 'A'
        is_layout                     = wa_layout
        is_variant                    = wa_variant
      CHANGING
        it_outtab                     = t_data
        it_fieldcatalog               = t_fieldcat
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4.
    IF sy-subrc <> 0.
    ENDIF.
ENDIF.
ENDIF.
ENDMODULE.                 " display_data OUTPUT
*&      Module user_command_0100 INPUT
      text
MODULE user_command_0100 INPUT.
DATA: lt_rows TYPE lvc_t_row,
         w_rows TYPE lvc_s_row.
CASE sy-ucomm.
    WHEN c_back.
      LEAVE TO SCREEN 0.
    WHEN c_exit.
      LEAVE TO SCREEN 0.
    WHEN c_cancel.
      LEAVE TO SCREEN 0.
   WHEN 'BILDET'.
     CALL METHOD w_grid->get_selected_rows
       IMPORTING
         et_index_rows = lt_rows.
     CALL METHOD cl_gui_cfw=>flush.
     IF sy-subrc EQ 0.
       READ TABLE lt_rows INTO w_rows INDEX 1.
       READ TABLE i_vbfa INTO w_vbfa INDEX w_rows-index.
       IF sy-subrc EQ 0.
         CLEAR i_zbw_br_nf4.
         LOOP AT i_zbw_br_nf3 INTO w_zbw_br_nf3 WHERE
                     refkey = w_vbfa-v_vbeln.
           APPEND w_zbw_br_nf3 TO i_zbw_br_nf4.
         ENDLOOP.
call dialog screen and display new alv control
         CALL SCREEN 101 STARTING AT 10 5.
       ENDIF.
     ENDIF.
     WHEN 'NOTAF'.
     CALL METHOD w_grid->get_selected_rows
       IMPORTING
         et_index_rows = lt_rows.
     CALL METHOD cl_gui_cfw=>flush.
     IF sy-subrc EQ 0.
       READ TABLE lt_rows INTO w_rows INDEX 1.
       READ TABLE i_zbw_br_nf3 INTO w_zbw_br_nf3 INDEX w_rows-index.
       DATA docnum LIKE j_1bdydoc-docnum.
       docnum = w_zbw_br_nf3-docnum.
       SET PARAMETER ID 'JEF' FIELD docnum.
       CALL TRANSACTION 'J1B3N' AND SKIP FIRST SCREEN.
     ENDIF.
ENDCASE.
ENDMODULE.                 " user_command_0100 INPUT
*&      Form modify_col_name
      text
     -->P_<FCAT> text
     -->P_TEXT_H01 text
FORM modify_col_name USING pwa_fcat TYPE lvc_s_fcat
                             value(pw_text) TYPE any.
pwa_fcat-coltext   = pw_text.
pwa_fcat-scrtext_l = pw_text.
pwa_fcat-scrtext_m = pw_text.
pwa_fcat-scrtext_s = pw_text.
ENDFORM.                    " modify_col_name
      FORM display_hotspot                                          *
FORM display_hotspot USING pw_row_id    TYPE lvc_s_row
                           pw_column_id TYPE lvc_s_col.
FIELD-SYMBOLS <l_data> TYPE zbrforecast.
READ TABLE t_br_nf_acum ASSIGNING <l_data> INDEX pw_row_id-index.
CHECK sy-subrc = 0.
IF pw_column_id = ' '.
ENDIF.
ENDFORM.                    "display_hotspot
*&      Form generate_sort
      Genereate Sort criteria
FORM generate_sort.
Local variables
DATA: wal_sort TYPE lvc_s_sort,
       wl_pos   TYPE numc2.
wl_pos = 01.
sort ORDER
wal_sort-spos      = wl_pos.
wal_sort-fieldname = c_aufnr.
wal_sort-up        = c_check.
APPEND wal_sort TO t_sort.
ENDFORM.                    "generate_sort
*&      Form f4_variant
      text
     <--PW_VARI text
FORM f4_variant CHANGING pw_vari TYPE disvariant-variant.
wa_variant-report = sy-cprog.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = wa_variant
      i_save        = c_u
    IMPORTING
      es_variant    = wa_variant
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.
IF sy-subrc IS INITIAL.
    pw_vari = wa_variant-variant.
ELSE.
    MESSAGE s208(00) WITH text-t04.
ENDIF.
ENDFORM.                    " f4_variant
*&      Form validate_layout
*This subroutine is to validate the layout
No parameters are passed to this subroutine
FORM validate_layout.
IF NOT p_layout IS INITIAL.
Check Layout
   wa_variant-report   = sy-repid.
   wa_variant-username = sy-uname.
   wa_variant-variant = p_layout.
   CALL FUNCTION 'LVC_VARIANT_EXISTENCE_CHECK'
     EXPORTING
       i_save     = c_u
     CHANGING
       cs_variant = wa_variant
     EXCEPTIONS
       OTHERS     = 01.
   IF NOT sy-subrc IS INITIAL.
     SET CURSOR FIELD 'P_LAYOUT'.
     MESSAGE s001(00) WITH text-t06 p_layout.
     STOP.
   ENDIF.
ELSE.
clear wa_variant.
ENDIF.
ENDFORM.                    " validate_layout
*&      Form validate_data
      text
FORM validate_data .
PERFORM validate_layout.
ENDFORM.                    " validate_data

Hi,
Before the call to method set_table_for_first_display, populate
wa_variant-report = sy-repid.
Best regards,
Prashant

How to get the output in ALV format

Hi All,
this is my program, in this i want to get the output in ALV, i hv created two containers and m able to get the ALV layout successfully but i am not able to fetch the correct data.
the output it is showing is some RFC value.
here we have used - abaplist, soli.
Please provide me the solution.
SELECT * FROM varid INTO CORRESPONDING FIELDS OF TABLE t_varid WHERE report in s_report.
LOOP AT t_varid .
SUBMIT (t_varid-report) USING SELECTION-SET t_varid-variant
                EXPORTING LIST TO MEMORY
                AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
    TABLES
      listobject = listtab
    EXCEPTIONS
      not_found = 1
      OTHERS     = 2.
**************Old System Entry********
CALL FUNCTION 'Z_GET_DETAILS'
    DESTINATION 'BWDCLNT900'
    EXPORTING
      report = t_varid-report
      variant = t_varid-variant
    TABLES
      listtab = list_tab.
IF sy-subrc EQ 0.
    CALL FUNCTION 'LIST_TO_TXT'
      TABLES
        listtxt            = listtxt1
        listobject         = list_tab
      EXCEPTIONS
        empty_list         = 1
        list_index_invalid = 2.
ENDIF.
if p_flag eq 'X'.
    clear p_flag.
    write : / 'Program Name',
              41 'Variant Name',
              66 'Output Match'.
    endif.
IF listtxt EQ listtxt1.
    WRITE : /   t_varid-report,
             41 t_varid-variant,
             66 icon_green_light AS ICON HOTSPOT.
ELSE.
    WRITE : /   t_varid-report,
             41 t_varid-variant,
             66 icon_red_light AS ICON HOTSPOT.
ENDIF.
CLEAR : listtab,list_tab,listtxt,listtxt1.
REFRESH : listtab[],list_tab[],listtxt[],listtxt1[].
ENDLOOP.
AT line-selection.
    v_report = sy-lisel(40).
    v_variant = sy-lisel+40(14).
call SCREEN 400.
module STATUS_0400 output.
SUBMIT (v_report) USING SELECTION-SET v_variant
                EXPORTING LIST TO MEMORY
                AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
    TABLES
      listobject = listtab
    EXCEPTIONS
      not_found = 1
      OTHERS     = 2.
   CALL FUNCTION 'LIST_TO_TXT'
      TABLES
        listtxt            = listtxt1
        listobject         = list_tab
      EXCEPTIONS
        empty_list         = 1
        list_index_invalid = 2.
**************Old System Entry********
CALL FUNCTION 'Z_GET_DETAILS'
    DESTINATION 'BWDCLNT900'
    EXPORTING
      report = v_report
      variant = v_variant
    TABLES
      listtab = list_tab.
CREATE OBJECT CCONT1
EXPORTING
   CONTAINER_NAME = 'C1'.
CREATE OBJECT CCONT2
EXPORTING
   CONTAINER_NAME = 'C2'.
CREATE OBJECT GRID1
EXPORTING
   I_PARENT = CCONT1.
CREATE OBJECT GRID2
EXPORTING
   I_PARENT = CCONT2.
CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_STRUCTURE_NAME = 'abaplist'
CHANGING
   IT_OUTTAB = list_tab.
CALL METHOD GRID2->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_STRUCTURE_NAME = 'abaplist'
CHANGING
   IT_OUTTAB = listtab.
SET PF-STATUS 'ZUTDEMO2'.
endmodule.
module USER_COMMAND_0400 input.
IF SY-UCOMM = 'EXIT'.
LEAVE PROGRAM.
ENDIF.
endmodule.                 " USER_COMMAND_0400 INPUT

solved

Problem in ALV layout ...urgent

Hi,
I am using transction VL06C which displays the ALV list. The strucute used by standard program for ALV is LIPOV. There is one include available for customer fields LIPOVZ.
I have inculded my Z structure to it and new field i added is shipmet number. Now i can see the shipment number in the layout of ALV list as hidden field. So I automatically got this field in my ALV list.
Now today I added one more filed quantity to my Z structure. But I cant see that field in my Layout of ALV.
When I debugg I can see the field is getting populated correctly in user exit. Also in Field catalog.
But can not see in Layout when I am trying to change the ALV layout. I can see only Ship. Number
Please suggest.

Hi Vinit,
I think you may have copied the fieldcatalog structure from your previous fields.
Check whether this line has been added for the field.
clear wa_fieldcat.
      wa_fieldcat-fieldname     = 'MTART'(060).
      wa_fieldcat-seltext_l     = 'Mat. Type '(024).
      wa_fieldcat-ddictxt       = c_long.
*     Hide the column
        *wa_fieldcat-no_out      = c_x.*
append wa_fieldcat to i_fieldcat.
. Sorry if iam wrong.

Help with MB51 ALV layout

I've saved a layout in ALV for MB51, but I'm not able to enter it in the "Layout" field in the MB51 selection screen.
How do I get my ALV layouts to display after execution of MB51 (not passing through the standard SAP Output of 2 lines)...
Appreciate any help.

Thanks Jürgen... no ehancements (aside from developing a new report) available for this?

How to get check box in alv output

hi gurus
can anyone explian me how to get check box in alv output
it should not be a pop up window
i want to get in output itself
tahnk you
regards
kals.

Hi
by using rs_selfield
ty to call dynamic subroutine..
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield. "#EC CALLED
read table rs-selfield with key cond = 'X'
endform.
see the below example
REPORT Z_GET_REFRESH no standard page heading.
type-pools : slis.
tables : makt,
mara.
data : i_fieldcat type slis_t_fieldcat_alv.
CONSTANTS :
gc_refresh TYPE syucomm VALUE '&REFRESH'.
data : begin of i_makt occurs 0,
matnr like makt-matnr,
maktx like makt-maktx,
end of i_makt.
data : v_repid like sy-repid,
g_user_command type slis_formname value 'USER_COMMAND',
g_status_set type slis_formname value 'SET_PF_STATUS',
lt_event_exit TYPE slis_t_event_exit,
ls_event_exit TYPE slis_event_exit.
DATA:LC_GLAY TYPE LVC_S_GLAY.
select-options s_matnr for mara-matnr .
start-of-selection.
select matnr maktx from makt into table i_makt
where matnr in s_matnr.
end-of-selection.
Fill the fieldcatlog
perform fill_field.
Call the FM
perform call_fm.
*& Form fill_field
text
--> p1 text
<-- p2 text
FORM fill_field.
data wa_fieldcat type slis_fieldcat_alv.
clear : wa_fieldcat.
wa_fieldcat-tabname = 'I_MAKT'.
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-outputlen = '18'.
wa_fieldcat-seltext_l = 'Material #'.
wa_fieldcat-col_pos = '1'.
append wa_fieldcat to i_fieldcat.
clear : wa_fieldcat.
wa_fieldcat-tabname = 'I_MAKT'.
wa_fieldcat-fieldname = 'MAKTX'.
wa_fieldcat-outputlen = '40'.
wa_fieldcat-seltext_l = 'Material Desc'.
wa_fieldcat-col_pos = '2'.
append wa_fieldcat to i_fieldcat.
ENDFORM. " fill_field
*& Form call_fm
text
--> p1 text
<-- p2 text
FORM call_fm.
v_repid = sy-repid.
LC_GLAY-EDT_CLL_CB = 'X'.
CLEAR ls_event_exit.
ls_event_exit-ucomm = gc_refresh. " Refresh
ls_event_exit-after = 'X'.
APPEND ls_event_exit TO lt_event_exit.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = v_repid
I_CALLBACK_PF_STATUS_SET = g_status_set
I_CALLBACK_USER_COMMAND = g_user_command
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS = LC_GLAY
IS_LAYOUT =
IT_FIELDCAT = i_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT = lt_event_exit
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT =
IT_HYPERLINK =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IT_EXCEPT_QINFO =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = i_makt
EXCEPTIONS
PROGRAM_ERROR = 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.
ENDFORM. " call_fm
FORM USER_COMMAND *
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield. "#EC CALLED
data i_RSPARAMS like RSPARAMS occurs 0.
CASE R_UCOMM.
WHEN '&IC1'.
read table i_makt index rs_selfield-tabindex.
SET PARAMETER ID 'MAT' FIELD i_makt-matnr.
if not i_makt-matnr is initial.
call transaction 'MM02' and skip first screen.
endif.
when '&REFRESH'.
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
EXPORTING
CURR_REPORT = v_repid
IMPORTING
SP =
TABLES
SELECTION_TABLE = i_RSPARAMS
EXCEPTIONS
NOT_FOUND = 1
NO_REPORT = 2
OTHERS = 3
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
submit z_get_refresh with selection-table i_RSPARAMS.
rs_selfield-refresh = 'X'.
ENDCASE.
MOVE '&REFRESH' TO r_ucomm.
ENDFORM.
FORM set_pf_status *
FORM SET_PF_STATUS USING rt_extab TYPE slis_t_extab.
DELETE Rt_extab WHERE fcode = gc_refresh.
SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'
EXCLUDING Rt_extab.
*SET PF-STATUS 'STANDARD' EXCLUDING rt_extab.
SET TITLEBAR sy-tcode.
ENDFORM.

Get Fields equalent to ALV Layout Fields

Similar Messages

Maybe you are looking for