2007 Aug 16 11:19 AM
Hi ,
Can anyone send me the ALV Documentation and rough code...
Also how to send the alv output to external mail.
How to convert the ALV output as graphs.
Rewards points for best answers
Hi ,
Can anyone send me the ALV Documentation and rough code...
Also how to send the alv output to external mail.
How to convert the ALV output as graphs.
Rewards points for best answers
2007 Aug 16 11:20 AM
Simple ALV report
http://www.sapgenie.com/abap/controls/alvgrid.htm
http://wiki.ittoolbox.com/index.php/Code:Ultimate_ALV_table_toolbox
ALV
1. Please give me general info on ALV.
http://www.sapfans.com/forums/viewtopic.php?t=58286
http://www.sapfans.com/forums/viewtopic.php?t=76490
http://www.sapfans.com/forums/viewtopic.php?t=20591
http://www.sapfans.com/forums/viewtopic.php?t=66305 - this one discusses which way should you use - ABAP Objects calls or simple function modules.
2. How do I program double click in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=11601
http://www.sapfans.com/forums/viewtopic.php?t=23010
3. How do I add subtotals (I have problem to add them)...
http://www.sapfans.com/forums/viewtopic.php?t=20386
http://www.sapfans.com/forums/viewtopic.php?t=85191
http://www.sapfans.com/forums/viewtopic.php?t=88401
http://www.sapfans.com/forums/viewtopic.php?t=17335
4. How to add list heading like top-of-page in ABAP lists?
http://www.sapfans.com/forums/viewtopic.php?t=58775
http://www.sapfans.com/forums/viewtopic.php?t=60550
http://www.sapfans.com/forums/viewtopic.php?t=16629
5. How to print page number / total number of pages X/XX in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=29597 (no direct solution)
6. ALV printing problems. The favourite is: The first page shows the number of records selected but I don't need this.
http://www.sapfans.com/forums/viewtopic.php?t=64320
http://www.sapfans.com/forums/viewtopic.php?t=44477
7. How can I set the cell color in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=52107
8. How do I print a logo/graphics in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=81149
http://www.sapfans.com/forums/viewtopic.php?t=35498
http://www.sapfans.com/forums/viewtopic.php?t=5013
9. How do I create and use input-enabled fields in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=84933
http://www.sapfans.com/forums/viewtopic.php?t=69878
10. How can I use ALV for reports that are going to be run in background?
http://www.sapfans.com/forums/viewtopic.php?t=83243
http://www.sapfans.com/forums/viewtopic.php?t=19224
11. How can I display an icon in ALV? (Common requirement is traffic light icon).
http://www.sapfans.com/forums/viewtopic.php?t=79424
http://www.sapfans.com/forums/viewtopic.php?t=24512
12. How can I display a checkbox in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=88376
http://www.sapfans.com/forums/viewtopic.php?t=40968
http://www.sapfans.com/forums/viewtopic.php?t=6919
&----
*& Report Y_RK_REPORT_TASK2_ALV
*&
&----
*&
*&
&----
REPORT Y_RK_REPORT_TASK2_ALV NO STANDARD PAGE HEADING
LINE-SIZE 221
LINE-COUNT 40(5).
&----
*& I N I T I A L I Z A T I O N *
&----
TABLES: MARA,MARC,MARD,MBEW,MVKE,MAKT.
TYPE-POOLS : SLIS.
DATA: VT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV. " THIS INTERNAL TABLE
" CONTAINS THE FIELD
" ATTRIBUTES
DATA: BEGIN OF I_MARC OCCURS 0,
MATNR LIKE MARC-MATNR,
EKGRP LIKE MARC-EKGRP,
PSTAT LIKE MARC-PSTAT,
END OF I_MARC.
DATA: BEGIN OF I_MARD OCCURS 0,
MATNR LIKE MARD-MATNR,
LGORT LIKE MARD-LGORT,
ERSDA LIKE MARD-ERSDA,
LABST LIKE MARD-LABST,
WERKS LIKE MARD-WERKS,
END OF I_MARD.
DATA: BEGIN OF I_MBEW OCCURS 0,
MATNR LIKE MBEW-MATNR,
BWKEY LIKE MBEW-BWKEY,
STPRS LIKE MBEW-STPRS,
PEINH LIKE MBEW-PEINH,
END OF I_MBEW.
DATA: BEGIN OF I_MARA OCCURS 0,
MATNR LIKE MARA-MATNR,
MTART LIKE MARA-MTART,
MATKL LIKE MARA-MATKL,
MEINS LIKE MARA-MEINS,
MBRSH LIKE MARA-MBRSH,
END OF I_MARA.
DATA: BEGIN OF I_MVKE OCCURS 0,
MATNR LIKE MVKE-MATNR,
VKORG LIKE MVKE-VKORG,
VTWEG LIKE MVKE-VTWEG,
VRKME LIKE MVKE-VRKME,
END OF I_MVKE.
DATA: BEGIN OF I_MAKT OCCURS 0,
MATNR LIKE MAKT-MATNR,
SPRAS LIKE MAKT-SPRAS,
MAKTX LIKE MAKT-MAKTX,
END OF I_MAKT.
DATA: BEGIN OF I_OUT OCCURS 0,
MATNR LIKE MARC-MATNR,
MEINS LIKE MARA-MEINS,
MBRSH LIKE MARA-MBRSH,
MATKL LIKE MARA-MATKL,
MTART LIKE MARA-MTART,
WERKS LIKE MARD-WERKS,
EKGRP LIKE MARC-EKGRP,
PSTAT LIKE MARC-PSTAT,
LGORT LIKE MARD-LGORT,
ERSDA LIKE MARD-ERSDA,
LABST LIKE MARD-LABST,
BWKEY LIKE MBEW-BWKEY,
STPRS LIKE MBEW-STPRS,
PEINH LIKE MBEW-PEINH,
VKORG LIKE MVKE-VKORG,
VTWEG LIKE MVKE-VTWEG,
VRKME LIKE MVKE-VRKME,
SPRAS LIKE MAKT-SPRAS,
MAKTX LIKE MAKT-MAKTX,
END OF I_OUT.
&----
*& A T - S E L E C T I O N - S C R E E N *
&----
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-100.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR .
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-101.
PARAMETERS: P_WERKS LIKE MARD-WERKS OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B2.
&----
*& T O P - O F - P A G E *
&----
*TOP-OF-PAGE.
*
*WRITE: / SY-ULINE.
SKIP.
*WRITE : /84 'MATERIAL MASTER REPORT -- BASIC LIST',
SY-ULINE.
*WRITE: /2 'MATNR',
22 'MEINS',
26 'MBRSH',
31 'MATKL',
42 'MTART',
49 'WERKS',
57 'EKGRP',
66 'PSTAT',
76 'LGORT',
82 'ERSDA',
92 'LABST',
107 'BWKEY',
113 'STPRS',
126 'PEINH',
133 'VKORG',
139 'VRKME',
144 'VTWEG',
148 'SPRAS',
151 'MAKTX'.
*
**&----
**
**& E N D - O F - P A G E
**
**&----
**
*
*END-OF-PAGE.
WRITE: / SY-ULINE.
SKIP.
WRITE: /85 'PAGNO: ',SY-PAGNO,
SY-ULINE.
**&----
**
**& S T A R T - O F - S E L E C T I O N
**
**&----
**
START-OF-SELECTION.
SELECT MATNR EKGRP PSTAT FROM MARC INTO
CORRESPONDING FIELDS OF TABLE I_MARC
WHERE WERKS = P_WERKS AND MATNR IN S_MATNR.
SELECT MATNR MTART MBRSH MEINS MATKL FROM MARA INTO
CORRESPONDING FIELDS OF TABLE I_MARA FOR ALL ENTRIES IN I_MARC
WHERE MATNR EQ I_MARC-MATNR.
SELECT MATNR SPRAS MAKTX FROM MAKT INTO
CORRESPONDING FIELDS OF TABLE I_MAKT
FOR ALL ENTRIES IN I_MARC
WHERE MATNR = I_MARC-MATNR.
SELECT MATNR LGORT ERSDA LABST WERKS FROM MARD INTO
CORRESPONDING FIELDS OF TABLE
I_MARD FOR ALL ENTRIES IN I_MAKT
WHERE MATNR = I_MAKT-MATNR.
SELECT MATNR BWKEY STPRS PEINH FROM MBEW INTO TABLE I_MBEW
FOR ALL ENTRIES IN I_MARD
WHERE MATNR = I_MARD-MATNR.
SELECT MATNR VKORG VTWEG VRKME FROM MVKE INTO TABLE I_MVKE
FOR ALL ENTRIES IN I_MBEW
WHERE MATNR = I_MBEW-MATNR.
----
E N D -- O F -- S E L E C T I O N *
----
END-OF-SELECTION.
LOOP AT I_MARC.
MOVE I_MARC-MATNR TO I_OUT-MATNR.
MOVE I_MARC-EKGRP TO I_OUT-EKGRP.
MOVE I_MARC-PSTAT TO I_OUT-PSTAT.
READ TABLE I_MARA WITH KEY MATNR = I_MARC-MATNR.
MOVE I_MARA-MTART TO I_OUT-MTART.
MOVE I_MARA-MBRSH TO I_OUT-MBRSH.
MOVE I_MARA-MEINS TO I_OUT-MEINS.
MOVE I_MARA-MATKL TO I_OUT-MATKL.
READ TABLE I_MAKT WITH KEY MATNR = I_MARC-MATNR.
MOVE I_MAKT-SPRAS TO I_OUT-SPRAS.
MOVE I_MAKT-MAKTX TO I_OUT-MAKTX.
READ TABLE I_MARD WITH KEY MATNR = I_MARC-MATNR.
MOVE I_MARD-LGORT TO I_OUT-LGORT.
MOVE I_MARD-ERSDA TO I_OUT-ERSDA.
MOVE I_MARD-LABST TO I_OUT-LABST.
MOVE I_MARD-WERKS TO I_OUT-WERKS.
READ TABLE I_MBEW WITH KEY MATNR = I_MARC-MATNR.
MOVE I_MBEW-BWKEY TO I_OUT-BWKEY.
MOVE I_MBEW-STPRS TO I_OUT-STPRS.
MOVE I_MBEW-PEINH TO I_OUT-PEINH.
READ TABLE I_MVKE WITH KEY MATNR = I_MARC-MATNR.
MOVE I_MVKE-VKORG TO I_OUT-VKORG.
MOVE I_MVKE-VTWEG TO I_OUT-VTWEG.
MOVE I_MVKE-VRKME TO I_OUT-VRKME.
APPEND I_OUT.
CLEAR I_OUT.
ENDLOOP.
*LOOP AT I_OUT.
*
*FORMAT HOTSPOT ON.
*
*WRITE: /2 I_OUT-MATNR,
22 I_OUT-MEINS,
26 I_OUT-MBRSH,
31 I_OUT-MATKL,
42 I_OUT-MTART,
49 I_OUT-WERKS,
57 I_OUT-EKGRP,
66 I_OUT-PSTAT,
76 I_OUT-LGORT,
82 I_OUT-ERSDA,
92 I_OUT-LABST,
107 I_OUT-BWKEY,
113 I_OUT-STPRS,
126 I_OUT-PEINH,
133 I_OUT-VKORG,
139 I_OUT-VRKME,
144 I_OUT-VTWEG,
148 I_OUT-SPRAS,
151 I_OUT-MAKTX.
*
*HIDE I_OUT-MATNR.
*
*FORMAT HOTSPOT OFF.
*
*ENDLOOP.
************************************************************************
*CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
************************************************************************
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = 'Y_RK_REPORT_TASK2_ALV'
I_INTERNAL_TABNAME = 'I_OUT'
I_INCLNAME = 'Y_RK_REPORT_TASK2_ALV'
CHANGING
CT_FIELDCAT = VT_FIELDCAT.
IF SY-SUBRC <> 0.
ENDIF.
************************************************************************
*CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
************************************************************************
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = 'Y_RK_REPORT_TASK2_ALV'
IT_FIELDCAT = VT_FIELDCAT "INTERNAL TABLE WITH
" THE LIST OF ALL
"FIELDS AND THERE
"ATTRIBUTES WHICH ARE
"TO BE PRINTED
I_SAVE = 'A'
TABLES
T_OUTTAB = I_OUT.
IF SY-SUBRC <> 0.
ENDIF.
*&----
*
*& A T - L I N E - S E L E C T I O N
*
*&----
*
AT LINE-SELECTION.
*SET PF-STATUS 'SELECTION'.
CASE SY-LSIND.
WHEN 1.
SELECT MATNR LGORT ERSDA LABST WERKS FROM MARD
INTO TABLE I_MARD WHERE MATNR = I_OUT-MATNR
AND WERKS = P_WERKS.
IF SY-SUBRC = 0.
LOOP AT I_MARD.
WINDOW STARTING AT 20 60.
WRITE:/ 'MATERIAL NUMBER:'.
WRITE: I_MARD-MATNR.
WRITE:/ 'PLANT:'.
WRITE: I_MARD-WERKS.
WRITE:/ 'STORAGE LOCATION:' .
WRITE: I_MARD-LGORT.
SKIP.
ENDLOOP.
ELSE.
MESSAGE E000(1)
WITH 'PLEASE SELECT PLANT WHICH YOU GIVEN IN SELECTON'.
ENDIF.
CASE SY-UCOMM.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDCASE.
2007 Aug 16 11:37 AM
2007 Aug 16 11:40 AM
| User | Count |
|---|---|
| 4 | |
| 2 | |
| 2 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |