Problem in alv display.

Hi Gurus,
Can any one suggest or guide how to write a alv grid display. I have an internal table with data. i want to display as an excel format usig alv.
Some one suggested the below code.
Data: git_fieldcatalog TYPE slis_t_fieldcat_alv.
PERFORM field_catalog USING 'REGION' text-001.
PERFORM field_catalog USING 'PSPNR' text-002.
PERFORM field_catalog USING 'DMBTR' text-003.
PERFORM field_catalog USING 'NETWR' text-004.
PERFORM field_catalog USING 'WKGBTR' text-005.
*display report
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = sy-repid
      it_fieldcat             = git_fieldcatalog[]
    TABLES
      t_outtab                = itab1
    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.         " IF sy-subrc <> 0.
*&      Form field_catalog
      text
FORM field_catalog USING    xv_fieldname TYPE slis_fieldname.
                               xv_text      TYPE dd03p-scrtext_l.
DATA: lwa_fieldcatalog TYPE LINE OF slis_t_fieldcat_alv.
gv_colpos = gv_colpos + 1.
lwa_fieldcatalog-col_pos    = gv_colpos.
lwa_fieldcatalog-fieldname = xv_fieldname.
lwa_fieldcatalog-seltext_l = xv_text.
APPEND lwa_fieldcatalog TO git_fieldcatalog.
CLEAR lwa_fieldcatalog.
ENDFORM.,
here how do i determine the gv_colpos. what is the text001, how is it used. please help me

Text-001 is the text element created. You may not see this in your system, you need to create one.
if you need more help just refer BCALV_GRID_01 sample program
Thanks,
Pavan

Similar Messages

Problem in ALV display using OOPs

Hi,
I have a dynamic selection screen where i am submitting one report to the other using SUBMIT statement.
After entering values in the selection screen, the output should be displayed using ALV.so i created a screen in the 2nd report i.e ZARR_MASSUPDATEFORNOTES and wrote the code in the PBO module of the screen.But while executing the output is not getting displayed.
My code is as below.
INSERT REPORT 'ZARR_MASSUPDATEFORNOTES' FROM t_comm.
SUBMIT ZARR_MASSUPDATEFORNOTES VIA SELECTION-SCREEN .
Thanks in advance......
Thanks,
Kiran.

Hi,
Try creting two different 'Z' programs without creating a different screen.
populate your internal table with data.
Do this.
Export the internal table using memory id.
Import the memory id in the 2nd report and pass the required value to the selection screen of the 2nd report and execute.
Regards,
Amit

ALV Display Requirement

hi experts,
well i am having a problem regarding ALV display...the requirement is :
ALV DISPLAY SHOULD BE LIKE THIS
                                                                                Open Balance      12345
   SY-DATUM            POSTING DATE          DOC. NUMBER         LOCAL CURRENCY AMOUNT
now the sum of the amount is displayed in front of open balance field, which is displayed in a first row of ALV display. And below are the columns with heading are having a details of the GL-ACCOUNT.
Is this possible using a same ALV grid display or i have to use 2 ALV grid display? In both cases plz let me know to get this sort of output?
regards,
Yahya Shoaib.

In the heading part you can display the total..
*& Report ZTRN_ALV1
REPORT ZTRN_ALV1.
TYPE-POOLS: SLIS.
DATA: REPID LIKE SY-REPID,
      FCAT TYPE SLIS_T_FIELDCAT_ALV,
      GCAT TYPE SLIS_FIELDCAT_ALV,
      FCAT1 TYPE SLIS_T_FIELDCAT_ALV,
      GCAT1 TYPE SLIS_FIELDCAT_ALV,
      LAYOUT TYPE SLIS_LAYOUT_ALV,
      T_EVENTS TYPE SLIS_T_EVENT,
      EVENTS TYPE SLIS_ALV_EVENT,
      HEADING TYPE SLIS_T_LISTHEADER,
      HEADER TYPE SLIS_LISTHEADER.
PARAMETERS: CCODE LIKE LFB1-BUKRS.
DATA: BEGIN OF ITAB OCCURS 0,
      lifnr LIKE LFA1-LIFNR,
      BUKRS LIKE LFB1-BUKRS,
      NAME1 LIKE LFA1-NAME1,
END OF ITAB.
DATA: BEGIN OF JTAB OCCURS 0,
      EBELN LIKE EKKO-EBELN,
      lifnr LIKE LFA1-LIFNR,
      AEDAT LIKE EKKO-AEDAT,
END OF JTAB.
*DATA: JTAB LIKE STANDARD TABLE OF EKKO WITH HEADER LINE INITIAL SIZE 0.
START-OF-SELECTION.
REPID = SY-REPID.
PERFORM FETCH.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM GET_EVENTS.
PERFORM EVENTS.
PERFORM OUTPUT.
*&      Form FETCH
      text
--> p1        text
<-- p2        text
FORM FETCH .
SELECT ALIFNR ANAME1 BBUKRS INTO CORRESPONDING FIELDS OF TABLE ITAB FROM LFA1 AS A JOIN LFB1 AS B ON ALIFNR EQ B~LIFNR WHERE
B~BUKRS EQ CCODE.
ENDFORM.                    " FETCH
*&      Form FIELDCAT
      text
--> p1        text
<-- p2        text
FORM FIELDCAT .
GCAT-COL_POS = '1'.
GCAT-FIELDNAME = 'BUKRS'.
GCAT-TABNAME = ITAB.
GCAT-SELTEXT_M = 'COMPANY CODE'.
APPEND GCAT TO FCAT.
GCAT-COL_POS = '2'.
GCAT-FIELDNAME = 'LIFNR'.
GCAT-TABNAME = ITAB.
GCAT-SELTEXT_M = 'VENDOR NUMBER'.
APPEND GCAT TO FCAT.
GCAT-COL_POS = '3'.
GCAT-FIELDNAME = 'NAME1'.
GCAT-TABNAME = ITAB.
GCAT-SELTEXT_M = 'VENDOR NAME'.
APPEND GCAT TO FCAT.
ENDFORM.                    " FIELDCAT
*&      Form LAYOUT
      text
--> p1        text
<-- p2        text
FORM LAYOUT .
LAYOUT-ZEBRA = 'X'.
ENDFORM.                    " LAYOUT
*&      Form GET_EVENTS
      text
--> p1        text
<-- p2        text
FORM GET_EVENTS .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE           = 0
IMPORTING
   ET_EVENTS             = T_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG       = 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.                    " GET_EVENTS
*&      Form EVENTS
      text
--> p1        text
<-- p2        text
FORM EVENTS .
READ TABLE T_EVENTS INTO EVENTS WITH KEY NAME = 'TOP_OF_PAGE'.
EVENTS-FORM = 'TOP_OF_PAGE'.
MODIFY TABLE T_EVENTS FROM EVENTS TRANSPORTING FORM.
READ TABLE T_EVENTS INTO EVENTS WITH KEY NAME = 'USER_COMMAND'.
EVENTS-FORM = 'USER_COMMAND'.
MODIFY TABLE T_EVENTS FROM EVENTS TRANSPORTING FORM.
ENDFORM.                    " EVENTS
*&      Form OUTPUT
      text
--> p1        text
<-- p2        text
FORM OUTPUT .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = REPID
I_CALLBACK_PF_STATUS_SET          = ' '
   I_CALLBACK_TOP_OF_PAGE            = '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                   =
   IS_LAYOUT                         = LAYOUT
   IT_FIELDCAT                       = FCAT[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
   IT_EVENTS                         = T_EVENTS
IT_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
I_HTML_HEIGHT_TOP                 = 0
I_HTML_HEIGHT_END                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
TABLES
    T_OUTTAB                          = ITAB
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.                    " OUTPUT
*&      Form TOP_OF_PAGE
      text
--> p1        text
<-- p2        text
FORM TOP_OF_PAGE .
CLEAR HEADING[].    <----IN THIS INTERNAL TABLE YOU EASILY DISPLAY TOTAL...
HEADER-TYP = 'H'.
HEADER-INFO = 'WIPRO TECHNOLOGIES'.
APPEND HEADER TO HEADING.
HEADER-TYP = 'S'.
HEADER-INFO = 'ADVANCED ABAP TRAINING'.
APPEND HEADER TO HEADING.
HEADER-TYP = 'A'.
HEADER-INFO = 'LIST OF VENDORS'.
APPEND HEADER TO HEADING.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
    IT_LIST_COMMENTARY       = HEADING[]
I_LOGO                   =
I_END_OF_LIST_GRID       =
I_ALV_FORM               =
ENDFORM.

Reg: Check boxes in ALV Display

Hi Experts,
I have a problem with ALV Display. I am able to display the contents in output.
But my client requirement is, they need to insert 'check boxes' before each record.
I hope you understood. any way let me explain some thing...
I am displaying records in ALV, but they need check boxes before each record. Like.... you can see database tables. in database tables like MARA.. it will display
check box    client   field1   field2   field3.......................
Please help me in this regard.....
Thanks in Advance
Sai babu

Hi This is my code,
As of you people suggested me, i write like this.... but it is not working....
please guide me....
FORM SUB_DISP_REP .
PERFORM SUB_FIELD_DEF USING :
                              ' ' '1' 'PERNR' 'Personnel Number' ' ' ' ' ' ' ,
                              ' ' '2' 'STAT2' 'Employee Status' '' '' '' ,
                              ' ' '3' 'STELL' 'Job Title' '' '' '' ,
                              ' ' '4' 'VORNA' 'First Name' '' '' '' ,
                              ' ' '5' 'NACHN' 'Last Name' '' '' '' ,
                              ' ' '6' 'KTART' 'Absence Quota Type' '' '' '' ,
                              ' ' '7' 'ANZHL' 'Number of Employee Time Quota' '' '' '' ,
                              ' ' '8' 'KVERB' 'Deduction of Employee Time Quota' '' '' '' ,
                              ' ' '9' 'QUONR' 'Counter for time quotas' '' '' '' ,
                              ' ' '10' 'DESTA' 'Start Date for Quota Deduction' '' '' '' ,
                              ' ' '11' 'DEEND' 'Quota Deduction to' '' '' '' .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
    I_CALLBACK_PROGRAM                = SY-CPROG
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
    I_CALLBACK_TOP_OF_PAGE            = 'X'
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
    I_BACKGROUND_ID                   = 'TRVPICTURE08'
    I_GRID_TITLE                      = 'EMPLOYEE ABSENCE QUOTA'
*   I_GRID_SETTINGS                   =
*   IS_LAYOUT                         =
    IT_FIELDCAT                       = T_FCAT
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
    IT_SORT                           = T_SUBTOT
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
*   IT_EVENTS                         =
*   IT_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_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   I_HTML_HEIGHT_TOP                 =
*   I_HTML_HEIGHT_END                 =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
TABLES
    T_OUTTAB                          = T_OUTPUT
* 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.                    " SUB_DISP_REP
form SUB_FIELD_DEF using P_chk TYPE char1
                          P_COL TYPE CHAR2
                          P_NAME TYPE CHAR10
                          P_TEXT TYPE CHAR40
                          P_SUM TYPE CHAR1
                          P_EDIT TYPE CHAR1
                          P_OUT TYPE CHAR1.
W_FCAT-checkbox = 'X'.
W_FCAT-COL_POS = P_COL .
W_FCAT-FIELDNAME = P_NAME .
W_FCAT-SELTEXT_M = P_TEXT .
W_FCAT-DO_SUM = P_SUM .
W_FCAT-EDIT = P_EDIT .
W_FCAT-NO_OUT = P_OUT .
APPEND W_FCAT TO T_FCAT .
CLEAR W_FCAT .
endform.                    " SUB_FIELD_DEF

Background task problem with alv grid display

Hello !
I have a problem when executing my program in background.
In foreground I have no problem, my ALV appears. In the background I have a dump.
The current ABAP program "SAPLKKBL" had to be terminated because one of the statements could not be executed.
I use the function module 'REUSE_ALV_GRID_DISPLAY'
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
        i_callback_program      = gd_repid
        i_callback_user_command = 'F533_USER_COMMAND'
        is_layout               = gd_layout
        it_fieldcat             = fieldcatalog[]
        it_special_groups       = i_fgroup[]
        i_save                  = 'X'
        it_sort                 = gd_sort
        i_buffer_active         = ' '
        i_callback_pf_status_set = 'F534_SET_PF_STATUS'
     TABLES
        t_outtab                = mytab
     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.
I don't understand where the problem is. Please help me.
Thank you.

I love replying to old threads:
Try this link
http://scn.sap.com/people/prashant.patil12/blog/2007/02/20/displaying-alv-grid-in-background-job

Problem in ALV report

Hi Friends,
I have the following 2 problems in ALV report
1) Logo is not getting displayed in the report.
2) When i click on the Purchase order number in the report the interactive report is not working,i am not able to see report of First interactive level.
can you help it out friends.
Thanks and regards
Dinesh
REPORT YSDBALV1
tables: ekko , ekpo .
type-pools: slis .
Table for Display Header
data:i_header type slis_t_listheader with header line.
*Fieldcat Declaration
data:fieldcatalog type slis_T_fieldcat_alv WITH HEADER LINE.
*Table of Events
data:i_event type slis_t_event with header line .
For Layout
data:i_layout type slis_layout_alv .
data: text(30) .
*Internal Table Declaration
data: begin of it_final occurs 0 ,
      ebeln like ekko-ebeln ,           "Purchasing Document No.
      bedat like ekko-bedat ,           "Purchasing Document Date
      matnr like ekpo-matnr ,           "Material No.
      netwr like ekpo-netwr ,         "Net Order Value in PO Currancy
      meins like ekpo-meins ,           "UOM
      chk(1) ,
      light(1) ,
      change like ekpo-menge ,
      end of it_final .
**select option Declaration
selection-screen begin of block block.
select-options: s_ebeln for ekko-ebeln .
selection-screen end of block block .
selection-screen begin of block block1 .
parameters:grid radiobutton group r .
parameters:list radiobutton group r .
selection-screen end of block block1 .
at selection screen
at selection-screen .
select single * from ekko where ebeln in s_ebeln .
if sy-subrc <> 0 .
   message e000(8I) WITH 'No Data Exists' .
endif .
start-of-selection .
if grid = 'X' .
perform get_data .
perform event using i_event[] .
perform field using fieldcatalog[] .
perform layout using i_layout .
perform grid_display .
endif .
*&      Form get_data
      text
--> p1        text
<-- p2        text
form get_data .
*DATA Retrieval from tables
SELECT EKKO~EBELN
       EKKO~BEDAT
       EKPO~EBELP
       EKPO~MATNR
       EKPO~NETWR
       EKPO~MEINS
       EKPO~MENGE
       EKPO~BPRME
       INTO CORRESPONDING FIELDS OF table IT_FINAL
       FROM EKKO INNER JOIN EKPO ON EKKOEBELN = EKPOEBELN
       WHERE EKKO~EBELN IN S_EBELN.
       APPEND IT_FINAL.
endform.                    " get_data
*Getting the Event for Top of Page display.
*&      Form event
      text
     -->P_I_event[] text
form event using    p_i_event type slis_t_event.
clear p_i_event .
refresh p_i_event .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
   I_LIST_TYPE           = 0
   IMPORTING
     ET_EVENTS             = p_i_event
EXCEPTIONS
   LIST_TYPE_WRONG       = 1
   OTHERS                = 2
read table p_i_event with key name = slis_ev_top_of_page into i_event.
      if sy-subrc = 0.
             move 'TOP_OF_PAGE_PO' to i_event-form.
             modify p_i_event from i_event index sy-tabix transporting form.
      endif.
      clear i_event.
endform.                    " event
*Display Top-of Page Details and Logo
form top_of_page_po .
       clear i_header .
       refresh i_header .
       write sy-datum to text.
       i_header-typ = 'H'.
       i_header-info = 'PURCHASE OREDER DETAILS'.
       append i_header.
      *Logo Display
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
             EXPORTING
                 it_list_commentary       = i_header[]
                 I_LOGO                   = 'ENJOYSAPLOGO'.
endform .
*Field Catalog Append
*&      Form field
      text
     -->P_fieldCATALOG[] text
form field using p_fieldcatalog type slis_t_fieldcat_alv.
     clear fieldcatalog.
      fieldcatalog-fieldname   = 'EBELN'.
      fieldcatalog-seltext_m   = 'Purchase Order No'.
      fieldcatalog-col_pos     = 1.
      append fieldcatalog .
      clear fieldcatalog.
      fieldcatalog-fieldname   = 'BEDAT'.
      fieldcatalog-seltext_m   = 'PO Date'.
      fieldcatalog-col_pos     = 2.
      append fieldcatalog .
      clear fieldcatalog.
      fieldcatalog-fieldname   = 'MATNR'.
      fieldcatalog-seltext_m   = 'Material No'.
      fieldcatalog-col_pos     = 4.
      fieldcatalog-outputlen   = 20.
      append fieldcatalog .
      clear fieldcatalog.
      fieldcatalog-fieldname   = 'NETWR'.
      fieldcatalog-seltext_m   = 'Net Value '.
      fieldcatalog-col_pos     = 5.
      fieldcatalog-outputlen   = 20.
      fieldcatalog-do_sum = 'X'.
      append fieldcatalog .
      clear fieldcatalog.
      fieldcatalog-fieldname   = 'MEINS'.
      fieldcatalog-seltext_m   = 'Units'.
      fieldcatalog-col_pos     = 6.
      fieldcatalog-outputlen   = 4.
      append fieldcatalog .
      clear fieldcatalog.
endform.                    " field
*&      Form layout
      text
form layout using    p_i_layout TYPE SLIS_LAYOUT_ALV .
i_layout-zebra = 'X'.
    i_layout-lights_fieldname = 'LIGHT'.
    i_layout-lights_tabname = 'IT_FINAL'.
    i_layout-box_fieldname = 'CHK'.
    i_layout-box_tabname = 'IT_FINAL'.
    i_layout-edit = ' '.
endform.
*To display Buttons in the MENU BAR if needed
FORM SET_PO_PF_STATUS USING P_I_EXTAB TYPE
                 SLIS_T_EXTAB.
                 SET PF-STATUS 'MENUPO'.
ENDFORM.
*Event for Interactive display of ALV report
form USER_COMMAND using r_ucomm like sy-ucomm
                         rs_selfield type slis_selfield .
if r_ucomm = '&IC1'.
READ TABLE IT_FINAL index   rs_selfield-tabindex.
write:/ IT_FINAL-ebeln.
endif.
endform .
*Parameters of FM REUSE_ALV_GRID_DISPLAY
*&      Form grid_display
      text
--> p1        text
<-- p2        text
form grid_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    I_CALLBACK_PROGRAM                = SY-REPID
   I_CALLBACK_PF_STATUS_SET          = 'SET_PO_PF_STATUS'
    I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
    IS_LAYOUT                         = I_LAYOUT
    IT_FIELDCAT                       = FIELDCATALOG[]
    IT_EVENTS                         = I_EVENT[]
TABLES
    t_outtab                          = IT_FINAL.
endform.                    " grid_display

*& Report YSDBALV1
REPORT YSDBALV1.
tables: ekko , ekpo .
type-pools: slis .
Table for Display Header
data:i_header type slis_t_listheader with header line.
*Fieldcat Declaration
data:fieldcatalog type slis_T_fieldcat_alv WITH HEADER LINE.
*Table of Events
data:i_event type slis_t_event with header line ,
     wa_event type line of slis_t_event.
For Layout
data:i_layout type slis_layout_alv .
data: text(30) .
*Internal Table Declaration
data: begin of it_final occurs 0 ,
ebeln like ekko-ebeln , "Purchasing Document No.
bedat like ekko-bedat , "Purchasing Document Date
matnr like ekpo-matnr , "Material No.
netwr like ekpo-netwr , "Net Order Value in PO Currancy
meins like ekpo-meins , "UOM
chk(1) ,
light(1) ,
change like ekpo-menge ,
end of it_final .
**select option Declaration
selection-screen begin of block block.
select-options: s_ebeln for ekko-ebeln .
selection-screen end of block block .
selection-screen begin of block block1 .
parameters:grid radiobutton group r .
parameters:list radiobutton group r .
selection-screen end of block block1 .
at selection screen
at selection-screen .
select single * from ekko where ebeln in s_ebeln .
if sy-subrc <> 0 .
message e000(8I) WITH 'No Data Exists' .
endif .
start-of-selection .
if grid = 'X' .
perform get_data .
perform event using i_event[] .
perform field using fieldcatalog[] .
perform layout using i_layout .
perform grid_display .
endif .
*& Form get_data
text
--> p1 text
<-- p2 text
form get_data .
*DATA Retrieval from tables
SELECT EKKO~EBELN
EKKO~BEDAT
EKPO~EBELP
EKPO~MATNR
EKPO~NETWR
EKPO~MEINS
EKPO~MENGE
EKPO~BPRME
INTO CORRESPONDING FIELDS OF table IT_FINAL
FROM EKKO INNER JOIN EKPO ON EKKOEBELN = EKPOEBELN
WHERE EKKO~EBELN IN S_EBELN.
APPEND IT_FINAL.
endform. " get_data
*Getting the Event for Top of Page display.
*& Form event
text
-->P_I_event[] text
form event using p_i_event type slis_t_event.
clear p_i_event .
refresh p_i_event .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = p_i_event.
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2.
read table p_i_event with key name = slis_ev_top_of_page into wa_event.
if sy-subrc = 0.
move 'TOP_OF_PAGE_PO' to i_event-form.
modify p_i_event from i_event index sy-tabix transporting form.
endif.
clear i_event.
endform. " event
*Display Top-of Page Details and Logo
form top_of_page_po .
clear i_header .
refresh i_header .
write sy-datum to text.
i_header-typ = 'H'.
i_header-info = 'PURCHASE OREDER DETAILS'.
append i_header.
*Logo Display
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = i_header[]
I_LOGO = 'ENJOYSAP_LOGO'.
endform .
*Field Catalog Append
*& Form field
text
-->P_fieldCATALOG[] text
form field using p_fieldcatalog type slis_t_fieldcat_alv.
clear fieldcatalog.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order No'.
fieldcatalog-col_pos = 1.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'BEDAT'.
fieldcatalog-seltext_m = 'PO Date'.
fieldcatalog-col_pos = 2.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material No'.
fieldcatalog-col_pos = 4.
fieldcatalog-outputlen = 20.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'NETWR'.
fieldcatalog-seltext_m = 'Net Value '.
fieldcatalog-col_pos = 5.
fieldcatalog-outputlen = 20.
fieldcatalog-do_sum = 'X'.
append fieldcatalog .
clear fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Units'.
fieldcatalog-col_pos = 6.
fieldcatalog-outputlen = 4.
append fieldcatalog .
clear fieldcatalog.
endform. " field
*& Form layout
text
form layout using p_i_layout TYPE SLIS_LAYOUT_ALV .
i_layout-zebra = 'X'.
i_layout-lights_fieldname = 'LIGHT'.
i_layout-lights_tabname = 'IT_FINAL'.
i_layout-box_fieldname = 'CHK'.
i_layout-box_tabname = 'IT_FINAL'.
i_layout-edit = ' '.
endform.
*To display Buttons in the MENU BAR if needed
FORM SET_PO_PF_STATUS USING P_I_EXTAB TYPE
SLIS_T_EXTAB.
SET PF-STATUS 'MENUPO'.
ENDFORM.
*Event for Interactive display of ALV report
form USER_COMMAND using r_ucomm like sy-ucomm
rs_selfield type slis_selfield .
if r_ucomm = '&IC1'.
READ TABLE IT_FINAL index rs_selfield-tabindex.
set parameter id 'VL1' field it_final-ebeln.
call transaction 'ME23N'.
endif.
endform .
*Parameters of FM REUSE_ALV_GRID_DISPLAY
*& Form grid_display
text
--> p1 text
<-- p2 text
form grid_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'SET_PO_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IS_LAYOUT = I_LAYOUT
IT_FIELDCAT = FIELDCATALOG[]
IT_EVENTS = I_EVENT[]
TABLES
t_outtab = IT_FINAL.
endform. " grid_display
Regards,
Rusidar S.

Quantity field in alv display

Hi all.
we are phasing a problem.
I am using alv to display in output.
I am using a Quantiti field (BDMNG),.
in this field if nodata is there then it is showing 0.000(that is the default value).
I don't want those zeros.I want only space(blank only).
Can any body help me to solve this issue.
Thanks in advance
Eswar.

Hai,
While building field catalog For quantity field Set the NO-ZERO attribute to 'X'.
Or you can change the quantity filed to character in the alv display.
Mark points if helpful.
Regards,
Umasankar

ALV Display - Error in field catalog

Hi ,
I am facing a problem in ALV... Field catalot is not getting populated... I am getting a message field catalog not found...
Can anyone please help me....... <URGENT DOES NOT EXIST HERE>...
I am enclosing my code also.. please go thourh it and help it....
REPORT ZINVENTORY
      LINE-SIZE 120
       LINE-COUNT 64.
      MESSAGE-ID Z2
      NO STANDARD PAGE HEADING..
type-pools : slis.
Tables                                                               *
tables: zasset,
        anla,
        itob,
        equi.
data: v_repid LIKE sy-repid.
Selection Screen                                                     *
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001 .
SELECT-OPTIONS : S_bukrs FOR anla-bukrs OBLIGATORY ,
                 S_kostl FOR itob-kostl .
SELECTION-SCREEN : END OF BLOCK B1 .
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.
PARAMETERS: p_screen RADIOBUTTON GROUP gr1,
            p_list RADIOBUTTON GROUP gr1 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK b2.
Internal Tables                                                      *
types: BEGIN OF ty_zasset, " occurs 0,
         equnr like zasset-equnr,
         ANLN1 LIKE zasset-ANLN1, " Asset number
         ANLN2 LIKE zasset-ANLN2, " Sub Asset number
         BUKRS LIKE zasset-BUKRS, " Company Code
         KOSTL like zasset-kostl,
         SCANNEDBY type zasset-scannedby,
         SCANNINGDATE type zasset-SCANNINGDATE,
         SCANNINGTIME type zasset-scanningtime,
         UPDATEDATE   type zasset-updatedate,
         UPDATETIME type zasset-updatetime,
       END OF ty_zasset.
DATA: wa_zasset   TYPE ty_zasset.
DATA: it_zasset TYPE TABLE OF ty_zasset with header line..
types: BEGIN OF ty_zasset1, " occurs 0,
        equnr TYPE equi-equnr,
         ANLN1 LIKE anla-ANLN1, " Asset number
         ANLN2 LIKE anla-ANLN2, " Sub Asset number
         BUKRS LIKE anla-BUKRS, " Company Code
         ernam like anla-ernam,
         erdat like anla-erdat,
        KOSTL like anlz-kostl,
        SCANNEDBY type zasset-scannedby,
        SCANNINGDATE type zasset-SCANNINGDATE,
        SCANNINGTIME type zasset-scanningtime,
        UPDATEDATE   type zasset-updatedate,
        UPDATETIME type zasset-updatetime,
       END OF ty_zasset1.
DATA: wa_zasset1   TYPE ty_zasset1.
DATA: it_zasset1 TYPE TABLE OF ty_zasset1 with header line..
types: BEGIN OF ty_zasset2, " occurs 0,
         equnr like itob-equnr,
         ANLNr LIKE itob-ANLNr, " Asset number
         ANLuN LIKE itob-ANLuN, " Sub Asset number
         BUKRS LIKE itob-BUKRS, " Company Code
         timbi like itob-timbi,
         kostl like itob-kostl,
        KOSTL like anlz-kostl,
        SCANNEDBY type zasset-scannedby,
        SCANNINGDATE type zasset-SCANNINGDATE,
        SCANNINGTIME type zasset-scanningtime,
        UPDATEDATE   type zasset-updatedate,
        UPDATETIME type zasset-updatetime,
       END OF ty_zasset2.
DATA: wa_zasset2   TYPE ty_zasset2.
DATA: it_zasset2 TYPE TABLE OF ty_zasset2 with header line..
types: begin of ty_final , "occurs 0,
        equnr like itob-equnr,
        anln1 like anla-anln1,
        anln2 like anla-anln2,
        bukrs like anla-bukrs,
       ernam
       erdat
        kostl like itob-kostl,
        end of ty_final.
DATA: wa_final   TYPE ty_final.
DATA: it_final TYPE TABLE OF ty_final with header line..
*DATA: it_zasset TYPE TABLE OF ty_zasset.
*data: it_zasset1 type table of ty_zasset1.
*data:wa_zasset type ty_zasset.
*data:wa_zasset1 type ty_zasset1.
Flags and Variables                                                 *
DATA : F_ERROR.                   " Flag for No Data
*pop field cat for f7
data: V_SYREPID LIKE SY-REPID,
      IT_FLDCAT type slis_t_fieldcat_alv , "with header line,
      wa_fldcat   type slis_fieldcat_alv.
*DATA : IT_FLDCATS TYPE SLIS_T_FIELDCAT_ALV.
data: itab_events type slis_t_event,
      wa_events   type slis_alv_event.
*data: wa_layout type slis_layout_alv.
DATA : IT_COMMENTS TYPE SLIS_T_LISTHEADER,
       WA_COMMENTS TYPE SLIS_LISTHEADER.
DATA : IT_SORTINFO TYPE SLIS_T_SORTINFO_ALV,
       WA_SORTINFO TYPE SLIS_SORTINFO_ALV.
Initialization                                                       *
initialization.
SY-REPID = V_REPID.
At Selection Screen                                                  *
AT SELECTION-SCREEN.
PERFORM validation.
Start Of Selection                                                   *
start-of-selection.
perform select_data.
IF P_LIST = 'X'.
perform get_field_catalog.
PERFORM MODIFYFIELDCAT.
perform get_events.
perform write_comments.
perform grid_display.
*perform list_display.
ENDIF.
IF sy-subrc = 0.
   IF p_list = 'X'.
   loop at it_final.
   perform get_events.
   endloop.
   endif.
   endloop.
   else.
*endif.
End Of Selection                                                     *
END-OF-SELECTION.
*perform display_Recorsds.
*loop at zasset.
*&      Form validation
      text
--> p1        text
<-- p2        text
FORM validation.
*Local variables.
DATA:
        lv_bukrs type anla-bukrs,
        lv_kostl type itob-kostl,
        lv_anln1 TYPE anla-anln1,        "MAterial Number
        lv_anln2 TYPE anla-anln2.
*Validation for company code
if not s_bukrs is initial.
    select single bukrs from anla
           into lv_bukrs
           where bukrs in s_bukrs.
    if sy-subrc <> 0.
*Message used : Invalid company code.
    endif.
endif    .
Validation for cost center
if not s_kostl is initial.
    select single kostl from itob
           into lv_kostl
           where kostl in s_kostl.
    if sy-subrc <> 0.
*Message used : Invalid company code.
    endif.
endif .
ENDFORM.                    " validation
*&      Form display
      text
--> p1        text
<-- p2        text
FORM display.
write :/15 it_final-anln1,
it_final-anln2,
            sy-vline.
*-bukrs,
       it_zasset-anln1.
ENDFORM.                    " display
*&      Form get_field_catalog
      text
--> p1        text
<-- p2        text
FORM get_field_catalog.
*REFRESH IT_FLDCAT.
*CLEAR IT_FLDCAT.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
   I_PROGRAM_NAME               = V_REPID
   I_INTERNAL_TABNAME           = 'IT_FINAL'
   I_INCLNAME                   = V_REPID
I_BYPASSING_BUFFER           =
I_BUFFER_ACTIVE              =
CHANGING
    CT_FIELDCAT                  = IT_FLDCAT
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.
ENDFORM.                    " get_field_catalog
*&      Form get_events
      text
--> p1        text
<-- p2        text
FORM get_events.
WA_COMMENTS-TYP = 'H'.
WA_COMMENTS-KEY = 'THIS IS THE HEADING.'.
WA_COMMENTS-INFO = 'LIST OF SALES ORDERS'.
APPEND WA_COMMENTS TO IT_COMMENTS.
ENDFORM.                    " get_events
*&      Form grid_display
      text
--> p1        text
<-- p2        text
FORM grid_display.
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          = ' '
I_CALLBACK_USER_COMMAND           = ' '
   I_CALLBACK_TOP_OF_PAGE            = 'FIRST PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
   I_GRID_TITLE                      = 'LIST OF FLIGHT DETAILS'
I_GRID_SETTINGS                   =
IS_LAYOUT                         =
   IT_FIELDCAT                       = it_fldcat
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
IT_EVENTS                         = itab_events
IT_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                          = it_final
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.                    " grid_display
*&      Form write_comments
      text
--> p1        text
<-- p2        text
FORM write_comments.
WA_COMMENTS-TYP = 'H'.
WA_COMMENTS-KEY = 'THIS IS THE HEADING.'.
WA_COMMENTS-INFO = 'LIST OF SALES ORDERS'.
APPEND WA_COMMENTS TO IT_COMMENTS.
ENDFORM.                    " write_comments
*&      Form select_data
      text
--> p1        text
<-- p2        text
FORM select_data.
clear: it_zasset, it_zasset[].
select equnr "bukrs
          anln1
          anln2
          bukrs
          KOSTL
          SCANNEDBY
          SCANNINGDATE
          SCANNINGTIME
          UPDATEDATE
          UPDATETIME
          into table it_zasset "(g_anln1,g_anln2)
          from zasset
          where bukrs = zasset-bukrs..
      and   kostl = zasset-kostl.
if sy-subrc = 0.
    sort it_zasset by anln1 anln2.
endif.
append it_zasset.
clear it_zasset1.
select
         equnr
          anln1
          anln2
          bukrs
          ernam
          erdat
         bukrs
         KOSTL
         SCANNEDBY
         SCANNINGDATE
         SCANNINGTIME
         UPDATEDATE
         UPDATETIME
          into table it_zasset1 "(g_anln1,g_anln2)
          from anla
         where bukrs = it_zasset-bukrs.
WHERE BUKRS IN S_BUKRS.
and   kostl = anla-kostl.
if sy-subrc = 0.
    select equnr
           anlnr
           anlun
           bukrs
           timbi
           kostl
           into table it_zasset2
           from itob
           for all entries in it_zasset1
          where bukrs = it_zasset1-bukrs
           WHERE   anlnr = it_zasset1-anln1.
endif.
APPEND IT_ZASSET1.
IF SY-SUBRC = 0.
*loop at it_zasset1 into wa_zasset1.
loop at it_ZASSET1 into wa_zasset1.
move wa_zasset1-bukrs to wa_final-bukrs.
    move wa_zasset1-anln1 to wa_final-anln1.
    move wa_zasset1-anln2 to wa_final-anln2.
append wa_final to it_final.
endloop.
ENDIF.
sort it_final.
*LOOP AT IT_FINAL.
*ENDLOOP.
*ENDIF.
*if sy-subrc = 0.
*loop at it_zasset into wa_asset.
*read table it_zasset into wa_asset with key anln2 = wa_asset-anln2
*binary search.
*read table it_final into wa_final with key anln2 = wa_final-anln2
*binary search.
*if wa_asset-anln2 = wa_final-anln2.
*write : / 'error'.
*endif.
If sy-subrc <> 0.
   f_error = 'X'.
   write : 'No data Exists for the given selection in FA table'.
else.
   loop at it_final.
     perform display.
   endloop.
records exits in anla table also.
endif.
ENDFORM.                    " select_data
*&      Form MODIFYFIELDCAT
      text
--> p1        text
<-- p2        text
FORM MODIFYFIELDCAT.
LOOP AT IT_FLDCAT INTO WA_FLDCAT.
     CASE WA_FLDCAT-FIELDNAME.
        WHEN 'EQUNR'.
WA_FLDCAT-COL_POS = 1.
          WA_FLDCAT-SELTEXT_L = 'aSSET'.
        WHEN 'ANLN1'.
        wa_FLDCAT-KEY = 'X'.
          WA_FLDCAT-COL_POS = 5.
          WA_FLDCAT-SELTEXT_L = 'aSSET'.
        WHEN 'ANLN2'.
          WA_FLDCAT-KEY = 'X'.
          WA_FLDCAT-COL_POS = 6.
        wa_FLDCAT-HOTSPOT = 'X'.
        WHEN 'BUKRS'.
          WA_FLDCAT-CURRENCY = 'INR'.
         WA_FLDCAT-SYMBOL = 'X'.
      ENDCASE.
    MODIFY IT_FLDCAT FROM WA_FLDCAT.
*IT_FLDCAT-fieldname   = 'EQUNR'.
IT_FLDCAT-seltext_m   = 'DOCUM_TYPE'.
IT_FLDCAT-col_pos     = 1.
IT_FLDCAT-outputlen   = 10.
IT_FLDCAT-emphasize   = 'X'.
IT_FLDCAT-key         = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
append IT_FLDCAT TO IT_FLDCAT.
IT_FLDCAT-fieldname   = 'ANLN1'.
IT_FLDCAT-seltext_m   = 'DOCUM_TYPE'.
IT_FLDCAT-col_pos     = 1.
IT_FLDCAT-outputlen   = 10.
IT_FLDCAT-emphasize   = 'X'.
IT_FLDCAT-key         = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
append IT_FLDCAT TO IT_FLDCAT.
ENDLOOP.
ENDFORM.                    " MODIFYFIELDCAT
*&      Form list_display
      text
--> p1        text
<-- p2        text
*FORM list_display.
*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK              = ' '
I_BUFFER_ACTIVE                = ' '
I_CALLBACK_PROGRAM             = V_SYREPID
I_CALLBACK_PF_STATUS_SET       = ' '
I_CALLBACK_USER_COMMAND        = 'FRM_USER_COMMAND'
I_STRUCTURE_NAME               =
IS_LAYOUT                      = wa_layout
IT_FIELDCAT                    = IT_FLDCAT
IT_EXCLUDING                   =
IT_SPECIAL_GROUPS              =
IT_SORT                        =
IT_FILTER                      =
IS_SEL_HIDE                    =
I_DEFAULT                      = 'X'
I_SAVE                         = 'A'
IS_VARIANT                     =
IT_EVENTS                      = ITAB_EVENTS
IT_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
IMPORTING
E_EXIT_CAUSED_BY_CALLER        =
ES_EXIT_CAUSED_BY_USER         =
TABLES
   T_OUTTAB                       = IT_FINAL
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.                    " list_display
Edited by: Craig Cmehil on Jul 18, 2008 10:01 AM

The problem is with this...
types: begin of ty_final , "occurs 0,
equnr like itob-equnr,
anln1 like anla-anln1,
anln2 like anla-anln2,
bukrs like anla-bukrs,
ernam
erdat
kostl like itob-kostl,
end of ty_final.
DATA: wa_final TYPE ty_final.
DATA: it_final TYPE TABLE OF ty_final with header line.
when you are using Fieldcatalog merge you have to avoid using the TYPES Declaration of the internal table.
Instead of that you can do this
data: begin of it_final occurs 0,
equnr like itob-equnr,
anln1 like anla-anln1,
anln2 like anla-anln2,
bukrs like anla-bukrs,
ernam
erdat
kostl like itob-kostl,
        end of it_final.

I have a problem with ALV Grid User Command?

Hi Experts,
I have a problem with ALV GRID User Command.
I am calling TCODE IW33 (Order Display) from the ALV output at first time by selecting an order. But, User command is calling IW33 Initial screen with blank value of order. Even I checked in debugging the value what I selected is passing properly, but once that screen (IW33 Initial) displays, value doesn't appear. Then, Manually, I created another session and gone to TCODE IW33 and displayed an order. After that I came out from that order. Then again run my ALV program and selected another order, now order is displaying, but not what I selected current order instead of displaying previous order what I just displayed manually. If I selected any other order, system will display the same order what I dislayed manually.
Here is my code.
FORM user_command_alv USING u_ucomm TYPE sy-ucomm
                       us_self_field TYPE slis_selfield.
CASE u_ucomm.
WHEN '&IC1'.
READ TABLE it_final INDEX us_self_field-tabindex INTO wa_final.
        WHEN 'ORDER'.
          IF NOT wa_final-order IS INITIAL.
            SET PARAMETER ID 'COK' FIELD wa_final-order.
            CALL TRANSACTION 'IW33' AND SKIP FIRST SCREEN.
          ENDIF.
endform.
PARAMETER ID 'COK' also the standard one.
Could you please help me out, Where I did wrong?
If I select any order, that order only should display.
Thanks in advance.
Regards,
Sarayu.
Code Formatted by: Alvaro Tejada Galindo on Jan 8, 2009 2:33 PM

hi,
Please check it once the Paramater ID is 'ANR' for IW33 order number.
Hope this may help.
Regards,
Sravanthi

Download to excel from alv display

Hi,
How to download to excel from alv display.I am using object oriented abap for using alv.If i click export->spreadsheet i am getting fatal error and if i export->local file->spreadsheet i am getting only the column names and heading but no contents.Can anyone tell me how to overcome this problem.
Regards,
Sowmya.

Hi Sowmya,
Just put break point near FM reuse_alv_grid_display and check if internal table which is used to display output is popullated or not.
Regards Sachin.

ALV DISPLAY RELATED

Hi,
I have encountered one problem.
I am displaying the records in the alv. let there are 5 records, The record that i choosed from the ALV display( let first one out of those 5) is updating or inserted in the Ztable.
what should i do so that , the record that was choosen for updating
should not get displayed on the screen once it get updated or inserted in the
ZTABLE

Hi,
In the USER-COMMAND Subroutine where u actually save the record, you can set the flag as to SELFIELD-REFRESH = 'X' and delete the record that you have saved from the Internal table. This will refresh you ALV Grid also.
regards,
Mahesh

SQ01 ALV DISPLAY WHEN USING LOGOCAL DATABASE

Dear All,
I'm using a logical database (EMM) to build a query in SQ01, I need an ALV display.
If I use only three tables of the logical database hierarchy it works fine, but as soon as I try to use a fourth one, then the ALV display does not work anymore.
At the parameter selection screen, instead of the usual "Sap List Viewer" field I've got a "Save with ID" tick box, and on the result screen, it is not possible to select "Alv display" (no such buton).
Is this normal way of is there anything I could do ?
Please note that if using a "simple" join between the 4th tables instead of the logical database , then it works fine.
Regards
Francois

Hi,
Its only because of Fieldcatalog problem.
Only one thing you need to take care is that when you refer any dictionary field do not use TYPE Instead use LIKE statement, then It works.
You can have a example..
TYPE-POOLS: SLIS.
DATA: PROGNAME LIKE SY-REPID,
      GT_FCAT0 TYPE SLIS_T_FIELDCAT_ALV,
      GT_FCAT1 TYPE SLIS_T_FIELDCAT_ALV.
DATA: IT_MARA0 TYPE TABLE OF MARA.
DATA: BEGIN OF IT_MARA1 OCCURS 0,
         MATNR LIKE MARA-MATNR,
         MATKL LIKE MARA-MATKL,
       END   OF IT_MARA1.
PROGNAME = SY-REPID.
* internal table definition with type of a structure
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
    I_PROGRAM_NAME         = PROGNAME
    I_INTERNAL_TABNAME     = 'IT_MARA0'
    I_STRUCTURE_NAME       = 'MARA'
    I_CLIENT_NEVER_DISPLAY = 'X'
CHANGING
    CT_FIELDCAT            = GT_FCAT0[]
EXCEPTIONS
    INCONSISTENT_INTERFACE = 1
    PROGRAM_ERROR          = 2
    OTHERS                 = 3.
* own internal table definition
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
    I_PROGRAM_NAME         = PROGNAME
    I_INTERNAL_TABNAME     = 'IT_MARA1'
    I_INCLNAME             = PROGNAME
    I_CLIENT_NEVER_DISPLAY = 'X'
CHANGING
    CT_FIELDCAT            = GT_FCAT1[]
EXCEPTIONS
    INCONSISTENT_INTERFACE = 1
    PROGRAM_ERROR          = 2
    OTHERS                 = 3.
Thanks
Arbind

Fieldcatalog in alv display

hi experts,
I have a problem in alv report. actually output table consists of 150 fields. out of which i want to display 15 fields in alv grid and rest of the fields get displayed only when user wants to by using change layout tab.. now for this i need to make field catalog for each field separately which will increase the no of code lines to a great extent which i dont want..
Is there any other alternative for that?
Thanks

hi
u can use a function module for this.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       =
    CHANGING
      ct_fieldcat            = gt_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.
"   then loop at fieldcatalog and make fieldcatalog for all
the fields which u want to display.
LOOP AT gt_fieldcat INTO ls_fcat.
    CASE ls_fcat-fieldname.
      WHEN c_fieldname.
        ls_fcat-col_pos    = 0.
        ls_fcat-row_pos    = 1.
        ls_fcat-outputlen = 2.
        ls_fcat-tabname    = table_name.
and when others will have all the fields which u dont want to display.
      WHEN OTHERS.
        ls_fcat-no_out      = 'X'.
        ls_fcat-outputlen = 15.
        ls_fcat-just       = c_l.
        ls_fcat-tabname    = table_name .
    ENDCASE.
    MODIFY gt_fieldcat FROM ls_fcat.
    CLEAR ls_fcat.
ENDLOOP.
regards

Problem with ALV filter functionality when filtered for multiple values

Hi,
I am facing a problem with ALV filter functionality.
I have displayed an ALV with some columns col_A, col_B and col_C
col_A---- col_B -
col_C
1----
a -
abc
2----
b -
pqr
3----
c -
lmn
4----
d -
xyz
5----
f -
stu
From the settings link I am applying filter on column col_C and selected multiple values say 'pqr', 'xyz' and 'lmn'.
Now the ALV is showing rows only for last selection i.e . results are fetched only for value 'lmn'.
i.e. after applying the filter the ALV table looks as below:
col_A---- col_B -
col_C
3----
c -
lmn
But ideally it should be:
col_A---- col_B -
col_C
2----
b -
pqr
3----
c -
lmn
4----
d -
xyz
I could not find any OSS note related to this issue.
Please help me resolve this issue.
Thanks,
Feroz

Hi,
I am facing a problem with ALV filter functionality.
I have displayed an ALV with some columns col_A, col_B and col_C
col_A---- col_B -
col_C
1----
a -
abc
2----
b -
pqr
3----
c -
lmn
4----
d -
xyz
5----
f -
stu
From the settings link I am applying filter on column col_C and selected multiple values say 'pqr', 'xyz' and 'lmn'.
Now the ALV is showing rows only for last selection i.e . results are fetched only for value 'lmn'.
i.e. after applying the filter the ALV table looks as below:
col_A---- col_B -
col_C
3----
c -
lmn
But ideally it should be:
col_A---- col_B -
col_C
2----
b -
pqr
3----
c -
lmn
4----
d -
xyz
I could not find any OSS note related to this issue.
Please help me resolve this issue.
Thanks,
Feroz

Webdynpro :: Hierarchical ALV display

Hello All,
I am new to Webdynpro ABAP. I am having a problem in ALV Hierarchical List display.
As per my requirement, I need to display an ALV Hierarchical List with first column as Hierarchical column.
Hierarchical level shpuld be up to 6 levels.
I have made the table as Hierarchical table , set the column as hierarchy.
I am able to display only one node and one leaf.
Sample Code:
data : alv_config_table type ref to CL_SALV_WD_CONFIG_TABLE.
wd_this->alv_config_table->if_salv_wd_table_settings~set_display_type(
if_salv_wd_c_table_settings=>display_type_hierarchy ).
DATA : lr_column_hier TYPE REF TO cl_salv_wd_column.
lr_column_hier = wd_this->alv_config_table->if_salv_wd_column_settings~get_column( 'NODE_CONTENT' ).
lr_column_hier->if_salv_wd_column_hierarchy~set_hierarchy_column( abap_true ).
Anyone can suggest, how I can display multi level hierarchy for the same column.
Thanks in advance for yours inputs.
Hari Gajula

Hi,
You can refer this article: [ALV and Standard Table as Hierarchy in Web Dynpro ABAP|http://www.sdn.sap.com/irj/scn/index?rid=/library/uuid/c060fcb4-2c62-2b10-d2b2-f32407a5cc6f].
I hope it helps.
Regards
Arjun

Problem in alv display.

Similar Messages

Maybe you are looking for