report fi

Former Member — Mon, 30 Apr 2007 05:55:26 GMT

hai here i am sending one program but it is executing here i am not getting sum of debits and sum of credits........whr i have change this program

i checked fs10n tcode...itis not matching my program....based on gl acount,,

company code 1000 fisc year 2005 period 1 to 16......

psle send any modified,,,code,,,,,,,ths is uegenlty

if u get points......

&----

*& Report ZRAGHU13

&----

REPORT ZRAGHU13.

TYPE-POOLS : slis.

TABLES: bkpf,bseg,bsis.

TYPES:BEGIN OF ty_bkpf,

bukrs TYPE bkpf-bukrs,

belnr TYPE bkpf-belnr,

gjahr TYPE bkpf-gjahr,

blart TYPE bkpf-blart,

monat TYPE bkpf-monat,

budat TYPE bkpf-budat,

hkont TYPE bsis-hkont,

END OF ty_bkpf.

TYPES:BEGIN OF ty_output,

bukrs TYPE bkpf-bukrs,

gjahr TYPE bkpf-gjahr,

openbal TYPE bseg-dmbtr,

dttrns TYPE bseg-dmbtr,

dttrns TYPE bseg-SHKZG,

crtrans TYPE bseg-dmbtr,

crtrans type bseg-shkzg,

clbal TYPE bseg-dmbtr,

END OF ty_output.

DATA : fcat TYPE slis_t_fieldcat_alv,

lcat TYPE slis_fieldcat_alv,

layout TYPE slis_layout_alv,

fcath TYPE slis_t_add_fieldcat,

lcath TYPE slis_add_fieldcat.

DATA : lt_list_top_of_page TYPE slis_t_listheader.

DATA : cpos TYPE i.

DATA:it_bkpf TYPE STANDARD TABLE OF ty_bkpf,

wa_bkpf TYPE ty_bkpf.

DATA:it_output TYPE STANDARD TABLE OF ty_output,

wa_output TYPE ty_output.

DATA:it_balnce LIKE STANDARD TABLE OF bapi1028_4,

wa_balnce LIKE bapi1028_4.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS:pr_bukrs TYPE bkpf-bukrs DEFAULT '1000' OBLIGATORY ,

pr_gjahr TYPE bkpf-gjahr OBLIGATORY .

SELECT-OPTIONS:so_monat FOR bkpf-monat OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.

DEFINE field_cat.

add 1 to cpos.

clear lcat.

lcat-col_pos = cpos.

lcat-tabname = &1.

lcat-fieldname = &2.

lcat-seltext_m = &3.

lcat-no_out = &4.

append lcat to fcat.

END-OF-DEFINITION.

*get data.

PERFORM f001_get_data.

END-OF-SELECTION.

*display data.

PERFORM f002_diplay_data.

&----

*& Form f001_get_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM f001_get_data .

DATA :tabix LIKE sy-tabix,

w_bal type n.

*GET BELNR.

CLEAR:it_bkpf.

SELECT bukrs belnr gjahr blart monat budat

INTO TABLE it_bkpf

FROM bkpf

WHERE bukrs EQ pr_bukrs

AND gjahr EQ pr_gjahr

AND monat IN so_monat.

LOOP AT it_bkpf INTO wa_bkpf .

CLEAR:it_balnce.

CALL FUNCTION 'BAPI_GL_GETGLACCPERIODBALANCES'

EXPORTING

companycode = wa_bkpf-bukrs

glacct = '0000113100'

fiscalyear = wa_bkpf-gjahr

currencytype = '10'

IMPORTING
BALANCE_CARRIED_FORWARD =
RETURN =

TABLES

account_balances = it_balnce .

ENDLOOP.

sort it_balnce[] by comp_code.

LOOP AT it_balnce INTO wa_balnce where FIS_PERIOD le so_monat-low.

CLEAR:wa_output,w_bal.

w_bal = wa_balnce-balance.

wa_output-bukrs = wa_balnce-comp_code.

wa_output-gjahr = wa_balnce-fisc_year.

wa_output-openbal = wa_balnce-balance + w_bal.

wa_output-dttrns = wa_balnce-debits_per.

wa_output-crtrans = wa_balnce-credit_per.

wa_output-clbal = ( wa_balnce-balance + wa_balnce-debits_per

- wa_balnce-credit_per ).

APPEND wa_output TO it_output.

ENDLOOP.

ENDFORM. " f001_get_data

&----

*& Form f002_diplay_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM f002_diplay_data .

DATA: cprog LIKE sy-repid VALUE sy-repid.

REFRESH fcat.

field_cat 'IT_OUTPUT' 'BUKRS' 'Company Code' ' '.

field_cat 'IT_OUTPUT' 'GJAHR' 'Fiscal Year' ' '.

field_cat 'IT_OUTPUT' 'OPENBAL' 'Open Balance' ' '.

field_cat 'IT_OUTPUT' 'DTTRNS' 'Debit Transactions' ' '.

field_cat 'IT_OUTPUT' 'CTTRANS' 'Credit Transactions' ' '.

field_cat 'IT_OUTPUT' 'CLBAL' 'Closing Balnace' ' '.

layout-zebra = 'X'.

layout-colwidth_optimize = 'X'.

layout-get_selinfos = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = cprog

i_callback_top_of_page = 'TOP_OF_PAGE'

i_grid_title = 'Unrestricted Stock'

is_layout = layout

it_fieldcat = fcat

i_default = 'X'

i_save = 'A'

is_variant = w_variant

TABLES

t_outtab = IT_OUTPUT

EXCEPTIONS

program_error = 1

OTHERS = 2.

ENDFORM. " f002_diplay_data

&----

*& Form top_of_page

&----

text

----

FORM top_of_page.

DATA: l_line TYPE slis_listheader.

DATA: lw_usr21 TYPE usr21.

DATA: lw_name TYPE v_addr_usr-name_text.

l_line-typ = 'H'.

l_line-info = text-001.