Re: alv reports

Former Member — Sat, 20 Dec 2008 10:17:07 GMT

this standard program really help me lot it exactly giving me the the value what i required same program i have to do so can you please help me i am seding you the code what i have written so you please refer me some related program in alv to solve my problem.

&----

*& Report ZFA_AL

&----

REPORT ZFA_AL.

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,

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 ,

WRBTR LIKE BSEG-WRBTR,

BUZEI LIKE BSEG-BUZEI,

HKONT LIKE BSEG-HKONT,

NETVALUE type DMBTR,

EXAMT TYPE DMBTR,

VATAMT TYPE DMBTR,

TOTAMT TYPE DMBTR,

MWSBP LIKE KOMP-MWSBP,

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.

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

SELECTION-SCREEN SKIP 1.

*PARAMETERS : P_BUKRS TYPE T001-BUKRS OBLIGATORY DEFAULT '1000'.

*PARAMETERS : P_MJAHR TYPE MJAHR OBLIGATORY DEFAULT '2008'.

SELECT-OPTIONS: P_MBLNR FOR MSEG-MBLNR .

*SELECT-OPTIONS: P_BUDAT FOR MKPF-BUDAT.

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' ) .

*SELECT MATNR MBLNR MENGE MEINS BWART EBELN EBELP DMBTR FROM MSEG INTO TABLE IT_FINAL WHERE MBLNR IN P_MBLNR AND

( BWART = '101' OR BWART = '102' OR
BWART = '113' OR BWART = '114' OR
BWART = '122' OR BWART = '548' ).

*ORDER BY MATNR DESCENDING.

DATA : TOTAMT TYPE DMBTR,

NETVAL TYPE DMBTR,

NETVALUE TYPE DMBTR,

NETWR LIKE EKPO-NETWR.

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 netwr from ekpo into wa_final-netwr where EBELN = wa_final-EBELN .

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 SINGLE WRBTR FROM BSEG INTO wa_final-WRBTR where wrbtr = wa_final-BUZEI .

*NETVAL = ( WA_FINAL-MENGE1 * WA_FINAL-NETPR ) / WA_FINAL-PEINH.

*SELECT SINGLE EBELN FROM EKPO INTO WA_FINAL-EBELN WHERE MATNR = WA_FINAL-MATNR.

MODIFY IT_FINAL FROM WA_FINAL TRANSPORTING MAKTX

MENGE

MEINS

BWART

EBELN

EBELP

DMBTR

WRBTR

HKONT

LIFNR

BUZEI

NETVAL
NETVALUE

EXAMT

VATAMT

TOTAMT

MWSBP

VAT

UNIT

TOTQNT

TOTNVL

TOTEXC

TOTVAT

TOTVAL

PEINH

netwr

netpr

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 = '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 = '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 = 4.

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 = 5.

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 = 6.

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

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 = 8.

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 = 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-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'.