ALV Grid display in the middle of window

Hi all,
When I m refering to the past queries in the forum I read that specifying these values
I_SCREEN_START_COLUMN
I_SCREEN_START_LINE
I_SCREEN_END_COLUMN
I_SCREEN_END_LINE in the FM reuse_alv_grid_display
we can display the output of alv in the middle of the window. But when I specify these values a new window is popped up in which the o/p of ALV is displayed. Actually what is the significance of thses values ? If I want to display in the middle of the window but not in a new window, so what should I do for this.
Regards,
Vijay.

Hi Neil,
REPORT Z_ALV_CHANGEHEADER.
type-pools slis.
data : begin of itab occurs 0 ,
 carrid like sflight-carrid,
 connid like sflight-connid,
 fldate like sflight-fldate,
 end of itab.
select carrid connid fldate from sflight into corresponding fields
of table itab.
data : i_fieldcat type slis_t_fieldcat_alv.
data : wa_fieldcat type slis_fieldcat_alv.
wa_fieldcat-row_pos = 0.
wa_fieldcat-col_pos = 1.
wa_fieldcat-fieldname = 'CARRID'.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-SELTEXT_L = 'Carrier Id'.
append wa_fieldcat to i_fieldcat.
clear wa_fieldcat.
wa_fieldcat-row_pos = 0.
wa_fieldcat-col_pos = 2.
wa_fieldcat-fieldname = 'CONNID'.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-SELTEXT_L = 'Connection Id'.
append wa_fieldcat to i_fieldcat.
clear wa_fieldcat.
wa_fieldcat-row_pos = 0.
wa_fieldcat-col_pos = 3.
wa_fieldcat-fieldname = 'FLDATE'.
wa_fieldcat-tabname = 'ITAB'.
wa_fieldcat-SELTEXT_L = 'Flight Date'.
append wa_fieldcat to i_fieldcat.
clear wa_fieldcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = 'Z_ALV_CHANGEHEADER'
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_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 =
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 =
IS_PRINT =
IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 30
 I_SCREEN_START_LINE = 10
 I_SCREEN_END_COLUMN = 90
 I_SCREEN_END_LINE = 70
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 = 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.
I have posted my code . Please check and tell me where I have gone wrong.
Regards,
Vijay.

Similar Messages

Row seperator in the ALV grid display after the various highest level prod.

Hi,
I have a requirement like user wants a row seperator against the various high level products (Each parent material)in ALV Grid display.We made this change but quantity and pricey fields showing the zero's in the blank line.i know that if we use NO-ZERO
in the ALV field catalog , we can remove the zero's from blank line. But other zerou2019s will remove from rest of the line items. User want's the zero's in other line items, but not in the blank line.
We can convert packed fileds into character format, but this will effect to the summing the quantity, price coumns.
If any body have idea on above mentioned.
Regards,
SK.

Hi Suresh,
There is no short cut for this requirement. You have to do following steps.
1. Change the data type of column to char.
2. Programatically find the totals.
Reagards,
Anversha

Dump when summing up CURR field in ALV GRID display

Hi All,
I am getting dump when I try to sum the CURR field in my ALV Grid Display. The field is of CURR 23. I am using classes and methods to display alv grid.
I tried passing <fs_fieldcat>-do_sum = 'X'. When I did this, it is dumping without even displaying the alv grid.
Here is the part it is throwing dump:
 ls_lvc_data-value = space.
 clear ls_lvc_data-style.
 loop at it_fcat_local assigning <ls_fcat>
 where tech ne 'X' and no_out ne 'X'.
 if l_invisible eq 'X'.
 clear l_invisible.
 if <ls_fcat>-do_sum is initial.
 continue.
 else.
 clear ls_lvc_data-col_pos.
 endif.
 endif.
 add 1 to ls_lvc_data-col_pos.
 assign component <ls_fcat>-fieldname
 of structure <ls_data> to <l_field_value>.
 _if sy-subrc ne 0.
 message x000(0k).
 endif._
Regards,
Guru

Thomas,
Here is the dump:
Runtime Errors MESSAGE_TYPE_X
Date and Time 10/22/2010 23:30:53
Short text
The current application triggered a termination with a short dump.
What happened?
The current application program detected a situation which really
should not occur. Therefore, a termination with a short dump was
triggered on purpose by the key word MESSAGE (type X).
Error analysis
Short text of error message:
Long text of error message:
Technical information about the message:
Message class....... "0K"
Number.............. 000
Variable 1.......... " "
Variable 2.......... " "
Variable 3.......... " "
Variable 4.......... " "
How to correct the error
Probably the only way to eliminate the error is to correct the program.
If the error occures in a non-modified SAP program, you may be able to
find an interim solution in an SAP Note.
If you have access to SAP Notes, carry out a search with the following
keywords:
"MESSAGE_TYPE_X" " "
"SAPLSLVC" or "LSLVCF36"
"FILL_DATA_TABLE"
If you cannot solve the problem yourself and want to send an error
notification to SAP, include the following information:
1. The description of the current problem (short dump)
To save the description, choose "System->List->Save->Local File
(Unconverted)".
2. Corresponding system log
Display the system log by calling transaction SM21.
Restrict the time interval to 10 minutes before and five minutes
after the short dump. Then choose "System->List->Save->Local File
(Unconverted)".
3. If the problem occurs in a problem of your own or a modified SAP
program: The source code of the program
In the editor, choose "Utilities->More
Utilities->Upload/Download->Download".
4. Details about the conditions under which the error occurred or which
actions and input led to the error.
Source Code Extract
Line
SourceCde
2708
is_subtottxt_info = ls_subtot_info
2709
ip_subtot_line = lr_data
2710
changing
2711
c_subtottxt = l_subtottxt.
2712
ls_lvc_data-value = l_subtottxt.
2713
2714
append ls_lvc_data to ct_lvc_data.
2715
endif.
2716
2717
2718
Column per Fieldcat Entry
2719
2720
ls_lvc_data-value = space.
2721
clear ls_lvc_data-style.
2722
loop at it_fcat_local assigning <ls_fcat>
2723
where tech ne 'X' and no_out ne 'X'.
2724
if l_invisible eq 'X'.
2725
clear l_invisible.
2726
if <ls_fcat>-do_sum is initial.
2727
continue.
2728
else.
2729
clear ls_lvc_data-col_pos.
2730
endif.
2731
endif.
2732
2733
add 1 to ls_lvc_data-col_pos.
2734
2735
assign component <ls_fcat>-fieldname
2736
of structure <ls_data> to <l_field_value>.
2737
if sy-subrc ne 0.
>>>>>
message x000(0k).
2739
endif.
2740
2741
*... work on average
2742
if <ls_fcat>-do_sum eq 'C'.
2743
 Initialize average result and entries
2744
<l_field_value> = 0.
2745
clear l_entries.
2746
2747
 retrive unit from fieldcatalog
2748
assign space to <l_unit>.
2749
if not <ls_fcat>-cfieldname is initial.
2750
assign component <ls_fcat>-cfieldname
2751
of structure <ls_data> to <l_unit>.
2752
endif.
2753
if not <ls_fcat>-qfieldname is initial.
2754
assign component <ls_fcat>-qfieldname
2755
of structure <ls_data> to <l_unit>.
2756
endif.
2757

ALV Grid Display in Loop.

Hello experts,
I need your help to resolve the issue.
I have made a report:
On selection screen, Release group and release strategy is taken in select options:
SELECT-OPTIONS : S_FRGGR FOR T16FS-FRGGR,
 S_FRGSX FOR T16FS-FRGSX.
if s_frgsx is not initial.
select frggr frgsx from t16fs into table i_t16fs where frggr in s_frggr and frgsx in s_frgsx.
else.
select frggr frgsx from t16fs into table i_t16fs where frggr in s_frggr.
endif.
loop at i_t16fs into wa_t16fs.
Inside this all code is written.
endloop.
I have to display the output (from table CDHDR and CDPOS) same as the output of transaction CL24N but in ALV GRID DISPLAY.
I have written all the code to fetch the values and passed final internal table to ALV GRID DISPLAY.
The problem is :
We can select a range of values for release group and release strategy as it is in select-options.
For every release group, more than 10 strategies are present.
For example :
For release group 62, 710 release strategies are present.
In output, I can see output of 1st strategy. When I press the back button, I can see the output of 1st strategy (but values from only CDPOS not from CDHDR) and second strategy (Both values from CDHDR and CDPOS). When I press the back button, I can see the output of 1st (but values from only CDPOS not from CDHDR), second strategy (but values from only CDPOS not from CDHDR)) and third strategy (Both values from CDHDR and CDPOS). Like this…. So on… upto 710th entry.
I want the output of all 710 entries in single ALV GRID DISPLAY.
What can be done?
Regards,
Titiksha

Hello Manish,
Following is some code for final internal table.
 LOOP AT I1_CDPOS ASSIGNING <FS_GT_OUTPUT_ITEM>.
 WA_FINAL-CHANGENO = <FS_GT_OUTPUT_ITEM>-CHANGENR.
 WA_FINAL-FRGGR = S_FRGGR.
 WA_FINAL-FRGSX = S_FRGSX.
 WA_FINAL-CLASS = V_CLASS. "<FS_GT_OUTPUT_ITEM>-CLASS. " LIKE KLAH-CLASS,
 WA_FINAL-VALUE_OLD = <FS_GT_OUTPUT_ITEM>-VALUE_OLD. " LIKE AUSP-ATWRT,
 WA_FINAL-VALUE_NEW = <FS_GT_OUTPUT_ITEM>-VALUE_NEW.
 IF WA_FINAL-VALUE_OLD IS NOT INITIAL.
 WA_FINAL-ACTION = 'DELETED'. "<FS_GT_OUTPUT_ITEM>-ACTION." TYPE C,
 ELSE.
 WA_FINAL-ACTION = 'CREATED'.
 ENDIF.
 IF WA_FINAL-VALUE_OLD IS NOT INITIAL.
 WA_FINAL-VALUE = <FS_GT_OUTPUT_ITEM>-VALUE_OLD.
 ELSE.
 WA_FINAL-VALUE = <FS_GT_OUTPUT_ITEM>-VALUE_NEW.
 ENDIF.
 READ TABLE I_GT_OUTPUT_HEADER ASSIGNING <FS_GT_OUTPUT_HEADER> WITH KEY CHANGENO = <FS_GT_OUTPUT_ITEM>-CHANGENR.
 IF SY-SUBRC = 0.
 WA_FINAL-DATE = <FS_GT_OUTPUT_HEADER>-DATE." LIKE CDHDR-UDATE,
 WA_FINAL-TIME = <FS_GT_OUTPUT_HEADER>-TIME." LIKE CDHDR-UTIME,
 WA_FINAL-USER = <FS_GT_OUTPUT_HEADER>-USER." LIKE CDHDR-USERNAME,
 WA_FINAL-TCODE = <FS_GT_OUTPUT_HEADER>-TCODE." LIKE CDHDR-TCODE,
 ENDIF.
 APPEND WA_FINAL TO I_FINAL.
 UNASSIGN <FS_WA_FINAL>.
 READ TABLE I_FINAL ASSIGNING <FS_WA_FINAL> WITH KEY CHANGENO = <FS_GT_OUTPUT_ITEM>-CHANGENR
 VALUE_OLD = <FS_GT_OUTPUT_ITEM>-VALUE_OLD
 VALUE_NEW = <FS_GT_OUTPUT_ITEM>-VALUE_NEW.
 IF SY-SUBRC EQ 0.
 UNASSIGN <FS_WA_CABNT>.
 READ TABLE I_CABNT ASSIGNING <FS_WA_CABNT> WITH KEY ATINN = <FS_GT_OUTPUT_ITEM>-TABKEY+18(10).
 IF SY-SUBRC EQ 0.
 <FS_WA_FINAL>-ATBEZ = <FS_WA_CABNT>-ATBEZ.
 ENDIF.
 ENDIF.
ENDLOOP.
And I_FINAL is passed to ALV.
Here the line which is in BOLD and UNDERLINED, data after that is getting displayed only for the last value of Realese strategy and release group, not for others.
Please help.
Regards,
Titiksha

Not able to download all the rows to excel sheet from alv grid display

Hi experts,
I am not able to download all the rows which are displayed in alv grid display for some material numbers.
for some materials i am able to download, i used two ways to download 1) from icon(local file) on grid 2) menu list->export.
i checked in debugging till selecting the spread sheet pop up window, i am able to see all the data in internal table.
Can you suggest me what will be the problem....
thanks in advance,

hi sandeep,
sorry for didnt specify clearly.
note: EX: "asaasdada in this sentence i said " this symbol is special character not the text.
building final internal table code
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
 EXPORTING
 capid = p_capid
 datuv = sy-datum
 ehndl = '1'
 mktls = 'X'
 mehrs = 'X'
 mmory = '1'
 mtnrv = p_matnr
 stlal = '1'
 stpst = 0
 svwvo = 'X'
 werks = p_werks
 vrsvo = 'X'
 TABLES
 stb = i_stb
 EXCEPTIONS
 alt_not_found = 1
 call_invalid = 2
 material_not_found = 3
 missing_authorization = 4
 no_bom_found = 5
 no_plant_data = 6
 no_suitable_bom_found = 7
 conversion_error = 8
 OTHERS = 9.
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_stb1[] = i_stb[].
IF NOT i_stb1[] IS INITIAL.
 SORT i_stb1 BY idnrk.
 DELETE ADJACENT DUPLICATES FROM i_stb1 COMPARING idnrk.
 SELECT bmatn ematn FROM ampl INTO TABLE i_ampl
 FOR ALL ENTRIES IN i_stb1
 WHERE bmatn = i_stb1-idnrk AND
 datuv LE sy-datum AND
 datub GE sy-datum.
 SELECT
 matnr
 bwkey
 verpr
 stprs
 bwprh
 FROM mbew
 INTO TABLE i_mbew
 FOR ALL ENTRIES IN i_stb1
 WHERE
 matnr EQ i_stb1-idnrk AND
 bwkey EQ i_stb1-werks.
 IF NOT i_stb1[] IS INITIAL.
 SELECT matnr werks beskz
 dzeit webaz plifz
 ekgrp
 INTO TABLE i_marc
 FROM marc
 FOR ALL ENTRIES IN i_stb1
 WHERE matnr = i_stb1-idnrk
 AND werks = i_stb1-werks.
 SORT i_marc BY matnr werks.
 ENDIF.
 CLEAR i_ekpo.
 CLEAR i_vend.
 IF NOT i_stb1[] IS INITIAL.
 SELECT ebeln ebelp matnr werks loekz aedat
 netpr peinh
 INTO TABLE i_ekpo
 FROM ekpo
 FOR ALL ENTRIES IN i_stb1
 WHERE matnr = i_stb1-idnrk
 AND werks = i_stb1-werks.
 SORT i_ekpo BY matnr ASCENDING
 aedat DESCENDING
 ebeln DESCENDING
 ebelp DESCENDING.
 IF NOT i_ekpo IS INITIAL.
 SELECT k~ebeln k~lifnr l~name1
 INTO TABLE i_vend
 FROM ekko AS k INNER JOIN lfa1 AS l
 ON k~lifnr EQ l~lifnr
 FOR ALL ENTRIES IN i_ekpo
 WHERE ebeln = i_ekpo-ebeln.
 SORT i_vend BY ebeln.
 ENDIF.
 ENDIF.
ENDIF.
i_ampl1[] = i_ampl[].
IF NOT i_ampl1[] IS INITIAL.
 SORT i_ampl1 BY ematn.
 DELETE ADJACENT DUPLICATES FROM i_ampl1 COMPARING ematn.
 SELECT matnr mfrpn mfrnr FROM mara INTO TABLE i_mara
 FOR ALL ENTRIES IN i_ampl1
 WHERE matnr = i_ampl1-ematn.
ENDIF.
SORT i_ampl BY bmatn.
IF NOT i_stb[] IS INITIAL.
 SELECT stlty stlnr stlkn stpoz idnrk potx1 potx2
 INTO TABLE i_stpo
 FROM stpo
 FOR ALL ENTRIES IN i_stb
 WHERE stlty = i_stb-stlty
 AND stlnr = i_stb-stlnr
 AND stlkn = i_stb-stlkn
 AND stpoz = i_stb-stpoz
 AND idnrk = i_stb-idnrk.
 SORT i_stpo BY stlty stlnr stlkn stpoz idnrk.
ENDIF.
LOOP AT i_stb INTO wa_stb.
 READ TABLE i_marc INTO wa_marc
 WITH KEY matnr = wa_stb-idnrk
 werks = wa_stb-werks
 BINARY SEARCH.
 IF sy-subrc = 0.
 wa_outtab-beskz = wa_marc-beskz.
 wa_outtab-dzeit = wa_marc-dzeit.
 wa_outtab-webaz = wa_marc-webaz.
 wa_outtab-plifz = wa_marc-plifz.
 wa_outtab-ekgrp = wa_marc-ekgrp.
 ENDIF.
 READ TABLE i_ekpo INTO wa_ekpo
 WITH KEY matnr = wa_stb-idnrk.
 IF sy-subrc = 0.
 wa_outtab-netpr = wa_ekpo-netpr.
 wa_outtab-peinh = wa_ekpo-peinh.
 READ TABLE i_vend INTO wa_vend
 WITH KEY ebeln = wa_ekpo-ebeln
 BINARY SEARCH.
 IF sy-subrc = 0.
 wa_outtab-lifnr = wa_vend-lifnr.
 wa_outtab-name_sup = wa_vend-name1.
 ENDIF.
 ENDIF.
 READ TABLE i_stpo INTO wa_stpo
 WITH KEY stlty = wa_stb-stlty
 stlnr = wa_stb-stlnr
 stlkn = wa_stb-stlkn
 stpoz = wa_stb-stpoz
 idnrk = wa_stb-idnrk
 BINARY SEARCH.
 IF sy-subrc = 0.
 wa_outtab-potx1 = wa_stpo-potx1.
 wa_outtab-potx2 = wa_stpo-potx2.
 ENDIF.
 READ TABLE i_mbew INTO wa_mbew
 WITH KEY
 matnr = wa_stb-idnrk
 bwkey = wa_stb-werks.
 IF sy-subrc IS INITIAL.
 MOVE:
 wa_mbew-verpr TO wa_outtab-verpr,
 wa_mbew-stprs TO wa_outtab-stprs,
 wa_mbew-bwprh TO wa_outtab-bwprh.
 ENDIF.
 wa_outtab-matnr = p_matnr.
 wa_outtab-posnr = wa_stb-posnr.
 wa_outtab-stufe = wa_stb-stufe.
 wa_outtab-idnrk = wa_stb-idnrk.
 wa_outtab-ojtxb = wa_stb-ojtxp.
 wa_outtab-menge = wa_stb-menge.
 wa_outtab-meins = wa_stb-meins.
 MOVE: wa_stb-zzitem_draw_no TO wa_outtab-zzitem_draw_no.
 IF wa_stb-upskz = 'X'.
 SELECT * FROM stpu INTO TABLE i_stpu
 WHERE stlty = wa_stb-stlty AND
 stlnr = wa_stb-stlnr AND
 stlkn = wa_stb-stlkn AND
 stpoz = wa_stb-stpoz.
 ENDIF.
 LOOP AT i_stpu INTO wa_stpu.
 wa_outtab-upmng = wa_stpu-upmng.
 wa_outtab-ebort = wa_stpu-ebort.
 wa_outtab-uposz = wa_stpu-uposz.
 CONCATENATE v_ebort wa_stpu-ebort INTO v_ebort
 SEPARATED BY space.
 ENDLOOP.
 MOVE strlen( v_ebort ) TO v_len.
 MOVE: 0 TO x,
 128 TO y.
 DATA : lt_tab TYPE TABLE OF swastrtab.
 DATA : ls_tab LIKE LINE OF lt_tab.
 DATA : lv_ebort TYPE string.
 CLEAR lv_ebort. CLEAR lt_tab.
 MOVE v_ebort TO lv_ebort.
 CALL FUNCTION 'SWA_STRING_SPLIT'
 EXPORTING
 input_string = lv_ebort
 max_component_length = 128
 TABLES
 string_components = lt_tab
 EXCEPTIONS
 max_component_length_invalid = 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 lt_tab[] IS NOT INITIAL.
 LOOP AT lt_tab INTO ls_tab.
 CLEAR lv_ebort.
 MOVE: ls_tab-str TO lv_ebort.
 CONDENSE lv_ebort.
 MOVE lv_ebort TO wa_outtab-ebort.
 APPEND wa_outtab TO i_outtab.
 CLEAR:
 wa_outtab-matnr,
 wa_outtab-posnr,
 wa_outtab-zzitem_draw_no,
 wa_outtab-ojtxb,
 wa_outtab-menge,
 wa_outtab-meins,
 wa_outtab-uposz,
 wa_outtab-upmng,
 wa_outtab-verpr,
 wa_outtab-stprs,
 wa_outtab-bwprh,
 wa_outtab-lifnr,
 wa_outtab-name_sup,
 wa_outtab-potx1,
 wa_outtab-potx2,
 wa_outtab-netpr,
 wa_outtab-peinh.
* wa_outtab-idnrk.
 ENDLOOP.
 ELSE.
 APPEND wa_outtab TO i_outtab.
 ENDIF.
 CLEAR v_ebort.
 CLEAR: wa_stpu.
 REFRESH: i_stpu.
 LOOP AT i_ampl INTO wa_ampl WHERE bmatn = wa_stb-idnrk.
 READ TABLE i_mara INTO wa_mara WITH TABLE KEY matnr = wa_ampl-ematn.
 IF sy-subrc = 0.
 LOOP AT i_outtab INTO wa_outtab
 WHERE
 idnrk = wa_stb-idnrk AND
 flag NE 'X'.
 wa_outtab-mfrpn = wa_mara-mfrpn.
 wa_outtab-mfrnr = wa_mara-mfrnr.
 SELECT SINGLE name1 FROM lfa1 INTO wa_outtab-name1 WHERE lifnr = wa_mara-mfrnr.
 MOVE 'X' TO wa_outtab-flag.
 MODIFY i_outtab FROM wa_outtab
 TRANSPORTING mfrpn mfrnr name1 flag.
 EXIT.
 ENDLOOP.
 IF sy-subrc <> 0.
 CLEAR:
 wa_outtab-matnr,
 wa_outtab-posnr,
 wa_outtab-zzitem_draw_no,
 wa_outtab-ojtxb,
 wa_outtab-ebort,
* wa_outtab-idnrk,
 wa_outtab-menge,
 wa_outtab-meins,
 wa_outtab-uposz,
 wa_outtab-upmng,
 wa_outtab-verpr,
 wa_outtab-stprs,
 wa_outtab-bwprh,
 wa_outtab-lifnr,
 wa_outtab-name_sup,
 wa_outtab-potx1,
 wa_outtab-potx2,
 wa_outtab-netpr,
 wa_outtab-peinh.
 wa_outtab-mfrpn = wa_mara-mfrpn.
 wa_outtab-mfrnr = wa_mara-mfrnr.
 SELECT SINGLE name1 FROM lfa1 INTO wa_outtab-name1 WHERE lifnr = wa_mara-mfrnr.
 APPEND wa_outtab TO i_outtab.
 ENDIF.
 ENDIF.
 REFRESH i_stpu.
 CLEAR i_stpu.
 ENDLOOP. CLEAR: wa_matnr1, wa_mfrnr, wa_outtab.
ENDLOOP.
Edited by: srinivasareddy j on Mar 9, 2011 7:16 AM
Edited by: srinivasareddy j on Mar 9, 2011 7:20 AM

Hi, coding to display popup window after first alv grid display

hi
can anybody please send coding to display popup window after first alv grid display i.e. first the prog shows grid display and from grid display the user select the field and on the basis of field value i need to show pop up window in the first secondary window and then third popup window.
thanx
rocky

Hi rocky,
here is the sample code .hope this helps you.
TYPE-POOLS : SLIS.
DATA : GT_OUTTAB TYPE VBAK OCCURS 0,
 GS_PRIVATE TYPE SLIS_DATA_CALLER_EXIT,
 GS_SELFIELD TYPE SLIS_SELFIELD.
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA : ITAB TYPE TABLE OF SLIS_SELFIELD,
 WA_ITAB LIKE LINE OF ITAB.
START-OF-SELECTION.
PERFORM POPULATE_GT_OUTTAB.
PERFORM GET_POPUP.
PERFORM POPULATE_ITAB.
PERFORM FIELDCAT.
PERFORM DISPLAY_DETAILS.
*& Form FIELDCAT
 text
--> p1 text
<-- p2 text
FORM FIELDCAT .
LOOP AT ITAB INTO WA_ITAB.
WA_FIELDCAT-FIELDNAME = 'TABINDEX'.
WA_FIELDCAT-TABNAME = 'WA_ITAB'.
WA_FIELDCAT-COL_POS = 1.
WA_FIELDCAT-SELTEXT_L = 'TABLE INDEX'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'SEL_TAB_FIELD'.
WA_FIELDCAT-TABNAME = 'WA_ITAB'.
WA_FIELDCAT-COL_POS = 2.
WA_FIELDCAT-OUTPUTLEN = 20.
WA_FIELDCAT-SELTEXT_L = 'FIELD NAME'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'VALUE'.
WA_FIELDCAT-TABNAME = 'WA_ITAB'.
WA_FIELDCAT-COL_POS = 3.
WA_FIELDCAT-SELTEXT_L = 'FIELD VALUE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
ENDLOOP.
ENDFORM. " FIELDCAT
*& Form POPULATE_GT_OUTTAB
 text
--> p1 text
<-- p2 text
FORM POPULATE_GT_OUTTAB .
SELECT * FROM VBAK
 UP TO 10 ROWS
 INTO TABLE GT_OUTTAB.
ENDFORM. " POPULATE_GT_OUTTAB
*& Form GET_POPUP
 text
--> p1 text
<-- p2 text
FORM GET_POPUP .
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
 I_TITLE = 'SALES ORDER'
I_SELECTION = 'X'
I_ALLOW_NO_SELECTION =
 I_ZEBRA = 'X'
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_CHECKBOX_FIELDNAME =
I_LINEMARK_FIELDNAME =
I_SCROLL_TO_SEL_LINE = 'X'
 I_TABNAME = 'SALES ORDER'
 I_STRUCTURE_NAME = 'VBAK'
IT_FIELDCAT =
IT_EXCLUDING =
I_CALLBACK_PROGRAM =
I_CALLBACK_USER_COMMAND =
 IS_PRIVATE = GS_PRIVATE
IMPORTING
 ES_SELFIELD = GS_SELFIELD
E_EXIT = G_EXIT
TABLES
 T_OUTTAB = GT_OUTTAB
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. " GET_POPUP
*& Form POPULATE_ITAB
 text
--> p1 text
<-- p2 text
FORM POPULATE_ITAB .
WA_ITAB-TABNAME = GS_SELFIELD-TABNAME.
WA_ITAB-TABINDEX = GS_SELFIELD-TABINDEX.
WA_ITAB-SEL_TAB_FIELD = GS_SELFIELD-SEL_TAB_FIELD.
WA_ITAB-VALUE = GS_SELFIELD-VALUE.
APPEND WA_ITAB TO ITAB.
ENDFORM. " POPULATE_ITAB
*& Form DISPLAY_DETAILS
 text
--> p1 text
<-- p2 text
FORM DISPLAY_DETAILS .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = ' '
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
IS_LAYOUT =
 IT_FIELDCAT = IT_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 =
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 = 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. " DISPLAY_DETAILS
award points if helpful.
regards,
deepthi reddy

EDIT THE FIELV VALUE IN ALV GRID DISPLAY

Hi Guru ,
How can I edit the value of a particular one or two fields in ALV GRID DISPLAY .
Please reply me

hi,
1.Set status of all cells to editable using the layout structure.
2.Use SET_READY_FOR_INPUT to activate the edit feature initially.
   (state "editable activated").
3.Use IS_READY_FOR_INPUT to fetch current substate of editable cells.
4.Use SET_READY_FOR_INPUT to switch between the substates.
    CALL METHOD g_grid->set_table_for_first_display
         EXPORTING i_structure_name = 'SFLIGHT'
                   is_layout        = gs_layout
         CHANGING it_outtab        = gt_outtab.
*§2.Use SET_READY_FOR_INPUT to allow editing initially.
*   (state "editable and ready for input").
    CALL METHOD g_grid->set_ready_for_input
          EXPORTING i_ready_for_input = 1.
*Use IS_READY_FOR_INPUT to fetch current substate of editable cells.
IF g_grid->is_ready_for_input( ) EQ 0.
*Use SET_READY_FOR_INPUT to switch between the substates.
    CALL METHOD g_grid->set_ready_for_input
                     EXPORTING i_ready_for_input = 1.
ELSE.
    CALL METHOD g_grid->set_ready_for_input
                     EXPORTING i_ready_for_input = 0.
ENDIF.

How to capture the checkbox status in ALV Grid display

I need some immediate help regarding Grid ALV.
My Requirement: I need to display an ALV grid report along with checkboxes. Further, I need to provide an option wherein the user can checkboxes and select the records that I need to process further (by clicking the process button on the ALV Report).
My Query: The problem here is that I am not able to capture the status of the checkboxes. This means that I am not able to capture which of the records have been selected by checking their resp checkboxes.
Solutions that I have tried: I have tried capturing the same at user command by checking the value in slis_selfield. But all the records show the value as 1 for the checkbox field.
Kinldy suggest how to go about it.
I am not using Object Oriented ALV. Please suggest something to be used in ALV Grid display in 4.6C version.
Regards,
Namrata

Here is a Sample code , it might help you
TABLES : sflight.
TYPE-POOLS: slis.
DATA : w_repid LIKE sy-repid.
w_repid = sy-repid.
DATA: BEGIN OF it_sflight OCCURS 0,
checkbox(1),
carrid LIKE sflight-carrid,
END OF it_sflight.
*layout
DATA: wa_layout TYPE slis_layout_alv.
*field catalog
DATA: it_fieldcatalog TYPE slis_t_fieldcat_alv,
          wa_fieldcatalog TYPE slis_fieldcat_alv.
START-OF-SELECTION.
SELECT carrid FROM sflight
     INTO CORRESPONDING FIELDS OF TABLE it_sflight.
END-OF-SELECTION.
CLEAR it_fieldcatalog.
REFRESH it_fieldcatalog.
wa_fieldcatalog-fieldname = 'CHECKBOX'.
wa_fieldcatalog-outputlen = '3'.
wa_fieldcatalog-col_pos = '1'.
wa_fieldcatalog-seltext_m = 'Chk'.
wa_fieldcatalog-checkbox = 'X'.
wa_fieldcatalog-edit = 'X'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
CLEAR wa_fieldcatalog.
wa_fieldcatalog-fieldname = 'CARRID'.
wa_fieldcatalog-outputlen = '10'.
wa_fieldcatalog-col_pos = '2'.
wa_fieldcatalog-seltext_m = 'Carrid'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
CLEAR wa_fieldcatalog.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = w_repid
      is_layout = wa_layout
      i_callback_user_command = 'USER_COMMAND'
      it_fieldcat = it_fieldcatalog
    TABLES
      t_outtab = it_sflight
    EXCEPTIONS
      program_error = 1
      OTHERS = 2.
*& Form USER_COMMAND
FORM user_command USING p_ucomm TYPE sy-ucomm
p_selfld TYPE slis_selfield.
CASE p_ucomm.
   WHEN '&DATA_SAVE'.
      DATA ref1 TYPE REF TO cl_gui_alv_grid.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
         IMPORTING
           e_grid = ref1.
      CALL METHOD ref1->check_changed_data.
      LOOP AT it_sflight WHERE checkbox = 'X'.
         DELETE it_sflight INDEX sy-tabix.
      ENDLOOP.
      p_selfld-refresh = 'X'.
ENDCASE.
ENDFORM. "user_command

ALV GRID DISPLAY and a Parameter entry in the same screen how ?

Hi,
I am newbie to ABAP and I am trying to figure out ways to display an ALV grid along with the parameter field into which the user enters his/ her values in the same screen.To be clear, when I have a parameter type specified, my screen just lets me display that one field into which the user is asked to enter a value but I want to display the table as well as the user input field in the same screen.
Any help would be appreciated.
Thanks a lot. I appreciate that.
-V

Hi,
I think the easiest way to do that is by means of docking container . I will assume you are using selection-screen, but you can also achieve that with normal screen.
- first you need to place your field in selection screen which I believe you already have
- now during AT SELECTION-SCREEN OUTPUT you check if something is entred to that field
- if so you create instance of docking container (docking it at left hand side) then inside you place you alv with selected data for that field value
So the code which fulfils that would be
PARAMETERS pa_carr TYPE scarr-carrid.
DATA: gr_dock_cont TYPE REF TO cl_gui_docking_container,
      gr_alv       TYPE REF TO cl_gui_alv_grid.
DATA: it_spfli     TYPE TABLE OF spfli.
AT SELECTION-SCREEN OUTPUT.
IF pa_carr IS NOT INITIAL.
    SELECT * FROM spfli INTO TABLE it_spfli UP TO 10 ROWS
                                            WHERE carrid = pa_carr .
    IF gr_dock_cont IS NOT BOUND.
      CREATE OBJECT gr_dock_cont
        EXPORTING
          side                        = cl_gui_docking_container=>dock_at_left
          extension                   = 500.
      CREATE OBJECT gr_alv
        EXPORTING
          i_parent          = gr_dock_cont.
      CALL METHOD gr_alv->set_table_for_first_display
        EXPORTING
          i_structure_name = 'SPFLI'
        CHANGING
          it_outtab        = it_spfli.
    ELSE.
      CALL METHOD gr_alv->refresh_table_display.
    ENDIF.
ENDIF.
Regards
Marcin

How to capture the event in ALV grid display?

Hi experts,
How to capture the event in an ALV grid display which is editable. I have to capture the TAB key or ENTER key.
regards,
Arul Jothi.

Hi Arul,
Take a look at sample program BCALV_EDIT_03. (Find string "register ENTER" in the program to see how to register)
Basically you have to Register edit events using method call REGISTER_EDIT_EVENT and then write a handler method for event DATA_CHANGED..
If you are using a REUSE..GRID fm then first get the grid reference using function module GET_GLOBALS_FROM_SLVC_FULLSCR and then repeat the above procedure..
Hope this helps..
Sri
Message was edited by: Srikanth Pinnamaneni

ALV grid display the subtotal not getting for one column at the output

Hi,
I am working one report ALV grid display and subtotal is not getting for one paricular coulumn.
Eventhough that column has some values.
So can anyone give the proper solution.
Waiting quick response.
Best Regards,
Bansi

Hi
see this link .
https://wiki.sdn.sap.com/wiki/display/ABAP/SUBTOTALinALV
or try this program.
REPORT zalv.
DATA:
t_sflight TYPE TABLE OF sflight,
fs_sflight TYPE sflight.
DATA:
r_container TYPE REF TO cl_gui_custom_container,
r_grid TYPE REF TO cl_gui_alv_grid.
*FIELD CATALOG
DATA:
t_fcat TYPE lvc_t_fcat,
fs_fcat TYPE lvc_s_fcat.
*SORTING THE BASIC LIST
DATA:
t_sort TYPE lvc_t_sort,
fs_sort TYPE lvc_s_sort.
fs_fcat-fieldname = 'PRICE'.
fs_fcat-do_sum = 'X'.
APPEND fs_fcat TO t_fcat.
fs_sort-spos ='1'.
fs_sort-fieldname = 'CARRID'.
fs_sort-down = 'X'.
fs_sort-group = '*'.
fs_sort-subtot = 'X'.
APPEND fs_sort TO t_sort.
SELECT * FROM sflight INTO TABLE t_sflight.
CALL SCREEN 100.
*& Module STATUS_0100 OUTPUT
MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN1'.
SET TITLEBAR 'TITLE1'.ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
**& Module HANDLER OUTPUT
MODULE list OUTPUT.
CREATE OBJECT r_container
EXPORTING
container_name = 'CONTAINER'.
CREATE OBJECT r_grid
EXPORTING
i_parent = r_container.
CALL METHOD r_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
CHANGING
it_fieldcatalog = t_fcat
it_outtab = t_sflight
it_sort = t_sort.
ENDMODULE. "list OUTPUT
Regards
Hareesh Menon

TO enable the menu button in ALV Grid Display

Hi Mates,
I have a peculiar problem while doing ALV Grid display for screens.
In the main Screen i have Three coloumns.The 1st coloum will interacted
next screen 101 and 2nd coloum will interacted to screen 102.
Now the problem is in the menu of ALV Grid display,the Total button was enabled for screen
101 and same button is disabled in screen 102.
But the code semms to be fine .
Below i have pasted the code and please have a look and help to come out of this cris.
My Code :
FORM CREATE_ALV_GRID USING R_SCREEN.
DATA: LS_LAYOUT TYPE LVC_S_LAYO,
ITAB_FUNCTIONS     TYPE UI_FUNCTIONS.   "MHTK903257(+)(add)
CASE R_SCREEN.
*--> SCREEN 9000
    WHEN C_SCREEN_9000.
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_9000
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_OVERVIEW' 'WADAT'     'Due date'(004) 'X' 'D' ' ' ' ' ' ' 'C100',
*'ITAB_OVERVIEW' 'HU_UNLOAD' 'Unloaded HU'(005) 'X' 'I' '15' ' ' ' ' 'C500', "MHTK903257(-)
'ITAB_OVERVIEW' 'TOT_TO'    'Total TO'(006)   'X' 'I' ' ' ' ' ' ' 'C30',
GMTK901103: REMOVE HOTSPOT ON ESTIMATED TO:
'ITAB_OVERVIEW' 'EST_TO'    'Estim TO'(030)    ' ' 'I' ' ' ' ' ' ' 'C500'.
      LOOP AT ITAB_INB_LOC WHERE OUTPUT = 'X'.
            PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_9000
                                    USING:
   ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
        'ITAB_OVERVIEW' ITAB_INB_LOC-FIELDNAME
        ITAB_INB_LOC-Z_INBND_LOC 'X' '' ' ' ' ' 'R' 'C500'. "MHTK903418
        ENDLOOP.
      LOOP AT ITAB_STORAGE_TYPE WHERE OUTPUT = 'X'.
        PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_9000
                                    USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_OVERVIEW' ITAB_STORAGE_TYPE-FIELDNAME
ITAB_STORAGE_TYPE-LGTYP 'X' 'I' ' ' ' ' 'R' 'C500'.
      ENDLOOP.
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1000
        EXPORTING
          I_PARENT = PT_DOCK_1000.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS   "MHTK903257(+)(add)
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1000
                                 CHANGING LS_LAYOUT-GRID_TITLE.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1000->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_OVERVIEW
          IT_FIELDCATALOG = ITAB_FIELDCAT_9000.
*--> SCREEN 9100
    WHEN C_SCREEN_1100.
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1100
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_DETIAL' 'WAUHR'     'Due time'(007) ' ' 'T' ' ' 'X' ' ' 'C100',
'ITAB_DETAIL' 'TOT_TO'    'Total TO'(006)   'X' 'I' ' ' ' ' ' ' 'C30',
'ITAB_DETAIL' 'EST_TO'    'Estim TO'(030)   ' ' 'I' ' ' ' ' ' ' 'C500'.
   CLEAR ITAB_INB_LOC.
    LOOP AT ITAB_INB_LOC WHERE SELECTED = 'X'.
         CHECK SY-SUBRC EQ 0.
            PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1100
                                    USING:
   ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
        'ITAB_DETAIL' ITAB_INB_LOC-FIELDNAME
        ITAB_INB_LOC-Z_INBND_LOC '' '' ' ' ' ' 'R' 'C500'.
     ENDLOOP.
     CLEAR: ITAB_STORAGE_TYPE.
      LOOP AT ITAB_STORAGE_TYPE WHERE SELECTED = 'X'.
        CHECK SY-SUBRC EQ 0.
        PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1100
                                    USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_DETAIL' ITAB_STORAGE_TYPE-FIELDNAME
ITAB_STORAGE_TYPE-LGTYP 'X' 'I' ' ' ' ' 'R' 'C500'.
      ENDLOOP.
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1100
        EXPORTING
          I_PARENT = PT_DOCK_1100.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS   "MHTK903257(+)(add)
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1100
                                 CHANGING LS_LAYOUT-GRID_TITLE.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1100->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_DETAIL
          IT_FIELDCATALOG = ITAB_FIELDCAT_1100.
screen 1300 TO detail.
*--> SCREEN 9300
    WHEN C_SCREEN_1300.
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1300
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_TO2' 'TANUM' 'TO'(020) ' '   'C' ' ' ' ' ' ' 'C100',
'ITAB_TO2' 'NLPLA' 'Location'(021) ' '   'C' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'LETY1' 'SUT'(013) ' ' 'C' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'MATNR' 'Material'(016) ' ' 'C' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'NSOLM' 'Quantity'(017) ' ' 'I' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'NLTYP' 'Storage type'(014) ' ' '' ' ' ' ' ' ' 'C500'. "MHTK903257(-)
*'ITAB_TO2' 'POSNR' 'Line'(015) ' ' 'C' ' ' ' ' ' ' 'C500'.       "MHTK903257(-)
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1300
        EXPORTING
          I_PARENT = PT_DOCK_1300.
*-- Exclude the non-applicable functions from the ALV grid.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1300
                                 CHANGING LS_LAYOUT-GRID_TITLE.
      SORT ITAB_TO2 BY TANUM VBELN POSNR.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1300->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_TO2
          IT_FIELDCATALOG = ITAB_FIELDCAT_1300.
screen 9400 Pre Processing detail.
*--> SCREEN 9400
    WHEN C_SCREEN_9400.          "MHTK903418(BEgin Of change)
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1400
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_PRE_PROC2' 'Z_PRE_PROC' 'Pre Processing Number'(030) ' '   'C' ' ' ' ' ' ' 'C100',
'ITAB_PRE_PROC2' 'Z_PRE_PROC_LN' 'Pre Processing Number'(035) ' '   'C' ' ' ' ' ' ' 'C100',
'ITAB_PRE_PROC2' 'MATNR' 'Material'(035) ' '   'C' ' ' ' ' ' ' 'C500',
'ITAB_PRE_PROC2' 'Z_PSH_QTY' 'Quantity'(035) ' '   'C' ' ' ' ' ' ' 'C500'.
*'ITAB_TO2' 'MATNR' 'Material'(016) ' ' 'C' ' ' ' ' ' ' 'C500',
*'ITAB_TO2' 'NSOLM' 'Quantity'(017) ' ' 'I' ' ' ' ' ' ' 'C500',
*'ITAB_TO2' 'NLTYP' 'Storage type'(014) ' ' '' ' ' ' ' ' ' 'C500'. "MHTK903257(-)
**'ITAB_TO2' 'POSNR' 'Line'(015) ' ' 'C' ' ' ' ' ' ' 'C500'.       "MHTK903257(-)
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1400
        EXPORTING
          I_PARENT = PT_DOCK_1400.
*-- Exclude the non-applicable functions from the ALV grid.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1400
                                 CHANGING LS_LAYOUT-GRID_TITLE.
      SORT ITAB_PRE_PROC2 BY Z_PRE_PROC.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1400->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_PRE_PROC2
          IT_FIELDCATALOG = ITAB_FIELDCAT_1400. "MHTK903418(End of change)
ENDCASE.

Hi
U copy from standard program and paste ur report ...It will work..'
Regards:
Prabu

How to change the selected row color in an alv grid display ?

Hello ,
I WANT TO CHANGE THE COLOR OF THE SELECTED RECORDS IN AN ALV GRID DISPLAY ?
ITS URGENT..
WILL BE REWARDED...

hai Ssnagh Samala
EXicut This report >
Hope It Will Meet U r Requirement.
If Found Helpfull Reward.
REPORT zcuitest_alv_07.
Use of colours in ALV grid (cell, line and column) *
Table
TABLES : mara.
Type
TYPES : BEGIN OF ty_mara,
matnr LIKE mara-matnr,
matkl LIKE mara-matkl,
counter(4) TYPE n,
free_text(15) TYPE c,
color_line(4) TYPE c, " Line color
color_cell TYPE lvc_t_scol, " Cell color
END OF ty_mara.
Structures
DATA : wa_mara TYPE ty_mara,
wa_fieldcat TYPE lvc_s_fcat,
is_layout TYPE lvc_s_layo,
wa_color TYPE lvc_s_scol.
Internal table
DATA : it_mara TYPE STANDARD TABLE OF ty_mara,
it_fieldcat TYPE STANDARD TABLE OF lvc_s_fcat,
it_color TYPE TABLE OF lvc_s_scol.
Variables
DATA : okcode LIKE sy-ucomm,
w_alv_grid TYPE REF TO cl_gui_alv_grid,
w_docking_container TYPE REF TO cl_gui_docking_container.
PARAMETERS : p_column AS CHECKBOX,
p_line AS CHECKBOX,
p_cell AS CHECKBOX.
START-OF-SELECTION.
PERFORM get_data.
END-OF-SELECTION.
PERFORM fill_catalog.
PERFORM fill_layout.
CALL SCREEN 2000.
*& Module status_2000 OUTPUT
text
MODULE status_2000 OUTPUT.
SET PF-STATUS '2000'.
ENDMODULE. " status_2000 OUTPUT
*& Module user_command_2000 INPUT
text
MODULE user_command_2000 INPUT.
DATA : w_okcode LIKE sy-ucomm.
MOVE okcode TO w_okcode.
CLEAR okcode.
CASE w_okcode.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " user_command_2000 INPUT
*& Module alv_grid OUTPUT
text
MODULE alv_grid OUTPUT.
IF w_docking_container IS INITIAL.
PERFORM create_objects.
PERFORM display_alv_grid.
ENDIF.
ENDMODULE. " alv_grid OUTPUT
*& Form create_objects
text
--> p1 text
<-- p2 text
FORM create_objects.
Ratio must be included in http://5..95
CREATE OBJECT w_docking_container
EXPORTING
ratio = 95
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
others = 6.
CREATE OBJECT w_alv_grid
EXPORTING
i_parent = w_docking_container.
ENDFORM. " create_objects
*& Form display_alv_grid
text
--> p1 text
<-- p2 text
FORM display_alv_grid.
CALL METHOD w_alv_grid->set_table_for_first_display
EXPORTING
is_layout = is_layout
CHANGING
it_outtab = it_mara
it_fieldcatalog = it_fieldcat
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.
ENDFORM. " display_alv_grid
*& Form get_data
text
--> p1 text
<-- p2 text
FORM get_data.
SELECT * FROM mara UP TO 5 ROWS.
CLEAR : wa_mara-color_line, wa_mara-color_cell.
MOVE-CORRESPONDING mara TO wa_mara.
ADD 1 TO wa_mara-counter.
MOVE 'Blabla' TO wa_mara-free_text.
IF wa_mara-counter = '0002'
AND p_line = 'X'.
Color line
MOVE 'C410' TO wa_mara-color_line.
ELSEIF wa_mara-counter = '0004'
AND p_cell = 'X'.
Color cell
MOVE 'FREE_TEXT' TO wa_color-fname.
MOVE '5' TO wa_color-color-col.
MOVE '1' TO wa_color-color-int.
MOVE '1' TO wa_color-color-inv.
APPEND wa_color TO it_color.
wa_mara-color_cell] = it_color[.
ENDIF.
APPEND wa_mara TO it_mara.
ENDSELECT.
ENDFORM. " get_data
*& Form fill_catalog
text
--> p1 text
<-- p2 text
FORM fill_catalog.
Colour code : *
Colour is a 4-char field where : *
- 1st char = C (color property) *
- 2nd char = color code (from 0 to 7) *
0 = background color *
1 = blue *
2 = gray *
3 = yellow *
4 = blue/gray *
5 = green *
6 = red *
7 = orange *
- 3rd char = intensified (0=off, 1=on) *
- 4th char = inverse display (0=off, 1=on) *
Colour overwriting priority : *
1. Line *
2. Cell *
3. Column *
DATA : w_position TYPE i VALUE '1'.
CLEAR wa_fieldcat.
MOVE w_position TO wa_fieldcat-col_pos.
MOVE 'MATNR' TO wa_fieldcat-fieldname.
MOVE 'MARA' TO wa_fieldcat-ref_table.
MOVE 'MATNR' TO wa_fieldcat-ref_field.
APPEND wa_fieldcat TO it_fieldcat.
ADD 1 TO w_position.
CLEAR wa_fieldcat.
MOVE w_position TO wa_fieldcat-col_pos.
MOVE 'MATKL' TO wa_fieldcat-fieldname.
MOVE 'MARA' TO wa_fieldcat-ref_table.
MOVE 'MATKL' TO wa_fieldcat-ref_field.
Color column
IF p_column = 'X'.
MOVE 'C610' TO wa_fieldcat-emphasize.
ENDIF.
APPEND wa_fieldcat TO it_fieldcat.
ADD 1 TO w_position.
CLEAR wa_fieldcat.
MOVE w_position TO wa_fieldcat-col_pos.
MOVE 'COUNTER' TO wa_fieldcat-fieldname.
MOVE 'N' TO wa_fieldcat-inttype.
MOVE '4' TO wa_fieldcat-intlen.
MOVE 'Counter' TO wa_fieldcat-coltext.
APPEND wa_fieldcat TO it_fieldcat.
ADD 1 TO w_position.
CLEAR wa_fieldcat.
MOVE w_position TO wa_fieldcat-col_pos.
MOVE 'FREE_TEXT' TO wa_fieldcat-fieldname.
MOVE 'C' TO wa_fieldcat-inttype.
MOVE '20' TO wa_fieldcat-intlen.
MOVE 'Text' TO wa_fieldcat-coltext.
APPEND wa_fieldcat TO it_fieldcat.
ENDFORM. " fill_catalog
*& Form fill_layout
text
--> p1 text
<-- p2 text
FORM fill_layout.
Field that identify color line in internal table
MOVE 'COLOR_LINE' TO is_layout-info_fname.
Field that identify cell color in inetrnal table
MOVE 'COLOR_CELL' TO is_layout-ctab_fname.
ENDFORM. " fill_layout
Regards.
Eshwar.

How to devide the top of page in alv grid display

hi all
in the alv grid display am getting the page number and total number of pages in the left hand side
but what i need is i need in the right hand side
how to get that

Hi,
PLease refer to the code below:
*& Report ZDEMO_ALVGRID *
*& Example of a simple ALV Grid Report *
*& The basic requirement for this demo is to display a number of *
*& fields from the EKKO table. *
REPORT zdemo_alvgrid .
TABLES: ekko.
type-pools: slis. "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
 wa_ekko TYPE t_ekko.
*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
 gd_tab_group type slis_t_sp_group_alv,
 gd_layout type slis_layout_alv,
 gd_repid like sy-repid,
 gt_events type slis_t_event,
 gd_prntparams type slis_print_alv.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform build_events.
perform build_print_params.
perform display_alv_report.
*& Form BUILD_FIELDCATALOG
* Build Fieldcatalog for ALV Report
form build_fieldcatalog.
* There are a number of ways to create a fieldcat.
* For the purpose of this example i will build the fieldcatalog manualy
* by populating the internal table fields individually and then
* appending the rows. This method can be the most time consuming but can
* also allow you more control of the final product.
* Beware though, you need to ensure that all fields required are
* populated. When using some of functionality available via ALV, such as
* total. You may need to provide more information than if you were
* simply displaying the result
* I.e. Field type may be required in-order for
* the 'TOTAL' function to work.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
* fieldcatalog-do_sum = 'X'.
* fieldcatalog-no_zero = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'EBELP'.
fieldcatalog-seltext_m = 'PO Item'.
fieldcatalog-col_pos = 1.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'STATU'.
fieldcatalog-seltext_m = 'Status'.
fieldcatalog-col_pos = 2.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'AEDAT'.
fieldcatalog-seltext_m = 'Item change date'.
fieldcatalog-col_pos = 3.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material Number'.
fieldcatalog-col_pos = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MENGE'.
fieldcatalog-seltext_m = 'PO quantity'.
fieldcatalog-col_pos = 5.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Order Unit'.
fieldcatalog-col_pos = 6.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'NETPR'.
fieldcatalog-seltext_m = 'Net Price'.
fieldcatalog-col_pos = 7.
fieldcatalog-outputlen = 15.
fieldcatalog-do_sum = 'X'.
fieldcatalog-datatype = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'PEINH'.
fieldcatalog-seltext_m = 'Price Unit'.
fieldcatalog-col_pos = 8.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endform. " BUILD_FIELDCATALOG
*& Form BUILD_LAYOUT
* Build layout for ALV grid report
form build_layout.
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text = 'Totals'(201).
* gd_layout-totals_only = 'X'.
* gd_layout-f2code = 'DISP'. "Sets fcode for when double
* "click(press f2)
* gd_layout-zebra = 'X'.
* gd_layout-group_change_edit = 'X'.
* gd_layout-header_text = 'helllllo'.
endform. " BUILD_LAYOUT
*& Form DISPLAY_ALV_REPORT
* Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 i_callback_program = gd_repid
 i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
 i_callback_user_command = 'USER_COMMAND'
* i_grid_title = outtext
 is_layout = gd_layout
 it_fieldcat = fieldcatalog[]
* it_special_groups = gd_tabgroup
 it_events = gt_events
 is_print = gd_prntparams
 i_save = 'X'
* is_variant = z_template
 tables
 t_outtab = it_ekko
 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. " DISPLAY_ALV_REPORT
*& Form DATA_RETRIEVAL
* Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
select ebeln ebelp statu aedat matnr menge meins netpr peinh
up to 10 rows
from ekpo
into table it_ekko.
endform. " DATA_RETRIEVAL
* Form TOP-OF-PAGE *
* ALV Report Header *
Form top-of-page.
*ALV Header declarations
data: t_header type slis_t_listheader,
 wa_header type slis_listheader,
 t_line like wa_header-info,
 ld_lines type i,
 ld_linesc(10) type c.
* Title
wa_header-typ = 'H'.
wa_header-info = 'EKKO Table Report'.
append wa_header to t_header.
clear wa_header.
* Date
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE sy-datum+6(2) '.'
 sy-datum+4(2) '.'
 sy-datum(4) INTO wa_header-info. "todays date
append wa_header to t_header.
clear: wa_header.
* Total No. of Records Selected
describe table it_ekko lines ld_lines.
ld_linesc = ld_lines.
concatenate 'Total No. of Records Selected: ' ld_linesc
 into t_line separated by space.
wa_header-typ = 'A'.
wa_header-info = t_line.
append wa_header to t_header.
clear: wa_header, t_line.
call function 'REUSE_ALV_COMMENTARY_WRITE'
 exporting
 it_list_commentary = t_header.
* i_logo = 'Z_LOGO'.
endform.
* FORM USER_COMMAND *
* --> R_UCOMM *
* --> RS_SELFIELD *
FORM user_command USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
* Check function code
CASE r_ucomm.
 WHEN '&IC1'.
* Check field clicked on within ALVgrid report
 IF rs_selfield-fieldname = 'EBELN'.
* Read data table, using index of row user clicked on
 READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
* Set parameter ID for transaction screen field
 SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.
* Sxecute transaction ME23N, and skip initial data entry screen
 CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
 ENDIF.
ENDCASE.
ENDFORM.
*& Form BUILD_EVENTS
* Build events table
form build_events.
data: ls_event type slis_alv_event.
call function 'REUSE_ALV_EVENTS_GET'
 exporting
 i_list_type = 0
 importing
 et_events = gt_events[].
read table gt_events with key name = slis_ev_end_of_page
 into ls_event.
if sy-subrc = 0.
 move 'END_OF_PAGE' to ls_event-form.
 append ls_event to gt_events.
endif.
 read table gt_events with key name = slis_ev_end_of_list
 into ls_event.
if sy-subrc = 0.
 move 'END_OF_LIST' to ls_event-form.
 append ls_event to gt_events.
endif.
endform. " BUILD_EVENTS
*& Form BUILD_PRINT_PARAMS
* Setup print parameters
form build_print_params.
gd_prntparams-reserve_lines = '3'. "Lines reserved for footer
gd_prntparams-no_coverpage = 'X'.
endform. " BUILD_PRINT_PARAMS
*& Form END_OF_PAGE
form END_OF_PAGE.
data: listwidth type i,
 ld_pagepos(10) type c,
 ld_page(10) type c.
write: sy-uline(50).
skip.
write:/40 'Page:', sy-pagno .
endform.
*& Form END_OF_LIST
form END_OF_LIST.
data: listwidth type i,
 ld_pagepos(10) type c,
 ld_page(10) type c.
skip.
write:/40 'Page:', sy-pagno .
endform.
Thanks,
Sriram Ponna.

Problem in placing the background in ALV Grid display

I have created one image of the business flow, and it have to be displayed in the background of ALV grid display.
For this I have gone to T.Code OAER , Given class name as PICTURES , Class type as OT , Object Key BACKGROUND, clicked on the triangle of Standard Doc , then double click on screen, and finally uploaded the background into SAP.
In the function module REUSE_ALV_GRID_DISPLAY I passed this background to the parameter I_BACKGROUND_ID.
It is working fine, and I was able to see the back ground in my program.
(developed in IDES)
But the same is not working in my development client, will some one suggest be the reason for the problem. Please kindly help me out from this problem.

hello Dinesh,
I have created the object key in the development client itself and used in the grid display of the same client. i am not understanding where the problem is, any how thank you very much for your responce. if you have any other solution please let me know.
Thank you

ALV Grid display in the middle of window

Similar Messages

Maybe you are looking for