Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

sample ALV report required for FI module

Former Member
0 Likes
1,645

Hello friends,

I am develoing ALV report for FI module for that i need some sample ALV report. If someone have than please send it to me.

Thanx & Regards,

Rahul Talele

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
900

HI,

SEE THE SAMPLE REPORT

----


  • Fringe Benefit Tax Report

----


  • Program Name :

  • Object ID :

  • Functional Analyst :

  • Programmer :

  • Start date :

  • Initial CTS :

  • Description : FRINGE Benefit Tax

----


  • Includes :

  • Function Modules :

  • Logical database :

  • Transaction Code :

  • External references :

----


  • Modification Log

----


  • Date | Modified by | CTS number | Comments

----


  • | | | Initial Version *

REPORT ZFI_FBT NO STANDARD PAGE HEADING LINE-SIZE 255.

TYPE-POOLS: SLIS.

TYPES : BEGIN OF

T_BSIS,

BUKRS TYPE BUKRS, " Company Code

HKONT TYPE HKONT, " General Ledger Account

GJAHR TYPE GJAHR,

BELNR TYPE BELNR_D, " Accounting Document Number

BUDAT TYPE BUDAT, " Posting Date in the Document

BLDAT TYPE BLDAT, " Document Date in Document

XBLNR TYPE XBLNR1, " Reference Document Number

BSCHL TYPE BSCHL, " Posting Key

DMBTR TYPE DMBTR, " Amount in Local Currency

AUFNR TYPE AUFNR_NEU, " Order Number

NONFBT TYPE DMBTR, " non fbt amount

SUBFBT TYPE DMBTR, " subject to fbt amount

ZFI_FBT TYPE ZFI_FBT, " Qualifying amount.

AMOUNT TYPE DMBTR,

FBTPAY TYPE DMBTR,

ZFI_PAY TYPE ZFI_PAY,

END OF T_BSIS,

T_IT_BSIS TYPE STANDARD TABLE OF T_BSIS.

TYPES : BEGIN OF T_FRINGE,

ZFI_HKONT TYPE HKONT,

ZFI_FBT TYPE ZFI_FBT,

ZFI_PAY TYPE ZFI_PAY,

END OF T_FRINGE,

T_IT_FRINGE TYPE STANDARD TABLE OF T_FRINGE.

DATA : GIT_FRINGE TYPE T_IT_FRINGE,

GWA_FRINGE TYPE T_FRINGE.

DATA : GIT_BSIS TYPE T_IT_BSIS,

GWA_BSIS TYPE T_BSIS.

DATA : G_HKONT TYPE HKONT,

G_BUDAT TYPE BUDAT,

G_AUFNR TYPE AUFNR_NEU.

FIELD-SYMBOLS : <BSIS> TYPE T_BSIS.

DATA : G_REPID TYPE SY-REPID,

GIT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

GWA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

GT_SORT TYPE SLIS_T_SORTINFO_ALV,

GT_EVENTS TYPE SLIS_T_EVENT,

GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,

GS_LAYOUT TYPE SLIS_LAYOUT_ALV.

GS_LAYOUT-ZEBRA = 'X'.

GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

CONSTANTS : C_50(2) TYPE C VALUE '50'.

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

  • SELECTION SCREEN DEFINITIONS

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

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

PARAMETERS : P_BUKRS TYPE BUKRS DEFAULT 'H901' OBLIGATORY.

SELECT-OPTIONS : S_HKONT FOR G_HKONT,

S_BUDAT FOR G_BUDAT.

*PARAMETERS : P_AUFNR TYPE AUFNR_NEU DEFAULT '000000100001' OBLIGATORY.

SELECTION-SCREEN END OF BLOCK B1.

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

  • EVENTS

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

----


  • INITIALIZATION.

----


INITIALIZATION.

G_REPID = SY-REPID.

----


  • AT SELECTION-SCREEN

----


AT SELECTION-SCREEN.

PERFORM GET_ZTABLE. " get data from ZFII_FRINGE table

----


  • START-OF-SELECTION.

----


START-OF-SELECTION.

PERFORM GET_DATA. " get data from BSIS table

IF NOT GIT_BSIS IS INITIAL.

PERFORM GET_PERCENTAGE. " to get the percentages from table ZFII_FRINGE

PERFORM CHK4_INTERNAL. " checking for the posting key wheather th document is reversed

" and checking wheather internal order is FBT or non-FBT

ENDIF.

----


  • END-OF-SELECTION.

----


END-OF-SELECTION.

IF NOT GIT_BSIS IS INITIAL.

PERFORM DISPLAY. " display ALV GRID display

ENDIF.

&----


*& Form get_data

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GET_DATA .

SELECT

BUKRS

HKONT

GJAHR

BELNR

BUDAT

BLDAT

XBLNR

BSCHL

DMBTR

AUFNR FROM BSIS

INTO TABLE GIT_BSIS

WHERE BUKRS EQ P_BUKRS AND

HKONT IN S_HKONT AND

BUDAT IN S_BUDAT.

IF SY-SUBRC NE 0.

MESSAGE I000(ZFI) WITH 'No data exist'.

EXIT.

ENDIF.

ENDFORM. " get_data

&----


*& Form display

&----


FORM DISPLAY .

PERFORM BUILD_FIELD_CATALOUGE.

PERFORM GET_EVENTS.

PERFORM DETERMINE_SORT_SEQUENCE.

PERFORM SUB_COMMENTERY_BUILD.

PERFORM ALV_DISPLAY.

ENDFORM. " display

&----


*& Form build_field_catalouge

&----


FORM BUILD_FIELD_CATALOUGE.

DATA : L_POS TYPE I.

L_POS = 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'HKONT' " InTab Field Name

'GIT_BSIS' " InTab Name

'10' " Output Length

'GL Account' " Column Name Text

' ' " Datatype

'X' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

' '. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'BELNR' " InTab Field Name

'GIT_BSIS' " InTab Name

'10' " Output Length

'Document No.' " Column Name Text

' ' " Datatype

'X' " Key?

'1' " Row Position

'X' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

' '. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'BUDAT' " InTab Field Name

'GIT_BSIS' " InTab Name

'10' " Output Length

'Posting Date' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

' '. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'BLDAT' " InTab Field Name

'GIT_BSIS' " InTab Name

'10' " Output Length

'Docu. Date' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

' '. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'XBLNR' " InTab Field Name

'GIT_BSIS' " InTab Name

'16' " Output Length

'Ref. Doc. Number' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'DMBTR' " InTab Field Name

'GIT_BSIS' " InTab Name

'16' " Output Length

'Gross Amount' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'SUBFBT' " InTab Field Name

'GIT_BSIS' " InTab Name

'16' " Output Length

'FBT Amount' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'NONFBT' " InTab Field Name

'GIT_BSIS' " InTab Name

'16' " Output Length

'Non FBT Amount' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'ZFI_FBT' " InTab Field Name

'GIT_BSIS' " InTab Name

'12' " Output Length

'Percentage' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

' '. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'AMOUNT' " InTab Field Name

'GIT_BSIS' " InTab Name

'16' " Output Length

'Qualifying Amount' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'FBTPAY' " InTab Field Name

'GIT_BSIS' " InTab Name

'12' " Output Length

'FBT payable' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

ENDFORM. " build_field_catalouge

&----


*& Form init_field_catalog

&----


  • text

----


FORM INIT_FIELD_CATALOG USING P_GIT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV

PV_POS LIKE GWA_FIELDCAT-COL_POS

PV_FIELDNAME LIKE GWA_FIELDCAT-FIELDNAME

PV_TABNAME LIKE GWA_FIELDCAT-TABNAME

PV_OUTPUT LIKE GWA_FIELDCAT-OUTPUTLEN

PV_SELTEXT LIKE GWA_FIELDCAT-SELTEXT_M

PV_DATATYPE LIKE GWA_FIELDCAT-DATATYPE

PV_KEY LIKE GWA_FIELDCAT-KEY

PV_ROW LIKE GWA_FIELDCAT-ROW_POS

PV_HOTSPOT LIKE GWA_FIELDCAT-HOTSPOT

PV_EMPHASIZE LIKE GWA_FIELDCAT-EMPHASIZE

PV_KEY_SEL LIKE GWA_FIELDCAT-KEY_SEL

PV_JUST LIKE GWA_FIELDCAT-JUST

PV_SUM LIKE GWA_FIELDCAT-DO_SUM.

DATA: LT_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

LT_FIELDCAT-OUTPUTLEN = PV_OUTPUT.

LT_FIELDCAT-COL_POS = PV_POS.

LT_FIELDCAT-FIELDNAME = PV_FIELDNAME.

LT_FIELDCAT-TABNAME = PV_TABNAME.

LT_FIELDCAT-SELTEXT_M = PV_SELTEXT.

LT_FIELDCAT-KEY = PV_KEY.

LT_FIELDCAT-ROW_POS = PV_ROW.

LT_FIELDCAT-HOTSPOT = PV_HOTSPOT.

LT_FIELDCAT-EMPHASIZE = PV_EMPHASIZE.

LT_FIELDCAT-KEY_SEL = PV_KEY_SEL.

LT_FIELDCAT-DO_SUM = PV_SUM.

LT_FIELDCAT-JUST = PV_JUST.

LT_FIELDCAT-DATATYPE = PV_DATATYPE.

APPEND LT_FIELDCAT TO P_GIT_FIELDCAT.

CLEAR LT_FIELDCAT.

ENDFORM. " init_field_catalog

&----


*& Form alv_display

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM ALV_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = G_REPID

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

  • I_CALLBACK_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = ' '

  • i_grid_title = 'Fringe Benefit Tax'

  • I_GRID_SETTINGS =

IS_LAYOUT = GS_LAYOUT

IT_FIELDCAT = GIT_FIELDCAT

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

IT_SORT = GT_SORT

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT =

IT_EVENTS = GT_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 = GIT_BSIS

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. " alv_display

&----


*& Form chk4_internal

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM CHK4_INTERNAL .

LOOP AT GIT_BSIS ASSIGNING <BSIS>.

IF <BSIS> IS ASSIGNED.

IF <BSIS>-BSCHL = C_50.

<BSIS>-DMBTR = <BSIS>-DMBTR * -1.

ENDIF.

  • IF NOT <bsis>-aufnr IS INITIAL.

IF <BSIS>-AUFNR = '000000100000'. " P_AUFNR.

<BSIS>-SUBFBT = <BSIS>-DMBTR.

<BSIS>-AMOUNT = ( <BSIS>-SUBFBT * <BSIS>-ZFI_FBT ) / 100.

ELSE.

  • IF <bsis>-aufnr = '000000100020'.

<BSIS>-NONFBT = <BSIS>-DMBTR.

ENDIF.

  • ENDIF.

<BSIS>-FBTPAY = ( <BSIS>-AMOUNT * <BSIS>-ZFI_PAY ) / 100.

ENDIF.

ENDLOOP.

UNASSIGN <BSIS>.

ENDFORM. " chk4_internal

&----


*& Form get_ztable

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GET_ZTABLE .

REFRESH : GIT_FRINGE.

SELECT HKONT

ZFI_FBT

ZFI_PAY

FROM ZFI_FBT_DETL

INTO TABLE GIT_FRINGE

  • FOR ALL ENTRIES IN s_hkont

WHERE HKONT IN S_HKONT.

CHECK SY-SUBRC EQ 0.

SORT GIT_FRINGE BY ZFI_HKONT.

ENDFORM. " get_ztable

&----


*& Form get_percentage

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GET_PERCENTAGE .

CLEAR : GWA_FRINGE.

LOOP AT GIT_BSIS ASSIGNING <BSIS>.

IF <BSIS> IS ASSIGNED.

READ TABLE GIT_FRINGE INTO GWA_FRINGE WITH KEY

ZFI_HKONT = <BSIS>-HKONT

BINARY SEARCH.

CHECK SY-SUBRC EQ 0.

<BSIS>-ZFI_FBT = GWA_FRINGE-ZFI_FBT.

<BSIS>-ZFI_PAY = GWA_FRINGE-ZFI_PAY.

ENDIF.

ENDLOOP.

UNASSIGN <BSIS>.

ENDFORM. " get_percentage

&----


*& Form determine_sort_sequence

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM DETERMINE_SORT_SEQUENCE .

DATA : LS_SORT TYPE SLIS_SORTINFO_ALV.

LS_SORT-SPOS = 1. " Sort order

LS_SORT-FIELDNAME = 'HKONT'.

LS_SORT-TABNAME = 'GIT_BSIS'.

LS_SORT-UP = 'X'.

LS_SORT-SUBTOT = 'X'. " Sub total allowed

APPEND LS_SORT TO GT_SORT.

CLEAR LS_SORT.

ENDFORM. " determine_sort_sequence

&----


*& Form get_events

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GET_EVENTS .

CONSTANTS:

GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',

GC_FORMNAME_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.

DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = GT_EVENTS.

READ TABLE GT_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 GT_EVENTS.

ENDIF.

READ TABLE GT_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND

INTO LS_EVENT.

IF SY-SUBRC = 0.

MOVE GC_FORMNAME_USER_COMMAND TO LS_EVENT-FORM.

APPEND LS_EVENT TO GT_EVENTS.

ENDIF.

ENDFORM. " get_events

&----


*& Form sub_commentery_build

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SUB_COMMENTERY_BUILD .

DATA: LS_LINE TYPE SLIS_LISTHEADER.

DATA : L_LOW TYPE CHAR10,

L_HIGH TYPE CHAR10,

L_DATE TYPE CHAR25.

CONCATENATE S_BUDAT-LOW6(2) '.' S_BUDAT-LOW4(2) '.' S_BUDAT-LOW+0(4) INTO L_LOW.

CONCATENATE S_BUDAT-HIGH6(2) '.' S_BUDAT-HIGH4(2) '.' S_BUDAT-HIGH+0(4) INTO L_HIGH.

CONCATENATE L_LOW ' - ' L_HIGH INTO L_DATE.

***header

CLEAR LS_LINE.

LS_LINE-TYP = 'H'.

  • LS_LINE-KEY: not used for this type

LS_LINE-INFO = 'Fringe Benefit Tax'.

APPEND LS_LINE TO GT_LIST_TOP_OF_PAGE.

***Selection

CLEAR LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-KEY = 'Company Code'.

LS_LINE-INFO = P_BUKRS.

APPEND LS_LINE TO GT_LIST_TOP_OF_PAGE.

CLEAR LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-KEY = 'Posting Date'.

LS_LINE-INFO = L_DATE.

APPEND LS_LINE TO GT_LIST_TOP_OF_PAGE.

ENDFORM. " sub_commentery_build

----


  • FORM TOP_OF_PAGE *

----


  • When TOP-OF-PAGE will be fired , this event will be called and it

  • will use the contents of i_list_top_of_page for output in the header

----


FORM TOP_OF_PAGE.

*

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

  • i_logo = 'ENJOYSAP_LOGO'

IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.

ENDFORM. "top_of_page

&----


*& Form USER_COMMAND

&----


  • Called from within the ALV processes. Currently, '&IC1' is used to

  • process the hotspot and display the document 'picked' by the user.

FORM USER_COMMAND USING PV_UCOMM LIKE SY-UCOMM

SELFIELD TYPE SLIS_SELFIELD.

CLEAR : GWA_BSIS.

CASE PV_UCOMM.

WHEN '&IC1'.

READ TABLE GIT_BSIS INTO GWA_BSIS INDEX SELFIELD-TABINDEX.

CASE SELFIELD-SEL_TAB_FIELD.

WHEN 'GIT_BSIS-BELNR'.

IF NOT GWA_BSIS-BELNR IS INITIAL.

SET PARAMETER ID: 'BUK' FIELD GWA_BSIS-BUKRS,

'BLN' FIELD GWA_BSIS-BELNR,

'GJR' FIELD GWA_BSIS-GJAHR.

CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

ENDIF.

WHEN OTHERS.

ENDCASE.

WHEN OTHERS.

ENDCASE.

CLEAR : GWA_BSIS.

ENDFORM. "user_command

&----


*& Form SET_PF_STATUS

&----


  • text

----


FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'.

ENDFORM. "SET_PF_STATUSENDFORM. "SET_PF_STATUS

AWARD POINTS IF USEFUL....

3 REPLIES 3
Read only

Former Member
0 Likes
900

Hi Rahul,

Just check standard programs starting with SALV.

Regards,

Atish

Read only

Former Member
0 Likes
901

HI,

SEE THE SAMPLE REPORT

----


  • Fringe Benefit Tax Report

----


  • Program Name :

  • Object ID :

  • Functional Analyst :

  • Programmer :

  • Start date :

  • Initial CTS :

  • Description : FRINGE Benefit Tax

----


  • Includes :

  • Function Modules :

  • Logical database :

  • Transaction Code :

  • External references :

----


  • Modification Log

----


  • Date | Modified by | CTS number | Comments

----


  • | | | Initial Version *

REPORT ZFI_FBT NO STANDARD PAGE HEADING LINE-SIZE 255.

TYPE-POOLS: SLIS.

TYPES : BEGIN OF

T_BSIS,

BUKRS TYPE BUKRS, " Company Code

HKONT TYPE HKONT, " General Ledger Account

GJAHR TYPE GJAHR,

BELNR TYPE BELNR_D, " Accounting Document Number

BUDAT TYPE BUDAT, " Posting Date in the Document

BLDAT TYPE BLDAT, " Document Date in Document

XBLNR TYPE XBLNR1, " Reference Document Number

BSCHL TYPE BSCHL, " Posting Key

DMBTR TYPE DMBTR, " Amount in Local Currency

AUFNR TYPE AUFNR_NEU, " Order Number

NONFBT TYPE DMBTR, " non fbt amount

SUBFBT TYPE DMBTR, " subject to fbt amount

ZFI_FBT TYPE ZFI_FBT, " Qualifying amount.

AMOUNT TYPE DMBTR,

FBTPAY TYPE DMBTR,

ZFI_PAY TYPE ZFI_PAY,

END OF T_BSIS,

T_IT_BSIS TYPE STANDARD TABLE OF T_BSIS.

TYPES : BEGIN OF T_FRINGE,

ZFI_HKONT TYPE HKONT,

ZFI_FBT TYPE ZFI_FBT,

ZFI_PAY TYPE ZFI_PAY,

END OF T_FRINGE,

T_IT_FRINGE TYPE STANDARD TABLE OF T_FRINGE.

DATA : GIT_FRINGE TYPE T_IT_FRINGE,

GWA_FRINGE TYPE T_FRINGE.

DATA : GIT_BSIS TYPE T_IT_BSIS,

GWA_BSIS TYPE T_BSIS.

DATA : G_HKONT TYPE HKONT,

G_BUDAT TYPE BUDAT,

G_AUFNR TYPE AUFNR_NEU.

FIELD-SYMBOLS : <BSIS> TYPE T_BSIS.

DATA : G_REPID TYPE SY-REPID,

GIT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

GWA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

GT_SORT TYPE SLIS_T_SORTINFO_ALV,

GT_EVENTS TYPE SLIS_T_EVENT,

GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,

GS_LAYOUT TYPE SLIS_LAYOUT_ALV.

GS_LAYOUT-ZEBRA = 'X'.

GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

CONSTANTS : C_50(2) TYPE C VALUE '50'.

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

  • SELECTION SCREEN DEFINITIONS

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

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

PARAMETERS : P_BUKRS TYPE BUKRS DEFAULT 'H901' OBLIGATORY.

SELECT-OPTIONS : S_HKONT FOR G_HKONT,

S_BUDAT FOR G_BUDAT.

*PARAMETERS : P_AUFNR TYPE AUFNR_NEU DEFAULT '000000100001' OBLIGATORY.

SELECTION-SCREEN END OF BLOCK B1.

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

  • EVENTS

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

----


  • INITIALIZATION.

----


INITIALIZATION.

G_REPID = SY-REPID.

----


  • AT SELECTION-SCREEN

----


AT SELECTION-SCREEN.

PERFORM GET_ZTABLE. " get data from ZFII_FRINGE table

----


  • START-OF-SELECTION.

----


START-OF-SELECTION.

PERFORM GET_DATA. " get data from BSIS table

IF NOT GIT_BSIS IS INITIAL.

PERFORM GET_PERCENTAGE. " to get the percentages from table ZFII_FRINGE

PERFORM CHK4_INTERNAL. " checking for the posting key wheather th document is reversed

" and checking wheather internal order is FBT or non-FBT

ENDIF.

----


  • END-OF-SELECTION.

----


END-OF-SELECTION.

IF NOT GIT_BSIS IS INITIAL.

PERFORM DISPLAY. " display ALV GRID display

ENDIF.

&----


*& Form get_data

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GET_DATA .

SELECT

BUKRS

HKONT

GJAHR

BELNR

BUDAT

BLDAT

XBLNR

BSCHL

DMBTR

AUFNR FROM BSIS

INTO TABLE GIT_BSIS

WHERE BUKRS EQ P_BUKRS AND

HKONT IN S_HKONT AND

BUDAT IN S_BUDAT.

IF SY-SUBRC NE 0.

MESSAGE I000(ZFI) WITH 'No data exist'.

EXIT.

ENDIF.

ENDFORM. " get_data

&----


*& Form display

&----


FORM DISPLAY .

PERFORM BUILD_FIELD_CATALOUGE.

PERFORM GET_EVENTS.

PERFORM DETERMINE_SORT_SEQUENCE.

PERFORM SUB_COMMENTERY_BUILD.

PERFORM ALV_DISPLAY.

ENDFORM. " display

&----


*& Form build_field_catalouge

&----


FORM BUILD_FIELD_CATALOUGE.

DATA : L_POS TYPE I.

L_POS = 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'HKONT' " InTab Field Name

'GIT_BSIS' " InTab Name

'10' " Output Length

'GL Account' " Column Name Text

' ' " Datatype

'X' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

' '. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'BELNR' " InTab Field Name

'GIT_BSIS' " InTab Name

'10' " Output Length

'Document No.' " Column Name Text

' ' " Datatype

'X' " Key?

'1' " Row Position

'X' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

' '. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'BUDAT' " InTab Field Name

'GIT_BSIS' " InTab Name

'10' " Output Length

'Posting Date' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

' '. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'BLDAT' " InTab Field Name

'GIT_BSIS' " InTab Name

'10' " Output Length

'Docu. Date' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

' '. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'XBLNR' " InTab Field Name

'GIT_BSIS' " InTab Name

'16' " Output Length

'Ref. Doc. Number' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'DMBTR' " InTab Field Name

'GIT_BSIS' " InTab Name

'16' " Output Length

'Gross Amount' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'SUBFBT' " InTab Field Name

'GIT_BSIS' " InTab Name

'16' " Output Length

'FBT Amount' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'NONFBT' " InTab Field Name

'GIT_BSIS' " InTab Name

'16' " Output Length

'Non FBT Amount' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'ZFI_FBT' " InTab Field Name

'GIT_BSIS' " InTab Name

'12' " Output Length

'Percentage' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

' '. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'AMOUNT' " InTab Field Name

'GIT_BSIS' " InTab Name

'16' " Output Length

'Qualifying Amount' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

L_POS = L_POS + 1 .

PERFORM INIT_FIELD_CATALOG USING GIT_FIELDCAT[] " Field Catalog

L_POS " Column Position

'FBTPAY' " InTab Field Name

'GIT_BSIS' " InTab Name

'12' " Output Length

'FBT payable' " Column Name Text

' ' " Datatype

' ' " Key?

'1' " Row Position

' ' " Hotspot

' ' " Emphasize

' ' " key_sel

' ' " justification

'X'. " Sum field?

ENDFORM. " build_field_catalouge

&----


*& Form init_field_catalog

&----


  • text

----


FORM INIT_FIELD_CATALOG USING P_GIT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV

PV_POS LIKE GWA_FIELDCAT-COL_POS

PV_FIELDNAME LIKE GWA_FIELDCAT-FIELDNAME

PV_TABNAME LIKE GWA_FIELDCAT-TABNAME

PV_OUTPUT LIKE GWA_FIELDCAT-OUTPUTLEN

PV_SELTEXT LIKE GWA_FIELDCAT-SELTEXT_M

PV_DATATYPE LIKE GWA_FIELDCAT-DATATYPE

PV_KEY LIKE GWA_FIELDCAT-KEY

PV_ROW LIKE GWA_FIELDCAT-ROW_POS

PV_HOTSPOT LIKE GWA_FIELDCAT-HOTSPOT

PV_EMPHASIZE LIKE GWA_FIELDCAT-EMPHASIZE

PV_KEY_SEL LIKE GWA_FIELDCAT-KEY_SEL

PV_JUST LIKE GWA_FIELDCAT-JUST

PV_SUM LIKE GWA_FIELDCAT-DO_SUM.

DATA: LT_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

LT_FIELDCAT-OUTPUTLEN = PV_OUTPUT.

LT_FIELDCAT-COL_POS = PV_POS.

LT_FIELDCAT-FIELDNAME = PV_FIELDNAME.

LT_FIELDCAT-TABNAME = PV_TABNAME.

LT_FIELDCAT-SELTEXT_M = PV_SELTEXT.

LT_FIELDCAT-KEY = PV_KEY.

LT_FIELDCAT-ROW_POS = PV_ROW.

LT_FIELDCAT-HOTSPOT = PV_HOTSPOT.

LT_FIELDCAT-EMPHASIZE = PV_EMPHASIZE.

LT_FIELDCAT-KEY_SEL = PV_KEY_SEL.

LT_FIELDCAT-DO_SUM = PV_SUM.

LT_FIELDCAT-JUST = PV_JUST.

LT_FIELDCAT-DATATYPE = PV_DATATYPE.

APPEND LT_FIELDCAT TO P_GIT_FIELDCAT.

CLEAR LT_FIELDCAT.

ENDFORM. " init_field_catalog

&----


*& Form alv_display

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM ALV_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = G_REPID

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

  • I_CALLBACK_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = ' '

  • i_grid_title = 'Fringe Benefit Tax'

  • I_GRID_SETTINGS =

IS_LAYOUT = GS_LAYOUT

IT_FIELDCAT = GIT_FIELDCAT

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

IT_SORT = GT_SORT

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT =

IT_EVENTS = GT_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 = GIT_BSIS

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. " alv_display

&----


*& Form chk4_internal

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM CHK4_INTERNAL .

LOOP AT GIT_BSIS ASSIGNING <BSIS>.

IF <BSIS> IS ASSIGNED.

IF <BSIS>-BSCHL = C_50.

<BSIS>-DMBTR = <BSIS>-DMBTR * -1.

ENDIF.

  • IF NOT <bsis>-aufnr IS INITIAL.

IF <BSIS>-AUFNR = '000000100000'. " P_AUFNR.

<BSIS>-SUBFBT = <BSIS>-DMBTR.

<BSIS>-AMOUNT = ( <BSIS>-SUBFBT * <BSIS>-ZFI_FBT ) / 100.

ELSE.

  • IF <bsis>-aufnr = '000000100020'.

<BSIS>-NONFBT = <BSIS>-DMBTR.

ENDIF.

  • ENDIF.

<BSIS>-FBTPAY = ( <BSIS>-AMOUNT * <BSIS>-ZFI_PAY ) / 100.

ENDIF.

ENDLOOP.

UNASSIGN <BSIS>.

ENDFORM. " chk4_internal

&----


*& Form get_ztable

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GET_ZTABLE .

REFRESH : GIT_FRINGE.

SELECT HKONT

ZFI_FBT

ZFI_PAY

FROM ZFI_FBT_DETL

INTO TABLE GIT_FRINGE

  • FOR ALL ENTRIES IN s_hkont

WHERE HKONT IN S_HKONT.

CHECK SY-SUBRC EQ 0.

SORT GIT_FRINGE BY ZFI_HKONT.

ENDFORM. " get_ztable

&----


*& Form get_percentage

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GET_PERCENTAGE .

CLEAR : GWA_FRINGE.

LOOP AT GIT_BSIS ASSIGNING <BSIS>.

IF <BSIS> IS ASSIGNED.

READ TABLE GIT_FRINGE INTO GWA_FRINGE WITH KEY

ZFI_HKONT = <BSIS>-HKONT

BINARY SEARCH.

CHECK SY-SUBRC EQ 0.

<BSIS>-ZFI_FBT = GWA_FRINGE-ZFI_FBT.

<BSIS>-ZFI_PAY = GWA_FRINGE-ZFI_PAY.

ENDIF.

ENDLOOP.

UNASSIGN <BSIS>.

ENDFORM. " get_percentage

&----


*& Form determine_sort_sequence

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM DETERMINE_SORT_SEQUENCE .

DATA : LS_SORT TYPE SLIS_SORTINFO_ALV.

LS_SORT-SPOS = 1. " Sort order

LS_SORT-FIELDNAME = 'HKONT'.

LS_SORT-TABNAME = 'GIT_BSIS'.

LS_SORT-UP = 'X'.

LS_SORT-SUBTOT = 'X'. " Sub total allowed

APPEND LS_SORT TO GT_SORT.

CLEAR LS_SORT.

ENDFORM. " determine_sort_sequence

&----


*& Form get_events

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GET_EVENTS .

CONSTANTS:

GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',

GC_FORMNAME_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.

DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = GT_EVENTS.

READ TABLE GT_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 GT_EVENTS.

ENDIF.

READ TABLE GT_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND

INTO LS_EVENT.

IF SY-SUBRC = 0.

MOVE GC_FORMNAME_USER_COMMAND TO LS_EVENT-FORM.

APPEND LS_EVENT TO GT_EVENTS.

ENDIF.

ENDFORM. " get_events

&----


*& Form sub_commentery_build

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SUB_COMMENTERY_BUILD .

DATA: LS_LINE TYPE SLIS_LISTHEADER.

DATA : L_LOW TYPE CHAR10,

L_HIGH TYPE CHAR10,

L_DATE TYPE CHAR25.

CONCATENATE S_BUDAT-LOW6(2) '.' S_BUDAT-LOW4(2) '.' S_BUDAT-LOW+0(4) INTO L_LOW.

CONCATENATE S_BUDAT-HIGH6(2) '.' S_BUDAT-HIGH4(2) '.' S_BUDAT-HIGH+0(4) INTO L_HIGH.

CONCATENATE L_LOW ' - ' L_HIGH INTO L_DATE.

***header

CLEAR LS_LINE.

LS_LINE-TYP = 'H'.

  • LS_LINE-KEY: not used for this type

LS_LINE-INFO = 'Fringe Benefit Tax'.

APPEND LS_LINE TO GT_LIST_TOP_OF_PAGE.

***Selection

CLEAR LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-KEY = 'Company Code'.

LS_LINE-INFO = P_BUKRS.

APPEND LS_LINE TO GT_LIST_TOP_OF_PAGE.

CLEAR LS_LINE.

LS_LINE-TYP = 'S'.

LS_LINE-KEY = 'Posting Date'.

LS_LINE-INFO = L_DATE.

APPEND LS_LINE TO GT_LIST_TOP_OF_PAGE.

ENDFORM. " sub_commentery_build

----


  • FORM TOP_OF_PAGE *

----


  • When TOP-OF-PAGE will be fired , this event will be called and it

  • will use the contents of i_list_top_of_page for output in the header

----


FORM TOP_OF_PAGE.

*

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

  • i_logo = 'ENJOYSAP_LOGO'

IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.

ENDFORM. "top_of_page

&----


*& Form USER_COMMAND

&----


  • Called from within the ALV processes. Currently, '&IC1' is used to

  • process the hotspot and display the document 'picked' by the user.

FORM USER_COMMAND USING PV_UCOMM LIKE SY-UCOMM

SELFIELD TYPE SLIS_SELFIELD.

CLEAR : GWA_BSIS.

CASE PV_UCOMM.

WHEN '&IC1'.

READ TABLE GIT_BSIS INTO GWA_BSIS INDEX SELFIELD-TABINDEX.

CASE SELFIELD-SEL_TAB_FIELD.

WHEN 'GIT_BSIS-BELNR'.

IF NOT GWA_BSIS-BELNR IS INITIAL.

SET PARAMETER ID: 'BUK' FIELD GWA_BSIS-BUKRS,

'BLN' FIELD GWA_BSIS-BELNR,

'GJR' FIELD GWA_BSIS-GJAHR.

CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

ENDIF.

WHEN OTHERS.

ENDCASE.

WHEN OTHERS.

ENDCASE.

CLEAR : GWA_BSIS.

ENDFORM. "user_command

&----


*& Form SET_PF_STATUS

&----


  • text

----


FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'.

ENDFORM. "SET_PF_STATUSENDFORM. "SET_PF_STATUS

AWARD POINTS IF USEFUL....

Read only

Former Member
0 Likes
900

Hi Rahul

Basically there are 5 major topics/areas in FI,

1. GL Accounting -

related tables are SKA1, SKB1 Master data

BSIS and BSAS are the Transaction Data

2. Account Receivables- related to Customer

All the SD related data when transfered to FI these are created.

Related Tables BSID and BSAD

3. Account Payables - related Vendor

All the MM related documents data when transfered to FI these are created

Related Tables BSIK and BSAK

All the above six tables data is present in BKPF and BSEG tables

You can link these tables with the hlp of BELNR and GJAHR and with Dates also.

4. Special Purpose Ledger.. which is rarely used.

5. Asset Managment

In CO there are

Profit center Accounting

Cost center Accounting will be there.

Cross-Application Components -> Financial.

http://help.sap.com/saphelp_470/helpdata/en/e1/8e51341a06084de10000009b38f83b/frameset.htm

you will go through this link

http://www.sapgenie.com/sapfunc/fi.htm

Check this Link it out

http://www.sap-img.com/sap-download/sap-tables.zip

http://www.thespot4sap.com/IntroTo/SAP_FI_Module_Introduction.asp

http://www.thespot4sap.com/IntroTo/SAP_CO_Module_Introduction.asp

for tables check out link..

http://www.sapgenie.com/abap/tables_fi.htm

Take a look at this.

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

http://www.erpgenie.com/sapfunc/fi.htm

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

http://www.amazon.com/Configuring-SAP-Essential-Financial-Controlling/dp/0782125972