topic Re: problem in adding logo in a report in Application Development and Automation Discussions

problem in adding logo in a report

Former Member — Tue, 13 Feb 2007 07:04:17 GMT

Hi all

i copied standard report program for RFQs by RFQ Number - RM06EN00 in to Zprogram .

for this z program i have to add a logo ?

can u explaind the procedure in deatail how to add a logo to a report

please urgent requirement

thank you in advance

Re: problem in adding logo in a report

Former Member — Tue, 13 Feb 2007 07:11:04 GMT

Hi,

Check the link below:

http://www.sapdevelopment.co.uk/graphics/add_image.htm

It contains the sample code to Insert image onto SAP screen.

Hope this helps.

Reward if helpful.

Regards,

Sipra

Re: problem in adding logo in a report

Former Member — Tue, 13 Feb 2007 07:12:58 GMT

HI ramesh,

It is not possible to print logo in the ordinary report, but it can done through ALV.

Write the code in Top-of-page event in ALV, code for inserting the logo in ALV is below...

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

I_LOGO = 'ENJOYSAP_LOGO'

IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.

ENDFORM.

here is a link where u can load an image of your own..

http://www.sap-img.com/fu002.htm

hope this helps u a bit,

all the best,

regards,

sampath

mark helpful answers

Re: problem in adding logo in a report

Former Member — Tue, 13 Feb 2007 07:13:06 GMT

Ramesh,

for this you have to use ALV ,

See Program - DEMO_PICTURE_CONTROL

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

you may refer to this document to know all about pictures in SAP.

http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCCIIMAGE/BCCIIMAGE.pdf

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

Steps for uploading Logo :-:

1. Goto the transaction OAER

2. Enter the class name as 'PICTURES'

3. Enter the class type as 'OT'

4. Enter the object key as the name of the logo you wish to give

5. Execute

6. Then in the new screen select Standard doc. types in bottom window

Click on the Screen icon

Now, it will ask for the file path where you have to upload the logo

7. Now you can use this logo in REUSE_ALV_COMMENTARY_WRITE

Here you go !!

&----

*& Form TOP_OF_PAGE

&----

text

----

FORM F_TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_LISTHEADER

i_logo = Logo name

I_END_OF_LIST_GRID =

ENDFORM. "TOP_OF_PAGE

see the program demo RSDEMO_CUSTOM_CONTROL: here is loaded a picture.

Pls. Mark if useful

Re: problem in adding logo in a report

Former Member — Tue, 13 Feb 2007 07:13:15 GMT

The picture must be uploaded into transaction OAOR with classname 'PICTURES' AND TYPE 'OT' to work with ALV GRID Functions.

In the transaction OAOR, you should be able to insert your company Logo.

GOTO - OAOR (Business Document Navigator)
Give Class Name - PICTURES Class Type - OT..... then Execute
It will show you the list, then select ENJOYSAP_LOGO.
On that list, you will find one control with a "create" tab.
Click std. doc types.
Select SCREEN and double-click.
It will push FILE selection screen.
Select your company logo (.gif) and press OK.
It will ask for a description- for instance: "company logo".
It will let you know your doc has been stored successfully.
You can find your logo under ENJOYSAP_LOGO->Screen->company logo.
Just run your ALV program, you should find your company logo in place of the EnjoySAP logo.

Also Check the Program for Help

Please note Logo name remain the Same.

&----

*& Report ZQM_RE_PTB_ACTR

*& Atul Joshi

&----

REPORT zqm_re_ptb_actr.

TABLES : mara, t001w.

type-pools : slis.

Select-Screen **********************************************

SELECTION-SCREEN : BEGIN OF BLOCK blk1 WITH FRAME TITLE sel.

PARAMETERS : p_matnr LIKE mara-matnr OBLIGATORY MATCHCODE OBJECT zmakt_m, " Material number

p_werks LIKE t001w-werks OBLIGATORY, " Plant

p_charg LIKE mchb-charg . " Batch

SELECTION-SCREEN : END OF BLOCK blk1.

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

*==============ALV data declarations=================================

*DATA: IT_fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,

gd_layout TYPE slis_layout_alv,
gd_repid LIKE sy-repid,
w_repid type sy-repid.

data : it_fieldcat type table of slis_fieldcat_alv,

wa_fieldcat type slis_fieldcat_alv,

w_repid type sy-repid,

wa_layout type slis_layout_alv,

gt_events type slis_t_event,

g_events type slis_t_event,

header1 type slis_t_listheader,

top type slis_formname VALUE 'TOP_OF_PAGE_G',

l_events type slis_t_event,

header_l type slis_t_listheader,

top_l type slis_formname VALUE 'TOP_OF_PAGE',

g_top_of_list type slis_formname VALUE 'TOP_OF_LIST',

g_end_of_list type slis_formname VALUE 'END_OF_LIST',

gt_list_top_of_page type slis_t_listheader,

gs_layout type slis_layout_alv.

DATA: f2code LIKE sy-ucomm VALUE '&ETA'.

data Wa_str(500) type c.

data wA1(60) TYPE C.

data wA2(60) TYPE C.

data wA3(60) TYPE C.

data wA4(60) TYPE C.

Data : W1(60) type c.

Data : W2(60) type c.

Data : W3(60) type c.

Data : W4(60) type c.

Data : W5(60) type c.

*data l_cnt type i.

*data Wa_mblnr like qamb-mblnr.

*==============ALV data declarations=================================

initialization.

sel = 'Selection-Input'.

w_repid = sy-repid.

TYPES : BEGIN OF tp_help,

l_charg LIKE mchb-charg, " BATCH NUMBER

l_matnr LIKE mara-matnr, " MATERIAL MUNBER

END OF tp_help.

DATA : BEGIN OF it_mchb OCCURS 0,

matnr LIKE mchb-matnr,

charg LIKE mchb-charg,

clabs LIKE mchb-clabs,

END OF it_mchb.

DATA: field_tab LIKE dfies OCCURS 0 WITH HEADER LINE,

return_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF it_makt OCCURS 0,

matnr LIKE makt-matnr,

maktx LIKE makt-maktx,

END OF it_makt.

DATA: BEGIN OF it_mseg_p OCCURS 0,

mblnr LIKE mseg-mblnr,

matnr LIKE mseg-mblnr,
charg LIKE mseg-charg,

END OF it_mseg_p.

DATA: BEGIN OF it_mseg_t OCCURS 0,

mblnr LIKE mseg-mblnr,

matnr LIKE mseg-matnr,

charg LIKE mseg-charg,

END OF it_mseg_t.

DATA: BEGIN OF it_mseg_3 OCCURS 0,

mblnr LIKE mseg-mblnr,

matnr LIKE mseg-matnr,

charg LIKE mseg-charg,

END OF it_mseg_3.

DATA : IT_MSEG4 LIKE IT_MSEG_3 OCCURS 0 WITH HEADER LINE.

data : BEGIN OF it_qals OCCURS 0,

prueflos LIKE qals-prueflos,

matnr LIKE qals-matnr,

charg LIKE qals-charg,

merknr LIKE qamv-merknr,

mittelwert1 LIKE qamr-mittelwert,

mittelwert2 LIKE qamr-mittelwert,

mittelwert3 LIKE qamr-mittelwert,

mittelwert4 LIKE qamr-mittelwert,

END OF it_qals.

DATA : BEGIN OF it_qals_a OCCURS 0,

prueflos LIKE qals-prueflos,

matnr LIKE qals-matnr,

charg LIKE qals-charg,

merknr LIKE qamv-merknr,

mittelwert1 LIKE qamr-mittelwert,

mittelwert2 LIKE qamr-mittelwert,

mittelwert3 LIKE qamr-mittelwert,

mittelwert4 LIKE qamr-mittelwert,

END OF it_qals_a.

DATA : BEGIN OF it_qamv OCCURS 0 ,

prueflos LIKE qamv-prueflos,

merknr LIKE qamv-merknr,

verwmerkm LIKE qamv-verwmerkm,

kurztext LIKE qamv-kurztext,

dummy40 LIKE qamv-dummy40,

masseinhsw LIKE qamv-masseinhsw,

bmittelwert LIKE qamr-mittelwert,

amittelwert LIKE qamr-mittelwert,

matnr LIKE mseg-matnr,

charg LIKE mseg-charg,

Rework(20) type c,

END OF it_qamv.

DATA : BEGIN OF it_qamv_a OCCURS 0 ,

prueflos LIKE qamv-prueflos,

merknr LIKE qamv-merknr,

verwmerkm LIKE qamv-verwmerkm,

kurztext LIKE qamv-kurztext,

dummy40 LIKE qamv-dummy40,

masseinhsw LIKE qamv-masseinhsw,

bmittelwert LIKE qamr-mittelwert,

amittelwert LIKE qamr-mittelwert,

matnr LIKE mseg-matnr,

charg LIKE mseg-charg,

Rework(20) type c,

END OF it_qamv_a.

DATA : BEGIN OF it_qamr OCCURS 0,

prueflos LIKE qamr-prueflos,

merknr LIKE qamr-merknr,

mittelwert LIKE qamr-mittelwert,

END OF it_qamr.

DATA : BEGIN OF it_qamr_a OCCURS 0,

prueflos LIKE qamr-prueflos,

merknr LIKE qamr-merknr,

mittelwert LIKE qamr-mittelwert,

END OF it_qamr_a.

TYPES: BEGIN OF t_it_main_data ,

matnr LIKE mseg-matnr,

charg LIKE mseg-charg,

prueflos LIKE qamv-prueflos,

merknr LIKE qamv-merknr,

mittelwert1 TYPE p DECIMALS 3,

mittelwert2 TYPE p DECIMALS 3,

mittelwert3 TYPE p DECIMALS 3,

mittelwert4 TYPE p DECIMALS 3,

mittelwert5 TYPE p DECIMALS 3,

mittelwert6 TYPE p DECIMALS 3,

mittelwert7 TYPE p DECIMALS 3,

mittelwert8 TYPE p DECIMALS 3,

mittelwert9 TYPE p DECIMALS 3,

mittelwert10 TYPE p DECIMALS 3,

mittelwert11 TYPE p DECIMALS 3,

mittelwert12 TYPE p DECIMALS 3,

mittelwert13 TYPE p DECIMALS 3,

mittelwert14 TYPE p DECIMALS 3,

mittelwert15 TYPE p DECIMALS 3,

mittelwert16 TYPE p DECIMALS 3,

mittelwert17 TYPE p DECIMALS 3,

mittelwert18 TYPE p DECIMALS 3,

mittelwert19 TYPE p DECIMALS 3,

mittelwert20 TYPE p DECIMALS 3,

PRUF LIKE qamv-prueflos,

REWORK(20) type c,

END OF t_it_main_data.

DATA: it_main_data TYPE STANDARD TABLE OF t_it_main_data WITH HEADER LINE INITIAL SIZE 0.

DATA: it_main_data1 TYPE STANDARD TABLE OF t_it_main_data WITH HEADER LINE INITIAL SIZE 0.

DATA: wa_millelwert TYPE p DECIMALS 3.

DATA: wa_millelwert_a TYPE p DECIMALS 3.

data Wa_cnt type i.

data WA_PFLOS LIKE QAVE-PRUEFLOS.

Check or VAlidatation ****************************************

AT SELECTION-SCREEN ON BLOCK blk1.

For Material

SELECT SINGLE * FROM mara WHERE matnr = p_matnr.

IF sy-subrc <> 0.

MESSAGE e015(zmo) WITH 'Material No Not Exist ' p_matnr.

ENDIF.

For Plant

AT SELECTION-SCREEN ON p_werks.

SELECT SINGLE * FROM t001w WHERE werks = p_werks.

IF sy-subrc <> 0.

MESSAGE e015(zmo) WITH 'Plant Not Exist ' p_werks.

ENDIF.

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

*C F4 help values for the batch field based on the input for Material and Plant

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_charg.

REFRESH field_tab[].

REFRESH return_tab[].

field_tab-fieldname = 'CHARG'.

field_tab-tabname = 'MCHB'.

APPEND field_tab.

SELECT matnr charg clabs FROM mchb INTO CORRESPONDING FIELDS OF TABLE it_mchb

WHERE matnr = p_matnr

AND werks = p_werks. " AND clabs > 0.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = field_tab-fieldname

value_org = 'S'

TABLES

value_tab = it_mchb[]

return_tab = return_tab

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

IF sy-subrc = 0.

p_charg = return_tab-fieldval.

ENDIF.

F4 Help End

at selection-screen .

Select mblnr from mseg into corresponding fields of table it_mseg_p

where werks = p_werks and

matnr = p_matnr and

charg = p_charg and bwart = '261'.

if sy-subrc = 0.

else.

sET CURSOR FIELD p_werks.

sET CURSOR FIELD p_matnr.

sET CURSOR FIELD p_charg.

message e015(zmo) with 'No Data Exist For BATCH ' p_charg .

endif.

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

START-OF-SELECTION.

PERFORM data_fetch. " DATA FETCH FROM THE TABLES

PERFORM build_fieldcatalog. " To Down Load in ALV GRID

PERFORM Grid. " To Down Load in ALV GRID

PERFORM build_layout. " To Down Load in ALV GRID
PERFORM display_alv_report. " To Down Load in ALV GRID

END-OF-SELECTION.

&----

*& Form data_fetch

&----

text

----

--> p1 text
<-- p2 text

----

FORM data_fetch .

Before Aging *************************************************

SELECT mblnr FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_mseg_p

WHERE werks = p_werks AND

matnr = p_matnr AND

charg = p_charg AND bwart = '261'.

IF sy-subrc = 0.

ENDIF.

SELECT matnr charg FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_mseg_t

FOR ALL ENTRIES IN it_mseg_p WHERE

mblnr = it_mseg_p-mblnr AND bwart = '101'.

SELECT prueflos matnr charg FROM qals INTO CORRESPONDING FIELDS OF TABLE it_qals

FOR ALL ENTRIES IN it_mseg_t WHERE

matnr = it_mseg_t-matnr AND charg = it_mseg_t-charg.

SELECT prueflos merknr verwmerkm kurztext dummy40 masseinhsw FROM qamv

INTO CORRESPONDING FIELDS OF TABLE it_qamv

FOR ALL ENTRIES IN it_qals WHERE

prueflos = it_qals-prueflos.

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

CLEAR WA_PFLOS.

LOOP AT IT_QAMV.

WA_PFLOS = IT_QAMV-PRUEFLOS.

EXIT.

ENDLOOP.

loop at it_qamv WHERE PRUEFLOS = wA_PFLOS..

IF IT_QAMV-MERKNR = '0010'.

wA1 = IT_QAMV-DUMMY40 .

ELSEIF IT_QAMV-MERKNR = '0020'.

wA2 = IT_QAMV-DUMMY40 .

ELSEIF IT_QAMV-MERKNR = '0030'.

wA3 = IT_QAMV-DUMMY40 .

ELSEIF IT_QAMV-MERKNR = '0040'.

wA4 = IT_QAMV-DUMMY40 .

ENDIF.

endloop.

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

SELECT prueflos merknr mittelwert FROM qamr INTO CORRESPONDING FIELDS OF

TABLE it_qamr FOR ALL ENTRIES IN it_qamv

WHERE prueflos = it_qamv-prueflos AND merknr = it_qamv-merknr.

LOOP AT it_qamv.

READ TABLE it_qamr WITH KEY prueflos = it_qamv-prueflos merknr = it_qamv-merknr.

IF sy-subrc = 0.

CLEAR wa_millelwert.

wa_millelwert = it_qamr-mittelwert.

it_qamv-amittelwert = wa_millelwert.

MODIFY it_qamv.

ENDIF.

ENDLOOP.

LOOP AT it_qals.

READ TABLE it_qamv WITH KEY prueflos = it_qals-prueflos.

IF sy-subrc = 0.

it_main_data-matnr = it_qals-matnr.

it_main_data-charg = it_qals-charg.

it_main_data-prueflos = it_qals-prueflos.

LOOP AT it_qamv WHERE prueflos = it_qals-prueflos.

IF it_qamv-merknr = '0010'.

it_main_data-mittelwert1 = it_qamv-amittelwert.

ELSEIF it_qamv-merknr = '0020'.

it_main_data-mittelwert2 = it_qamv-amittelwert.

ELSEIF it_qamv-merknr = '0030'.

it_main_data-mittelwert3 = it_qamv-amittelwert.

ELSEIF it_qamv-merknr = '0040'.

it_main_data-mittelwert4 = it_qamv-amittelwert.

ENDIF.

ENDLOOP.

IF it_main_data-mittelwert1 <> 0 AND it_main_data-mittelwert4 <> 0.

it_main_data-mittelwert5 = ( it_main_data-mittelwert2 * '129.742' ) / ( it_main_data-mittelwert1 * it_main_data-mittelwert1 ).

it_main_data-mittelwert6 = ( '21.9435' * 100 ) / ( it_main_data-mittelwert4 * it_main_data-mittelwert1 * it_main_data-mittelwert1 ).

ENDIF.

APPEND it_main_data.

ENDIF.

ENDLOOP.

After Aging *************************************************

CLEAR it_mseg_p.

REFRESH it_mseg_p.

SELECT mblnr FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_mseg_p

FOR ALL ENTRIES IN it_mseg_t

WHERE werks = p_werks AND

matnr = it_mseg_t-matnr AND

charg = it_mseg_t-charg AND bwart = '261'.

SELECT matnr charg FROM mseg INTO CORRESPONDING FIELDS OF TABLE it_mseg_3

FOR ALL ENTRIES IN it_mseg_p WHERE

mblnr = it_mseg_p-mblnr AND bwart = '101'.

SELECT prueflos matnr charg FROM qals INTO CORRESPONDING FIELDS OF TABLE it_qals_a

FOR ALL ENTRIES IN it_mseg_3 WHERE

matnr = it_mseg_3-matnr AND charg = it_mseg_3-charg.

To TAke Data for REWORK ALSO ************************************************

MOVE IT_MSEG_3[] TO IT_MSEG4[].
sort it_mseg_3 by matnr charg.
LOOP AT IT_MSEG_3.
read table it_mseg4 with key matnr = it_mseg_3-matnr charg = it_mseg_3-charg.
clear l_cnt.
if sy-subrc = 0.
l_cnt = sy-dbcnt.
if l_cnt > 1.
Select single mblnr from qamb into Wa_mblnr where prueflos = .
if sy-subrc = 0.
endif.
endif.
endif.
ENDLOOP.

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

SELECT prueflos merknr verwmerkm kurztext dummy40 masseinhsw FROM qamv

INTO CORRESPONDING FIELDS OF TABLE it_qamv_a

FOR ALL ENTRIES IN it_qals_a WHERE

prueflos = it_qals_a-prueflos.

Collecting Text for Header of Report ******************

LOOP AT IT_QAMV_A.

WA_PFLOS = IT_QAMV_A-PRUEFLOS.

EXIT.

ENDLOOP.

w5 = 'SPEC.............Before Ageing...............After Ageing'.

loop at it_qamv_A WHERE PRUEFLOS = wA_PFLOS..

IF IT_QAMV_A-MERKNR = '0010'.

concatenate 'DIA.... :' wA1 IT_QAMV_A-DUMMY40 INTO W1.

ELSEIF IT_QAMV_A-MERKNR = '0020'.

concatenate 'BRK LD :' wA2 IT_QAMV_A-DUMMY40 INTO W2.

ELSEIF IT_QAMV_A-MERKNR = '0030'.

concatenate '% ELN :' wA3 IT_QAMV_A-DUMMY40 INTO W3.

ELSEIF IT_QAMV_A-MERKNR = '0040'.

concatenate 'RES.... :' wA4 IT_QAMV_A-DUMMY40 INTO W4.

ENDIF.

endloop.

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

SELECT prueflos merknr mittelwert FROM qamr INTO CORRESPONDING FIELDS OF

TABLE it_qamr_a FOR ALL ENTRIES IN it_qamv_a

WHERE prueflos = it_qamv_a-prueflos AND merknr = it_qamv_a-merknr.

sort it_qals_a by charg.

LOOP AT it_qamv_a.

READ TABLE it_qals_a WITH KEY prueflos = it_qamv_a-prueflos.

it_qamv_a-matnr = it_qals_a-matnr.

it_qamv_a-charg = it_qals_a-charg.

it_qamv_a-rework = sy-TABIX.

READ TABLE it_qamr_a WITH KEY prueflos = it_qamv_a-prueflos merknr = it_qamv_a-merknr.

IF sy-subrc = 0.

CLEAR wa_millelwert_a.

wa_millelwert_a = it_qamr_a-mittelwert.

it_qamv_a-amittelwert = wa_millelwert_a.

ENDIF.

MODIFY it_qamv_a.

ENDLOOP.

To Add Data for Different Rework *****************************

clear it_qaMV.

refresh it_qaMV.

it_qaMV[] = it_qaMV_a[].

it_main_Data1[] = it_main_data[].

Delete adjacent duplicates from it_qaMV comparing charg prueflos.

wa_cnt = 0.

SORT IT_QAMV BY CHARG.

loop at IT_main_data1.

wa_cnt = 0.

loop at it_qaMV where charg = it_main_Data1-charg .

wa_cnt = wa_cnt + 1.

if wa_cnt = 2.

it_main_data-charg = it_qaMV-charg.

it_main_data-rework = 'Re-Work'.

IT_MAIN_DATA-PRUF = IT_QAMV-PRUEFLOS.

IT_MAIN_dATA-mittelwert1 = 0.

IT_MAIN_dATA-mittelwert2 = 0.

IT_MAIN_dATA-mittelwert3 = 0.

IT_MAIN_dATA-mittelwert4 = 0.

IT_MAIN_dATA-mittelwert5 = 0.

IT_MAIN_dATA-mittelwert6 = 0.

IT_MAIN_dATA-mittelwert7 = 0.

IT_MAIN_dATA-mittelwert8 = 0.

IT_MAIN_dATA-mittelwert9 = 0.

IT_MAIN_dATA-mittelwert10 = 0.

APPEND IT_MAIN_DATA.

CLEAR IT_MAIN_DATA.

ELSEIF WA_CNT = 1.

READ TABLE IT_MAIN_dATA WITH KEY CHARG = IT_QAMV-CHARG.

IF SY-SUBRC = 0.

IT_MAIN_DATA-PRUF = IT_QAMV-PRUEFLOS.

MODIFY IT_MAIN_DATA INDEX SY-TABIX.

ENDIF.

endif.

endloop.

sort it_qamv_a by charg prueflos.

SORT IT_MAIN_DATA BY CHARG merknr .

LOOP AT it_main_data .

LOOP AT it_qamv_a WHERE charg = it_main_data-charg AND PRUEFLOS = IT_MAIN_dATA-PRUF.

IF it_qamv_a-merknr = '0010'.

it_main_data-mittelwert11 = it_qamv_a-amittelwert.

ELSEIF it_qamv_a-merknr = '0020'.

it_main_data-mittelwert12 = it_qamv_a-amittelwert.

ELSEIF it_qamv_a-merknr = '0030'.

it_main_data-mittelwert13 = it_qamv_a-amittelwert.

ELSEIF it_qamv_a-merknr = '0040'.

it_main_data-mittelwert14 = it_qamv_a-amittelwert.

ENDIF.

ENDLOOP.

IF it_main_data-mittelwert11 <> 0 AND it_main_data-mittelwert14 <> 0.

it_main_data-mittelwert15 = ( it_main_data-mittelwert12 * '129.742' ) / ( it_main_data-mittelwert11 * it_main_data-mittelwert11 )..

it_main_data-mittelwert16 = ( '21.9435' * 100 ) / ( it_main_data-mittelwert14 * it_main_data-mittelwert11 * it_main_data-mittelwert11 )..

it_main_data-mittelwert17 = ( it_main_data-mittelwert15 - it_main_data-mittelwert5 ).

it_main_data-mittelwert18 = ( it_main_data-mittelwert16 - it_main_data-mittelwert6 ).

ENDIF.

MODIFY it_main_data.

REFRESH IT_MAIN_DATA.

ENDLOOP.

ENDFORM. " data_fetch

&----

*& Form build_fieldcatalog

&----

text

----

--> p1 text
<-- p2 text

----

FORM build_fieldcatalog .

wa_fieldcat-fieldname = 'CHARG'.

wa_fieldcat-seltext_m = 'Batch ID'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '2'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT1'.

wa_fieldcat-seltext_m = 'DIA(in MM) BA '.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-emphasize = 'X'.

wa_fieldcat-col_pos = '3'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT2'.

wa_fieldcat-seltext_m = 'BRL (in KN) BA'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-emphasize = 'X'.

wa_fieldcat-col_pos = '4'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT5'.

wa_fieldcat-seltext_m = 'UTS(kg/mm2)BA'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '5'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT3'.

wa_fieldcat-seltext_m = 'ELN (in %) BA'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '6'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT4'.

wa_fieldcat-seltext_m = 'RES (in OHM/KM) BA'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '7'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT6'.

wa_fieldcat-seltext_m = '% COND BA'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '8'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT5'.
wa_fieldcat-seltext_m = 'Para 5'.
wa_fieldcat-col_pos = '7'.
wa_fieldcat-emphasize = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT6'.
wa_fieldcat-seltext_m = 'Para 6'.
wa_fieldcat-col_pos = '8'.
wa_fieldcat-emphasize = 'X'.
APPEND wa_fieldcat TO wa_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT7'.
wa_fieldcat-seltext_m = 'Para 7'.
wa_fieldcat-col_pos = '9'.
wa_fieldcat-emphasize = 'X'.
APPEND wa_fieldcat TO wa_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT8'.
wa_fieldcat-seltext_m = 'Para 8'.
wa_fieldcat-col_pos = '10'.
wa_fieldcat-emphasize = 'X'.
APPEND wa_fieldcat TO wa_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT9'.
wa_fieldcat-seltext_m = 'Para 9'.
wa_fieldcat-col_pos = '11'.
wa_fieldcat-emphasize = 'X'.
APPEND wa_fieldcat TO wa_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT10'.
wa_fieldcat-seltext_m = 'Para 10'.
wa_fieldcat-col_pos = '12'.
wa_fieldcat-emphasize = 'X'.
APPEND wa_fieldcat TO wa_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT11'.

wa_fieldcat-seltext_m = 'DIA(in MM) AG '.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '13'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT12'.

wa_fieldcat-seltext_m = 'BRL (in KN) AG'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '14'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT15'.

wa_fieldcat-seltext_m = 'UTS(kg/mm2) AG'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '15'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT13'.

wa_fieldcat-seltext_m = 'ELN (in %) AG'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '16'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT14'.

wa_fieldcat-seltext_m = 'RES (in OHM/KM) AG'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '17'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT16'.

wa_fieldcat-seltext_m = '% COND. AG'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '18'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'REWORK'.

wa_fieldcat-seltext_m = 'Re-Work'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '19'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT17'.

wa_fieldcat-seltext_m = ' DIFF IN UTS.(kg/mm2)'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-col_pos = '20'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT18'.

wa_fieldcat-seltext_m = 'Diff. in % COND'.

wa_fieldcat-TABNAME = 'IT_MAIN_DATA'.

wa_fieldcat-key = 'X'.

wa_fieldcat-just = 'C'.

wa_fieldcat-outputlen = 15.

wa_fieldcat-col_pos = '21'.

wa_fieldcat-emphasize = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT16'.
wa_fieldcat-seltext_m = 'Para 6'.
wa_fieldcat-col_pos = '18'.
wa_fieldcat-emphasize = 'X'.
APPEND wa_fieldcat TO wa_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT17'.
wa_fieldcat-seltext_m = 'Para 7'.
wa_fieldcat-col_pos = '19'.
wa_fieldcat-emphasize = 'X'.
APPEND wa_fieldcat TO wa_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT18'.
wa_fieldcat-seltext_m = 'Para 8'.
wa_fieldcat-col_pos = '19'.
wa_fieldcat-emphasize = 'X'.
APPEND wa_fieldcat TO wa_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT19'.
wa_fieldcat-seltext_m = 'Para 9'.
wa_fieldcat-col_pos = '19'.
wa_fieldcat-emphasize = 'X'.
APPEND wa_fieldcat TO wa_fieldcat.
CLEAR wa_fieldcat.

wa_fieldcat-fieldname = 'MITTELWERT20'.
wa_fieldcat-seltext_m = 'Para 10'.
wa_fieldcat-col_pos = '20'.
wa_fieldcat-emphasize = 'X'.
APPEND wa_fieldcat TO wa_fieldcat.
CLEAR wa_fieldcat.

ENDFORM. "build_wa_fieldcat

&----

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

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = 'p_header1'
I_CALLBACK_HTML_TOP_OF_PAGE = 'p_header1'
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '

I_GRID_TITLE = 'AGEING CORRELATION REPORT'

I_GRID_SETTINGS =
IS_LAYOUT =

IT_FIELDCAT = IT_FIELDCAT

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = 'A'
IS_VARIANT =

IT_EVENTS = g_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 = it_main_Data

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 grid

&----

text

----

--> p1 text
<-- p2 text

----

FORM grid .

PERFORM event USING g_events.

PERFORM header USING header1.

PERFORM grid_display.

ENDFORM. " grid

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

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

&----

*& Form event

&----

text

----

-->P_eventS text

----

FORM event USING p_events TYPE slis_t_event.

DATA: wa_event TYPE slis_alv_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = p_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.

READ TABLE p_events INTO wa_event WITH KEY name = slis_ev_top_of_page.

wa_event-form = top.

APPEND wa_event TO p_events.

CLEAR wa_event.

ENDFORM. " event

&----

*& Form HEADER

&----

text

----

-->P_HEADER1 text

----

FORM header USING p_header1 TYPE slis_t_listheader.

DATA:wa_header TYPE slis_listheader,

text(150) TYPE c,

t1(50) TYPE c,

t2(50) TYPE c,

t3(50) TYPE c,

text_1(500).

wa_header-typ = 'H'.

WRITE: 'AGING CORRELATION REPORT' TO text.

wa_header-info = text.

APPEND wa_header TO p_header1.

CLEAR wa_header.

clear text.

concatenate 'Material No :-' p_matnr ' And Charg :-' p_charg into text.

wa_header-typ = 'S'.

WRITE : text TO text_1+1.

wa_header-info = text_1.

APPEND wa_header TO p_header1.

CLEAR wa_header.

wa_header-typ = 'S'.

WRITE : W5 To text_1.

wa_header-info = text_1.

APPEND wa_header TO p_header1.

CLEAR wa_header.

wa_header-typ = 'S'.

WRITE : W1 To text_1.

wa_header-info = text_1.

APPEND wa_header TO p_header1.

CLEAR wa_header.

wa_header-typ = 'S'.

WRITE : W2 To text_1.

wa_header-info = text_1.

APPEND wa_header TO p_header1.

CLEAR wa_header.

wa_header-typ = 'S'.

WRITE : W3 To text_1.

wa_header-info = text_1.

APPEND wa_header TO p_header1.

CLEAR wa_header.

wa_header-typ = 'S'.

WRITE : W4 To text_1.

wa_header-info = text_1.

APPEND wa_header TO p_header1.

CLEAR wa_header.

*WRITE 😕 W5.

*WRITE 😕 W1.

*WRITE 😕 W2.

*WRITE 😕 W3.

*WRITE 😕 W4.

ENDFORM. " HEADER

&----

*& Form TOP-OF-PAGE

&----

text

----

--> p1 text
<-- p2 text

----

FORM top_of_page_g .

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = header1

i_logo = 'ZSTERLITE_SYNERGY'.

i_logo = 'ENJOY_SAP'.

'C:\Documents and Settings\as\My Documents\My Pictures\UNTITLED.BMP'
I_END_OF_LIST_GRID =.

ENDFORM. " TOP-OF-PAGE

&----

*& Form list

&----

text

----

--> p1 text
<-- p2 text

----

FORM list .

PERFORM layout_init USING gs_layout.

PERFORM eventtab_build CHANGING gt_events.

PERFORM comment_build CHANGING gt_list_top_of_page.

PERFORM list_display.

ENDFORM. " list

&----

*& Form LAYOUT_INIT

&----

text

----

-->P_GS_LAYOUT text

----

FORM LAYOUT_INIT USING RS_LAYOUT TYPE SLIS_LAYOUT_ALV.

*"Build layout for list display

RS_LAYOUT-DETAIL_POPUP = 'X'.

ENDFORM. " LAYOUT_INIT

&----

*& Form EVENTTAB_BUILD

&----

text

----

-->P_GT_EVENTS[] text

----

*FORM EVENTTAB_BUILD USING RT_EVENTS TYPE SLIS_T_EVENT.

**"Registration of events to happen during list display

DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = RT_EVENTS.
READ TABLE RT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
INTO LS_EVENT.
IF SY-SUBRC = 0.
MOVE top_l TO LS_EVENT-FORM.
APPEND LS_EVENT TO RT_EVENTS.
ENDIF.

form eventtab_build changing lt_events type slis_t_event.

constants:

gc_formname_top_of_page type slis_formname value 'TOP_OF_PAGE'.

*GC_FORMNAME_END_OF_PAGE TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE'.

data: ls_event type slis_alv_event.

call function 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = lt_events.

read table lt_events with key name = slis_ev_top_of_page

into ls_event.

if sy-subrc = 0.

move gc_formname_top_of_page to ls_event-form.

append ls_event to lt_events.

endif.

define END_OF_PAGE event
READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_END_OF_PAGE
INTO LS_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_END_OF_PAGE TO LS_EVENT-FORM.
APPEND LS_EVENT TO LT_EVENTS.
ENDIF.

*endform.

ENDFORM. " EVENTTAB_BUILD

&----

*& Form COMMENT_BUILD

&----

text

----

-->P_GT_LIST_TOP_OF_PAGE[] text

----

*FORM COMMENT_BUILD USING LT_TOP_OF_PAGE TYPE

SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER.

LIST HEADING LINE: TYPE H

CLEAR LS_LINE.
LS_LINE-TYP = 'H'.

LS_LINE-KEY: NOT USED FOR THIS TYPE

LS_LINE-INFO = TEXT-100.
APPEND LS_LINE TO LT_TOP_OF_PAGE.

STATUS LINE: TYPE S

CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = TEXT-101.
LS_LINE-INFO = TEXT-102.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
LS_LINE-KEY = TEXT-103.
LS_LINE-INFO = TEXT-104.
APPEND LS_LINE TO LT_TOP_OF_PAGE.

ACTION LINE: TYPE A

CLEAR LS_LINE.
LS_LINE-TYP = 'A'.

LS_LINE-KEY: NOT USED FOR THIS TYPE

LS_LINE-INFO = TEXT-105.
APPEND LS_LINE TO LT_TOP_OF_PAGE.

form comment_build changing gt_top_of_page type slis_t_listheader.

data: gs_line type slis_listheader.

clear gs_line.

gs_line-typ = 'H'.

gs_line-info = 'HEADER 1'.

append gs_line to gt_top_of_page.

clear gs_line.

gs_line-typ = 'S'.

gs_line-key = 'STATUS 1'.

gs_line-info = 'INFO 1'.

append gs_line to gt_top_of_page.

gs_line-key = 'STATUS 2'.

gs_line-info = 'INFO 2'.

append gs_line to gt_top_of_page.

CLEAR GS_LINE.
GS_LINE-TYP = 'A'.

GS_LINE-INFO = 'ACTION'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.

*endform.

ENDFORM. " COMMENT_BUILD

*&----

**& Form TOP-OF-PAGE

*&----

text

*----

--> p1 text
<-- p2 text

*----

**FORM top_of_page .

*FORM TOP_OF_PAGE_L.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING

i_logo = 'ENJOYSAP_LOGO'

IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.

*ENDFORM. " TOP-OF-PAGE

form top_of_page_L.

call function 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = gt_list_top_of_page.

write: sy-datum, 'Page No', sy-pagno left-justified.

endform. "top_of_page_L

&----

*& Form end_of_page

&----

text

----

form end_of_page.

write at (sy-linsz) sy-pagno centered.

endform. "end_of_page

&----

*& Form list_display

&----

text

----

--> p1 text
<-- p2 text

----

FORM list_display .

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'w_repid'

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =

IS_LAYOUT = gs_layout

IT_FIELDCAT = it_fieldcat

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =

I_DEFAULT = 'X'

I_SAVE = 'A'

IS_VARIANT =

IT_EVENTS = l_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
IR_SALV_LIST_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = it_main_data

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

Re: problem in adding logo in a report

Former Member — Tue, 13 Feb 2007 07:19:38 GMT

Hello ,

<b>http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCCIIMAGE/BCCIIMAGE.pdf</b>

Also check demo program:<b>RSDEMO_PICTURE_CONTROL</b>

regards,

Beejal

**Reward if this helps

Re: problem in adding logo in a report

Former Member — Tue, 13 Feb 2007 07:21:37 GMT

to add logo

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

The picture must be uploaded into transaction OAOR with classname 'PICTURES' AND TYPE 'OT' to work with ALV GRID Functions.

In the transaction OAOR, you should be able to insert your company Logo.

GOTO - OAOR (Business Document Navigator)
Give Class Name - PICTURES Class Type - OT..... then Execute
It will show you the list, then select ENJOYSAP_LOGO.
On that list, you will find one control with a "create" tab.
Click std. doc types.
Select SCREEN and double-click.
It will push FILE selection screen.
Select your company logo (.gif) and press OK.
It will ask for a description- for instance: "company logo".
It will let you know your doc has been stored successfully.
You can find your logo under ENJOYSAP_LOGO->Screen->company logo.
Just run your ALV program, you should find your company logo in place of the EnjoySAP logo.

and in alv report

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_header

I_LOGO = 'COMP_LOGO'

I_END_OF_LIST_GRID = .