|
Sample report is developed for FI for vendor ageing *&---------------------------------------------------------------------*
*& Report ZFI_VENDOR_AGEING *
*& *
*&---------------------------------------------------------------------*
*& Title - Vendor Ageing report to calculate the outstanding days *
*& Name- Pavan Praveen valluri
*& ABAP/4 Consultant *
*& Module - FI *
*&---------------------------------------------------------------------*
REPORT zfi_vendor_ageing.
TABLES : bsik, BAPIFVDEXP_VZZBEPP.
DATA : t_bsik LIKE bsik OCCURS 0 WITH HEADER LINE,
t_bsak LIKE bsak OCCURS 0 WITH HEADER LINE,
days like BAPIFVDEXP_VZZBEPP-NUM4.
DATA : BEGIN OF t_lfa1 OCCURS 0,
lifnr LIKE lfa1-lifnr,
name1 LIKE lfa1-name1,
adrnr LIKE lfa1-adrnr,
END OF t_lfa1.
DATA : BEGIN OF t_adrc OCCURS 0,
adrnr LIKE lfa1-adrnr,
street LIKE adrc-street,
city1 LIKE adrc-city1,
END OF t_adrc.
DATA : BEGIN OF t_BSEG OCCURS 0,
zfbdt LIKE BSEG-zfbdt,
KOART LIKE BSEG-KOART,
KOSTL LIKE BSEG-KOSTL,
PROJK LIKE BSEG-PROJK,
END OF t_BSEG.
DATA : BEGIN OF t_prps OCCURS 0,
POSID like prps-posid,
OBJNR like prps-objnr,
END OF t_prps.
DATA : T_KOSTL LIKE BSEG-KOSTL,
T_PROJK LIKE BSEG-PROJK,
TEXT(15).
DATA : BEGIN OF t_output OCCURS 0,
lifnr LIKE lfa1-lifnr,
name1 LIKE lfa1-name1,
street LIKE adrc-street,
city1 LIKE adrc-city1,
OBJNR LIKE prps-OBJNR,
posid LIKE prps-posid,
KOSTL LIKE BSIK-KOSTL, " COST CENTER
UMSKZ like bsik-UMSKZ,
belnr like bsik-belnr,
bukrs like bsik-bukrs,
gjahr like bsik-gjahr,
wrbtr like bsik-wrbtr,
hkont like bsik-hkont,
dif1 like bsik-wrbtr,
dif2 like bsik-wrbtr,
dif3 like bsik-wrbtr,
dif4 like bsik-wrbtr,
dif5 like bsik-wrbtr,
days like BAPIFVDEXP_VZZBEPP-NUM4,
END OF t_output.
* Alv data declaration
TYPE-POOLS : slis.
DATA :alv_fieldcat TYPE slis_t_fieldcat_alv,
alv_fieldcat_line LIKE LINE OF alv_fieldcat,
alv_sort TYPE slis_t_sortinfo_alv,
alv_sort_line LIKE LINE OF alv_sort,
alv_layout TYPE slis_layout_alv,
g_repid LIKE sy-repid VALUE sy-repid,
alv_status_set TYPE slis_formname VALUE 'ALV_STATUS_SET',
alv_user_comm TYPE slis_formname VALUE 'ALV_USER_COMM',
grid_title TYPE lvc_title,
alv_fieldcat_acty TYPE slis_t_fieldcat_alv,
g_save,
gs_variant LIKE disvariant,
g_exit_caused_by_caller TYPE c,
gs_exit_caused_by_user TYPE slis_exit_by_user.
DATA: alv_fieldcat_line_acty LIKE LINE OF alv_fieldcat_acty,
alv_layout_acty TYPE slis_layout_alv,
gt_list_top_of_page TYPE slis_t_listheader,
gt_events TYPE slis_t_event,
message TYPE string,
r_ucomm LIKE sy-ucomm,
rs_selfield TYPE slis_selfield.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_bukrs FOR bsik-bukrs,
s_gjahr FOR bsik-gjahr,
s_lifnr FOR bsik-lifnr,
s_umskz FOR bsik-umskz.
parameters : p_augdt like bsik-augdt OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECT-OPTIONS : s_date1 FOR BAPIFVDEXP_VZZBEPP-NUM4 NO-EXTENSION OBLIGATORY
DEFAULT 1 TO 30,
s_date2 FOR BAPIFVDEXP_VZZBEPP-NUM4 NO-EXTENSION OBLIGATORY
DEFAULT 30 TO 60,
s_date3 FOR BAPIFVDEXP_VZZBEPP-NUM4 NO-EXTENSION OBLIGATORY
DEFAULT 60 TO 90,
s_date4 FOR BAPIFVDEXP_VZZBEPP-NUM4 NO-EXTENSION OBLIGATORY
DEFAULT 90 TO 120,
s_date5 FOR BAPIFVDEXP_VZZBEPP-NUM4 NO-EXTENSION OBLIGATORY
DEFAULT 120 TO 150.
SELECTION-SCREEN END OF BLOCK b2.
INITIALIZATION.
START-OF-SELECTION.
PERFORM fetch_data.
PERFORM display.
*&---------------------------------------------------------------------*
*& Form fetch_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM fetch_data .
SELECT *
INTO TABLE t_bsik
FROM bsik
WHERE bukrs IN s_bukrs
AND gjahr IN s_gjahr
AND lifnr IN s_lifnr
AND umskz IN s_umskz
AND umskz NOT IN ('F','P','L','G').
* AND zfbdt <= P_augdt.
if sy-subrc = 0.
SELECT *
INTO TABLE t_bsak
FROM bsak
WHERE bukrs IN s_bukrs
AND gjahr IN s_gjahr
AND lifnr IN s_lifnr
AND umskz IN s_umskz
AND umskz NOT IN ('F','P','L','G')
AND AUGDT > P_augdt.
loop at t_bsak.
move-corresponding t_bsak to t_bsik.
append t_bsik.
endloop.
loop at t_bsik.
if t_bsik-zfbdt is initial.
t_bsik-zfbdt = t_bsik-bldat.
modify t_bsik transporting zfbdt.
endif.
if t_bsik-zfbdt > P_augdt.
delete t_bsik.
endif.
* if t_bsik-umskz > P_augdt.
endloop.
select lifnr
name1
adrnr
into table t_lfa1
from lfa1
for all entries in t_bsik
where lifnr = t_bsik-lifnr.
if sy-subrc = 0.
select ADDRNUMBER as adrnr
street
city1
into table t_adrc
from adrc
for all entries in t_lfa1
where ADDRNUMBER = t_lfa1-adrnr.
endif.
endif.
LOOP AT t_bsik.
if t_bsik-shkzg = 'S'.
t_bsik-WRBTR = t_bsik-WRBTR * -1.
endif.
REFRESH T_BSEG.
CLEAR : T_KOSTL, T_PROJK, t_output.
IF t_bsik-rebzg IS NOT INITIAL.
SELECT zfbdt
KOART
KOSTL
PROJK
INTO TABLE T_BSEG "t_bsik-ZFBDT
FROM bseg
WHERE bukrs = t_bsik-bukrs
AND belnr = t_bsik-rebzg
AND gjahr = t_bsik-rebzj
and KOART IN ('K','S').
LOOP AT T_BSEG.
IF T_BSEG-KOART = 'K' AND T_BSEG-zfbdt IS NOT INITIAL.
t_bsik-ZFBDT = T_BSEG-ZFBDT.
MODIFY t_bsik TRANSPORTING ZFBDT.
ELSEIF T_BSEG-KOART = 'S'.
T_KOSTL = T_BSEG-KOSTL.
T_PROJK = T_BSEG-PROJK.
ENDIF.
ENDLOOP.
ELSE.
SELECT SINGLE KOSTL PROJK
INTO (T_KOSTL, T_PROJK)
FROM bseg
WHERE bukrs = t_bsik-bukrs
AND belnr = t_bsik-BELNR
AND gjahr = t_bsik-GJAHR
and KOART = 'S'.
ENDIF.
MOVE-CORRESPONDING t_bsik TO t_output.
t_output-KOSTL = T_KOSTL.
CONCATENATE 'PR' T_PROJK INTO T_OUTPUT-OBJNR.
days = P_augdt - t_bsik-ZFBDT.
READ TABLE t_lfa1 WITH KEY lifnr = t_output-LIFNR.
IF SY-SUBRC = 0.
t_output-NAME1 = t_lfa1-NAME1.
READ TABLE t_adrc WITH KEY ADRNR = t_lfa1-ADRNR.
IF SY-SUBRC = 0.
t_output-street = t_adrc-STREET.
t_output-city1 = t_adrc-CITY1.
ENDIF.
ENDIF.
t_output-days = days.
if days >= s_date1-low and days < s_date1-high.
t_output-dif1 = t_bsik-wrbtr. " days.
elseif days >= s_date2-low and days < s_date2-high.
t_output-dif2 = t_bsik-wrbtr. "days.
elseif days >= s_date3-low and days < s_date3-high.
t_output-dif3 = t_bsik-wrbtr. "days.
elseif days >= s_date4-low and days < s_date4-high.
t_output-dif4 = t_bsik-wrbtr. "days.
elseif days >= s_date5-low and days < s_date5-high.
t_output-dif5 = t_bsik-wrbtr. "days.
endif.
append t_output.
ENDLOOP.
if T_OUTPUT[] is not initial.
SELECT POSID
OBJNR
INTO TABLE T_PRPS
FROM PRPS
FOR ALL ENTRIES IN T_OUTPUT
WHERE OBJNR = T_OUTPUT-OBJNR.
endif.
LOOP AT T_OUTPUT.
read table T_PRPS with key objnr = T_OUTPUT-objnr.
if sy-subrc = 0.
T_OUTPUT-POSID = T_PRPS-POSID.
MODIFY t_output TRANSPORTING POSID.
endif.
ENDLOOP.
ENDFORM. " fetch_data
*&---------------------------------------------------------------------*
*& Form display
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM display .
PERFORM build_alv_layout.
PERFORM s_sort_build USING alv_sort[].
PERFORM build_field_catalogs.
PERFORM eventtab_build CHANGING gt_events.
* SORT t_output BY .
g_save = 'A'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_repid
i_callback_pf_status_set = alv_status_set
i_callback_user_command = alv_user_comm
i_grid_title = grid_title
i_save = g_save
is_variant = gs_variant
is_layout = alv_layout
it_fieldcat = alv_fieldcat[]
it_events = gt_events[]
it_sort = alv_sort[]
IMPORTING
e_exit_caused_by_caller = g_exit_caused_by_caller
es_exit_caused_by_user = gs_exit_caused_by_user
TABLES
t_outtab = t_output.
PERFORM alv_user_comm USING r_ucomm
rs_selfield.
IF sy-subrc = 0.
IF g_exit_caused_by_caller = 'X'.
ELSE.
IF gs_exit_caused_by_user-back = 'X'. " F3
ELSE.
IF gs_exit_caused_by_user-exit = 'X'. " F15
ELSE.
IF gs_exit_caused_by_user-cancel = 'X'. " F12
ELSE.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ELSE.
*" Fatal error calling ALV
ENDIF.
ENDFORM. " display
*&---------------------------------------------------------------------*
*& Form build_alv_layout
*&---------------------------------------------------------------------*
FORM build_alv_layout.
CLEAR alv_layout.
alv_layout-colwidth_optimize = 'X'. "always display full columns
* alv_layout-box_fieldname = 'CHK'.
* alv_layout-box_tabname = 'T_OUTPUT'.
alv_layout-info_fieldname = 'COLOR'. "color a line
alv_layout-detail_popup = 'X'.
alv_layout-zebra = 'X'. "Zebra output
ENDFORM. " build_alv_layout
*---------------------------------------------------------------------*
* FORM s_sort_build *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> LT_SORT *
*---------------------------------------------------------------------*
FORM s_sort_build USING lt_sort TYPE slis_t_sortinfo_alv.
DATA: ls_sort TYPE slis_sortinfo_alv.
CLEAR ls_sort.
ls_sort-spos = 1.
ls_sort-fieldname = 'LIFNR'.
ls_sort-up = 'X'.
ls_sort-group = 'UL'.
ls_sort-subtot = 'X'.
APPEND ls_sort TO lt_sort.
CLEAR ls_sort.
ls_sort-spos = 2.
ls_sort-fieldname = 'BELNR'.
ls_sort-up = 'X'.
ls_sort-subtot = 'X'.
ls_sort-group = 'UL'.
APPEND ls_sort TO lt_sort.
CLEAR ls_sort.
ENDFORM. "s_sort_build
*&---------------------------------------------------------------------*
*& Form eventtab_build
*&---------------------------------------------------------------------*
FORM eventtab_build CHANGING lt_events TYPE slis_t_event.
FIELD-SYMBOLS: <lt_events> LIKE LINE OF lt_events.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = lt_events
EXCEPTIONS
list_type_wrong = 1
OTHERS = 2.
* Define TOP_OF_PAGE event
READ TABLE lt_events WITH KEY name = slis_ev_top_of_page
ASSIGNING <lt_events>.
IF sy-subrc EQ 0.
MOVE gc_formname_top_of_page TO <lt_events>-form.
ENDIF.
ENDFORM. " eventtab_build
*&---------------------------------------------------------------------*
*& Form TOP_OF_PAGE
*&---------------------------------------------------------------------*
FORM top_of_page.
REFRESH gt_list_top_of_page.
CLEAR gt_list_top_of_page.
PERFORM comment_build USING gt_list_top_of_page.
* Output GSPC logo on report header
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = gt_list_top_of_page
i_logo = 'GSPC_LOGO'.
ENDFORM. "top_of_page
*&---------------------------------------------------------------------*
*& Form COMMENT_BUILD
*&---------------------------------------------------------------------*
* Build comments at top of page
*----------------------------------------------------------------------*
FORM comment_build CHANGING gt_top_of_page TYPE slis_t_listheader.
DATA: gs_line TYPE slis_listheader.
CLEAR gs_line.
gs_line-typ = 'H'.
gs_line-info = 'Vendor Ageing'.
APPEND gs_line TO gt_top_of_page.
CLEAR gs_line.
gs_line-typ = 'S'.
gs_line-key = 'Report ID:'.
gs_line-info = sy-repid.
APPEND gs_line TO gt_top_of_page.
CLEAR gs_line.
gs_line-typ = 'S'.
gs_line-key = 'User:'.
gs_line-info = sy-uname.
APPEND gs_line TO gt_top_of_page.
CLEAR gs_line.
gs_line-typ = 'S'.
gs_line-key = 'Date:'.
WRITE sy-datum TO gs_line-info MM/DD/YYYY.
APPEND gs_line TO gt_top_of_page.
CLEAR gs_line.
gs_line-typ = 'S'.
gs_line-key = 'Time:'.
WRITE sy-uzeit TO gs_line-info USING EDIT MASK '__:__:__'.
APPEND gs_line TO gt_top_of_page.
CLEAR gs_line.
gs_line-typ = 'S'.
gs_line-key = ''.
WRITE ' '.
APPEND gs_line TO gt_top_of_page.
* Output data from selection screen
ENDFORM. "comment_build
*----------------------------------------------------------------------*
*Build ALV Summary field catalog
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form build_field_catalogs
*&---------------------------------------------------------------------*
FORM build_field_catalogs.
CLEAR: alv_fieldcat.
REFRESH: alv_fieldcat.
* Vendor Number
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = 'Vendor Number'.
* alv_fieldcat_line-hotspot = 'X'.
alv_fieldcat_line-fieldname = 'LIFNR'.
APPEND alv_fieldcat_line TO alv_fieldcat.
CLEAR alv_fieldcat_line.
* Vendor Name
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = 'Vendor Name'.
alv_fieldcat_line-fieldname = 'NAME1'.
APPEND alv_fieldcat_line TO alv_fieldcat.
CLEAR alv_fieldcat_line.
* Vendor Address
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = 'Vendor Address'.
alv_fieldcat_line-fieldname = 'STREET'.
APPEND alv_fieldcat_line TO alv_fieldcat.
CLEAR alv_fieldcat_line.
* City
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = 'City'.
alv_fieldcat_line-fieldname = 'CITY1'.
APPEND alv_fieldcat_line TO alv_fieldcat.
CLEAR alv_fieldcat_line.
* Object number #
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = 'object #'.
alv_fieldcat_line-fieldname = 'OBJNR'.
alv_fieldcat_line-no_out = 'X'.
APPEND alv_fieldcat_line TO alv_fieldcat.
CLEAR alv_fieldcat_line.
* WBS Element
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = 'WBS Element'.
alv_fieldcat_line-fieldname = 'POSID'.
APPEND alv_fieldcat_line TO alv_fieldcat.
* Cost Center
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = 'Cost Center'.
alv_fieldcat_line-fieldname = 'KOSTL'.
APPEND alv_fieldcat_line TO alv_fieldcat.
* GL Indicator
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = 'GL Indicator'.
alv_fieldcat_line-fieldname = 'UMSKZ'.
APPEND alv_fieldcat_line TO alv_fieldcat.
CLEAR alv_fieldcat_line.
* General Ledger Account
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = 'General Ledger Account'.
alv_fieldcat_line-fieldname = 'HKONT'.
APPEND alv_fieldcat_line TO alv_fieldcat.
* Document No.
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-hotspot = 'X'.
alv_fieldcat_line-seltext_l = 'Document No.'.
alv_fieldcat_line-fieldname = 'BELNR'.
APPEND alv_fieldcat_line TO alv_fieldcat.
CLEAR alv_fieldcat_line.
* Amount
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = 'Amount'.
alv_fieldcat_line-fieldname = 'WRBTR'.
alv_fieldcat_line-no_out = 'X'.
APPEND alv_fieldcat_line TO alv_fieldcat.
* dif1
CLEAR TEXT.
READ TABLE s_date1 INDEX 1.
CONCATENATE 'DAYS ' s_date1-LOW '-' s_date1-HIGH INTO TEXT.
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = TEXT.
alv_fieldcat_line-fieldname = 'DIF1'.
alv_fieldcat_line-do_sum = 'X'.
APPEND alv_fieldcat_line TO alv_fieldcat.
CLEAR alv_fieldcat_line.
* dif2
CLEAR TEXT.
READ TABLE s_date2 INDEX 1.
CONCATENATE 'DAYS ' s_date2-LOW '-' s_date2-HIGH INTO TEXT.
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = TEXT.
* alv_fieldcat_line-no_out = 'X'.
alv_fieldcat_line-fieldname = 'DIF2'.
APPEND alv_fieldcat_line TO alv_fieldcat.
CLEAR alv_fieldcat_line.
* dif3
CLEAR TEXT.
READ TABLE s_date3 INDEX 1.
CONCATENATE 'DAYS ' s_date3-LOW '-' s_date3-HIGH INTO TEXT.
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = TEXT.
alv_fieldcat_line-fieldname = 'DIF3'.
APPEND alv_fieldcat_line TO alv_fieldcat.
CLEAR alv_fieldcat_line.
* dif4
CLEAR TEXT.
READ TABLE s_date4 INDEX 1.
CONCATENATE 'DAYS ' s_date4-LOW '-' s_date4-HIGH INTO TEXT.
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = TEXT.
alv_fieldcat_line-fieldname = 'DIF4'.
APPEND alv_fieldcat_line TO alv_fieldcat.
* dif5
CLEAR TEXT.
READ TABLE s_date5 INDEX 1.
CONCATENATE 'DAYS ' s_date5-LOW '-' s_date5-HIGH INTO TEXT.
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = TEXT.
alv_fieldcat_line-fieldname = 'DIF5'.
APPEND alv_fieldcat_line TO alv_fieldcat.
* Days
alv_fieldcat_line-tabname = 'T_OUTPUT'.
alv_fieldcat_line-seltext_l = 'Days'.
alv_fieldcat_line-fieldname = 'DAYS'.
* alv_fieldcat_line-no_out = 'X'.
APPEND alv_fieldcat_line TO alv_fieldcat.
ENDFORM. " build_field_catalogs
*&---------------------------------------------------------------------*
*& Form ALV_USER_COMM
*&---------------------------------------------------------------------*
* Process User Status
*----------------------------------------------------------------------*
FORM alv_user_comm USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
*Determine the main component beign viewed
READ TABLE T_OUTPUT INDEX rs_selfield-tabindex.
CASE r_ucomm.
WHEN '&IC1'. " single / double click
CASE rs_selfield-fieldname.
* Display FI document
WHEN 'BELNR'.
SET PARAMETER ID 'BLN' FIELD T_OUTPUT-BELNR.
SET PARAMETER ID 'BUK' FIELD T_OUTPUT-BUKRS.
SET PARAMETER ID 'GJR' FIELD T_OUTPUT-GJAHR.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
ENDCASE.
* WHEN 'FMB58'.
* SET PARAMETER ID 'MAT' FIELD prtab-matnr.
* CALL TRANSACTION 'MB58' AND SKIP FIRST SCREEN.
* WHEN 'CHK'.
* MOVE 'X' TO prtab-chk.
* MODIFY prtab INDEX rs_selfield-tabindex.
ENDCASE.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form ALV_STATUS_SET
*&---------------------------------------------------------------------*
* Set the status for the ALV screen
*----------------------------------------------------------------------*
FORM alv_status_set USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'STANDARD' EXCLUDING rt_extab.
ENDFORM.
Get help for your ABAP problems
ABAP Books
More ABAP Tips
SAP Basis, ABAP Programming and Other IMG Stuff http://www.erpgreat.com All the site contents are Copyright © www.erpgreat.com
and the content authors. All rights reserved.
|