Accounts Recievable Aging Report

Objective: Most of the time every client requires AP Aging report to track the Vendor information amount.

\*&--------------------------------------------------------------------\*
\*& Report&nbsp; ZFI_ARAGING&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *
\*&&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *
\*&--------------------------------------------------------------------\*
\*& Developer: Chidanand Chauhan (Sparta Consulting)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *
\*& Date: 1/20/2009&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *
\*& Transport Request: DEVK913008&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *
\*& Description:&nbsp; AR Aging Report&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *
\*&&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *
\*&--------------------------------------------------------------------\*
\*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; M O D I F I C A T I O N&nbsp;&nbsp; L O G&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *
\*&--------------------------------------------------------------------\*
\*&nbsp; Version&nbsp;&nbsp;&nbsp;&nbsp; Date&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Developer&nbsp;&nbsp;&nbsp; Description of change&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *
\*&--------------------------------------------------------------------\*
\*&nbsp;&nbsp; 1.0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1/20/2009&nbsp;&nbsp; CChauhan&nbsp;&nbsp;&nbsp;&nbsp; Initial Development&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; *
\*&--------------------------------------------------------------------\*
REPORT&nbsp; zfi_araging.

TYPE-POOLS: slis.

TABLES: kna1,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; knb1,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bsid.
DATA: BEGIN OF it_bsid OCCURS 0,
&nbsp;&nbsp; bukrs TYPE bsid-bukrs,&nbsp;&nbsp;&nbsp; " Company Code
&nbsp;&nbsp; kunnr TYPE bsid-kunnr,&nbsp;&nbsp;&nbsp; " Customer No
&nbsp;&nbsp; gjahr TYPE bsid-gjahr,&nbsp;&nbsp;&nbsp; " FINANCIAL YEAR
&nbsp;&nbsp; belnr TYPE bsid-belnr,&nbsp;&nbsp;&nbsp; " Doc No
&nbsp;&nbsp; blart TYPE bsid-blart,&nbsp;&nbsp;&nbsp; " Doc Type
&nbsp;&nbsp; bldat TYPE bsid-bldat,&nbsp;&nbsp;&nbsp; " Doc Date
&nbsp;&nbsp; shkzg TYPE bsid-shkzg,&nbsp;&nbsp;&nbsp; " Credit / Debit
&nbsp;&nbsp; waers TYPE bsid-waers,&nbsp;&nbsp;&nbsp; " Local Currency
&nbsp;&nbsp; monat TYPE bsid-monat,&nbsp;&nbsp;&nbsp;&nbsp; "FINANCIAL PERIOD
&nbsp;&nbsp; dmbtr TYPE bsid-dmbtr,&nbsp;&nbsp;&nbsp; " Amount in Loc Currency
&nbsp;&nbsp; wrbtr TYPE bsid-wrbtr,&nbsp;&nbsp;&nbsp; " Amount in DC
&nbsp;&nbsp; hkont TYPE bsid-hkont,&nbsp;&nbsp;&nbsp; " General Ledger Account
&nbsp;&nbsp; zterm TYPE bsid-zterm,&nbsp;&nbsp;&nbsp;&nbsp; " Terms of payment key
&nbsp;&nbsp; zbd1t TYPE bsid-zbd1t,&nbsp;&nbsp;&nbsp; " Days
&nbsp;&nbsp; vbeln TYPE bsid-vbeln,&nbsp;&nbsp;&nbsp; "Sales Document
END OF it_bsid.

DATA: BEGIN OF it_bkpf OCCURS 0,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bukrs TYPE bkpf-bukrs,&nbsp;&nbsp;&nbsp; "Company Code
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; belnr TYPE bkpf-belnr,&nbsp;&nbsp;&nbsp; "Doc No
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xblnr TYPE bkpf-xblnr,&nbsp;&nbsp;&nbsp; "Reference
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; budat TYPE bkpf-budat,&nbsp;&nbsp;&nbsp; "Posting Date
&nbsp;END OF it_bkpf.

DATA: BEGIN OF it_kna1 OCCURS 0,
&nbsp; kunnr TYPE kna1-kunnr,
&nbsp; name1 TYPE kna1-name1,
&nbsp; land1 TYPE kna1-land1,
&nbsp; regio TYPE kna1-regio,
END OF it_kna1.
DATA: BEGIN OF it_vbpa OCCURS 0,
&nbsp; vbeln TYPE vbpa-vbeln,
&nbsp; kunnr TYPE vbpa-kunnr,
END OF it_vbpa.
DATA : BEGIN OF it_v_vbsegd OCCURS 0,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bukrs TYPE v_vbsegd-bukrs,&nbsp;&nbsp; "Company Code
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kunnr TYPE v_vbsegd-kunnr,&nbsp;&nbsp; "Customer No.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; belnr TYPE v_vbsegd-belnr,&nbsp;&nbsp; "Doc. No.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; blart TYPE v_vbsegd-blart,&nbsp;&nbsp; "Doc. type
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bldat TYPE v_vbsegd-bldat,&nbsp;&nbsp; "Doc. Date
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; shkzg TYPE v_vbsegd-shkzg,&nbsp;&nbsp; "Credit / Debit
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; swaer TYPE v_vbsegd-swaer,&nbsp;&nbsp; "Currency Key
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dmbtr TYPE v_vbsegd-dmbtr,&nbsp;&nbsp; "Amount in Local currency
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wrbtr TYPE v_vbsegd-wrbtr,&nbsp;&nbsp; "Amount in Doc. Curr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; zbd1t TYPE v_vbsegd-zbd1t,&nbsp;&nbsp; "Days
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xblnr TYPE v_vbsegd-xblnr,&nbsp;&nbsp; "Reference Doc.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; budat TYPE v_vbsegd-budat,&nbsp;&nbsp; "Postin Date
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; END OF it_v_vbsegd.

DATA: BEGIN OF it_final OCCURS 0,

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kunnr TYPE bsid-kunnr,&nbsp;&nbsp;&nbsp; " Customer No
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; name1 TYPE kna1-name1,&nbsp;&nbsp;&nbsp; " Customer Name
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; landx TYPE t005t-landx,&nbsp; "&nbsp; COUNTRY
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bezei TYPE t005u-bezei,&nbsp;&nbsp;&nbsp; " Region
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; name11 type kna1-name1,&nbsp;&nbsp;&nbsp; " Sales person name
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bukrs TYPE bsid-bukrs,&nbsp;&nbsp;&nbsp; " Company Code
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; gjahr TYPE bsid-gjahr,&nbsp;&nbsp;&nbsp; " FINANCIAL YEAR
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; belnr TYPE bsid-belnr,&nbsp;&nbsp;&nbsp; " Doc No
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; blart TYPE bsid-blart,&nbsp;&nbsp;&nbsp; " Doc Type
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xblnr TYPE bkpf-xblnr,&nbsp;&nbsp;&nbsp; "Reference
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bldat TYPE bsid-bldat,&nbsp;&nbsp;&nbsp; " Doc Date
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; budat TYPE bkpf-budat,&nbsp;&nbsp;&nbsp; "Posting Date
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; duedt TYPE bkpf-budat,&nbsp;&nbsp;&nbsp; " Due Date
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wrbtr TYPE bsid-wrbtr,&nbsp;&nbsp;&nbsp; " Amount in DC
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; hkont TYPE bsid-hkont,&nbsp;&nbsp;&nbsp; " General Ledger Account
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; waers TYPE bsid-waers,&nbsp;&nbsp;&nbsp; "Local Currency
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; monat TYPE bsid-monat,&nbsp;&nbsp;&nbsp; "FINANCIAL PERIOD
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vbeln TYPE bsid-vbeln,&nbsp;&nbsp;&nbsp; "Sales Document
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bstnk TYPE vbak-bstnk,&nbsp;&nbsp;&nbsp; " Purchase Order No
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dmbtr TYPE bsid-dmbtr,&nbsp;&nbsp;&nbsp; " Amount in Loc Currency
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; zterm TYPE bsid-zterm,&nbsp;&nbsp;&nbsp; " Terms of payment key
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; zbd1t TYPE bsid-zbd1t,&nbsp;&nbsp;&nbsp; " Days
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AGING TYPE BSID-DMBTR,&nbsp;&nbsp;&nbsp; "Aging
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 30days TYPE bsid-dmbtr,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " 30 Days,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 60days TYPE bsid-dmbtr,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " 60 Days,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 90days TYPE bsid-dmbtr,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " 90 Days,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 120days TYPE bsid-dmbtr,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "120 Days,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 150days TYPE bsid-dmbtr,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "150 Days,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; yrmon(10) ,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "for year month concatination
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; END OF it_final.

DATA: BEGIN OF it_vbfa OCCURS 0,
&nbsp; vbelv TYPE vbfa-vbelv,&nbsp;&nbsp;&nbsp; "Sales Order
&nbsp; vbeln TYPE vbfa-vbeln,&nbsp;&nbsp;&nbsp; "Billing Doc
END OF it_vbfa.

DATA: BEGIN OF it_vbak OCCURS 0,
&nbsp;&nbsp;&nbsp; vbeln TYPE vbak-vbeln,&nbsp;&nbsp;&nbsp;&nbsp; " Sales Order
&nbsp;&nbsp;&nbsp; bstnk TYPE vbak-bstnk,&nbsp;&nbsp;&nbsp;&nbsp; " Purchase Order
&nbsp;END OF it_vbak.
DATA: BEGIN OF it_t005t OCCURS 0,
&nbsp;&nbsp;&nbsp; land1 TYPE t005t-land1,
&nbsp;&nbsp;&nbsp; landx TYPE t005t-landx,
END OF it_t005t.
DATA: BEGIN OF it_t005u OCCURS 0,
&nbsp;&nbsp;&nbsp; land1 TYPE t005u-land1,
&nbsp;&nbsp;&nbsp; bland TYPE t005u-bland,
&nbsp;&nbsp;&nbsp; bezei TYPE t005u-bezei,
&nbsp; END OF it_t005u.
DATA: BEGIN OF it_kna11 OCCURS 0,
&nbsp;&nbsp;&nbsp; kunnr TYPE kna1-kunnr,
&nbsp;&nbsp;&nbsp; name1 TYPE kna1-name1,
&nbsp; END OF it_kna11.

DATA: gt_fcat TYPE slis_t_fieldcat_alv WITH HEADER LINE .
DATA: gv_repname&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LIKE sy-repid.
DATA: gs_layout&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TYPE slis_layout_alv.

CONSTANTS: formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; c_check TYPE c VALUE 'X'.

DATA: events&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TYPE slis_t_event,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; l_string&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TYPE slis_entry,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wa_header&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TYPE slis_listheader,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; heading&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TYPE slis_t_listheader,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dat&nbsp; LIKE sy-datum.

\*&--------------------------------------------------------------------\*
\*&nbsp;&nbsp;&nbsp; S E L E C T I O N&nbsp;&nbsp;&nbsp;&nbsp; S C R E E N&nbsp;&nbsp;&nbsp; D E C L A R A T I O N
\*&--------------------------------------------------------------------\*
SELECTION-SCREEN BEGIN OF BLOCK customer WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_kunnr FOR kna1-kunnr .
SELECT-OPTIONS: s_bukrs FOR knb1-bukrs&nbsp; OBLIGATORY.
SELECTION-SCREEN END OF BLOCK customer.

SELECTION-SCREEN BEGIN OF BLOCK line WITH FRAME TITLE text-002.
PARAMETERS pa_stida LIKE rfpdo-allgstid DEFAULT sy-datlo.
SELECTION-SCREEN END OF BLOCK line.

SELECTION-SCREEN BEGIN OF BLOCK further WITH FRAME TITLE text-003.
PARAMETERS: p_norm LIKE itemset-xnorm AS CHECKBOX DEFAULT 'X',
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; p_park LIKE itemset-xpark AS CHECKBOX,
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; p_merk LIKE itemset-xmerk AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK further.

\*&--------------------------------------------------------------------\*
\*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; A T&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; S E L E C T I O N&nbsp;&nbsp;&nbsp;&nbsp; S C R E E N
\*---------------------------------------------------------------------\*
AT SELECTION-SCREEN ON BLOCK further.
&nbsp; IF p_norm IS INITIAL AND p_park IS INITIAL AND p_merk IS INITIAL.
&nbsp;&nbsp;&nbsp; MESSAGE e020(msitem).
&nbsp; ENDIF.

\*&--------------------------------------------------------------------\*
\*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; S T A R T&nbsp;&nbsp;&nbsp;&nbsp; O F&nbsp;&nbsp;&nbsp; S E L E C T I O N
\*&--------------------------------------------------------------------\*
START-OF-SELECTION.

&nbsp; PERFORM get_data.
&nbsp; PERFORM get_final_data.
&nbsp; PERFORM display_output.

\*&--------------------------------------------------------------------\*
\*&&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Form&nbsp; get_data
\*&--------------------------------------------------------------------\*
\*&nbsp; Populate internal table with appropriate data.
\*---------------------------------------------------------------------\*
FORM get_data .

\*&--If normal item is selected.
&nbsp; IF p_norm = c_check.

\*&--Get Comapny ocde and Customer specific data from BSID
&nbsp;&nbsp;&nbsp; SELECT
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bukrs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kunnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; gjahr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; belnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; blart
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bldat
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; shkzg
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; waers
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; monat
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dmbtr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wrbtr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; hkont
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; zterm
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; zbd1t
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vbeln
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INTO TABLE it_bsid
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FROM bsid
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE bukrs IN s_bukrs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AND kunnr IN s_kunnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AND bstat = '' AND umskz = ''.
&nbsp; ENDIF.

\*&--If noted item is selected.
&nbsp; IF p_merk = c_check.
\*&--Get Comapny ocde and Customer specific data from BSID
\*&--Use of APPENDING instead of INTO to add records if table
\*&--contains records as NORMAL ITEMS.
&nbsp;&nbsp;&nbsp; SELECT
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bukrs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kunnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; gjahr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; belnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; blart
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bldat
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; shkzg
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; waers
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; monat
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dmbtr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wrbtr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; hkont
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; zterm
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; zbd1t
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vbeln
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; APPENDING TABLE it_bsid
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FROM bsid
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE bukrs IN s_bukrs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AND kunnr IN s_kunnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AND bstat = 'S'.
&nbsp; ENDIF.
\*&--Get Reference No and posting Date
&nbsp; SORT it_bsid&nbsp;&nbsp; BY&nbsp; bukrs belnr.
&nbsp; IF NOT it_bsid\[\] IS INITIAL.
&nbsp;&nbsp;&nbsp; SELECT bukrs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; belnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xblnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; budat
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INTO TABLE it_bkpf
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FROM bkpf
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FOR ALL ENTRIES IN it_bsid
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE bukrs = it_bsid-bukrs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AND&nbsp;&nbsp; belnr = it_bsid-belnr.

\*&-\- Get the Sales Order information
&nbsp;&nbsp;&nbsp; SELECT vbelv&nbsp; " Billing Doc no
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vbeln&nbsp; " Sales Order
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INTO TABLE it_vbfa
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FROM vbfa
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FOR ALL ENTRIES IN it_bsid
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE vbeln = it_bsid-vbeln.

&nbsp;&nbsp;&nbsp; IF NOT it_vbfa\[\] IS INITIAL.
\*&Get the Sales Order and Related Purchase Order
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SELECT vbeln&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " Sales Order
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bstnk&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " Purchase Order
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INTO TABLE it_vbak
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FROM vbak
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FOR ALL ENTRIES IN it_vbfa
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE vbeln = it_vbfa-vbelv.
&nbsp;&nbsp;&nbsp; ENDIF.
\*& Get Sales Person number
&nbsp;&nbsp;&nbsp; IF NOT it_vbak\[\] IS INITIAL.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SELECT vbeln
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kunnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INTO TABLE it_vbpa
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FROM vbpa
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FOR ALL ENTRIES IN it_vbak
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE vbeln = it_vbak-vbeln
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AND parvw = 'SA'.

&nbsp;&nbsp;&nbsp; ENDIF.

&nbsp;&nbsp;&nbsp; IF NOT it_vbpa\[\] IS INITIAL.
\*& Get Sales person name
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SELECT kunnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; name1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INTO TABLE it_kna11
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FROM kna1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FOR ALL ENTRIES IN it_vbpa
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE kunnr = it_vbpa-kunnr.
&nbsp;&nbsp;&nbsp; ENDIF.
&nbsp; ENDIF.
\*&--If parked item is selected.
&nbsp; IF p_park = c_check.
\*&--Get Customer specific,Company Code and reference doc for Parked Items from V_VBSEGD
&nbsp;&nbsp;&nbsp; SELECT bukrs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; kunnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; belnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; blart
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bldat
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; shkzg
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; swaer
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dmbtr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wrbtr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; zbd1t
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xblnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; budat
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INTO TABLE it_v_vbsegd
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FROM v_vbsegd
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE bukrs IN s_bukrs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AND kunnr IN s_kunnr.
\*&--Populate it_bsid and it_bkpf for Parked items.
&nbsp;&nbsp;&nbsp; LOOP AT it_v_vbsegd.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bsid-bukrs = it_v_vbsegd-bukrs.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bsid-kunnr = it_v_vbsegd-kunnr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bsid-belnr = it_v_vbsegd-belnr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bsid-blart = it_v_vbsegd-blart.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bsid-bldat = it_v_vbsegd-bldat.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bsid-shkzg = it_v_vbsegd-shkzg.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bsid-waers = it_v_vbsegd-swaer.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bsid-dmbtr = it_v_vbsegd-dmbtr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bsid-wrbtr = it_v_vbsegd-wrbtr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bsid-zbd1t = it_v_vbsegd-zbd1t.

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bkpf-bukrs = it_v_vbsegd-bukrs.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bkpf-belnr = it_v_vbsegd-belnr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bkpf-xblnr = it_v_vbsegd-xblnr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_bkpf-budat = it_v_vbsegd-budat.

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; APPEND: it_bsid,it_bkpf.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CLEAR: it_bsid,it_bkpf.
&nbsp;&nbsp;&nbsp; ENDLOOP.
&nbsp; ENDIF.
\*&--Get Customer Name
&nbsp; SELECT kunnr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; name1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; land1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; regio
&nbsp;&nbsp;&nbsp;&nbsp; INTO TABLE it_kna1
&nbsp;&nbsp;&nbsp;&nbsp; FROM kna1
&nbsp;&nbsp;&nbsp;&nbsp; WHERE kunnr IN s_kunnr.

&nbsp; IF NOT&nbsp; it_kna1\[\] IS INITIAL.
&nbsp;&nbsp;&nbsp; SELECT land1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; landx
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INTO TABLE it_t005t
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FROM t005t
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FOR ALL ENTRIES IN it_kna1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE spras = sy-langu
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AND&nbsp;&nbsp; land1 = it_kna1-land1.
&nbsp;&nbsp;&nbsp; SELECT land1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bland
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bezei
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INTO TABLE it_t005u
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FROM t005u
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FOR ALL ENTRIES IN it_kna1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WHERE spras = sy-langu
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AND land1 = it_kna1-land1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AND bland = it_kna1-regio.
&nbsp; ENDIF.

ENDFORM.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " get_data
\*&--------------------------------------------------------------------\*
\*&&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Form&nbsp; get_final_data
\*&--------------------------------------------------------------------\*
\*&nbsp;&nbsp; Insert all relevant data in final table tobe displayed
\*---------------------------------------------------------------------\*
FORM get_final_data .

&nbsp; LOOP AT it_bsid.

&nbsp;&nbsp;&nbsp; it_final-kunnr&nbsp; = it_bsid-kunnr.
&nbsp;&nbsp;&nbsp; it_final-belnr&nbsp; = it_bsid-belnr.
&nbsp;&nbsp;&nbsp; it_final-blart&nbsp; = it_bsid-blart.
&nbsp;&nbsp;&nbsp; it_final-bldat&nbsp; = it_bsid-bldat.
&nbsp;&nbsp;&nbsp; it_final-waers&nbsp; = it_bsid-waers.
&nbsp;&nbsp;&nbsp; it_final-dmbtr&nbsp; = it_bsid-dmbtr.
&nbsp;&nbsp;&nbsp; it_final-wrbtr&nbsp; = it_bsid-wrbtr.
&nbsp;&nbsp;&nbsp; it_final-zbd1t&nbsp; = it_bsid-zbd1t.&nbsp;&nbsp;&nbsp; " Days
&nbsp;&nbsp;&nbsp; it_final-bukrs&nbsp; = it_bsid-bukrs.
&nbsp;&nbsp;&nbsp; it_final-gjahr&nbsp; = it_bsid-gjahr.
&nbsp;&nbsp;&nbsp; it_final-monat&nbsp; = it_bsid-monat.
&nbsp;&nbsp;&nbsp; it_final-vbeln&nbsp; = it_bsid-vbeln.
&nbsp;&nbsp;&nbsp; it_final-hkont&nbsp; = it_bsid-hkont.
&nbsp;&nbsp;&nbsp; it_final-zterm&nbsp; = it_bsid-zterm.
&nbsp;&nbsp;&nbsp; READ TABLE it_vbfa WITH KEY vbeln = it_bsid-vbeln.
&nbsp;&nbsp;&nbsp; IF sy-subrc = 0.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; READ TABLE it_vbak WITH KEY vbeln = it_vbfa-vbelv.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IF sy-subrc = 0.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-vbeln = it_vbak-vbeln.&nbsp;&nbsp; "Sales Order
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-bstnk = it_vbak-bstnk.&nbsp;&nbsp; "Purchase Order
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; READ TABLE it_vbpa WITH KEY vbeln = it_vbak-vbeln.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IF sy-subrc = 0.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; READ TABLE it_kna11 WITH KEY kunnr = it_vbpa-kunnr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IF sy-subrc = 0.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-name11 = it_kna11-name1.&nbsp;&nbsp;&nbsp; "Sales person name
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENDIF.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENDIF.

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENDIF.
&nbsp;&nbsp;&nbsp; ENDIF.
&nbsp;&nbsp;&nbsp; READ TABLE it_kna1 WITH KEY kunnr = it_bsid-kunnr.
&nbsp;&nbsp;&nbsp; IF sy-subrc = 0.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-name1&nbsp; = it_kna1-name1.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; READ TABLE it_t005t WITH KEY land1 = it_kna1-land1.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IF sy-subrc = 0.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-landx = it_t005t-landx.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENDIF.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; READ TABLE it_t005u WITH KEY land1 = it_kna1-land1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bland = it_kna1-regio.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IF sy-subrc = 0.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-bezei = it_t005u-bezei.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENDIF.

&nbsp;&nbsp;&nbsp; ENDIF.
&nbsp;&nbsp;&nbsp; READ TABLE it_bkpf WITH KEY bukrs = it_bsid-bukrs
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; belnr = it_bsid-belnr.
&nbsp;&nbsp;&nbsp; IF sy-subrc = 0.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-xblnr = it_bkpf-xblnr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-budat = it_bkpf-budat.
&nbsp;&nbsp;&nbsp; ENDIF.
\*&--logic to calculate the days.
&nbsp;&nbsp;&nbsp; DATA: lv_diff TYPE i.
&nbsp;&nbsp;&nbsp; DATA: lv_date TYPE sy-datum.

&nbsp;&nbsp;&nbsp; lv_date = it_final-budat + it_final-zbd1t.
&nbsp;&nbsp;&nbsp; it_final-duedt = lv_date.
&nbsp;&nbsp;&nbsp; lv_diff = pa_stida - lv_date.

&nbsp;&nbsp;&nbsp; IF it_bsid-shkzg = 'H'.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-dmbtr = it_final-dmbtr * ( \-1 ).
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-wrbtr = it_final-wrbtr * ( \-1 ).
&nbsp;&nbsp;&nbsp; ENDIF.

&nbsp;&nbsp;&nbsp; IF lv_diff > 120.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-150days = it_final-dmbtr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-aging = it_final-dmbtr.
&nbsp;&nbsp;&nbsp; ELSEIF lv_diff > 90.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-120days = it_final-dmbtr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-aging = it_final-dmbtr.

&nbsp;&nbsp;&nbsp; ELSEIF lv_diff > 60.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-90days = it_final-dmbtr.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-aging = it_final-dmbtr.

&nbsp;&nbsp;&nbsp; ELSEIF lv_diff > 30.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-60days = it_final-dmbtr.
&nbsp;&nbsp;&nbsp; ELSE.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-30days = it_final-dmbtr.
&nbsp;&nbsp;&nbsp; ENDIF.

\*&-->concatenate

&nbsp;&nbsp;&nbsp; CONCATENATE it_final-gjahr
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_final-monat INTO it_final-yrmon SEPARATED BY '/'.

&nbsp;&nbsp;&nbsp; APPEND it_final.
&nbsp;&nbsp;&nbsp; CLEAR&nbsp; it_final.
&nbsp; ENDLOOP.
ENDFORM.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " get_final_data
\*&--------------------------------------------------------------------\*
\*&&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Form&nbsp; display_output
\*&--------------------------------------------------------------------\*
\*&nbsp;&nbsp; Display the final output in ALV
\*---------------------------------------------------------------------\*
FORM display_output .

&nbsp; gv_repname = sy-repid.

\* CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
\*&nbsp; EXPORTING
\*&nbsp;&nbsp;&nbsp; I_PROGRAM_NAME&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = gv_repname
\*&nbsp;&nbsp;&nbsp; I_INTERNAL_TABNAME&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 'IT_FINAL'
\*&nbsp;&nbsp;&nbsp; I_INCLNAME&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = gv_repname
\*&nbsp;&nbsp; CHANGING
\*&nbsp;&nbsp;&nbsp;&nbsp; ct_fieldcat&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = g_fcat
\*&nbsp; EXCEPTIONS
\*&nbsp;&nbsp;&nbsp; INCONSISTENT_INTERFACE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 1
\*&nbsp;&nbsp;&nbsp; PROGRAM_ERROR&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 2
\*&nbsp;&nbsp;&nbsp; OTHERS&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 3
\*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .
\* IF sy-subrc <> 0.
\*\* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
\**&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
\* ENDIF.

&nbsp; PERFORM build_fieldcat.

&nbsp; PERFORM display_alv.

&nbsp;

ENDFORM.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " display_output
\*&---------------------------------------------------------------------\*
\*&&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Form&nbsp; build_fieldcat
\*&---------------------------------------------------------------------\*
\*&nbsp;&nbsp; Build Fieldcatalog for output in ALV
\*----------------------------------------------------------------------\*
FORM build_fieldcat .
&nbsp; DATA: lv_count TYPE i VALUE 0.

&nbsp; gt_fcat-fieldname = 'BUKRS'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Comp Co'.
&nbsp; gt_fcat-seltext_m = 'Comp Code'.
&nbsp; gt_fcat-seltext_l = 'Company Code'.
&nbsp; gt_fcat-no_zero = ''.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.
&nbsp; APPEND gt_fcat.

\*&nbsp; gt_fcat-fieldname = 'HKONT'.
\*&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
\*&nbsp; gt_fcat-seltext_s = 'G/L'.
\*&nbsp; gt_fcat-seltext_m = 'G/L'.
\*&nbsp; gt_fcat-seltext_l = 'General Ledger Account'.
\*&nbsp; gt_fcat-outputlen = '30'.
\*&nbsp; gt_fcat-col_pos = lv_count.
\*&nbsp; lv_count = lv_count + 1.
\*&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'KUNNR'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Customer No'.
&nbsp; gt_fcat-seltext_m = 'Customer No'.
&nbsp; gt_fcat-seltext_l = 'Customer No'.
&nbsp; gt_fcat-no_zero = 'X'.
&nbsp; gt_fcat-outputlen = '30'.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'NAME1'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Customer Name'.
&nbsp; gt_fcat-seltext_m = 'Customer Name'.
&nbsp; gt_fcat-seltext_l = 'Customer Name'.
gt_fcat-outputlen = '30'.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'LANDX'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Country'.
&nbsp; gt_fcat-seltext_m = 'Country'.
&nbsp; gt_fcat-seltext_l = 'Country'.
gt_fcat-outputlen = '30'.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'BEZEI'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Region'.
&nbsp; gt_fcat-seltext_m = 'Region'.
&nbsp; gt_fcat-seltext_l = 'Region'.
gt_fcat-outputlen = '30'.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'NAME11'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Sales Person Name'.
&nbsp; gt_fcat-seltext_m = 'Sales Person Name'.
&nbsp; gt_fcat-seltext_l = 'Sales Person Name'.
&nbsp; gt_fcat-outputlen = '30'.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'BELNR'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Doc No'.
&nbsp; gt_fcat-seltext_m = 'Document No'.
&nbsp; gt_fcat-seltext_l = 'Document Number'.
gt_fcat-outputlen = '30'.
&nbsp; gt_fcat-no_zero = 'X'.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.
&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'XBLNR'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Reference'.
&nbsp; gt_fcat-seltext_m = 'Reference'.
&nbsp; gt_fcat-seltext_l = 'Reference'.
&nbsp; gt_fcat-no_zero = 'X'.
gt_fcat-outputlen = '30'.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.
&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'BLART'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Doc Type'.
&nbsp; gt_fcat-seltext_m = 'Document Type'.
&nbsp; gt_fcat-seltext_l = 'Document Type'.
gt_fcat-outputlen = '30'.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.
&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'YRMON'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'year/mon'.
&nbsp; gt_fcat-seltext_m = 'Year / Mon'.
&nbsp; gt_fcat-seltext_l = 'Year/Month'.
&nbsp; gt_fcat-outputlen = 15.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-col_pos = 6.
&nbsp; gt_fcat-fieldname = 'BLDAT'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Doc Date'.
&nbsp; gt_fcat-seltext_m = 'Document Date'.
&nbsp; gt_fcat-seltext_l = 'Document Date'.

&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.
&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'BUDAT'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Posting Date'.
&nbsp; gt_fcat-seltext_m = 'Posting Date'.
&nbsp; gt_fcat-seltext_l = 'Posting Date'.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'DUEDT'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Due Date'.
&nbsp; gt_fcat-seltext_m = 'Due Date'.
&nbsp; gt_fcat-seltext_l = 'Due Date'.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'VBELN'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Sal Odr'.
&nbsp; gt_fcat-seltext_m = 'Sal Order'.
&nbsp; gt_fcat-seltext_l = 'Sales Order'.
&nbsp; gt_fcat-outputlen = 15.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'BSTNK'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Purc Odr'.
&nbsp; gt_fcat-seltext_m = 'Purc Order'.
&nbsp; gt_fcat-seltext_l = 'Purchase Order'.
&nbsp; gt_fcat-outputlen = 15.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp;

&nbsp; gt_fcat-fieldname = 'WRBTR'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-do_sum&nbsp; = 'X'.
&nbsp; gt_fcat-no_sign = ' '.
&nbsp; gt_fcat-seltext_s = 'Amount in DC'.
&nbsp; gt_fcat-seltext_m = 'Amount in DC'.
&nbsp; gt_fcat-seltext_l = 'Amount in Document Currency'.
&nbsp; gt_fcat-outputlen = 15.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'WAERS'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-do_sum&nbsp; = 'X'.
&nbsp; gt_fcat-no_sign = ' '.
&nbsp; gt_fcat-seltext_s = 'Local Curr'.
&nbsp; gt_fcat-seltext_m = 'Local Currency'.
&nbsp; gt_fcat-seltext_l = 'Local Currency'.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-col_pos = 11.
&nbsp; gt_fcat-fieldname = 'DMBTR'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Amt in LC'.
&nbsp; gt_fcat-seltext_m = 'Amt in Loc Curr'.
&nbsp; gt_fcat-seltext_l = 'Amount in Local Currency'.
&nbsp; gt_fcat-outputlen = 15.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'ZTERM'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Pay Trm'.
&nbsp; gt_fcat-seltext_m = 'Pay Term'.
&nbsp; gt_fcat-seltext_l = 'Payment Term'.
&nbsp; gt_fcat-outputlen = 15.
&nbsp; gt_fcat-no_zero = ' '.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = 'AGING'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = 'Aging'.
&nbsp; gt_fcat-seltext_m = 'Aging'.
&nbsp; gt_fcat-seltext_l = 'Aging'.
&nbsp; gt_fcat-outputlen = 20.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = '30DAYS'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = '0 - 30 Days'.
&nbsp; gt_fcat-seltext_m = '0 - 30 Days'.
&nbsp; gt_fcat-seltext_l = '0 - 30 Days'.
&nbsp; gt_fcat-outputlen = 30.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = '60DAYS'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = '31 - 60 Days'.
&nbsp; gt_fcat-seltext_m = '31 Days - 60 Days'.
&nbsp; gt_fcat-seltext_l = '31 Days - 60 Days'.
&nbsp; gt_fcat-outputlen = 30.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = '90DAYS'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = '61 Days - 90 Days'.
&nbsp; gt_fcat-seltext_m = '61 Days - 90 Days'.
&nbsp; gt_fcat-seltext_l = '61 Days - 90 Days'.
&nbsp; gt_fcat-outputlen = 30.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = '120DAYS'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = '91 Days - 120 Days'.
&nbsp; gt_fcat-seltext_m = '91 Days - 120 Days'.
&nbsp; gt_fcat-seltext_l = '91 Days - 120 Days'.
&nbsp; gt_fcat-outputlen = 30.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

&nbsp; gt_fcat-fieldname = '150DAYS'.
&nbsp; gt_fcat-tabname&nbsp;&nbsp; = 'IT_FINAL'.
&nbsp; gt_fcat-seltext_s = '>120Days'.
&nbsp; gt_fcat-seltext_m = '>120 Days'.
&nbsp; gt_fcat-seltext_l = '>120 Days'.
&nbsp; gt_fcat-outputlen = 30.
&nbsp; gt_fcat-col_pos = lv_count.
&nbsp; lv_count = lv_count + 1.

&nbsp; APPEND gt_fcat.

ENDFORM.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " build_fieldcat
\*&---------------------------------------------------------------------\*
\*&&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Form&nbsp; display_alv
\*&---------------------------------------------------------------------\*
\*&nbsp;&nbsp;&nbsp; Display out in ALV
\*----------------------------------------------------------------------\*
FORM display_alv .
&nbsp; gs_layout-zebra = 'X'.
&nbsp; PERFORM create_event USING events\[\].

&nbsp; CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
&nbsp;&nbsp;&nbsp; EXPORTING
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i_callback_program = gv_repname
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i_structure_name&nbsp;&nbsp; = 'IT_FINAL'
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; is_layout&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = gs_layout
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_fieldcat&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = gt_fcat\[\]
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_events&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = events\[\]
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i_default&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 'X'
&nbsp;&nbsp;&nbsp; TABLES
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; t_outtab&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = it_final
&nbsp;&nbsp;&nbsp; EXCEPTIONS
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; program_error&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 1
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OTHERS&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 2.
&nbsp; IF sy-subrc <> 0.
&nbsp;&nbsp;&nbsp; MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
&nbsp; ENDIF.

ENDFORM.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " display_alv

\*&---------------------------------------------------------------------\*
\*&&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Form&nbsp; create_event
\*&---------------------------------------------------------------------\*
FORM create_event USING p_events TYPE slis_t_event.
&nbsp; DATA: ls_event TYPE slis_alv_event.
&nbsp; CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
&nbsp;&nbsp;&nbsp; EXPORTING
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i_list_type = 0
&nbsp;&nbsp;&nbsp; IMPORTING
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; et_events&nbsp;&nbsp; = p_events.
&nbsp; READ TABLE p_events WITH KEY name = slis_ev_top_of_page
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INTO ls_event.
&nbsp; IF sy-subrc = 0.
&nbsp;&nbsp;&nbsp; MOVE formname_top_of_page TO ls_event-form.
&nbsp;&nbsp;&nbsp; APPEND ls_event TO p_events.
&nbsp; ENDIF.
ENDFORM.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "create_event

\*&*********************************************************************\*
\*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; To display TOP_OF_PAGE.
\***********************************************************************\*
FORM top_of_page.

&nbsp; DATA : text(70),txtdt(80),txtinfo(40).

&nbsp; CLEAR l_string.
&nbsp; l_string = 'Account Receivable Aging Report'(hd2).
&nbsp; wa_header-typ&nbsp; = 'H'.
&nbsp; wa_header-info = l_string.
&nbsp; APPEND wa_header TO heading.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " index 1.

&nbsp; CLEAR l_string.
&nbsp; wa_header-typ&nbsp; = 'S'.
&nbsp; WRITE : 'Date&nbsp; :' TO txtdt,sy-datum TO txtdt+20 DD/MM/YY.
&nbsp; WRITE sy-datum TO dat DD/MM/YYYY.
&nbsp; wa_header-info = txtdt.
&nbsp; APPEND wa_header TO heading.

&nbsp; IF ( s_kunnr-low = ' ' AND s_kunnr-high = ' '&nbsp; ) .

&nbsp;&nbsp;&nbsp; CLEAR txtdt.
&nbsp;&nbsp;&nbsp; wa_header-typ = 'S'.
&nbsp;&nbsp;&nbsp; txtinfo = 'All Customers '.
&nbsp;&nbsp;&nbsp; WRITE : text-004 TO txtdt,txtinfo TO txtdt+20.
&nbsp;&nbsp;&nbsp; wa_header-info = txtdt.
&nbsp;&nbsp;&nbsp; APPEND wa_header TO heading.

&nbsp; ELSEIF ( s_kunnr-high = ' ' AND s_kunnr-low <> ' ' ).

&nbsp;&nbsp;&nbsp; CLEAR txtdt.
&nbsp;&nbsp;&nbsp; wa_header-typ = 'S'.
&nbsp;&nbsp;&nbsp; txtinfo = s_kunnr-low.
&nbsp;&nbsp;&nbsp; WRITE : text-004 TO txtdt,txtinfo TO txtdt+20.
&nbsp;&nbsp;&nbsp; wa_header-info = txtdt.
&nbsp;&nbsp;&nbsp; APPEND wa_header TO heading.

&nbsp; ELSEIF ( s_kunnr-high <> ' ' AND s_kunnr-low <> ' ' ).

&nbsp;&nbsp;&nbsp; CLEAR txtdt.
&nbsp;&nbsp;&nbsp; wa_header-typ = 'S'.
&nbsp;&nbsp;&nbsp; CONCATENATE s_kunnr-low '-' s_kunnr-high INTO txtinfo SEPARATED BY space.
&nbsp;&nbsp;&nbsp; WRITE : text-004 TO txtdt,txtinfo TO txtdt+20.
&nbsp;&nbsp;&nbsp; wa_header-info = txtdt.
&nbsp;&nbsp;&nbsp; APPEND wa_header TO heading.

&nbsp; ENDIF.

&nbsp; IF ( s_bukrs-low = ' ' AND s_bukrs-high = ' ' ) .
&nbsp;&nbsp;&nbsp; CLEAR txtdt.
&nbsp;&nbsp;&nbsp; wa_header-typ = 'S'.
&nbsp;&nbsp;&nbsp; txtinfo = 'All Company Code'.
&nbsp;&nbsp;&nbsp; WRITE : text-005 TO txtdt,txtinfo TO txtdt+20.
&nbsp;&nbsp;&nbsp; wa_header-info = txtdt.
&nbsp;&nbsp;&nbsp; APPEND wa_header TO heading.

&nbsp; ELSEIF ( s_bukrs-low <> ' ' AND s_bukrs-high = ' ' ).
&nbsp;&nbsp;&nbsp; CLEAR txtdt.
&nbsp;&nbsp;&nbsp; wa_header-typ = 'S'.
&nbsp;&nbsp;&nbsp; txtinfo = s_bukrs-low .
&nbsp;&nbsp;&nbsp; WRITE : text-005 TO txtdt,txtinfo TO txtdt+20.
&nbsp;&nbsp;&nbsp; wa_header-info = txtdt.
&nbsp;&nbsp;&nbsp; APPEND wa_header TO heading.

&nbsp; ELSEIF ( s_bukrs-low <> ' ' AND s_bukrs-high <> ' ' ) .
&nbsp;&nbsp;&nbsp; CLEAR txtdt.
&nbsp;&nbsp;&nbsp; wa_header-typ = 'S'.
&nbsp;&nbsp;&nbsp; CONCATENATE s_bukrs-low '-' s_bukrs-high INTO txtinfo SEPARATED BY space.
&nbsp;&nbsp;&nbsp; WRITE : text-005 TO txtdt,txtinfo TO txtdt+20.
&nbsp;&nbsp;&nbsp; wa_header-info = txtdt.
&nbsp;&nbsp;&nbsp; APPEND wa_header TO heading.

&nbsp; ENDIF.

&nbsp; CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
&nbsp;&nbsp;&nbsp; EXPORTING
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i_logo&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = 'ENJOYSAP_LOGO'
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; it_list_commentary = heading.
&nbsp; CLEAR heading.

ENDFORM.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "top_of_page