alv reports

Former Member · ‎2008 Dec 20

hello dear,

i have created one alv reports and i have to put excise and vat amount so please refer some related program in alv format to solve my problem.

regards

Firoz

Former Member · ‎2008 Dec 20

Hi Dear

Please check KONV table.

Regards

Former Member · ‎2008 Dec 20

check bset table for excise and vat data.

Former Member · ‎2008 Dec 20

have already used this table i want some related programs in alv format which includes excise and vat in respect to invoice document number.

thanxs.

Former Member · ‎2008 Dec 20

Hi,

you can check the standard report RFUMSV00.

Former Member · ‎2008 Dec 20

ya its something solved my problem but dear i want this in alv format so if there is any standard or programs available please refer me.

Former Member · ‎2008 Dec 20

This is an ALV report, you can check the same in the include "I_RFUMS_ALV_FORMS" of the report. This is where the FMs are called for creating the ALV list.

Former Member · ‎2008 Dec 20

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