topic Re: alv grid display in Application Development and Automation Discussions

alv grid display

Former Member — Wed, 26 Jul 2006 20:11:01 GMT

hi,

I am trying to use '<b>REUSE_ALV_GRID_DISPLAY'</b>

and pass the parameter <b>"I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE' "</b>.

FORM TOP_OF_PAGE.

DATA: WA_HEADER TYPE SLIS_LISTHEADER. REFRESH: GT_LIST_TOP_OF_PAGE.

WA_HEADER-TYP = 'H'. WA_HEADER-INFO = 'TEST REPORT'. APPEND WA_HEADER TO GT_LIST_TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' EXPORTING I_LOGO = 'LOGO' IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.

ENDFORM. " TOP_OF_PAGE

But the function module is not triggering the form TOP_OF_PAGE.

Re: alv grid display

Former Member — Wed, 26 Jul 2006 20:16:52 GMT

Hi,

Please refer to this piece of code :

REPORT z_v_alv_linecolor.

*---- Type pools Declaration.

TYPE-POOLS slis.

*---- Tables declaration.

TABLES ekko. " Purchasing Document Header

*---- Types Declaration.

TYPES: BEGIN OF t_ekko ,

ebeln LIKE ekko-ebeln, " Purchasing Document Number

bukrs LIKE ekko-bukrs, " Company Code

bsart LIKE ekko-bsart, " Purchasing Document Type

ernam LIKE ekko-ernam, " Name of Person who Created

" the Object

lifnr LIKE ekko-lifnr, " Account Number of the Vendor

line_color(4) TYPE c, " Line color

END OF t_ekko.

*---- Table Memory Allocation.

DATA i_ekko TYPE t_ekko OCCURS 0.

*---- Work area Declaration.

DATA wa_ekko LIKE LINE OF i_ekko.

*data : begin of i_ekko occurs 0,

ebeln LIKE ekko-ebeln, " Purchasing Document Number
bukrs LIKE ekko-bukrs, " Company Code
bsart LIKE ekko-bsart, " Purchasing Document Type
ernam LIKE ekko-ernam, " Name of Person who Created
" the Object
lifnr LIKE ekko-lifnr, " Account Number of the Vendor
line_color(4) TYPE c, " Line color

end of i_ekko.

*---- Select options declaration.

SELECT-OPTIONS : ebeln FOR ekko-ebeln.

*---- Simulation of fieldcat.

*DATA : ls_layout TYPE slis_layout_alv, " Layout

ls_fieldcat TYPE slis_fieldcat_alv, " Workarea

f_fieldcat TYPE slis_t_fieldcat_alv. " Table

colpos TYPE i VALUE 0.

data : f_fieldcat type slis_t_fieldcat_alv.

data : e_events type slis_t_event. " evets triggering

DATA : wa_events TYPE slis_alv_event. " Work area for events.

*---- Variable like sy-repid to store the name of the program.

data r_repid like sy-repid.

*---- Data selection into i_mara

r_repid = sy-repid.

SELECT ebeln

bukrs

bsart

ernam

lifnr FROM

ekko INTO TABLE i_ekko where ebeln in ebeln.

PERFORM int_table.

perform build_catalog.

perform get_alv_events.

*---- Layout Set Simulation.

data : ls_layout type slis_layout_alv.

Fill Layout - Name of the field with color

ls_layout-info_fieldname = 'LINE_COLOR'.

LS_LAYOUT-WINDOW_TITLEBAR = 'ALV Report'.

perform display_data.

----

Form int_table

----

FORM int_table .

DATA :

l_rnd_value LIKE datatype-integer2.

*clear wa_ekko.

LOOP AT i_ekko into wa_ekko.

CALL FUNCTION 'RANDOM_I2'

EXPORTING

rnd_min = 0

rnd_max = 3

IMPORTING

rnd_value = l_rnd_value.

IF l_rnd_value = 0.

wa_ekko-line_color = 'C100'.

MODIFY i_ekko FROM wa_ekko TRANSPORTING line_color.

ENDIF.

IF l_rnd_value = 1.

wa_ekko-line_color = 'C300'.

MODIFY i_ekko FROM wa_ekko TRANSPORTING line_color.

ENDIF.

IF l_rnd_value = 2.

wa_ekko-line_color = 'C500'.

MODIFY i_ekko FROM wa_ekko TRANSPORTING line_color.

ENDIF.

IF l_rnd_value = 3.

wa_ekko-line_color = 'C600'.

MODIFY i_ekko FROM wa_ekko TRANSPORTING line_color.

ENDIF.

CLEAR wa_ekko.

ENDLOOP. " Loop ends here.

ENDFORM. " int_table

----

Form build_catalog

----

form build_catalog .

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = r_repid

I_INTERNAL_TABNAME = 'I_EKKO'

I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = r_repid

I_BYPASSING_BUFFER = 'X'

I_BUFFER_ACTIVE = ' '

CHANGING

ct_fieldcat = f_fieldcat.

endform. " build_catalog

----

Form display_data

----

form display_data .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = r_repid

IS_LAYOUT = ls_layout

IT_FIELDCAT = f_fieldcat

I_SAVE = 'A'

IT_EVENTS = e_events

TABLES

t_outtab = i_ekko.

endform. " display_data

----

Form get_alv_events

----

form get_alv_events .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = e_events.

READ TABLE e_events INTO WA_EVENTS

with KEY name = slis_ev_top_of_page.

IF sy-subrc = 0.

wa_events-form = 'TOP_OF_PAGE'.

APPEND wa_events TO e_events.

clear wa_events.

ENDIF.

endform. " get_alv_events

**----

Form Top_Of_Page

**----

Form TOP_OF_PAGE.

Data : i_commentary type SLIS_T_LISTHEADER.

Data : wa_Comementary type slis_listheader.

wa_comementary-typ = 'H'.

wa_comementary-info = 'Material Description.'.

Append wa_comementary to i_commentary.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = i_commentary

I_LOGO = 'ENJOYSAP_LOGO'

I_END_OF_LIST_GRID =

Endform.

Re: alv grid display

Former Member — Wed, 26 Jul 2006 20:23:01 GMT

Under Reuse ALV Commentart write....module...

try like this GT_LIST_TOP_OF_PAGE[]...

please reward if this its helpful....

Thanx & Regards

Leo

Re: alv grid display

Former Member — Wed, 26 Jul 2006 20:26:04 GMT

sample code is ::

report ztest24

no standard page heading

message-id z1.

include rm07grid.

*----

*Tables Description

*----

tables : tvkot, tvtwt, tspat, kna1, likp, lips, mara, knvv,

tvbur, tvkbt, t023t, t171t, knvp, vbup, tvm1t, tvm2t, tvm3t.

*----

*Data Definition

*----

type-pools slis.

data: fcat1 type slis_fieldcat_alv.

data: fcat2 type slis_t_listheader.

data: fcat3 type slis_listheader.

data: fcat type slis_t_fieldcat_alv.

data : it_event type slis_alv_event,

it_event1 type slis_t_event,

gt_sort type slis_t_sortinfo_alv,

gt_sort1 type slis_sortinfo_alv,

gt_sp_group type slis_t_sp_group_alv,

fcat5 type slis_coltypes.

data: hedd1 like tline occurs 0 with header line.

data: t_vbeln like thead-tdname,

net_qty like lips-lfimg,

e_vbeln like likp-vbeln.

*----

*Internal Table Declarations

*----

*delivery Data

data: begin of delv_datai occurs 0,

vbeln like likp-vbeln, "docno

lfdat like likp-lfdat, "date

kunag like likp-kunag, "customer no

vkorg like likp-vkorg, "sales organisation

vtwiv like likp-vtwiv,

lfart like likp-lfart,

vgpos like lips-vgpos,

posnr like lips-posnr, "itemno

charg like lips-charg,

arktx like lips-arktx,

lfimg like lips-lfimg, "Quantity

matnr like lips-matnr, "Material Number

ladgr like lips-ladgr,

uecha like lips-uecha,

wbstk like vbuk-wbstk,

bzirk like knvv-bzirk, "district

name1 like kna1-name1, "customer name

ort01 like kna1-ort01,

vtxts like tvkot-vtext,

vtxtc like tvtwt-vtext,

vtxtd like tspat-vtext,

vkbur like tvkbt-vkbur, "sales office

vtxtt like tlgrt-vtext, "office name

mvgr1 like mvke-mvgr1, "sales group1

mvgr2 like mvke-mvgr2, "sales group2

mvgr3 like mvke-mvgr3, "sales group3

bezei1 like tvm1t-bezei,

bezei2 like tvm2t-bezei,

bezei3 like tvm3t-bezei,

bezei4 like tvm3t-bezei,

bztxt like t171t-bztxt,

docno(20) type c,

docno2(30) type c,

docno3(30) type c,

docno1 like ztes1-ztes,

end of delv_datai.

data: begin of delv_datat occurs 0,

kunag like likp-kunag,

vbeln like likp-vbeln,

vgpos like lips-vgpos,

matnr like lips-matnr,

lfimg like lips-lfimg,

end of delv_datat.

*to update descriptions

data: begin of delv_datai_d occurs 0,

vbeln like likp-vbeln,

lfdat like likp-lfdat,

kunag like likp-kunag,

vkorg like likp-vkorg,

vtwiv like likp-vtwiv,

lfart like likp-lfart,

vgpos like lips-vgpos,

posnr like lips-posnr,

charg like lips-charg,

arktx like lips-arktx,

lfimg like lips-lfimg,

matnr like lips-matnr,

ladgr like lips-ladgr,

uecha like lips-uecha,

wbstk like vbuk-wbstk,

bzirk like knvv-bzirk,

name1 like kna1-name1,

ort01 like kna1-ort01,

vtxts like tvkot-vtext,

vtxtc like tvtwt-vtext,

vtxtd like tspat-vtext,

vkbur like tvkbt-vkbur,

vtxtt like tlgrt-vtext,

mvgr1 like mvke-mvgr1,

mvgr2 like mvke-mvgr2,

mvgr3 like mvke-mvgr3,

bezei1 like tvm1t-bezei,

bezei2 like tvm2t-bezei,

bezei3 like tvm3t-bezei,

bezei4 like tvm3t-bezei,

bztxt like t171t-bztxt,

docno(20) type c,

docno2(30) type c,

docno3(30) type c,

docno1 like ztes1-ztes,

end of delv_datai_d.

*display output

data: begin of delv_datai1 occurs 0,

docno1 like ztes1-ztes,

posnr like lips-posnr,

charg like lips-charg,

lfimg like lips-lfimg,

lfdat like likp-lfdat,

kunag like likp-kunag,

lfart like likp-lfart,

name1 like kna1-name1,

ort01 like kna1-ort01,

bzirk like knvv-bzirk,

vkorg like likp-vkorg,

matnr like lips-matnr,

arktx like lips-arktx,

vtxts like tvkot-vtext,

vkbur like tvkbt-vkbur,

bezei1 like tvm1t-bezei,

bezei2 like tvm2t-bezei,

bezei3 like tvm3t-bezei,

bezei4 like tvm3t-bezei,

bztxt like t171t-bztxt,

vbeln like likp-vbeln,

docno2(30) type c,

docno3(30) type c,

end of delv_datai1.

*customer data

data: begin of coff_data occurs 0,

kunnr like knvv-kunnr,

vkbur like knvv-vkbur,

bzirk like knvv-bzirk,

end of coff_data.

*sold to party

data: begin of stop_data occurs 0,

kunag like likp-kunag,

name1 like kna1-name1,

ort01 like kna1-ort01,

end of stop_data.

*sales organisation

data: begin of sorg_data occurs 0,

vkorg like tvkot-vkorg,

vtext like tvkot-vtext,

end of sorg_data.

*material groups

data: begin of mgrp_data occurs 0,

matnr like mvke-matnr,

vkorg like mvke-vkorg,

mvgr1 like mvke-mvgr1,

mvgr2 like mvke-mvgr2,

mvgr3 like mvke-mvgr3,

end of mgrp_data.

*mode of transport

data: begin of motr_data occurs 0,

ladgr like t023t-matkl,

vtext like t023t-wgbez,

end of motr_data.

*sales office

data: begin of soff_data occurs 0,

vkbur like tvkbt-vkbur,

bezei like tvkbt-bezei,

end of soff_data.

*sales district

data: begin of sdis_data occurs 0,

bzirk like t171t-bzirk,

bztxt like t171t-bztxt,

end of sdis_data.

*sales group1

data: begin of grp1_data occurs 0,

mvgr1 like tvm1t-mvgr1,

bezei1 like tvm1t-bezei,

end of grp1_data.

*sales group2

data: begin of grp2_data occurs 0,

mvgr2 like tvm2t-mvgr2,

bezei2 like tvm2t-bezei,

end of grp2_data.

*sales group3

data: begin of grp3_data occurs 0,

mvgr3 like tvm3t-mvgr3,

bezei3 like tvm3t-bezei,

end of grp3_data.

*----

*Selection criteria

*----

selection-screen begin of block b2 with frame title text_003.

select-options: p_vkbur for tvkbt-vkbur.

selection-screen end of block b2.

selection-screen: begin of block b1 with frame title text_002.

select-options: s_lfdat for likp-lfdat,

s_bzirk for knvv-bzirk,

s_kunnr for kna1-kunnr,

s_mvgr1 for tvm1t-mvgr1,

s_mvgr2 for tvm2t-mvgr2,

s_mvgr3 for tvm3t-mvgr3,

s_matnr for mara-matnr.

selection-screen: end of block b1.

selection-screen begin of block b with frame title text_001.

parameters:

c_delv as checkbox,

c_return as checkbox.

selection-screen end of block b.

data: delv_ret type range of likp-lfart,

delv_ret_line like line of delv_ret.

*----

*Validations

*----

*Customer Validation

at selection-screen on s_kunnr.

if s_kunnr is not initial.

select single kunnr from kna1

into kna1-kunnr

where kunnr in s_kunnr and spras = sy-langu.

endif.

if sy-subrc <> 0.

message i043.

stop.

endif.

*Sales Office Validation

at selection-screen on p_vkbur.

if p_vkbur is not initial.

select single vkbur bezei from tvkbt

into (tvkbt-vkbur, tvkbt-bezei)

where vkbur in p_vkbur and spras = sy-langu.

endif.

if sy-subrc <> 0.

message i044.

stop.

endif.

*Sales District Validation

at selection-screen on s_bzirk.

if s_bzirk is not initial.

select single bzirk bztxt from t171t

into (t171t-bzirk, t171t-bztxt)

where bzirk in s_bzirk and spras = sy-langu.

endif.

if sy-subrc <> 0.

message i053.

stop.

endif.

*Material Number Validation

at selection-screen on s_matnr.

if s_matnr is not initial.

select single matnr from mara

into mara-matnr

where matnr in s_matnr.

endif.

if sy-subrc <> 0.

message i045.

stop.

endif.

*Material Pricing Group-1 Validation

at selection-screen on s_mvgr1.

if s_mvgr1 is not initial.

select single mvgr1 from tvm1t

into tvm1t-mvgr1

where mvgr1 in s_mvgr1 and spras = sy-langu.

endif.

if sy-subrc <> 0.

message i046.

stop.

endif.

*Material Pricing Group-2 Validation

at selection-screen on s_mvgr2.

if s_mvgr2 is not initial.

select single mvgr2 from tvm2t

into tvm2t-mvgr2

where mvgr2 in s_mvgr2 and spras = sy-langu.

endif.

if sy-subrc <> 0.

message i047.

stop.

endif.

*Material Pricing Group-3 Validation

at selection-screen on s_mvgr3.

if s_mvgr3 is not initial.

select single mvgr3 from tvm3t

into tvm3t-mvgr3

where mvgr3 in s_mvgr3 and spras = sy-langu.

endif.

if sy-subrc <> 0.

message i048.

stop.

endif.

*Delivery Dates Validation

at selection-screen on s_lfdat.

if s_lfdat is not initial.

select single wadat_ist from likp

into likp-wadat_ist

where wadat_ist in s_lfdat.

endif.

if sy-subrc <> 0.

message i052.

stop.

endif.

************************************************************************

I N I T I A L I Z A T I O N

************************************************************************

initialization.

perform initialze_events.

*----

*Start of Selections

*----

start-of-selection.

perform get_delv_data.

perform get_mast_data.

perform get_desc_data.

perform display_data.

end-of-selection.

&----

*& Form GET_DELV_DATA

&----

text

----

--> p1 text
<-- p2 text

----

form get_delv_data .

if c_delv = 'X' and c_return = ' '.

delv_ret_line-sign = 'I'.

delv_ret_line-option = 'EQ'.

delv_ret_line-low = 'LF'.

append delv_ret_line to delv_ret.

delv_ret_line-sign = 'I'.

delv_ret_line-option = 'EQ'.

delv_ret_line-low = 'LO'.

append delv_ret_line to delv_ret.

elseif c_delv = ' ' and c_return = 'X'.

delv_ret_line-sign = 'I'.

delv_ret_line-option = 'EQ'.

delv_ret_line-low = 'LR'.

append delv_ret_line to delv_ret.

elseif c_delv = 'X' and c_return = 'X'.

delv_ret_line-sign = 'I'.

delv_ret_line-option = 'EQ'.

delv_ret_line-low = 'LF'.

append delv_ret_line to delv_ret.

delv_ret_line-sign = 'I'.

delv_ret_line-option = 'EQ'.

delv_ret_line-low = 'LO'.

append delv_ret_line to delv_ret.

delv_ret_line-sign = 'I'.

delv_ret_line-option = 'EQ'.

delv_ret_line-low = 'LR'.

append delv_ret_line to delv_ret.

else.

message i051.

stop.

endif.

select a_{vbeln a}lfdat a_{kunag a}vkorg a_{vtwiv a}lfart b~vgpos

b_{posnr b}kcmeng b_{charg b}arktx b_{lfimg b}matnr b~ladgr

b_{uecha c}wbstk d_{mvgr1 d}mvgr2 d~mvgr3

into corresponding fields of table delv_datai

from ( ( likp as a

inner join lips as b on b_{vbeln = a}vbeln )

inner join vbuk as c on c_{vbeln = b}vbeln

inner join mvke as d on d_{matnr = b}matnr

and d_{vkorg = a}vkorg

and d_{vtweg = b}vtweg

)

where

a~kunag in ( select distinct kunnr from knvv

where vkbur in p_vkbur and bzirk in s_bzirk )

and a~kunag in s_kunnr

and b~matnr in s_matnr

and d~mvgr1 in s_mvgr1

and d~mvgr2 in s_mvgr2

and d~mvgr3 in s_mvgr3

and a~lfart in delv_ret

and a~lfdat in s_lfdat

and c~wbstk in ('C', ' ')

order by a_{vbeln b}vgpos b~posnr.

if sy-subrc ne 0.

message i042.

stop.

endif.

delete delv_datai where wbstk = ' ' and ( lfart = 'LF' or lfart = 'LO' ).

sort delv_datai.

endform. " GET_DELV_DATA

&----

*& Form GET_MAST_DATA

&----

text

----

--> p1 text
<-- p2 text

----

form get_mast_data .

clear delv_datai.

if not delv_datai[] is initial.

select kunnr name1 ort01 from kna1 into

table stop_data

for all entries in delv_datai

where kunnr = delv_datai-kunag and spras = sy-langu.

clear delv_datai.

select vkorg vtext from tvkot into

table sorg_data

for all entries in delv_datai

where vkorg = delv_datai-vkorg and spras = sy-langu.

clear delv_datai.

select ladgr vtext from tlgrt into

table motr_data

for all entries in delv_datai

where ladgr = delv_datai-ladgr and spras = sy-langu.

clear delv_datai.

select mvgr1 bezei from tvm1t

into table grp1_data

for all entries in delv_datai

where mvgr1 = delv_datai-mvgr1 and spras = sy-langu

and mvgr1 in s_mvgr1.

clear delv_datai.

select vkbur bezei from tvkbt

into table soff_data

where vkbur in p_vkbur and spras = sy-langu.

clear delv_datai.

select mvgr2 bezei from tvm2t into

table grp2_data

for all entries in delv_datai

where mvgr2 = delv_datai-mvgr2 and spras = sy-langu

and mvgr2 in s_mvgr2.

clear delv_datai.

select mvgr3 bezei from tvm3t into

table grp3_data

for all entries in delv_datai

where mvgr3 = delv_datai-mvgr3 and spras = sy-langu

and mvgr3 in s_mvgr3.

clear delv_datai.

select kunnr vkbur bzirk from knvv into

table coff_data

for all entries in delv_datai

where kunnr = delv_datai-kunag.

clear coff_data.

sort delv_datai.

clear delv_datai.

select bzirk bztxt from t171t into

table sdis_data

for all entries in coff_data

where bzirk = coff_data-bzirk.

clear delv_datai.

endif.

endform. " GET_MAST_DATA

&----

*& Form GET_DESC_DATA

&----

text

----

--> p1 text
<-- p2 text

----

form get_desc_data .

sort delv_datai.

sort grp1_data.

sort grp2_data.

sort grp3_data.

sort stop_data.

sort sorg_data.

sort sdis_data.

loop at delv_datai.

if delv_datai-lfart = 'LO' or delv_datai-lfart = 'LF'.

net_qty = net_qty + delv_datai-lfimg.

elseif delv_datai-lfart = 'LR'.

net_qty = net_qty - delv_datai-lfimg.

endif.

if not delv_datat[] is initial.

read table delv_datat with key vbeln = delv_datai-vbeln

kunag = delv_datai-kunag

vgpos = delv_datai-vgpos

matnr = delv_datai-matnr.

if sy-subrc = 0.

delv_datat-lfimg = delv_datai-lfimg + delv_datat-lfimg.
modify delv_datat index sy-tabix.

else.

delv_datat-vbeln = delv_datai-vbeln.

delv_datat-kunag = delv_datai-kunag.

delv_datat-vgpos = delv_datai-vgpos.

delv_datat-matnr = delv_datai-matnr.

delv_datat-lfimg = delv_datai-lfimg.

append delv_datat.

endif.

else.

delv_datat-vbeln = delv_datai-vbeln.

delv_datat-kunag = delv_datai-kunag.

delv_datat-vgpos = delv_datai-vgpos.

delv_datat-matnr = delv_datai-matnr.

delv_datat-lfimg = delv_datai-lfimg.

append delv_datat.

endif.

read table grp1_data with key mvgr1 = delv_datai-mvgr1 binary search.

if sy-subrc = 0.

delv_datai-bezei1 = grp1_data-bezei1.

endif.

read table grp2_data with key mvgr2 = delv_datai-mvgr2 binary search.

if sy-subrc = 0.

delv_datai-bezei2 = grp2_data-bezei2.

endif.

read table grp3_data with key mvgr3 = delv_datai-mvgr3 binary search.

if sy-subrc = 0.

delv_datai-bezei3 = grp3_data-bezei3.

endif.

read table stop_data with key kunag = delv_datai-kunag binary search.

if sy-subrc = 0.

delv_datai-name1 = stop_data-name1.

delv_datai-ort01 = stop_data-ort01.

endif.

read table sorg_data with key vkorg = delv_datai-vkorg binary search.

if sy-subrc = 0.

delv_datai-vtxts = sorg_data-vtext.

endif.

read table coff_data with key kunnr = delv_datai-kunag.

if sy-subrc = 0.

delv_datai-vkbur = coff_data-vkbur.

delv_datai-bzirk = coff_data-bzirk.

read table soff_data with key vkbur = coff_data-vkbur.

if sy-subrc = 0.

delv_datai-bezei4 = soff_data-bezei.

endif.

read table sdis_data with key bzirk = delv_datai-bzirk binary search.

if sy-subrc = 0.

delv_datai-bztxt = sdis_data-bztxt.

endif.

read table motr_data with key ladgr = delv_datai-ladgr.

if sy-subrc = 0.

delv_datai-vtxtt = motr_data-vtext.

endif.

clear t_vbeln.

t_vbeln = delv_datai-vbeln.

call function 'READ_TEXT'

exporting

CLIENT = SY-MANDT

id = '0006'

language = sy-langu

name = t_vbeln

object = 'VBBK'

tables

lines = hedd1[]

exceptions

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

others = 8.

if sy-subrc <> 0.

else.

read table hedd1 index 1.

if sy-subrc ne 0.

else.

delv_datai-docno = hedd1-tdline.

endif.

****************************

refresh hedd1.

call function 'READ_TEXT'

exporting

CLIENT = SY-MANDT

id = '0017'

language = sy-langu

name = t_vbeln

object = 'VBBK'

tables

lines = hedd1[]

exceptions

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

others = 8.

if sy-subrc <> 0.

else.

read table hedd1 index 1.

if sy-subrc ne 0.

else.

delv_datai-docno2 = hedd1-tdline.

endif.

*************************

******************************

clear t_vbeln.

t_vbeln = delv_datai-vbeln.

concatenate delv_datai-vbeln delv_datai-posnr

into t_vbeln.

refresh hedd1.

call function 'READ_TEXT'

exporting

CLIENT = SY-MANDT

id = '0002'

language = sy-langu

name = t_vbeln

object = 'VBBP'

tables

lines = hedd1[]

exceptions

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

wrong_access_to_archive = 7

others = 8.

if sy-subrc <> 0.

else.

read table hedd1 index 1.

if sy-subrc ne 0.

else.

delv_datai-docno3 = hedd1-tdline.

endif.

*************************

modify delv_datai.

clear : delv_datai, motr_data, stop_data, mgrp_data, soff_data,

sorg_data, grp1_data, grp2_data, grp3_data, coff_data,

delv_datat, sdis_data.

refresh hedd1.

endloop.

sort delv_datai.

sort delv_datat.

loop at delv_datat.

read table delv_datai with key vbeln = delv_datat-vbeln

kunag = delv_datat-kunag

posnr = delv_datat-vgpos

matnr = delv_datat-matnr.

if sy-subrc = 0.

delv_datai-lfimg = delv_datat-lfimg.

modify delv_datai index sy-tabix.

endif.

clear: delv_datai, delv_datat.

endloop.

sort delv_datai.

read table delv_datai index 1.

e_vbeln = delv_datai-vbeln.

clear delv_datai.

sort delv_datai.

loop at delv_datai.

if delv_datai-lfart = 'LR'.

delv_datai-lfimg = ( - delv_datai-lfimg ).

modify delv_datai.

endif.

modify delv_datai.

clear: delv_datai.

endloop.

loop at delv_datai.

delv_datai1-docno1 = delv_datai-docno.

delv_datai1-docno2 = delv_datai-docno2.

delv_datai1-docno3 = delv_datai-docno3.

delv_datai1-vbeln = delv_datai-vbeln.

delv_datai1-lfdat = delv_datai-lfdat.

delv_datai1-kunag = delv_datai-kunag.

delv_datai1-name1 = delv_datai-name1.

delv_datai1-ort01 = delv_datai-ort01.

delv_datai1-vkorg = delv_datai-vkorg.

delv_datai1-vtxts = delv_datai-vtxts.

delv_datai1-vkorg = delv_datai-vkorg.

delv_datai1-arktx = delv_datai-arktx.

delv_datai1-posnr = delv_datai-posnr.

delv_datai1-charg = delv_datai-charg.

delv_datai1-lfimg = delv_datai-lfimg.

delv_datai1-bzirk = delv_datai-bzirk.

delv_datai1-bztxt = delv_datai-bztxt.

delv_datai1-vkbur = delv_datai-vkbur.

delv_datai1-bezei1 = delv_datai-bezei1.

delv_datai1-bezei2 = delv_datai-bezei2.

delv_datai1-bezei3 = delv_datai-bezei3.

delv_datai1-bezei4 = delv_datai-bezei4.

delv_datai1-lfart = delv_datai-lfart.

delv_datai1-matnr = delv_datai-matnr.

translate delv_datai1-name1 to upper case.

translate delv_datai1-ort01 to upper case.

translate delv_datai1-matnr to upper case.

translate delv_datai1-bztxt to upper case.

translate delv_datai1-bezei1 to upper case.

translate delv_datai1-bezei2 to upper case.

translate delv_datai1-bezei3 to upper case.

translate delv_datai1-bezei4 to upper case.

translate delv_datai1-vtxts to upper case.

translate delv_datai1-arktx to upper case.

translate delv_datai1-docno1 to upper case.

translate delv_datai1-docno2 to upper case.

translate delv_datai1-docno3 to upper case.

append delv_datai1.

clear delv_datai.

clear delv_datai1.

endloop.

clear delv_datai.

clear delv_datai1.

endform. " GET_DESC_DATA

&----

*& Form TOP_OF_PAGE

&----

form top_of_page.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = fcat2

i_logo = 'ENJOYSAP_LOGO'

endform. "TOP_OF_PAGE

&----

*& Form display_data

&----

text

----

--> p1 text
<-- p2 text

----

form display_data .

data strr(60).

fcat3-typ = 'H'.

fcat3-info = 'Nuziveedu Seeds Limited'.

append fcat3 to fcat2.

clear fcat3.

fcat3-typ = 'S'.

concatenate 'Sales Office: ' tvkbt-bezei into strr separated by space.

fcat3-info = strr.

append fcat3 to fcat2.

clear fcat3.

fcat3-typ = 'S'.

fcat3-info = 'Market Outward Report'.

append fcat3 to fcat2.

clear fcat3.

fcat1-col_pos = 1.

fcat1-fieldname = 'VKBUR'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-outputlen = 8.

fcat1-seltext_m = 'Sales'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 2.

fcat1-fieldname = 'BEZEI4'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-outputlen = 20.

fcat1-seltext_m = 'Sales-Office-Desc'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 3.

fcat1-fieldname = 'VBELN'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-outputlen = 12.

fcat1-seltext_m = 'SAP D.C.No.'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 4.

fcat1-fieldname = 'DOCNO1'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-outputlen = 20.

fcat1-seltext_m = 'Delivery-Doc-No.'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 5.

fcat1-fieldname = 'LFDAT'.

fcat1-ref_tabname = 'LIKP'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 6.

fcat1-fieldname = 'POSNR'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-seltext_m = 'Item-No'.

fcat1-no_zero = 'X'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 7.

fcat1-fieldname = 'DOCNO2'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-outputlen = 25.

fcat1-seltext_m = 'Transporter-Name'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 8.

fcat1-fieldname = 'KUNAG'.

fcat1-outputlen = 10.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-seltext_m = 'Cust-No'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 9.

fcat1-fieldname = 'NAME1'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-outputlen = 35.

fcat1-seltext_m = 'Name-Of-Customer'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 10.

fcat1-fieldname = 'MATNR'.

fcat1-outputlen = 25.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-seltext_m = 'Material-No'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 11.

fcat1-fieldname = 'BEZEI2'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-outputlen = 11.

fcat1-seltext_m = 'Crop'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 12.

fcat1-fieldname = 'ARKTX'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-outputlen = 25.

fcat1-seltext_m = 'Variety'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 13.

fcat1-fieldname = 'CHARG'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-seltext_m = 'Lot-No.'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 14.

fcat1-fieldname = 'DOCNO3'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-seltext_m = 'No.Of Bags'.

fcat1-outputlen = 15.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 15.

fcat1-fieldname = 'LFIMG'.

fcat1-ref_tabname = 'LIPS'.

fcat1-no_zero = 'X'.

fcat1-do_sum = 'X'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 16.

fcat1-fieldname = 'BEZEI1'.

fcat1-ref_tabname = 'DELV_DATAI'.

fcat1-outputlen = 15.

fcat1-seltext_m = 'Crop-Type'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 17.

fcat1-fieldname = 'BEZEI3'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-outputlen = 8.

fcat1-seltext_m = 'Variety-Type'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 18.

fcat1-fieldname = 'BZIRK'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-outputlen = 10.

fcat1-seltext_m = 'SDist-Code'.

fcat1-emphasize = 'BLUE'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 19.

fcat1-fieldname = 'BZTXT'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-outputlen = 15.

fcat1-seltext_m = 'Sales-District'.

append fcat1 to fcat.

clear fcat1.

fcat1-col_pos = 20.

fcat1-fieldname = 'ORT01'.

fcat1-ref_tabname = 'DELV_DATAI1'.

fcat1-seltext_m = 'CITY'.

fcat1-outputlen = 15.

append fcat1 to fcat.

clear fcat1.

clear gt_sort1.

gt_sort1-fieldname = 'VKBUR'.

gt_sort1-tabname = 'DELV_DATAI1'.

gt_sort1-spos = 1.

gt_sort1-up = 'X'.

gt_sort1-subtot =' '.

append gt_sort1 to gt_sort.

clear gt_sort1.

gt_sort1-fieldname = 'BEZEI4'.

gt_sort1-tabname = 'DELV_DATAI1'.

gt_sort1-spos = 2.

gt_sort1-up = 'X'.

gt_sort1-subtot ='X'.

append gt_sort1 to gt_sort.

clear gt_sort1.

gt_sort1-fieldname = 'VBELN'.

gt_sort1-tabname = 'DELV_DATAI1'.

gt_sort1-spos = 3.

gt_sort1-up = 'X'.

gt_sort1-subtot ='X'.

append gt_sort1 to gt_sort.

clear gt_sort1.

gt_sort1-fieldname = 'KUNAG'.

gt_sort1-tabname = 'DELV_DATAI1'.

gt_sort1-spos = 4.

gt_sort1-up = 'X'.

gt_sort1-subtot =' '.

append gt_sort1 to gt_sort.

clear gt_sort1.

gt_sort1-fieldname = 'NAME1'.

gt_sort1-tabname = 'DELV_DATAI1'.

gt_sort1-spos = 5.

gt_sort1-up = 'X'.

gt_sort1-subtot =' '.

append gt_sort1 to gt_sort.

clear gt_sort1.

gt_sort1-fieldname = 'DOCNO2'.

gt_sort1-tabname = 'DELV_DATAI1'.

gt_sort1-spos = 6.

gt_sort1-up = 'X'.

gt_sort1-subtot =' '.

append gt_sort1 to gt_sort.

clear gt_sort1.

gt_sort1-fieldname = 'DOCNO1'.

gt_sort1-tabname = 'DELV_DATAI1'.

gt_sort1-spos = 7.

gt_sort1-up = 'X'.

gt_sort1-subtot =' '.

append gt_sort1 to gt_sort.

clear gt_sort1.

gt_sort1-fieldname = 'BZIRK'.

gt_sort1-tabname = 'DELV_DATAI1'.

gt_sort1-spos = 8.

gt_sort1-up = 'X'.

gt_sort1-subtot =' '.

append gt_sort1 to gt_sort.

clear gt_sort1.

gt_sort1-fieldname = 'BZTXT'.

gt_sort1-tabname = 'DELV_DATAI1'.

gt_sort1-spos = 9.

gt_sort1-up = 'X'.

gt_sort1-subtot =' '.

append gt_sort1 to gt_sort.

clear gt_sort1.

gt_sort1-fieldname = 'ORT01'.

gt_sort1-tabname = 'DELV_DATAI1'.

gt_sort1-spos = 10.

gt_sort1-up = 'X'.

gt_sort1-subtot =' '.

append gt_sort1 to gt_sort.

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = sy-repid

i_callback_top_of_page = 'TOP_OF_PAGE'

it_fieldcat = fcat

it_sort = gt_sort

it_events = it_event1

tables

t_outtab = delv_datai1

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_data

&----

*& Form INITIALZE_EVENTS

&----

text

----

--> p1 text
<-- p2 text

----

form initialze_events .

text_001 = 'ORDER TYPES'.

text_002 = 'SELECT YOUR OPTIONS'.

text_003 = 'SALES OFFICE ( SELECT SINGLE )'.

it_event-name = 'USER_COMMAND'.

it_event-form = 'USER_COMMAND'.

append it_event to it_event1.

endform.

&----

*& Form USER_COMMAND

&----

text

----

form user_command using r_ucomm type sy-ucomm

rs_selfield type slis_selfield.

if r_ucomm = '&IC1'.

if rs_selfield-fieldname = 'VBELN'.

if not rs_selfield-value is initial.

read table delv_datai1

index rs_selfield-tabindex.

set parameter id 'VL' field delv_datai1-vbeln.

call transaction 'VL03N' and skip first screen.

endif.

if r_ucomm = 'REFR'.

refresh : delv_datai, motr_data, stop_data, mgrp_data, soff_data,

sorg_data, grp1_data, grp2_data, grp3_data, coff_data,

delv_datai1, sdis_data.

clear : delv_datai, motr_data, stop_data, mgrp_data, soff_data,

sorg_data, grp1_data, grp2_data, grp3_data, coff_data,

delv_datai1, sdis_data.

perform get_delv_data.

perform get_mast_data.

perform get_desc_data.

perform display_data.

set screen 0.

endif.

endform.

Re: alv grid display

Former Member — Wed, 26 Jul 2006 21:34:32 GMT

Doesn't look like you have activated / registered the vents, you need to fill in the IT_EVENTS table.

Regards,

Ravi

Note : Please mark all the helpful answers