ALV REPORTS

Former Member — Fri, 26 Dec 2008 04:15:52 GMT

as i am doing alv report and i have to add excise and vat fields in respect to po in my reports can any body help me by giving some related reports for the same scenario.I am sending my program to clear my doubts.


&---------------------------------------------------------------------
*& Report ZFA_GRS
*&
&---------------------------------------------------------------------
*&
*&RD1K903618
&---------------------------------------------------------------------

REPORT ZFA_GRS.
TABLES : ekpo,EKKO, t001,MSEG,MKPF,komk,komp.
TYPE-POOLS : SLIS.
DATA : IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FCAT TYPE SLIS_FIELDCAT_ALV.

DATA : IT_SORT TYPE SLIS_T_SORTINFO_ALV,
WA_SORT TYPE SLIS_SORTINFO_ALV.

DATA: GT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
LS_LINE TYPE SLIS_LISTHEADER.
DATA : BEGIN OF IT_FINAL OCCURS 0,
LIFNR LIKE MSEG-LIFNR,
MATNR LIKE MSEG-MATNR,
MBLNR LIKE MSEG-MBLNR,
BELNR LIKE BSEG-BELNR,
MAKTX LIKE MAKT-MAKTX,
MENGE LIKE MSEG-MENGE,
MEINS LIKE MSEG-MEINS,
BWART LIKE MSEG-BWART,
EBELN like MSEG-EBELN,
EBELP LIKE MSEG-EBELP,
DMBTR like BSEG-DMBTR ,
EXAMT TYPE DMBTR,
WRBTR LIKE BSEG-WRBTR,

EXAMT LIKE BSEG-WRBTR, 
HWSTE LIKE BSET-HWSTE,
MWSKZ LIKE BSET-MWSKZ,
KNUMH LIKE BSET-KNUMH,
HKONT LIKE BSET-HKONT,
NETVALUE type DMBTR,
VATAMT TYPE DMBTR,
TOTAMT TYPE DMBTR,
MWSBP LIKE KOMP-MWSBP,
EXBED LIKE J_1IEXCDTL-EXBED,
EXSED LIKE J_1IEXCDTL-EXSED,
EXAED LIKE J_1IEXCDTL-EXAED,
CESS LIKE J_1IEXCDTL-CESS,
ECS LIKE J_1IEXCDTL-ECS,
EXADDTAX1 LIKE J_1IEXCDTL-EXADDTAX1,
VAT TYPE KONV-KWERT,
UNIT TYPE EKPO-MEINS,
TOTQNT TYPE MSEG-MENGE,
NETWR TYPE EKPO-NETWR,
PEINH LIKE EKPO-PEINH,
NETPR LIKE EKPO-NETPR,
menge1 like ekpo-menge,
TOTEXC TYPE DMBTR,
TOTVAT TYPE DMBTR,
TOTVAL TYPE DMBTR,
END OF IT_FINAL.

DATA : WA_FINAL LIKE IT_FINAL OCCURS 0 WITH HEADER LINE, 
W_J_1IEXCDTL LIKE STANDARD TABLE OF J_1IEXCDTL WITH HEADER LINE. 
DATA : WA_FINAL LIKE IT_FINAL OCCURS 0 WITH HEADER LINE.


SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP 1.


SELECT-OPTIONS: P_MBLNR FOR MSEG-MBLNR .


SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN : END OF BLOCK B1.

SELECT MATNR MBLNR MENGE MEINS BWART EBELN EBELP DMBTR FROM MSEG INTO CORRESPONDING FIELDS OF TABLE IT_FINAL WHERE MBLNR IN P_MBLNR AND
( BWART = '101' OR BWART = '102' OR
BWART = '113' OR BWART = '114' ) .






*DATA : TOTAMT TYPE DMBTR,


NETVAL TYPE DMBTR, 
NETVALUE TYPE DMBTR, 
NETWR LIKE EKPO-NETWR, 
EXAMT TYPE DMBTR. 

SORT IT_FINAL BY MBLNR.
LOOP AT IT_FINAL.

ENDLOOP.
LOOP AT IT_FINAL INTO WA_FINAL.

SELECT SINGLE MAKTX FROM MAKT INTO WA_FINAL-MAKTX WHERE MATNR = WA_FINAL-MATNR.
SELECT single DMBTR from BSEG into wa_final-DMBTR where EBELN = wa_final-EBELN .
SELECT SINGLE WRBTR FROM BSEG INTO WA_FINAL-WRBTR WHERE EBELN = WA_FINAL-EBELN.
*SELECT HWSTE FROM BSET INTO WA_FINAL-HWSTE .
*WA_FINAL-WRBTR = W_J_1IEXCDTL-EXBED + W_J_1IEXCDTL-EXSED + W_J_1IEXCDTL-EXAED + W_J_1IEXCDTL-CESS + W_J_1IEXCDTL-ECS + W_J_1IEXCDTL-EXADDTAX1.
*wa_final-EXAMT = Wa_final-EXBED + wa_final-EXSED + Wa_final-EXAED + Wa_final-CESS + Wa_final-ECS + Wa_final-EXADDTAX1.


SELECT SINGLE BELNR FROM BSEG INTO WA_FINAL-BELNR WHERE EBELN = WA_FINAL-EBELN.
MODIFY IT_FINAL FROM WA_FINAL TRANSPORTING BELNR
MAKTX
MENGE
MEINS
BWART
EBELN
EBELP
DMBTR
WRBTR
HWSTE
MWSKZ
HKONT
KNUMH
LIFNR
NETVAL 
NETVALUE 
EXAMT
VATAMT
TOTAMT
MWSBP
VAT
UNIT
TOTQNT
TOTNVL 
TOTEXC
TOTVAT
TOTVAL
PEINH
netwr
netpr
.

*ENDSELECT.
ENDLOOP.

PERFORM GEN_TOP.
*TOTAMT = NETVAL.
WA_FCAT-COL_POS = 1.
WA_FCAT-FIELDNAME = 'MATNR'.
WA_FCAT-SELTEXT_M = 'MATERIAL NO.'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = 18.
APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = 2.
WA_FCAT-FIELDNAME = 'MBLNR'.
WA_FCAT-SELTEXT_M = 'MAT.DOC NO'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = 15.
APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = 3.
WA_FCAT-FIELDNAME = 'BELNR'.
WA_FCAT-SELTEXT_M = 'INVOICE DOC NO'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = 15.
APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = 4.
WA_FCAT-FIELDNAME = 'EBELN'.
WA_FCAT-SELTEXT_M = 'PO DOC NO.'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = 12.
APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = 5.
WA_FCAT-FIELDNAME = 'MAKTX'.
WA_FCAT-SELTEXT_M = 'DESCRIPTION'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = 35.
APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = 6.
WA_FCAT-FIELDNAME = 'MENGE'.
WA_FCAT-SELTEXT_M = 'QUANTITY'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = 8.
APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = 7.
WA_FCAT-FIELDNAME = 'MEINS'.
WA_FCAT-SELTEXT_M = 'UNIT'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = 5.
APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = 8.
WA_FCAT-FIELDNAME = 'BWART'.
WA_FCAT-SELTEXT_M = 'MOVTYPE.'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = 8.
APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = 9.
WA_FCAT-FIELDNAME = 'DMBTR'.
WA_FCAT-SELTEXT_M = 'NETVALUE'.
WA_FCAT-TABNAME = 'IT_FINAL'.
WA_FCAT-OUTPUTLEN = 12.
APPEND WA_FCAT TO IT_FCAT.

*WA_FCAT-COL_POS = 9.
*WA_FCAT-FIELDNAME = 'EBELP'.
*WA_FCAT-SELTEXT_M = 'LINE ITEM.'.
*WA_FCAT-TABNAME = 'IT_FINAL'.
*WA_FCAT-OUTPUTLEN = 12.
*APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = 10.
WA_FCAT-FIELDNAME = 'WRBTR'.
WA_FCAT-SELTEXT_M = 'EXCISE'.
WA_FCAT-TABNAME = 'IT_FINAL'.
*WA_FCAT-DO_SUM = 'X'.
WA_FCAT-OUTPUTLEN = 15.
APPEND WA_FCAT TO IT_FCAT.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' ' 
I_BYPASSING_BUFFER = ' ' 
I_BUFFER_ACTIVE = ' ' 
I_CALLBACK_PROGRAM = SY-CPROG

I_CALLBACK_PF_STATUS_SET = ' ' 
I_CALLBACK_USER_COMMAND = ' ' 
I_CALLBACK_TOP_OF_PAGE = 'ALV_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 = IT_FCAT

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

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 
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_FINAL

EXCEPTIONS 
PROGRAM_ERROR = 1 
OTHERS = 2 
.
IF SY-SUBRC 0.

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

FORM ALV_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
I_LOGO = 'ZROHALOGO'
IT_LIST_COMMENTARY = GT_TOP_OF_PAGE.


ENDFORM. "alv_top_of_page
&---------------------------------------------------------------------
*& Form GEN_TOP
&---------------------------------------------------------------------
text 
----------------------------------------------------------------------
--> p1 text 
<-- p2 text 
----------------------------------------------------------------------
FORM GEN_TOP .
DATA: INFO(60),
B_DT(10), E_DT(10).

REFRESH : GT_TOP_OF_PAGE.
CLEAR : LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-INFO = ' ROHA DYECHEM PVT LTD'.
APPEND LS_LINE TO GT_TOP_OF_PAGE.
CLEAR : LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-KEY = 'Address'. 
LS_LINE-INFO = 
APPEND LS_LINE TO GT_TOP_OF_PAGE.
CLEAR : LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-INFO = 
APPEND LS_LINE TO GT_TOP_OF_PAGE.
CLEAR : LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-INFO = 
APPEND LS_LINE TO GT_TOP_OF_PAGE.
CLEAR : LS_LINE.

CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = 'Report Name'.
LS_LINE-INFO = 'NEW GRS REPORT'.
APPEND LS_LINE TO GT_TOP_OF_PAGE.

CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = 'T-CODE'.

LS_LINE-INFO = 
APPEND LS_LINE TO GT_TOP_OF_PAGE.

CLEAR LS_LINE.
LS_LINE-TYP = 'S'.

LS_LINE-KEY = 'Period'. 
LS_LINE-INFO = INFO.
APPEND LS_LINE TO GT_TOP_OF_PAGE.

WRITE SY-DATUM TO B_DT.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = 'Report Dt.'.
LS_LINE-INFO = B_DT.
APPEND LS_LINE TO GT_TOP_OF_PAGE.

ENDFORM. " GEN_TOP

Code Formatted by: Alvaro Tejada Galindo on Dec 26, 2008 10:36 AM

Re: ALV REPORTS

p291102 — Fri, 26 Dec 2008 04:42:08 GMT

Dear,

Sales Register Report is - J1I2.

Thanks,

Sankar M

Re: ALV REPORTS

Former Member — Fri, 26 Dec 2008 10:23:21 GMT

Hi firoz,

Whatever the question you have ask for this there is no solution.

Thanks,

Ashish.

Re: ALV REPORTS

Former Member — Fri, 26 Dec 2008 10:30:03 GMT

Duplicate post

Reported for multiple rule violations

Re: ALV REPORTS

Former Member — Fri, 22 May 2009 13:19:01 GMT

yes

topic ALV REPORTS in Application Development and Automation Discussions

ALV REPORTS

Re: ALV REPORTS

Re: ALV REPORTS

Re: ALV REPORTS

Re: ALV REPORTS