topic Re: ALV Dump in Application Development and Automation Discussions

ALV Dump

Former Member — Mon, 17 Jul 2006 14:07:52 GMT

Hi Friends,

When i am running the ALV Report, i am getting DUMP.this ALV was working fine in 4.6 but ECC5.0 its giving Dump

ShrtText

Field symbol has not yet been assigned.

hat happened?

Error in ABAP application program.

The current ABAP program "SAPLKKBL" had to be terminat

statements could not be executed. This is probably due to an error in the ABAP program.

Error analysis

You attempted to access an unassigned field symbol

(data segment 92).

This error may occur for any of the following reasons:

- You address a typed field symbol before it is set using ASSIGN

- You address a field symbol that points to a line in an internal table that has been deleted

- You address a field symbol that had previously been reset using UNASSIGN, or that pointed to a local field that no longer exists - You address a global function interface parameter, even though the relevant function module is not active,that is it is not in the list of active calls. You can get the list of active calls from the this short dump.

Re: ALV Dump

Former Member — Mon, 17 Jul 2006 14:12:54 GMT

There are the things I would check

1. If the fieldcatalog has the same fields as the columns of the internal table that is being used for displaying data

2. If the column positions are being change manually.

3. Preferably create the field catalog using a Data dictionary strcuture using REUSE_ALV_FIELDCATALOG_MERGE or LVC_FIELDCATALOG_MERGE.

regards,

Ravi

Note : Please mark all the helpful answers

Re: ALV Dump

Former Member — Mon, 17 Jul 2006 14:26:39 GMT

there are some wrong with your fieldcatlog of alv

it's not match your itab .

Re: ALV Dump

Former Member — Mon, 17 Jul 2006 14:33:56 GMT

Hi,

it is definitely related to Fieldcat or Layout.can you give your code, so that it is easy to identify the error.

Regards

vijay

Re: ALV Dump

Former Member — Mon, 17 Jul 2006 14:53:36 GMT

Hi Vijay,

Just check up the names of the fields (Pass them in all capital letters) and the order of the fileds match with the internal table.

A small mismatch in the names of the fields passed in the field catalogs or missing field names in field catalog gives a dump.

Regards,

Laxman Nayak.

Re: ALV Dump

Former Member — Mon, 17 Jul 2006 15:03:29 GMT

Hi Vijay, thanks for ur reply. i am sending u the code.

*&----

*& Report ZSAMPLE1

*&----

REPORT ZSAMPLE1 line-size 1022.

====================================================================

AUTHOR : *
DATE WRITTEN : *
APPLICATION : FI-AR *
FUNCTION : Customers Ageing Analysis with Details *

====================================================================

TYPES **********************************

====================================================================

TABLES *********************************

====================================================================

TYPE-POOLS: SLIS.

tables : bseg,

bkpf,

kna1,

bsid,

bsad,

knb1.

DATA: BEGIN OF IT_FINAL OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

NAME1 LIKE KNA1-NAME1,

V_NET1 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 1

V_NET2 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 2

V_NET3 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 3

V_NET4 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 4

V_NET5 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 5

V_NET6 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 6

V_NET7 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 7

V_NET8 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 8

V_NET9 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 9

V_NET10 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 10

V_NET11 LIKE BSID-DMBTR,

V_TTLNET1 LIKE BSID-DMBTR,

V_TTLNET2 LIKE BSID-DMBTR,

V_TTLNET3 LIKE BSID-DMBTR,

V_TTLNET4 LIKE BSID-DMBTR,

V_TTLNET5 LIKE BSID-DMBTR,

V_TTLNET6 LIKE BSID-DMBTR,

V_TTLNET7 LIKE BSID-DMBTR,

V_TTLNET8 LIKE BSID-DMBTR,

V_TTLNET9 LIKE BSID-DMBTR,

V_TTLNET10 LIKE BSID-DMBTR,

V_TTLNET11 LIKE BSID-DMBTR,

V_TTLNET LIKE BSID-DMBTR,

END OF IT_FINAL.

data : begin of customer_tab occurs 0,

kunnr like kna1-kunnr,

name1 like kna1-name1,

flag(1) type c,

end of customer_tab.

data : begin of customerdoc_tab occurs 0,

kunnr like kna1-kunnr,

belnr like bkpf-belnr,

gjahr like bkpf-gjahr,

monat like bkpf-monat,

end of customerdoc_tab.

data : begin of doc_tab occurs 0,

belnr like bkpf-belnr,

gjahr like bkpf-gjahr,

monat like bkpf-monat,

end of doc_tab.

DATA: BEGIN OF BSID_TAB OCCURS 0,

BUKRS LIKE BSID-BUKRS,

PRCTR LIKE BSID-PRCTR,

KUNNR LIKE BSID-KUNNR,

FLAG(1),

UMSKZ LIKE BSID-UMSKZ,

BLART LIKE BSID-BLART,

BELNR LIKE BSID-BELNR,

BUZEI LIKE BSID-BUZEI,

NETDT LIKE BSID-ZFBDT,

ZFBDT LIKE BSID-ZFBDT,

BUDAT LIKE BSID-BUDAT,

BLDAT LIKE BSID-BLDAT,

BSCHL LIKE BSID-BSCHL,

DMBTR LIKE BSID-DMBTR,

SHKZG LIKE BSID-SHKZG,

ZBD1T LIKE BSID-ZBD1T,

ZBD2T LIKE BSID-ZBD2T,

ZBD3T LIKE BSID-ZBD3T,

REBZG LIKE BSID-REBZG,

REBZT LIKE BSID-REBZT,

KOART LIKE BSEG-KOART,

SK1DT LIKE FAEDE-SK1DT,

SK2DT LIKE FAEDE-SK2DT,

DAYSD LIKE SY-TABIX,

END OF BSID_TAB.

DATA: FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,

P_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,

HEADING TYPE SLIS_T_LISTHEADER,

LAYOUT TYPE SLIS_LAYOUT_ALV,

EVENTS TYPE SLIS_T_EVENT,

REPNAME LIKE SY-REPID,

F2CODE LIKE SY-UCOMM VALUE '&ETA',

G_SAVE(1) TYPE C,

G_EXIT(1) TYPE C,

G_VARIANT LIKE DISVARIANT,

GX_VARIANT LIKE DISVARIANT.

ranges : r_bukrs for bsid-bukrs,

r_kunnr for kna1-kunnr.

===================================================================

VARIABLES *******************************

===================================================================

CONSTANTS: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.

*data: Begin of it_final occurs 0,

kunnr like kna1-kunnr,
name1 like kna1-name1,
V_NET1 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 1
V_NET2 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 2
V_NET3 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 3
V_NET4 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 4
V_NET5 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 5
V_NET6 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 6
V_NET7 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 7
V_NET8 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 8
V_NET9 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 9
V_NET10 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 10
V_NET11 LIKE BSID-DMBTR,

V_ttlNET1 LIKE BSID-DMBTR,
V_ttlNET2 LIKE BSID-DMBTR,
V_ttlNET3 LIKE BSID-DMBTR,
V_ttlNET4 LIKE BSID-DMBTR,
V_ttlNET5 LIKE BSID-DMBTR,
V_ttlNET6 LIKE BSID-DMBTR,
V_ttlNET7 LIKE BSID-DMBTR,
V_ttlNET8 LIKE BSID-DMBTR,
V_ttlNET9 LIKE BSID-DMBTR,
V_ttlNET10 LIKE BSID-DMBTR,
V_ttlNET11 LIKE BSID-DMBTR,

V_ttlNET LIKE BSID-DMBTR,
End of it_final.

data : v_belnr like bseg-belnr,

v_gjahr like bkpf-gjahr,

v_monat like bkpf-monat,

v_ttlc type p,

v_flag(1) type c,

V_COUNT1(4) TYPE N,

V_COUNT2(4) TYPE N,

V_COUNT3(4) TYPE N,

V_COUNT4(4) TYPE N,

V_COUNT5(4) TYPE N,

V_COUNT6(4) TYPE N,

V_COUNT7(4) TYPE N,

V_COUNT8(4) TYPE N,

V_COUNT9(4) TYPE N,

V_COUNT10(4) TYPE N,

V_NET1 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 1

V_NET2 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 2

V_NET3 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 3

V_NET4 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 4

V_NET5 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 5

V_NET6 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 6

V_NET7 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 7

V_NET8 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 8

V_NET9 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 9

V_NET10 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 10

V_NET11 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 11

V_NET LIKE BSID-DMBTR, "Total Balance of Customer

V_ttlNET1 LIKE BSID-DMBTR,

V_ttlNET2 LIKE BSID-DMBTR,

V_ttlNET3 LIKE BSID-DMBTR,

V_ttlNET4 LIKE BSID-DMBTR,

V_ttlNET5 LIKE BSID-DMBTR,

V_ttlNET6 LIKE BSID-DMBTR,

V_ttlNET7 LIKE BSID-DMBTR,

V_ttlNET8 LIKE BSID-DMBTR,

V_ttlNET9 LIKE BSID-DMBTR,

V_ttlNET10 LIKE BSID-DMBTR,

V_ttlNET11 LIKE BSID-DMBTR,

V_ttlNET LIKE BSID-DMBTR,

v_kunnr like bseg-kunnr,

V_BUTXT like t001-butxt.

===================================================================

SELECTION SCREEN ****************************

===================================================================

selection-screen begin of block b1 with frame title text-001.

parameters : p_bukrs like bseg-bukrs obligatory.

select-options : s_kunnr for kna1-kunnr,

s_BRSCH for kna1-BRSCH,

s_REGIO for kna1-REGIO,

s_KTOKD for kna1-KTOKD,

s_BUSAB for knb1-BUSAB.

selection-screen: end of block b1.

selection-screen begin of block b2 with frame title text-003.

PARAMETERS: DAT LIKE SY-DATUM DEFAULT SY-DATUM.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 01(30) TEXT-002.

SELECTION-SCREEN POSITION POS_LOW.

*PARAMETERS: RASTBIS1 LIKE RFPDO1-ALLGROGR DEFAULT '000'.

*PARAMETERS: RASTBIS2 LIKE RFPDO1-ALLGROGR DEFAULT '030'.

*PARAMETERS: RASTBIS3 LIKE RFPDO1-ALLGROGR DEFAULT '060'.

*PARAMETERS: RASTBIS4 LIKE RFPDO1-ALLGROGR DEFAULT '090'.

*PARAMETERS: RASTBIS5 LIKE RFPDO1-ALLGROGR DEFAULT '120'.

PARAMETERS: RASTBIS1(4) type n DEFAULT '0000'.

PARAMETERS: RASTBIS2(4) type n DEFAULT '0030'.

PARAMETERS: RASTBIS3(4) type n DEFAULT '0060'.

PARAMETERS: RASTBIS4(4) type n DEFAULT '0090'.

PARAMETERS: RASTBIS5(4) type n DEFAULT '0120'.

PARAMETERS: RASTBIS6(4) type n DEFAULT '0150'.

PARAMETERS: RASTBIS7(4) type n DEFAULT '0180'.

PARAMETERS: RASTBIS8(4) type n DEFAULT '0210'.

PARAMETERS: RASTBIS9(4) type n DEFAULT '0240'.

PARAMETERS: RASTBIS0(4) type n DEFAULT '0270'.

SELECTION-SCREEN END OF LINE.

Noted item removed as per FI instruction

PARAMETERS: P_STAND AS CHECKBOX default 'X',

P_NOTED AS CHECKBOX ,

P_SPCAL AS CHECKBOX .

selection-screen: end of block b2.

selection-screen begin of block b3 with frame.

PARAMETERS: allgline like RFPDO1-allgline .

Parameters : p_balyes type c radiobutton group grp9 default 'X',

p_balno type c radiobutton group grp9.

selection-screen: end of block b3.

Check for the Select option

AT SELECTION-SCREEN.

IF P_STAND = '' AND P_SPCAL = '' .

MESSAGE E398(00) WITH 'PLEASE CHOOSE AT LEAST ONE G/L INDICATOR!'.

ENDIF.

Check for Company code Authorization

authority-check object 'F_BKPF_BUK'

ID 'BUKRS' FIELD p_bukrs

ID 'ACTVT' FIELD '03'.

if sy-subrc ne 0.

message e398(00) with 'You are not Authorized for CC ' p_bukrs.

Endif.

===================================================================

START-OF-SELECTION ****************************

===================================================================

INITIALIZATION.

REPNAME = SY-REPID.

PERFORM INITIALIZE_FIELDCAT USING FIELDTAB[].
PERFORM BUILD_EVENTTAB USING EVENTS[].
PERFORM BUILD_COMMENT USING HEADING[].

START-OF-SELECTION.

V_COUNT1 = RASTBIS1 + 1.

V_COUNT2 = RASTBIS2 + 1.

V_COUNT3 = RASTBIS3 + 1.

V_COUNT4 = RASTBIS4 + 1.

V_COUNT5 = RASTBIS5 + 1.

V_COUNT6 = RASTBIS6 + 1.

V_COUNT7 = RASTBIS7 + 1.

V_COUNT8 = RASTBIS8 + 1.

V_COUNT9 = RASTBIS9 + 1.

V_COUNT10 = RASTBIS0 + 1.

perform extract_data.

END-OF-SELECTION.

PERFORM INITIALIZE_FIELDCAT."USING FIELDTAB.

PERFORM BUILD_EVENTTAB USING EVENTS[].

PERFORM BUILD_COMMENT USING HEADING[].

===================================================================

At line Selection *****************************

===================================================================

at line-selection.

if sy-lilli >= 9 .

refresh r_bukrs.

move p_bukrs to r_bukrs-low.

move 'I' to r_bukrs-sign.

move 'EQ' to r_bukrs-option.

append r_bukrs.

refresh r_kunnr.

move customer_tab-kunnr to r_kunnr-low.

move 'I' to r_kunnr-sign.

move 'EQ' to r_kunnr-option.

append r_kunnr.

submit ZFARVR0040 and return

with p_bukrs = p_bukrs

with dat = dat

with p_stand = p_stand

with p_spcal = P_SPCAL

with s_kunnr in r_kunnr.

endif.

===================================================================

Top of Page *******************************

===================================================================

TOP-OF-PAGE.

SELECT SINGLE BUTXT FROM T001 INTO V_BUTXT

WHERE BUKRS = p_BUKRS .

WRITE:/73'Customers Aging Analysis',140'PAGE NO.',

SY-PAGNO.

WRITE:/002 'COMPANY',

011 P_BUKRS,

017 V_BUTXT,

055 allgline centered,

140 'DATE :',

150 sy-datum .

write:/002 'User',

011 sy-UNAME,

140 'Time :',

150 sy-UZEIT.

SKIP.

format color col_heading intensified off.

WRITE:/ SY-ULINE,

SY-VLINE,002 'Customer',

012 SY-VLINE,013 'Name',

043 SY-VLINE,048 'CURRENT',

061 SY-VLINE,065 'FROM ',V_COUNT1,

079 SY-VLINE,083 'FROM ',V_COUNT2,

097 SY-VLINE,101 'FROM ',V_COUNT3,

115 SY-VLINE,119 'FROM ',V_COUNT4,

133 SY-VLINE,137 'FROM ',V_COUNT5,

151 SY-VLINE,155 'FROM ',V_COUNT6,

169 SY-VLINE,173 'FROM ',V_COUNT7,

187 SY-VLINE,191 'FROM ',V_COUNT8,

205 SY-VLINE,209 'FROM ',V_COUNT9,

223 SY-VLINE,228 'FROM ',V_COUNT10,

243 SY-VLINE,248 'TOTAL',

268 SY-VLINE.

WRITE:/ SY-VLINE,002 'Number',

12 SY-VLINE,

43 SY-VLINE,

061 SY-VLINE,065 'TO ',RASTBIS2,

079 SY-VLINE,083 'TO ',RASTBIS3,

097 SY-VLINE,101 'TO ',RASTBIS4,

115 SY-VLINE,119 'TO ',RASTBIS5,

133 SY-VLINE,137 'FROM ',RASTBIS6,

151 SY-VLINE,155 'FROM ',RASTBIS7,

169 SY-VLINE,173 'FROM ',RASTBIS8,

187 SY-VLINE,191 'FROM ',RASTBIS9,

205 SY-VLINE,209 'FROM ',RASTBIS0,

223 SY-VLINE,

243 SY-VLINE,

268 SY-VLINE,

SY-ULINE.

format color off.

===================================================================

END-OF-SELECTION ***************************

===================================================================

PERFORM BUILD_LAYOUT USING LAYOUT.
PERFORM WRITE_OUTPUT.

===================================================================

Form : Extract_Data *

===================================================================

form extract_data.

Select the Customers

Select t1~kunnr t2~name1

into corresponding fields of table customer_tab

from knb1 as t1 inner join kna1 as t2

on t2~kunnr = t1~kunnr

where t1~bukrs = p_bukrs

and t1~kunnr in s_kunnr

and t1~BUSAB in s_busab

and t2~regio in s_regio

and t2~BRSCH in s_BRSCH

and t2~KTOKD in s_KTOKD.

if sy-subrc <> 0.

message e398(00) with 'No Customers Selected'.

endif.

sort customer_tab.

describe table customer_tab lines v_ttlc.

v_ttlc = v_ttlc + 10.

loop at customer_tab.

v_net1 = 0.

v_net2 = 0.

v_net3 = 0.

v_net4 = 0.

v_net5 = 0.

v_net6 = 0.

v_net7 = 0.

v_net8 = 0.

v_net9 = 0.

v_net10 = 0.

v_net11 = 0.

v_net = 0.

perform calculate_ageing

using

p_bukrs

customer_tab-kunnr

dat

RASTBIS1

RASTBIS2

RASTBIS3

RASTBIS4

RASTBIS5

RASTBIS6

RASTBIS7

RASTBIS8

RASTBIS9

RASTBIS0

P_STAND

' ' "noted item

P_SPCAL

changing

v_net1

v_net2

v_net3

v_net4

v_net5

v_net6

v_net7

v_net8

v_net9

v_net10

v_net11

v_net.

if p_balyes = 'X' or v_net > 0.

format color col_total.
write:/ sy-vline,
002 customer_tab-kunnr,
012 SY-VLINE,013(30) customer_tab-name1,
043 SY-VLINE,044(16) v_net1,
061 SY-VLINE,062(16) v_net2,
079 SY-VLINE,080(16) v_net3,
097 SY-VLINE,098(16) v_net4,
115 SY-VLINE,116(16) v_net5,
133 SY-VLINE,134(16) v_net6,
151 SY-VLINE,152(16) v_net7,
169 SY-VLINE,170(16) v_net8,
187 SY-VLINE,188(16) v_net9,
205 SY-VLINE,206(16) v_net10,
223 SY-VLINE,224(16) v_net11,
239 SY-VLINE,240(16) v_net,
258 SY-VLINE.
format color off.
hide : customer_tab-kunnr.
v_ttlnet1 = v_ttlnet1 + v_net1.
v_ttlnet2 = v_ttlnet2 + v_net2.
v_ttlnet3 = v_ttlnet3 + v_net3.
v_ttlnet4 = v_ttlnet4 + v_net4.
v_ttlnet5 = v_ttlnet5 + v_net5.
v_ttlnet6 = v_ttlnet6 + v_net6.
v_ttlnet7 = v_ttlnet7 + v_net7.
v_ttlnet8 = v_ttlnet8 + v_net8.
v_ttlnet9 = v_ttlnet9 + v_net9.
v_ttlnet10 = v_ttlnet10 + v_net10.
v_ttlnet11 = v_ttlnet11 + v_net11.
v_ttlnet = v_ttlnet + v_net.
endif.
endloop.
ULINE.
format color col_total.
write:/ sy-vline,
012 SY-VLINE,012(30) ' T O T A L',
043 SY-VLINE,044(16) v_ttlnet1,
061 SY-VLINE,062(16) v_ttlnet2,
079 SY-VLINE,080(16) v_ttlnet3,
097 SY-VLINE,098(16) v_ttlnet4,
115 SY-VLINE,116(16) v_ttlnet5,
133 SY-VLINE,134(16) v_ttlnet6,
151 SY-VLINE,152(16) v_ttlnet7,
169 SY-VLINE,170(16) v_ttlnet8,
187 SY-VLINE,188(16) v_ttlnet9,
205 SY-VLINE,206(16) v_ttlnet10,
223 SY-VLINE,224(16) v_ttlnet11,
239 SY-VLINE,240(16) v_ttlnet,
258 SY-VLINE.
format color off.
ULINE.

*loop at customer_tab.

move customer_tab-KUNNR to it_final-KUNNR.

MOVE customer_tab-name1 to it_final-name1.

move v_net1 to it_final-v_net1.

move v_net2 to it_final-v_net2.

move v_net3 to it_final-v_net3.

move v_net4 to it_final-v_net4.

move v_net5 to it_final-v_net5.

move v_net6 to it_final-v_net6.

move v_net7 to it_final-v_net7.

move v_net8 to it_final-v_net8.

move v_net9 to it_final-v_net9.

move v_net10 to it_final-v_net10.

move v_net11 to it_final-v_net11.

move V_ttlNET to it_final-V_ttlNET.

MOVE V_TTLNET2 TO IT_FINAL-V_TTLNET2.

MOVE V_TTLNET3 TO IT_FINAL-V_TTLNET3.

MOVE V_TTLNET4 TO IT_FINAL-V_TTLNET4.

MOVE V_TTLNET5 TO IT_FINAL-V_TTLNET5.

MOVE V_TTLNET6 TO IT_FINAL-V_TTLNET6.

MOVE V_TTLNET7 TO IT_FINAL-V_TTLNET7.

MOVE V_TTLNET8 TO IT_FINAL-V_TTLNET8.

MOVE V_TTLNET9 TO IT_FINAL-V_TTLNET9.

MOVE V_TTLNET10 TO IT_FINAL-V_TTLNET10.

MOVE V_TTLNET11 TO IT_FINAL-V_TTLNET11.

MOVE V_TTLNET TO IT_FINAL-V_TTLNET.

*move v_net1 to it_final-net1.

append it_final.

clear it_final.

endif.

endloop.

endform. "extract_data

Function to Calculate Aging.

Form calculate_ageing using

bukrs

kunnr

dat

RASTBIS1

RASTBIS2

RASTBIS3

RASTBIS4

RASTBIS5

RASTBIS6

RASTBIS7

RASTBIS8

RASTBIS9

RASTBIS0

P_STAND

P_NOTED

P_SPCAL

changing

v_net1

v_net2

v_net3

v_net4

v_net5

v_net6

v_net7

v_net8

v_net9

v_net10

v_net11

v_net.

DATA: BEGIN OF BSID_TAB1 OCCURS 0,

BUKRS LIKE BSID-BUKRS,

PRCTR LIKE BSID-PRCTR,

KUNNR LIKE BSID-KUNNR,

FLAG(1),

UMSKZ LIKE BSID-UMSKZ,

BLART LIKE BSID-BLART,

BELNR LIKE BSID-BELNR,

BUZEI LIKE BSID-BUZEI,

NETDT LIKE BSID-ZFBDT,

ZFBDT LIKE BSID-ZFBDT,

BUDAT LIKE BSID-BUDAT,

BLDAT LIKE BSID-BLDAT,

BSCHL LIKE BSID-BSCHL,

DMBTR LIKE BSID-DMBTR,

SHKZG LIKE BSID-SHKZG,

ZBD1T LIKE BSID-ZBD1T,

ZBD2T LIKE BSID-ZBD2T,

ZBD3T LIKE BSID-ZBD3T,

REBZG LIKE BSID-REBZG,

REBZT LIKE BSID-REBZT,

KOART LIKE BSEG-KOART,

SK1DT LIKE FAEDE-SK1DT,

SK2DT LIKE FAEDE-SK2DT,

DAYSD LIKE SY-TABIX,

END OF BSID_TAB1.

RANGES: R_UMSKZ FOR BSID-UMSKZ.

Data : V_ZFBDT Like bsid-ZFBDT,

V_ZBD1T Like bsid-ZBD1T,

V_ZBD2T Like bsid-ZBD2T,

V_ZBD3T Like bsid-ZBD3T,

V_LINES(8) TYPE n.

IF P_NOTED = 'X'. "CHECK NOTED ITEMS

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'D'.

APPEND R_UMSKZ.

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'L'.

APPEND R_UMSKZ.

ENDIF.

IF P_STAND = 'X'. "CHECK STANDARD ITEMS

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = ' '.

APPEND R_UMSKZ.

ENDIF.

IF P_SPCAL = 'X'. "CHECK SPECIAL G/L TRANSACTION

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'A'.

APPEND R_UMSKZ.

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'B'.

APPEND R_UMSKZ.

ENDIF.

SELECT * FROM BSID INTO CORRESPONDING FIELDS OF TABLE BSID_TAB

WHERE BUKRS = BUKRS AND

budat <= dat AND

KUNNR = KUNNR AND

UMSKZ in R_UMSKZ.

SELECT * FROM BSAD appending CORRESPONDING FIELDS OF TABLE BSID_TAB

WHERE BUKRS = BUKRS AND

budat <= dat AND

augdt >= dat AND

KUNNR = KUNNR AND

UMSKZ in R_UMSKZ.

DESCRIBE TABLE BSID_TAB LINES V_LINES.

LOOP AT BSID_TAB.

if bsid_tab-BLART = 'DZ'.

Select single ZFBDT ZBD1T ZBD2T ZBD3T

into (V_ZFBDT,V_ZBD1T,V_ZBD2T,V_ZBD3T)

from bsid where BUKRS = BUKRS

and kunnr = bsid_tab-kunnr

and BELNR = bsid_tab-REBZG.

if sy-subrc = 0.

bsid_tab-ZFBDT = V_ZFBDT.

bsid_tab-ZBD1T = V_ZBD1T.

bsid_tab-ZBD2T = V_ZBD2T.

bsid_tab-ZBD3T = V_ZBD3T.

else.

Select single ZFBDT ZBD1T ZBD2T ZBD3T

into (V_ZFBDT,V_ZBD1T,V_ZBD2T,V_ZBD3T)

from bsad where BUKRS = BUKRS

and kunnr = bsid_tab-kunnr

and BELNR = bsid_tab-REBZG.

if sy-subrc <> 0.

bsid_tab-ZFBDT = V_ZFBDT.

bsid_tab-ZBD1T = V_ZBD1T.

bsid_tab-ZBD2T = V_ZBD2T.

bsid_tab-ZBD3T = V_ZBD3T.

endif.

IF BSID_TAB-SHKZG = 'H'.

BSID_TAB-DMBTR = BSID_TAB-DMBTR * ( - 1 ).

ENDIF.

bsid_tab-netdt = bsid_tab-ZFBDT.

bsid_tab-netdt = bsid_tab-budat.

bsid_tab-koart = 'D'.

MODIFY BSID_TAB.

PERFORM CALC_DUE_DATE USING BSID_TAB.

BSID_TAB-DAYSD = DAT - BSID_TAB-NETDT.

IF BSID_TAB-DAYSD <= RASTBIS1.

V_NET1 = V_NET1 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS2.

V_NET2 = V_NET2 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS3.

V_NET3 = V_NET3 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS4.

V_NET4 = V_NET4 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS5.

V_NET5 = V_NET5 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS6.

V_NET6 = V_NET6 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS7.

V_NET7 = V_NET7 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS5.

V_NET8 = V_NET8 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS9.

V_NET9 = V_NET9 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS0.

V_NET10 = V_NET10 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD > RASTBIS0.

V_NET11 = V_NET11 + BSID_TAB-DMBTR.

ENDIF.

V_NET = V_NET + BSID_TAB-DMBTR.

MODIFY BSID_TAB.

ENDLOOP.

endform. "calculate_ageing

Calculate Due Date

FORM CALC_DUE_DATE USING P_BSID_TAB STRUCTURE BSID_TAB.

DATA : REFE TYPE P.

IF P_BSID_TAB-KOART = 'K' OR P_BSID_TAB-KOART = 'D'.

IF P_BSID_TAB-ZFBDT IS INITIAL.

P_BSID_TAB-ZFBDT = P_BSID_TAB-BLDAT.

ENDIF.

*~~Nettofälligkeit bestimmen~~--

IF NOT P_BSID_TAB-ZBD3T IS INITIAL.

REFE = P_BSID_TAB-ZBD3T.

ELSE.

IF NOT P_BSID_TAB-ZBD2T IS INITIAL.

REFE = P_BSID_TAB-ZBD2T.

ELSE.

REFE = P_BSID_TAB-ZBD1T.

ENDIF.

*~~Nichtrechnungsbezogene Gutschriften sind sofort fällig~~--

IF P_BSID_TAB-KOART = 'D' AND P_BSID_TAB-SHKZG = 'H'

OR P_BSID_TAB-KOART = 'K' AND P_BSID_TAB-SHKZG = 'S'.

IF P_BSID_TAB-REBZG IS INITIAL.

REFE = 0.

ENDIF.

P_BSID_TAB-NETDT = P_BSID_TAB-ZFBDT + REFE.

*~~Skontofälligkeiten bestimmen~~--

IF NOT P_BSID_TAB-ZBD2T IS INITIAL.

P_BSID_TAB-SK2DT = P_BSID_TAB-ZFBDT + P_BSID_TAB-ZBD2T.

ELSE.

P_BSID_TAB-SK2DT = P_BSID_TAB-NETDT.

ENDIF.

IF NOT P_BSID_TAB-ZBD1T IS INITIAL

OR NOT P_BSID_TAB-ZBD2T IS INITIAL.

P_BSID_TAB-SK1DT = P_BSID_TAB-ZFBDT + P_BSID_TAB-ZBD1T.

ELSE.

P_BSID_TAB-SK1DT = P_BSID_TAB-NETDT.

ENDIF.

*~~Nichtrechnungsbezogene Gutschriften sind sofort fällig~~--

IF P_BSID_TAB-KOART = 'D' AND P_BSID_TAB-SHKZG = 'H'

OR P_BSID_TAB-KOART = 'K' AND P_BSID_TAB-SHKZG = 'S'.

IF P_BSID_TAB-REBZG IS INITIAL.

P_BSID_TAB-SK2DT = P_BSID_TAB-NETDT.

P_BSID_TAB-SK1DT = P_BSID_TAB-NETDT.

ENDIF.

ELSE.
MESSAGE E122 RAISING ACCOUNT_TYPE_NOT_SUPPORTED.
ENDIF.

E_FAEDE = FAEDE.

ENDFORM. "CALC_DUE_DATE

*----

FORM TOP_OF_PAGE *

*----

........ *

*----

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEADING.

ENDFORM. "TOP_OF_PAGE

*&----

*& Form BUILD_LAYOUT

*&----

FORM BUILD_LAYOUT USING P_LAYOUT TYPE SLIS_LAYOUT_ALV.

P_LAYOUT-F2CODE = F2CODE.

P_LAYOUT-ZEBRA = 'X'.

P_LAYOUT-DETAIL_POPUP = 'X'.

ENDFORM. " BUILD_LAYOUT

*&----

*& Form WRITE_OUTPUT

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM WRITE_OUTPUT .

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = REPNAME

I_STRUCTURE_NAME = 'BSID_TAB'
IS_LAYOUT = LAYOUT
IT_FIELDCAT = P_FIELDTAB

TABLES
T_OUTTAB = IT_FINAL.
IF SY-SUBRC <> 0.
WRITE: 'SY-SUBRC: ', SY-SUBRC, 'REUSE_ALV_LIST_DISPLAY'.
ENDIF.

ENDFORM. " WRITE_OUTPUT

*&----

*& Form INITIALIZE_FIELDCAT

*&----

text

*----

-->P_FIELDTAB[] text

*----

FORM INITIALIZE_FIELDCAT."USING P_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV.

fixed columns (obligatory)

DATA ls_fieldcat TYPE slis_fieldcat_alv.

DATA : fieldcat_tab TYPE slis_t_fieldcat_alv,

COL TYPE I .

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'KUNNR'.

ls_fieldcat-reptext_ddic = 'Customer'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'NAME1'.

ls_fieldcat-reptext_ddic = 'Name'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET1'.

ls_fieldcat-reptext_ddic = 'Current'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET2'.

ls_fieldcat-reptext_ddic = 'From 0001 To 0030'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET3'.

ls_fieldcat-reptext_ddic = 'From 0031 To 0060'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET4'.

ls_fieldcat-reptext_ddic = 'From 0061 To 0090'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET5'.

ls_fieldcat-reptext_ddic = 'From 0091 To 0120'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET6'.

ls_fieldcat-reptext_ddic = 'From 0121 From 0150'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET7'.

ls_fieldcat-reptext_ddic = 'From 0151 From 0180'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET8'.

ls_fieldcat-reptext_ddic = 'From 0181 From 0210'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET9'.

ls_fieldcat-reptext_ddic = 'From 0211 From 0240'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET10'.

ls_fieldcat-reptext_ddic = 'From 0241 From 0270'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET11'.

ls_fieldcat-reptext_ddic = 'From 0271'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_ttlNET'.

ls_fieldcat-reptext_ddic = 'Total'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = REPNAME

IT_FIELDCAT = FIELDCAT_TAB

TABLES

T_OUTTAB = IT_FINAL.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING
I_CALLBACK_PROGRAM = REPNAME

I_STRUCTURE_NAME = 'BSID_TAB'
IS_LAYOUT = LAYOUT

IT_FIELDCAT = fieldcat_tab
TABLES
T_OUTTAB = IT_FINAL[].
IF SY-SUBRC <> 0.
WRITE: 'SY-SUBRC: ', SY-SUBRC, 'REUSE_ALV_LIST_DISPLAY'.
ENDIF.

ENDFORM. " INITIALIZE_FIELDCAT

*&----

*& Form BUILD_EVENTTAB

*&----

text

*----

-->P_EVENTS[] text

*----

FORM BUILD_EVENTTAB USING P_EVENTS TYPE SLIS_T_EVENT.

DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = P_EVENTS.

READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE

INTO LS_EVENT.

IF SY-SUBRC = 0.

MOVE FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.

APPEND LS_EVENT TO P_EVENTS.

ENDIF.

ENDFORM. " BUILD_EVENTTAB

*&----

*& Form BUILD_COMMENT

*&----

text

*----

-->P_HEADING[] text

*----

FORM BUILD_COMMENT USING P_HEADING TYPE SLIS_T_LISTHEADER.

DATA: HLINE TYPE SLIS_LISTHEADER,

TEXT(60) TYPE C,

SEP(20) TYPE C.

CLEAR: HLINE, TEXT.

HLINE-TYP = 'H'.

WRITE: TEXT-101 TO TEXT+23.

HLINE-INFO = TEXT.

APPEND HLINE TO P_HEADING.

CLEAR TEXT.

WRITE: 'User: ' TO TEXT,

SY-UNAME TO TEXT+6,

'Date: ' TO TEXT+25,

SY-DATUM TO TEXT+31,

'Page: ' TO TEXT+50,

SY-PAGNO TO TEXT+56.

HLINE-INFO = TEXT.

APPEND HLINE TO P_HEADING.

ENDFORM. " BUILD_COMMENT

Re: ALV Dump

Former Member — Mon, 17 Jul 2006 15:17:32 GMT

*&----

*& Report ZSAMPLE1

*&----

REPORT ZSAMPLE1 line-size 1022.

====================================================================

AUTHOR : *
DATE WRITTEN : *
APPLICATION : FI-AR *
FUNCTION : Customers Ageing Analysis with Details *

====================================================================

TYPES **********************************

====================================================================

TABLES *********************************

====================================================================

TYPE-POOLS: SLIS.

tables : bseg,

bkpf,

kna1,

bsid,

bsad,

knb1.

DATA: BEGIN OF IT_FINAL OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

NAME1 LIKE KNA1-NAME1,

V_NET1 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 1

V_NET2 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 2

V_NET3 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 3

V_NET4 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 4

V_NET5 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 5

V_NET6 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 6

V_NET7 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 7

V_NET8 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 8

V_NET9 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 9

V_NET10 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 10

V_NET11 LIKE BSID-DMBTR,

V_TTLNET1 LIKE BSID-DMBTR,

V_TTLNET2 LIKE BSID-DMBTR,

V_TTLNET3 LIKE BSID-DMBTR,

V_TTLNET4 LIKE BSID-DMBTR,

V_TTLNET5 LIKE BSID-DMBTR,

V_TTLNET6 LIKE BSID-DMBTR,

V_TTLNET7 LIKE BSID-DMBTR,

V_TTLNET8 LIKE BSID-DMBTR,

V_TTLNET9 LIKE BSID-DMBTR,

V_TTLNET10 LIKE BSID-DMBTR,

V_TTLNET11 LIKE BSID-DMBTR,

V_TTLNET LIKE BSID-DMBTR,

END OF IT_FINAL.

data : begin of customer_tab occurs 0,

kunnr like kna1-kunnr,

name1 like kna1-name1,

flag(1) type c,

end of customer_tab.

data : begin of customerdoc_tab occurs 0,

kunnr like kna1-kunnr,

belnr like bkpf-belnr,

gjahr like bkpf-gjahr,

monat like bkpf-monat,

end of customerdoc_tab.

data : begin of doc_tab occurs 0,

belnr like bkpf-belnr,

gjahr like bkpf-gjahr,

monat like bkpf-monat,

end of doc_tab.

DATA: BEGIN OF BSID_TAB OCCURS 0,

BUKRS LIKE BSID-BUKRS,

PRCTR LIKE BSID-PRCTR,

KUNNR LIKE BSID-KUNNR,

FLAG(1),

UMSKZ LIKE BSID-UMSKZ,

BLART LIKE BSID-BLART,

BELNR LIKE BSID-BELNR,

BUZEI LIKE BSID-BUZEI,

NETDT LIKE BSID-ZFBDT,

ZFBDT LIKE BSID-ZFBDT,

BUDAT LIKE BSID-BUDAT,

BLDAT LIKE BSID-BLDAT,

BSCHL LIKE BSID-BSCHL,

DMBTR LIKE BSID-DMBTR,

SHKZG LIKE BSID-SHKZG,

ZBD1T LIKE BSID-ZBD1T,

ZBD2T LIKE BSID-ZBD2T,

ZBD3T LIKE BSID-ZBD3T,

REBZG LIKE BSID-REBZG,

REBZT LIKE BSID-REBZT,

KOART LIKE BSEG-KOART,

SK1DT LIKE FAEDE-SK1DT,

SK2DT LIKE FAEDE-SK2DT,

DAYSD LIKE SY-TABIX,

END OF BSID_TAB.

DATA: FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,

P_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,

HEADING TYPE SLIS_T_LISTHEADER,

LAYOUT TYPE SLIS_LAYOUT_ALV,

EVENTS TYPE SLIS_T_EVENT,

REPNAME LIKE SY-REPID,

F2CODE LIKE SY-UCOMM VALUE '&ETA',

G_SAVE(1) TYPE C,

G_EXIT(1) TYPE C,

G_VARIANT LIKE DISVARIANT,

GX_VARIANT LIKE DISVARIANT.

ranges : r_bukrs for bsid-bukrs,

r_kunnr for kna1-kunnr.

===================================================================

VARIABLES *******************************

===================================================================

CONSTANTS: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.

*data: Begin of it_final occurs 0,

kunnr like kna1-kunnr,
name1 like kna1-name1,
V_NET1 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 1
V_NET2 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 2
V_NET3 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 3
V_NET4 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 4
V_NET5 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 5
V_NET6 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 6
V_NET7 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 7
V_NET8 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 8
V_NET9 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 9
V_NET10 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 10
V_NET11 LIKE BSID-DMBTR,

V_ttlNET1 LIKE BSID-DMBTR,
V_ttlNET2 LIKE BSID-DMBTR,
V_ttlNET3 LIKE BSID-DMBTR,
V_ttlNET4 LIKE BSID-DMBTR,
V_ttlNET5 LIKE BSID-DMBTR,
V_ttlNET6 LIKE BSID-DMBTR,
V_ttlNET7 LIKE BSID-DMBTR,
V_ttlNET8 LIKE BSID-DMBTR,
V_ttlNET9 LIKE BSID-DMBTR,
V_ttlNET10 LIKE BSID-DMBTR,
V_ttlNET11 LIKE BSID-DMBTR,

V_ttlNET LIKE BSID-DMBTR,
End of it_final.

data : v_belnr like bseg-belnr,

v_gjahr like bkpf-gjahr,

v_monat like bkpf-monat,

v_ttlc type p,

v_flag(1) type c,

V_COUNT1(4) TYPE N,

V_COUNT2(4) TYPE N,

V_COUNT3(4) TYPE N,

V_COUNT4(4) TYPE N,

V_COUNT5(4) TYPE N,

V_COUNT6(4) TYPE N,

V_COUNT7(4) TYPE N,

V_COUNT8(4) TYPE N,

V_COUNT9(4) TYPE N,

V_COUNT10(4) TYPE N,

V_NET1 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 1

V_NET2 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 2

V_NET3 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 3

V_NET4 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 4

V_NET5 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 5

V_NET6 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 6

V_NET7 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 7

V_NET8 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 8

V_NET9 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 9

V_NET10 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 10

V_NET11 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 11

V_NET LIKE BSID-DMBTR, "Total Balance of Customer

V_ttlNET1 LIKE BSID-DMBTR,

V_ttlNET2 LIKE BSID-DMBTR,

V_ttlNET3 LIKE BSID-DMBTR,

V_ttlNET4 LIKE BSID-DMBTR,

V_ttlNET5 LIKE BSID-DMBTR,

V_ttlNET6 LIKE BSID-DMBTR,

V_ttlNET7 LIKE BSID-DMBTR,

V_ttlNET8 LIKE BSID-DMBTR,

V_ttlNET9 LIKE BSID-DMBTR,

V_ttlNET10 LIKE BSID-DMBTR,

V_ttlNET11 LIKE BSID-DMBTR,

V_ttlNET LIKE BSID-DMBTR,

v_kunnr like bseg-kunnr,

V_BUTXT like t001-butxt.

===================================================================

SELECTION SCREEN ****************************

===================================================================

selection-screen begin of block b1 with frame title text-001.

parameters : p_bukrs like bseg-bukrs obligatory.

select-options : s_kunnr for kna1-kunnr,

s_BRSCH for kna1-BRSCH,

s_REGIO for kna1-REGIO,

s_KTOKD for kna1-KTOKD,

s_BUSAB for knb1-BUSAB.

selection-screen: end of block b1.

selection-screen begin of block b2 with frame title text-003.

PARAMETERS: DAT LIKE SY-DATUM DEFAULT SY-DATUM.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 01(30) TEXT-002.

SELECTION-SCREEN POSITION POS_LOW.

*PARAMETERS: RASTBIS1 LIKE RFPDO1-ALLGROGR DEFAULT '000'.

*PARAMETERS: RASTBIS2 LIKE RFPDO1-ALLGROGR DEFAULT '030'.

*PARAMETERS: RASTBIS3 LIKE RFPDO1-ALLGROGR DEFAULT '060'.

*PARAMETERS: RASTBIS4 LIKE RFPDO1-ALLGROGR DEFAULT '090'.

*PARAMETERS: RASTBIS5 LIKE RFPDO1-ALLGROGR DEFAULT '120'.

PARAMETERS: RASTBIS1(4) type n DEFAULT '0000'.

PARAMETERS: RASTBIS2(4) type n DEFAULT '0030'.

PARAMETERS: RASTBIS3(4) type n DEFAULT '0060'.

PARAMETERS: RASTBIS4(4) type n DEFAULT '0090'.

PARAMETERS: RASTBIS5(4) type n DEFAULT '0120'.

PARAMETERS: RASTBIS6(4) type n DEFAULT '0150'.

PARAMETERS: RASTBIS7(4) type n DEFAULT '0180'.

PARAMETERS: RASTBIS8(4) type n DEFAULT '0210'.

PARAMETERS: RASTBIS9(4) type n DEFAULT '0240'.

PARAMETERS: RASTBIS0(4) type n DEFAULT '0270'.

SELECTION-SCREEN END OF LINE.

Noted item removed as per FI instruction

PARAMETERS: P_STAND AS CHECKBOX default 'X',

P_NOTED AS CHECKBOX ,

P_SPCAL AS CHECKBOX .

selection-screen: end of block b2.

selection-screen begin of block b3 with frame.

PARAMETERS: allgline like RFPDO1-allgline .

Parameters : p_balyes type c radiobutton group grp9 default 'X',

p_balno type c radiobutton group grp9.

selection-screen: end of block b3.

Check for the Select option

AT SELECTION-SCREEN.

IF P_STAND = '' AND P_SPCAL = '' .

MESSAGE E398(00) WITH 'PLEASE CHOOSE AT LEAST ONE G/L INDICATOR!'.

ENDIF.

Check for Company code Authorization

authority-check object 'F_BKPF_BUK'

ID 'BUKRS' FIELD p_bukrs

ID 'ACTVT' FIELD '03'.

if sy-subrc ne 0.

message e398(00) with 'You are not Authorized for CC ' p_bukrs.

Endif.

===================================================================

START-OF-SELECTION ****************************

===================================================================

INITIALIZATION.

REPNAME = SY-REPID.

PERFORM INITIALIZE_FIELDCAT USING FIELDTAB[].
PERFORM BUILD_EVENTTAB USING EVENTS[].
PERFORM BUILD_COMMENT USING HEADING[].

START-OF-SELECTION.

V_COUNT1 = RASTBIS1 + 1.

V_COUNT2 = RASTBIS2 + 1.

V_COUNT3 = RASTBIS3 + 1.

V_COUNT4 = RASTBIS4 + 1.

V_COUNT5 = RASTBIS5 + 1.

V_COUNT6 = RASTBIS6 + 1.

V_COUNT7 = RASTBIS7 + 1.

V_COUNT8 = RASTBIS8 + 1.

V_COUNT9 = RASTBIS9 + 1.

V_COUNT10 = RASTBIS0 + 1.

perform extract_data.

END-OF-SELECTION.

PERFORM INITIALIZE_FIELDCAT."USING FIELDTAB.

PERFORM BUILD_EVENTTAB USING EVENTS[].

PERFORM BUILD_COMMENT USING HEADING[].

===================================================================

At line Selection *****************************

===================================================================

at line-selection.

if sy-lilli >= 9 .

refresh r_bukrs.

move p_bukrs to r_bukrs-low.

move 'I' to r_bukrs-sign.

move 'EQ' to r_bukrs-option.

append r_bukrs.

refresh r_kunnr.

move customer_tab-kunnr to r_kunnr-low.

move 'I' to r_kunnr-sign.

move 'EQ' to r_kunnr-option.

append r_kunnr.

submit ZFARVR0040 and return

with p_bukrs = p_bukrs

with dat = dat

with p_stand = p_stand

with p_spcal = P_SPCAL

with s_kunnr in r_kunnr.

endif.

===================================================================

Top of Page *******************************

===================================================================

TOP-OF-PAGE.

SELECT SINGLE BUTXT FROM T001 INTO V_BUTXT

WHERE BUKRS = p_BUKRS .

WRITE:/73'Customers Aging Analysis',140'PAGE NO.',

SY-PAGNO.

WRITE:/002 'COMPANY',

011 P_BUKRS,

017 V_BUTXT,

055 allgline centered,

140 'DATE :',

150 sy-datum .

write:/002 'User',

011 sy-UNAME,

140 'Time :',

150 sy-UZEIT.

SKIP.

format color col_heading intensified off.

WRITE:/ SY-ULINE,

SY-VLINE,002 'Customer',

012 SY-VLINE,013 'Name',

043 SY-VLINE,048 'CURRENT',

061 SY-VLINE,065 'FROM ',V_COUNT1,

079 SY-VLINE,083 'FROM ',V_COUNT2,

097 SY-VLINE,101 'FROM ',V_COUNT3,

115 SY-VLINE,119 'FROM ',V_COUNT4,

133 SY-VLINE,137 'FROM ',V_COUNT5,

151 SY-VLINE,155 'FROM ',V_COUNT6,

169 SY-VLINE,173 'FROM ',V_COUNT7,

187 SY-VLINE,191 'FROM ',V_COUNT8,

205 SY-VLINE,209 'FROM ',V_COUNT9,

223 SY-VLINE,228 'FROM ',V_COUNT10,

243 SY-VLINE,248 'TOTAL',

268 SY-VLINE.

WRITE:/ SY-VLINE,002 'Number',

12 SY-VLINE,

43 SY-VLINE,

061 SY-VLINE,065 'TO ',RASTBIS2,

079 SY-VLINE,083 'TO ',RASTBIS3,

097 SY-VLINE,101 'TO ',RASTBIS4,

115 SY-VLINE,119 'TO ',RASTBIS5,

133 SY-VLINE,137 'FROM ',RASTBIS6,

151 SY-VLINE,155 'FROM ',RASTBIS7,

169 SY-VLINE,173 'FROM ',RASTBIS8,

187 SY-VLINE,191 'FROM ',RASTBIS9,

205 SY-VLINE,209 'FROM ',RASTBIS0,

223 SY-VLINE,

243 SY-VLINE,

268 SY-VLINE,

SY-ULINE.

format color off.

===================================================================

END-OF-SELECTION ***************************

===================================================================

PERFORM BUILD_LAYOUT USING LAYOUT.
PERFORM WRITE_OUTPUT.

===================================================================

Form : Extract_Data *

===================================================================

form extract_data.

Select the Customers

Select t1~kunnr t2~name1

into corresponding fields of table customer_tab

from knb1 as t1 inner join kna1 as t2

on t2~kunnr = t1~kunnr

where t1~bukrs = p_bukrs

and t1~kunnr in s_kunnr

and t1~BUSAB in s_busab

and t2~regio in s_regio

and t2~BRSCH in s_BRSCH

and t2~KTOKD in s_KTOKD.

if sy-subrc <> 0.

message e398(00) with 'No Customers Selected'.

endif.

sort customer_tab.

describe table customer_tab lines v_ttlc.

v_ttlc = v_ttlc + 10.

loop at customer_tab.

v_net1 = 0.

v_net2 = 0.

v_net3 = 0.

v_net4 = 0.

v_net5 = 0.

v_net6 = 0.

v_net7 = 0.

v_net8 = 0.

v_net9 = 0.

v_net10 = 0.

v_net11 = 0.

v_net = 0.

perform calculate_ageing

using

p_bukrs

customer_tab-kunnr

dat

RASTBIS1

RASTBIS2

RASTBIS3

RASTBIS4

RASTBIS5

RASTBIS6

RASTBIS7

RASTBIS8

RASTBIS9

RASTBIS0

P_STAND

' ' "noted item

P_SPCAL

changing

v_net1

v_net2

v_net3

v_net4

v_net5

v_net6

v_net7

v_net8

v_net9

v_net10

v_net11

v_net.

if p_balyes = 'X' or v_net > 0.

format color col_total.
write:/ sy-vline,
002 customer_tab-kunnr,
012 SY-VLINE,013(30) customer_tab-name1,
043 SY-VLINE,044(16) v_net1,
061 SY-VLINE,062(16) v_net2,
079 SY-VLINE,080(16) v_net3,
097 SY-VLINE,098(16) v_net4,
115 SY-VLINE,116(16) v_net5,
133 SY-VLINE,134(16) v_net6,
151 SY-VLINE,152(16) v_net7,
169 SY-VLINE,170(16) v_net8,
187 SY-VLINE,188(16) v_net9,
205 SY-VLINE,206(16) v_net10,
223 SY-VLINE,224(16) v_net11,
239 SY-VLINE,240(16) v_net,
258 SY-VLINE.
format color off.
hide : customer_tab-kunnr.
v_ttlnet1 = v_ttlnet1 + v_net1.
v_ttlnet2 = v_ttlnet2 + v_net2.
v_ttlnet3 = v_ttlnet3 + v_net3.
v_ttlnet4 = v_ttlnet4 + v_net4.
v_ttlnet5 = v_ttlnet5 + v_net5.
v_ttlnet6 = v_ttlnet6 + v_net6.
v_ttlnet7 = v_ttlnet7 + v_net7.
v_ttlnet8 = v_ttlnet8 + v_net8.
v_ttlnet9 = v_ttlnet9 + v_net9.
v_ttlnet10 = v_ttlnet10 + v_net10.
v_ttlnet11 = v_ttlnet11 + v_net11.
v_ttlnet = v_ttlnet + v_net.
endif.
endloop.
ULINE.
format color col_total.
write:/ sy-vline,
012 SY-VLINE,012(30) ' T O T A L',
043 SY-VLINE,044(16) v_ttlnet1,
061 SY-VLINE,062(16) v_ttlnet2,
079 SY-VLINE,080(16) v_ttlnet3,
097 SY-VLINE,098(16) v_ttlnet4,
115 SY-VLINE,116(16) v_ttlnet5,
133 SY-VLINE,134(16) v_ttlnet6,
151 SY-VLINE,152(16) v_ttlnet7,
169 SY-VLINE,170(16) v_ttlnet8,
187 SY-VLINE,188(16) v_ttlnet9,
205 SY-VLINE,206(16) v_ttlnet10,
223 SY-VLINE,224(16) v_ttlnet11,
239 SY-VLINE,240(16) v_ttlnet,
258 SY-VLINE.
format color off.
ULINE.

*loop at customer_tab.

move customer_tab-KUNNR to it_final-KUNNR.

MOVE customer_tab-name1 to it_final-name1.

move v_net1 to it_final-v_net1.

move v_net2 to it_final-v_net2.

move v_net3 to it_final-v_net3.

move v_net4 to it_final-v_net4.

move v_net5 to it_final-v_net5.

move v_net6 to it_final-v_net6.

move v_net7 to it_final-v_net7.

move v_net8 to it_final-v_net8.

move v_net9 to it_final-v_net9.

move v_net10 to it_final-v_net10.

move v_net11 to it_final-v_net11.

move V_ttlNET to it_final-V_ttlNET.

MOVE V_TTLNET2 TO IT_FINAL-V_TTLNET2.

MOVE V_TTLNET3 TO IT_FINAL-V_TTLNET3.

MOVE V_TTLNET4 TO IT_FINAL-V_TTLNET4.

MOVE V_TTLNET5 TO IT_FINAL-V_TTLNET5.

MOVE V_TTLNET6 TO IT_FINAL-V_TTLNET6.

MOVE V_TTLNET7 TO IT_FINAL-V_TTLNET7.

MOVE V_TTLNET8 TO IT_FINAL-V_TTLNET8.

MOVE V_TTLNET9 TO IT_FINAL-V_TTLNET9.

MOVE V_TTLNET10 TO IT_FINAL-V_TTLNET10.

MOVE V_TTLNET11 TO IT_FINAL-V_TTLNET11.

MOVE V_TTLNET TO IT_FINAL-V_TTLNET.

*move v_net1 to it_final-net1.

append it_final.

clear it_final.

endif.

endloop.

endform. "extract_data

Function to Calculate Aging.

Form calculate_ageing using

bukrs

kunnr

dat

RASTBIS1

RASTBIS2

RASTBIS3

RASTBIS4

RASTBIS5

RASTBIS6

RASTBIS7

RASTBIS8

RASTBIS9

RASTBIS0

P_STAND

P_NOTED

P_SPCAL

changing

v_net1

v_net2

v_net3

v_net4

v_net5

v_net6

v_net7

v_net8

v_net9

v_net10

v_net11

v_net.

DATA: BEGIN OF BSID_TAB1 OCCURS 0,

BUKRS LIKE BSID-BUKRS,

PRCTR LIKE BSID-PRCTR,

KUNNR LIKE BSID-KUNNR,

FLAG(1),

UMSKZ LIKE BSID-UMSKZ,

BLART LIKE BSID-BLART,

BELNR LIKE BSID-BELNR,

BUZEI LIKE BSID-BUZEI,

NETDT LIKE BSID-ZFBDT,

ZFBDT LIKE BSID-ZFBDT,

BUDAT LIKE BSID-BUDAT,

BLDAT LIKE BSID-BLDAT,

BSCHL LIKE BSID-BSCHL,

DMBTR LIKE BSID-DMBTR,

SHKZG LIKE BSID-SHKZG,

ZBD1T LIKE BSID-ZBD1T,

ZBD2T LIKE BSID-ZBD2T,

ZBD3T LIKE BSID-ZBD3T,

REBZG LIKE BSID-REBZG,

REBZT LIKE BSID-REBZT,

KOART LIKE BSEG-KOART,

SK1DT LIKE FAEDE-SK1DT,

SK2DT LIKE FAEDE-SK2DT,

DAYSD LIKE SY-TABIX,

END OF BSID_TAB1.

RANGES: R_UMSKZ FOR BSID-UMSKZ.

Data : V_ZFBDT Like bsid-ZFBDT,

V_ZBD1T Like bsid-ZBD1T,

V_ZBD2T Like bsid-ZBD2T,

V_ZBD3T Like bsid-ZBD3T,

V_LINES(8) TYPE n.

IF P_NOTED = 'X'. "CHECK NOTED ITEMS

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'D'.

APPEND R_UMSKZ.

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'L'.

APPEND R_UMSKZ.

ENDIF.

IF P_STAND = 'X'. "CHECK STANDARD ITEMS

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = ' '.

APPEND R_UMSKZ.

ENDIF.

IF P_SPCAL = 'X'. "CHECK SPECIAL G/L TRANSACTION

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'A'.

APPEND R_UMSKZ.

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'B'.

APPEND R_UMSKZ.

ENDIF.

SELECT * FROM BSID INTO CORRESPONDING FIELDS OF TABLE BSID_TAB

WHERE BUKRS = BUKRS AND

budat <= dat AND

KUNNR = KUNNR AND

UMSKZ in R_UMSKZ.

SELECT * FROM BSAD appending CORRESPONDING FIELDS OF TABLE BSID_TAB

WHERE BUKRS = BUKRS AND

budat <= dat AND

augdt >= dat AND

KUNNR = KUNNR AND

UMSKZ in R_UMSKZ.

DESCRIBE TABLE BSID_TAB LINES V_LINES.

LOOP AT BSID_TAB.

if bsid_tab-BLART = 'DZ'.

Select single ZFBDT ZBD1T ZBD2T ZBD3T

into (V_ZFBDT,V_ZBD1T,V_ZBD2T,V_ZBD3T)

from bsid where BUKRS = BUKRS

and kunnr = bsid_tab-kunnr

and BELNR = bsid_tab-REBZG.

if sy-subrc = 0.

bsid_tab-ZFBDT = V_ZFBDT.

bsid_tab-ZBD1T = V_ZBD1T.

bsid_tab-ZBD2T = V_ZBD2T.

bsid_tab-ZBD3T = V_ZBD3T.

else.

Select single ZFBDT ZBD1T ZBD2T ZBD3T

into (V_ZFBDT,V_ZBD1T,V_ZBD2T,V_ZBD3T)

from bsad where BUKRS = BUKRS

and kunnr = bsid_tab-kunnr

and BELNR = bsid_tab-REBZG.

if sy-subrc <> 0.

bsid_tab-ZFBDT = V_ZFBDT.

bsid_tab-ZBD1T = V_ZBD1T.

bsid_tab-ZBD2T = V_ZBD2T.

bsid_tab-ZBD3T = V_ZBD3T.

endif.

IF BSID_TAB-SHKZG = 'H'.

BSID_TAB-DMBTR = BSID_TAB-DMBTR * ( - 1 ).

ENDIF.

bsid_tab-netdt = bsid_tab-ZFBDT.

bsid_tab-netdt = bsid_tab-budat.

bsid_tab-koart = 'D'.

MODIFY BSID_TAB.

PERFORM CALC_DUE_DATE USING BSID_TAB.

BSID_TAB-DAYSD = DAT - BSID_TAB-NETDT.

IF BSID_TAB-DAYSD <= RASTBIS1.

V_NET1 = V_NET1 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS2.

V_NET2 = V_NET2 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS3.

V_NET3 = V_NET3 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS4.

V_NET4 = V_NET4 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS5.

V_NET5 = V_NET5 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS6.

V_NET6 = V_NET6 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS7.

V_NET7 = V_NET7 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS5.

V_NET8 = V_NET8 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS9.

V_NET9 = V_NET9 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS0.

V_NET10 = V_NET10 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD > RASTBIS0.

V_NET11 = V_NET11 + BSID_TAB-DMBTR.

ENDIF.

V_NET = V_NET + BSID_TAB-DMBTR.

MODIFY BSID_TAB.

ENDLOOP.

endform. "calculate_ageing

Calculate Due Date

FORM CALC_DUE_DATE USING P_BSID_TAB STRUCTURE BSID_TAB.

DATA : REFE TYPE P.

IF P_BSID_TAB-KOART = 'K' OR P_BSID_TAB-KOART = 'D'.

IF P_BSID_TAB-ZFBDT IS INITIAL.

P_BSID_TAB-ZFBDT = P_BSID_TAB-BLDAT.

ENDIF.

*~~Nettofälligkeit bestimmen~~--

IF NOT P_BSID_TAB-ZBD3T IS INITIAL.

REFE = P_BSID_TAB-ZBD3T.

ELSE.

IF NOT P_BSID_TAB-ZBD2T IS INITIAL.

REFE = P_BSID_TAB-ZBD2T.

ELSE.

REFE = P_BSID_TAB-ZBD1T.

ENDIF.

*~~Nichtrechnungsbezogene Gutschriften sind sofort fällig~~--

IF P_BSID_TAB-KOART = 'D' AND P_BSID_TAB-SHKZG = 'H'

OR P_BSID_TAB-KOART = 'K' AND P_BSID_TAB-SHKZG = 'S'.

IF P_BSID_TAB-REBZG IS INITIAL.

REFE = 0.

ENDIF.

P_BSID_TAB-NETDT = P_BSID_TAB-ZFBDT + REFE.

*~~Skontofälligkeiten bestimmen~~--

IF NOT P_BSID_TAB-ZBD2T IS INITIAL.

P_BSID_TAB-SK2DT = P_BSID_TAB-ZFBDT + P_BSID_TAB-ZBD2T.

ELSE.

P_BSID_TAB-SK2DT = P_BSID_TAB-NETDT.

ENDIF.

IF NOT P_BSID_TAB-ZBD1T IS INITIAL

OR NOT P_BSID_TAB-ZBD2T IS INITIAL.

P_BSID_TAB-SK1DT = P_BSID_TAB-ZFBDT + P_BSID_TAB-ZBD1T.

ELSE.

P_BSID_TAB-SK1DT = P_BSID_TAB-NETDT.

ENDIF.

*~~Nichtrechnungsbezogene Gutschriften sind sofort fällig~~--

IF P_BSID_TAB-KOART = 'D' AND P_BSID_TAB-SHKZG = 'H'

OR P_BSID_TAB-KOART = 'K' AND P_BSID_TAB-SHKZG = 'S'.

IF P_BSID_TAB-REBZG IS INITIAL.

P_BSID_TAB-SK2DT = P_BSID_TAB-NETDT.

P_BSID_TAB-SK1DT = P_BSID_TAB-NETDT.

ENDIF.

ELSE.
MESSAGE E122 RAISING ACCOUNT_TYPE_NOT_SUPPORTED.
ENDIF.

E_FAEDE = FAEDE.

ENDFORM. "CALC_DUE_DATE

*----

FORM TOP_OF_PAGE *

*----

........ *

*----

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEADING.

ENDFORM. "TOP_OF_PAGE

*&----

*& Form BUILD_LAYOUT

*&----

FORM BUILD_LAYOUT USING P_LAYOUT TYPE SLIS_LAYOUT_ALV.

P_LAYOUT-F2CODE = F2CODE.

P_LAYOUT-ZEBRA = 'X'.

P_LAYOUT-DETAIL_POPUP = 'X'.

ENDFORM. " BUILD_LAYOUT

*&----

*& Form WRITE_OUTPUT

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM WRITE_OUTPUT .

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = REPNAME

I_STRUCTURE_NAME = 'BSID_TAB'
IS_LAYOUT = LAYOUT
IT_FIELDCAT = P_FIELDTAB

TABLES
T_OUTTAB = IT_FINAL.
IF SY-SUBRC <> 0.
WRITE: 'SY-SUBRC: ', SY-SUBRC, 'REUSE_ALV_LIST_DISPLAY'.
ENDIF.

ENDFORM. " WRITE_OUTPUT

*&----

*& Form INITIALIZE_FIELDCAT

*&----

text

*----

-->P_FIELDTAB[] text

*----

FORM INITIALIZE_FIELDCAT."USING P_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV.

fixed columns (obligatory)

DATA ls_fieldcat TYPE slis_fieldcat_alv.

DATA : fieldcat_tab TYPE slis_t_fieldcat_alv,

COL TYPE I .

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'KUNNR'.

ls_fieldcat-reptext_ddic = 'Customer'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'NAME1'.

ls_fieldcat-reptext_ddic = 'Name'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET1'.

ls_fieldcat-reptext_ddic = 'Current'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET2'.

ls_fieldcat-reptext_ddic = 'From 0001 To 0030'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET3'.

ls_fieldcat-reptext_ddic = 'From 0031 To 0060'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET4'.

ls_fieldcat-reptext_ddic = 'From 0061 To 0090'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET5'.

ls_fieldcat-reptext_ddic = 'From 0091 To 0120'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET6'.

ls_fieldcat-reptext_ddic = 'From 0121 From 0150'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET7'.

ls_fieldcat-reptext_ddic = 'From 0151 From 0180'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET8'.

ls_fieldcat-reptext_ddic = 'From 0181 From 0210'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET9'.

ls_fieldcat-reptext_ddic = 'From 0211 From 0240'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET10'.

ls_fieldcat-reptext_ddic = 'From 0241 From 0270'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET11'.

ls_fieldcat-reptext_ddic = 'From 0271'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_TTLNET'.

* ls_fieldcat-fieldname = 'V_ttlNET'.
"wrong
ls_fieldcat-reptext_ddic = 'Total'.
APPEND ls_fieldcat TO fieldcat_tab.
CLEAR ls_fieldcat.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = REPNAME
IT_FIELDCAT = FIELDCAT_TAB
TABLES
T_OUTTAB = IT_FINAL.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING
I_CALLBACK_PROGRAM = REPNAME

I_STRUCTURE_NAME = 'BSID_TAB'
IS_LAYOUT = LAYOUT

IT_FIELDCAT = fieldcat_tab
TABLES
T_OUTTAB = IT_FINAL[].
IF SY-SUBRC <> 0.
WRITE: 'SY-SUBRC: ', SY-SUBRC, 'REUSE_ALV_LIST_DISPLAY'.
ENDIF.

ENDFORM. " INITIALIZE_FIELDCAT

*&----

*& Form BUILD_EVENTTAB

*&----

text

*----

-->P_EVENTS[] text

*----

FORM BUILD_EVENTTAB USING P_EVENTS TYPE SLIS_T_EVENT.

DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = P_EVENTS.

READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE

INTO LS_EVENT.

IF SY-SUBRC = 0.

MOVE FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.

APPEND LS_EVENT TO P_EVENTS.

ENDIF.

ENDFORM. " BUILD_EVENTTAB

*&----

*& Form BUILD_COMMENT

*&----

text

*----

-->P_HEADING[] text

*----

FORM BUILD_COMMENT USING P_HEADING TYPE SLIS_T_LISTHEADER.

DATA: HLINE TYPE SLIS_LISTHEADER,

TEXT(60) TYPE C,

SEP(20) TYPE C.

CLEAR: HLINE, TEXT.

HLINE-TYP = 'H'.

WRITE: TEXT-101 TO TEXT+23.

HLINE-INFO = TEXT.

APPEND HLINE TO P_HEADING.

CLEAR TEXT.

WRITE: 'User: ' TO TEXT,

SY-UNAME TO TEXT+6,

'Date: ' TO TEXT+25,

SY-DATUM TO TEXT+31,

'Page: ' TO TEXT+50,

SY-PAGNO TO TEXT+56.

HLINE-INFO = TEXT.

APPEND HLINE TO P_HEADING.

ENDFORM. " BUILD_COMMENT

Re: ALV Dump

Former Member — Mon, 17 Jul 2006 15:46:38 GMT

Its Solved.

Thanks a Lot.

Thanks & Regards

Hussain

Re: ALV Dump

Former Member — Tue, 18 Jul 2006 05:59:40 GMT

Hi Hussain,

May i know what was the mistake you did and how you corrected it , bcoz iam also facing same problem.

Reagrds,

KIran I

Re: ALV Dump

Former Member — Tue, 18 Jul 2006 06:07:11 GMT

Hi Kiran,

he made this mistake fieldcat-fieldname = 'MatnR'.

it should be

fieldcat-fieldname = 'MATNRR'. "all the Chars should be in caps.

Regards

vijay

Re: ALV Dump

Former Member — Tue, 18 Jul 2006 19:28:44 GMT

Dear Vijay,

In my out put TOTALS are not coming and Current also.

My output is displaying from right hand side.actually it has to dispaly from Left hand side. i am so confused.

Can u please help me out from this.

Code is give below.

*&----

*& Report ZFIARVR0010

*&----

REPORT ZFIARVR0010 line-size 1022.

====================================================================

AUTHOR : *
DATE WRITTEN : *
APPLICATION : FI-AR *
FUNCTION : Customers Ageing Analysis with Details *

====================================================================

TYPES **********************************

====================================================================

TABLES *********************************

====================================================================

TYPE-POOLS: SLIS.

tables : bseg,

bkpf,

kna1,

bsid,

bsad,

knb1.

DATA: BEGIN OF IT_FINAL OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

NAME1 LIKE KNA1-NAME1,

V_NET1 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 1

V_NET2 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 2

V_NET3 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 3

V_NET4 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 4

V_NET5 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 5

V_NET6 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 6

V_NET7 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 7

V_NET8 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 8

V_NET9 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 9

V_NET10 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 10

V_NET11 LIKE BSID-DMBTR,

V_TTLNET1 LIKE BSID-DMBTR,

V_TTLNET2 LIKE BSID-DMBTR,

V_TTLNET3 LIKE BSID-DMBTR,

V_TTLNET4 LIKE BSID-DMBTR,

V_TTLNET5 LIKE BSID-DMBTR,

V_TTLNET6 LIKE BSID-DMBTR,

V_TTLNET7 LIKE BSID-DMBTR,

V_TTLNET8 LIKE BSID-DMBTR,

V_TTLNET9 LIKE BSID-DMBTR,

V_TTLNET10 LIKE BSID-DMBTR,

V_TTLNET11 LIKE BSID-DMBTR,

V_TTLNET LIKE BSID-DMBTR,

END OF IT_FINAL.

data : begin of customer_tab occurs 0,

kunnr like kna1-kunnr,

name1 like kna1-name1,

flag(1) type c,

end of customer_tab.

data : begin of customerdoc_tab occurs 0,

kunnr like kna1-kunnr,

belnr like bkpf-belnr,

gjahr like bkpf-gjahr,

monat like bkpf-monat,

end of customerdoc_tab.

data : begin of doc_tab occurs 0,

belnr like bkpf-belnr,

gjahr like bkpf-gjahr,

monat like bkpf-monat,

end of doc_tab.

DATA: BEGIN OF BSID_TAB OCCURS 0,

BUKRS LIKE BSID-BUKRS,

PRCTR LIKE BSID-PRCTR,

KUNNR LIKE BSID-KUNNR,

FLAG(1),

UMSKZ LIKE BSID-UMSKZ,

BLART LIKE BSID-BLART,

BELNR LIKE BSID-BELNR,

BUZEI LIKE BSID-BUZEI,

NETDT LIKE BSID-ZFBDT,

ZFBDT LIKE BSID-ZFBDT,

BUDAT LIKE BSID-BUDAT,

BLDAT LIKE BSID-BLDAT,

BSCHL LIKE BSID-BSCHL,

DMBTR LIKE BSID-DMBTR,

SHKZG LIKE BSID-SHKZG,

ZBD1T LIKE BSID-ZBD1T,

ZBD2T LIKE BSID-ZBD2T,

ZBD3T LIKE BSID-ZBD3T,

REBZG LIKE BSID-REBZG,

REBZT LIKE BSID-REBZT,

KOART LIKE BSEG-KOART,

SK1DT LIKE FAEDE-SK1DT,

SK2DT LIKE FAEDE-SK2DT,

DAYSD LIKE SY-TABIX,

END OF BSID_TAB.

DATA: FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,

P_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,

HEADING TYPE SLIS_T_LISTHEADER,

LAYOUT TYPE SLIS_LAYOUT_ALV,

EVENTS TYPE SLIS_T_EVENT,

REPNAME LIKE SY-REPID,

F2CODE LIKE SY-UCOMM VALUE '&ETA',

G_SAVE(1) TYPE C,

G_EXIT(1) TYPE C,

G_VARIANT LIKE DISVARIANT,

GX_VARIANT LIKE DISVARIANT.

ranges : r_bukrs for bsid-bukrs,

r_kunnr for kna1-kunnr.

===================================================================

VARIABLES *******************************

===================================================================

CONSTANTS: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.

*data: Begin of it_final occurs 0,

kunnr like kna1-kunnr,
name1 like kna1-name1,
V_NET1 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 1
V_NET2 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 2
V_NET3 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 3
V_NET4 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 4
V_NET5 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 5
V_NET6 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 6
V_NET7 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 7
V_NET8 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 8
V_NET9 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 9
V_NET10 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 10
V_NET11 LIKE BSID-DMBTR,

V_ttlNET1 LIKE BSID-DMBTR,
V_ttlNET2 LIKE BSID-DMBTR,
V_ttlNET3 LIKE BSID-DMBTR,
V_ttlNET4 LIKE BSID-DMBTR,
V_ttlNET5 LIKE BSID-DMBTR,
V_ttlNET6 LIKE BSID-DMBTR,
V_ttlNET7 LIKE BSID-DMBTR,
V_ttlNET8 LIKE BSID-DMBTR,
V_ttlNET9 LIKE BSID-DMBTR,
V_ttlNET10 LIKE BSID-DMBTR,
V_ttlNET11 LIKE BSID-DMBTR,

V_ttlNET LIKE BSID-DMBTR,
End of it_final.

data : v_belnr like bseg-belnr,

v_gjahr like bkpf-gjahr,

v_monat like bkpf-monat,

v_ttlc type p,

v_flag(1) type c,

V_COUNT1(4) TYPE N,

V_COUNT2(4) TYPE N,

V_COUNT3(4) TYPE N,

V_COUNT4(4) TYPE N,

V_COUNT5(4) TYPE N,

V_COUNT6(4) TYPE N,

V_COUNT7(4) TYPE N,

V_COUNT8(4) TYPE N,

V_COUNT9(4) TYPE N,

V_COUNT10(4) TYPE N,

V_NET1 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 1

V_NET2 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 2

V_NET3 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 3

V_NET4 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 4

V_NET5 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 5

V_NET6 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 6

V_NET7 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 7

V_NET8 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 8

V_NET9 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 9

V_NET10 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 10

V_NET11 LIKE BSID-DMBTR, "CALCULATE CUSTOMER AGE 11

V_NET LIKE BSID-DMBTR, "Total Balance of Customer

V_ttlNET1 LIKE BSID-DMBTR,

V_ttlNET2 LIKE BSID-DMBTR,

V_ttlNET3 LIKE BSID-DMBTR,

V_ttlNET4 LIKE BSID-DMBTR,

V_ttlNET5 LIKE BSID-DMBTR,

V_ttlNET6 LIKE BSID-DMBTR,

V_ttlNET7 LIKE BSID-DMBTR,

V_ttlNET8 LIKE BSID-DMBTR,

V_ttlNET9 LIKE BSID-DMBTR,

V_ttlNET10 LIKE BSID-DMBTR,

V_ttlNET11 LIKE BSID-DMBTR,

V_ttlNET LIKE BSID-DMBTR,

v_kunnr like bseg-kunnr,

V_BUTXT like t001-butxt.

===================================================================

SELECTION SCREEN ****************************

===================================================================

selection-screen begin of block b1 with frame title text-001.

parameters : p_bukrs like bseg-bukrs obligatory.

select-options : s_kunnr for kna1-kunnr,

s_BRSCH for kna1-BRSCH,

s_REGIO for kna1-REGIO,

s_KTOKD for kna1-KTOKD,

s_BUSAB for knb1-BUSAB.

selection-screen: end of block b1.

selection-screen begin of block b2 with frame title text-003.

PARAMETERS: DAT LIKE SY-DATUM DEFAULT SY-DATUM.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 01(30) TEXT-002.

SELECTION-SCREEN POSITION POS_LOW.

*PARAMETERS: RASTBIS1 LIKE RFPDO1-ALLGROGR DEFAULT '000'.

*PARAMETERS: RASTBIS2 LIKE RFPDO1-ALLGROGR DEFAULT '030'.

*PARAMETERS: RASTBIS3 LIKE RFPDO1-ALLGROGR DEFAULT '060'.

*PARAMETERS: RASTBIS4 LIKE RFPDO1-ALLGROGR DEFAULT '090'.

*PARAMETERS: RASTBIS5 LIKE RFPDO1-ALLGROGR DEFAULT '120'.

PARAMETERS: RASTBIS1(4) type n DEFAULT '0000'.

PARAMETERS: RASTBIS2(4) type n DEFAULT '0030'.

PARAMETERS: RASTBIS3(4) type n DEFAULT '0060'.

PARAMETERS: RASTBIS4(4) type n DEFAULT '0090'.

PARAMETERS: RASTBIS5(4) type n DEFAULT '0120'.

PARAMETERS: RASTBIS6(4) type n DEFAULT '0150'.

PARAMETERS: RASTBIS7(4) type n DEFAULT '0180'.

PARAMETERS: RASTBIS8(4) type n DEFAULT '0210'.

PARAMETERS: RASTBIS9(4) type n DEFAULT '0240'.

PARAMETERS: RASTBIS0(4) type n DEFAULT '0270'.

SELECTION-SCREEN END OF LINE.

Noted item removed as per FI instruction

PARAMETERS: P_STAND AS CHECKBOX default 'X',

P_NOTED AS CHECKBOX ,

P_SPCAL AS CHECKBOX .

selection-screen: end of block b2.

selection-screen begin of block b3 with frame.

PARAMETERS: allgline like RFPDO1-allgline .

Parameters : p_balyes type c radiobutton group grp9 default 'X',

p_balno type c radiobutton group grp9.

selection-screen: end of block b3.

Check for the Select option

AT SELECTION-SCREEN.

IF P_STAND = '' AND P_SPCAL = '' .

MESSAGE E398(00) WITH 'PLEASE CHOOSE AT LEAST ONE G/L INDICATOR!'.

ENDIF.

Check for Company code Authorization

authority-check object 'F_BKPF_BUK'

ID 'BUKRS' FIELD p_bukrs

ID 'ACTVT' FIELD '03'.

if sy-subrc ne 0.

message e398(00) with 'You are not Authorized for CC ' p_bukrs.

Endif.

===================================================================

START-OF-SELECTION ****************************

===================================================================

INITIALIZATION.

REPNAME = SY-REPID.

PERFORM INITIALIZE_FIELDCAT USING FIELDTAB[].
PERFORM BUILD_EVENTTAB USING EVENTS[].
PERFORM BUILD_COMMENT USING HEADING[].

START-OF-SELECTION.

V_COUNT1 = RASTBIS1 + 1.

V_COUNT2 = RASTBIS2 + 1.

V_COUNT3 = RASTBIS3 + 1.

V_COUNT4 = RASTBIS4 + 1.

V_COUNT5 = RASTBIS5 + 1.

V_COUNT6 = RASTBIS6 + 1.

V_COUNT7 = RASTBIS7 + 1.

V_COUNT8 = RASTBIS8 + 1.

V_COUNT9 = RASTBIS9 + 1.

V_COUNT10 = RASTBIS0 + 1.

perform extract_data.

END-OF-SELECTION.

PERFORM INITIALIZE_FIELDCAT."USING FIELDTAB.

PERFORM BUILD_EVENTTAB USING EVENTS[].

PERFORM BUILD_COMMENT USING HEADING[].

===================================================================

At line Selection *****************************

===================================================================

at line-selection.

if sy-lilli >= 9 .

refresh r_bukrs.

move p_bukrs to r_bukrs-low.

move 'I' to r_bukrs-sign.

move 'EQ' to r_bukrs-option.

append r_bukrs.

refresh r_kunnr.

move customer_tab-kunnr to r_kunnr-low.

move 'I' to r_kunnr-sign.

move 'EQ' to r_kunnr-option.

append r_kunnr.

submit ZFARVR0040 and return

with p_bukrs = p_bukrs

with dat = dat

with p_stand = p_stand

with p_spcal = P_SPCAL

with s_kunnr in r_kunnr.

endif.

===================================================================

Top of Page *******************************

===================================================================

TOP-OF-PAGE.

SELECT SINGLE BUTXT FROM T001 INTO V_BUTXT

WHERE BUKRS = p_BUKRS .

WRITE:/73'Customers Aging Analysis',140'PAGE NO.',

SY-PAGNO.

WRITE:/002 'COMPANY',

011 P_BUKRS,

017 V_BUTXT,

055 allgline centered,

140 'DATE :',

150 sy-datum .

write:/002 'User',

011 sy-UNAME,

140 'Time :',

150 sy-UZEIT.

SKIP.

format color col_heading intensified off.

WRITE:/ SY-ULINE,

SY-VLINE,002 'Customer',

012 SY-VLINE,013 'Name',

043 SY-VLINE,048 'CURRENT',

061 SY-VLINE,065 'FROM ',V_COUNT1,

079 SY-VLINE,083 'FROM ',V_COUNT2,

097 SY-VLINE,101 'FROM ',V_COUNT3,

115 SY-VLINE,119 'FROM ',V_COUNT4,

133 SY-VLINE,137 'FROM ',V_COUNT5,

151 SY-VLINE,155 'FROM ',V_COUNT6,

169 SY-VLINE,173 'FROM ',V_COUNT7,

187 SY-VLINE,191 'FROM ',V_COUNT8,

205 SY-VLINE,209 'FROM ',V_COUNT9,

223 SY-VLINE,228 'FROM ',V_COUNT10,

243 SY-VLINE,248 'TOTAL',

268 SY-VLINE.

WRITE:/ SY-VLINE,002 'Number',

12 SY-VLINE,

43 SY-VLINE,

061 SY-VLINE,065 'TO ',RASTBIS2,

079 SY-VLINE,083 'TO ',RASTBIS3,

097 SY-VLINE,101 'TO ',RASTBIS4,

115 SY-VLINE,119 'TO ',RASTBIS5,

133 SY-VLINE,137 'FROM ',RASTBIS6,

151 SY-VLINE,155 'FROM ',RASTBIS7,

169 SY-VLINE,173 'FROM ',RASTBIS8,

187 SY-VLINE,191 'FROM ',RASTBIS9,

205 SY-VLINE,209 'FROM ',RASTBIS0,

223 SY-VLINE,

243 SY-VLINE,

268 SY-VLINE,

SY-ULINE.

format color off.

===================================================================

END-OF-SELECTION ***************************

===================================================================

PERFORM BUILD_LAYOUT USING LAYOUT.
PERFORM WRITE_OUTPUT.

===================================================================

Form : Extract_Data *

===================================================================

form extract_data.

Select the Customers

Select t1~kunnr t2~name1

into corresponding fields of table customer_tab

from knb1 as t1 inner join kna1 as t2

on t2~kunnr = t1~kunnr

where t1~bukrs = p_bukrs

and t1~kunnr in s_kunnr

and t1~BUSAB in s_busab

and t2~regio in s_regio

and t2~BRSCH in s_BRSCH

and t2~KTOKD in s_KTOKD.

if sy-subrc <> 0.

message e398(00) with 'No Customers Selected'.

endif.

sort customer_tab.

describe table customer_tab lines v_ttlc.

v_ttlc = v_ttlc + 10.

loop at customer_tab.

v_net1 = 0.

v_net2 = 0.

v_net3 = 0.

v_net4 = 0.

v_net5 = 0.

v_net6 = 0.

v_net7 = 0.

v_net8 = 0.

v_net9 = 0.

v_net10 = 0.

v_net11 = 0.

v_net = 0.

perform calculate_ageing

using

p_bukrs

customer_tab-kunnr

dat

RASTBIS1

RASTBIS2

RASTBIS3

RASTBIS4

RASTBIS5

RASTBIS6

RASTBIS7

RASTBIS8

RASTBIS9

RASTBIS0

P_STAND

' ' "noted item

P_SPCAL

changing

v_net1

v_net2

v_net3

v_net4

v_net5

v_net6

v_net7

v_net8

v_net9

v_net10

v_net11

v_net.

if p_balyes = 'X' or v_net > 0.

format color col_total.
write:/ sy-vline,
002 customer_tab-kunnr,
012 SY-VLINE,013(30) customer_tab-name1,
043 SY-VLINE,044(16) v_net1,
061 SY-VLINE,062(16) v_net2,
079 SY-VLINE,080(16) v_net3,
097 SY-VLINE,098(16) v_net4,
115 SY-VLINE,116(16) v_net5,
133 SY-VLINE,134(16) v_net6,
151 SY-VLINE,152(16) v_net7,
169 SY-VLINE,170(16) v_net8,
187 SY-VLINE,188(16) v_net9,
205 SY-VLINE,206(16) v_net10,
223 SY-VLINE,224(16) v_net11,
239 SY-VLINE,240(16) v_net,
258 SY-VLINE.
format color off.
hide : customer_tab-kunnr.
v_ttlnet1 = v_ttlnet1 + v_net1.
v_ttlnet2 = v_ttlnet2 + v_net2.
v_ttlnet3 = v_ttlnet3 + v_net3.
v_ttlnet4 = v_ttlnet4 + v_net4.
v_ttlnet5 = v_ttlnet5 + v_net5.
v_ttlnet6 = v_ttlnet6 + v_net6.
v_ttlnet7 = v_ttlnet7 + v_net7.
v_ttlnet8 = v_ttlnet8 + v_net8.
v_ttlnet9 = v_ttlnet9 + v_net9.
v_ttlnet10 = v_ttlnet10 + v_net10.
v_ttlnet11 = v_ttlnet11 + v_net11.
v_ttlnet = v_ttlnet + v_net.
endif.
endloop.
ULINE.
format color col_total.
write:/ sy-vline,
012 SY-VLINE,012(30) ' T O T A L',
043 SY-VLINE,044(16) v_ttlnet1,
061 SY-VLINE,062(16) v_ttlnet2,
079 SY-VLINE,080(16) v_ttlnet3,
097 SY-VLINE,098(16) v_ttlnet4,
115 SY-VLINE,116(16) v_ttlnet5,
133 SY-VLINE,134(16) v_ttlnet6,
151 SY-VLINE,152(16) v_ttlnet7,
169 SY-VLINE,170(16) v_ttlnet8,
187 SY-VLINE,188(16) v_ttlnet9,
205 SY-VLINE,206(16) v_ttlnet10,
223 SY-VLINE,224(16) v_ttlnet11,
239 SY-VLINE,240(16) v_ttlnet,
258 SY-VLINE.
format color off.
ULINE.

*loop at customer_tab.

move customer_tab-KUNNR to IT_FINAL-KUNNR.

MOVE customer_tab-NAME1 to IT_FINAL-NAME1.

move v_net1 to IT_FINAL-v_net1.

move v_net2 to IT_FINAL-v_net2.

move v_net3 to IT_FINAL-v_net3.

move v_net4 to IT_FINAL-v_net4.

move v_net5 to IT_FINAL-v_net5.

move v_net6 to IT_FINAL-v_net6.

move v_net7 to IT_FINAL-v_net7.

move v_net8 to IT_FINAL-v_net8.

move v_net9 to IT_FINAL-v_net9.

move v_net10 to IT_FINAL-v_net10.

move v_net11 to IT_FINAL-v_net11.

move V_ttlNET to IT_FINAL-V_ttlNET.

MOVE V_TTLNET2 TO IT_FINAL-V_TTLNET2.

MOVE V_TTLNET3 TO IT_FINAL-V_TTLNET3.

MOVE V_TTLNET4 TO IT_FINAL-V_TTLNET4.

MOVE V_TTLNET5 TO IT_FINAL-V_TTLNET5.

MOVE V_TTLNET6 TO IT_FINAL-V_TTLNET6.

MOVE V_TTLNET7 TO IT_FINAL-V_TTLNET7.

MOVE V_TTLNET8 TO IT_FINAL-V_TTLNET8.

MOVE V_TTLNET9 TO IT_FINAL-V_TTLNET9.

MOVE V_TTLNET10 TO IT_FINAL-V_TTLNET10.

MOVE V_TTLNET11 TO IT_FINAL-V_TTLNET11.

MOVE V_TTLNET TO IT_FINAL-V_TTLNET.

*move v_net1 to it_final-net1.

append IT_FINAL.

clear IT_FINAL.

endif.

endloop.

endform. "extract_data

Function to Calculate Aging.

Form calculate_ageing using

bukrs

kunnr

dat

RASTBIS1

RASTBIS2

RASTBIS3

RASTBIS4

RASTBIS5

RASTBIS6

RASTBIS7

RASTBIS8

RASTBIS9

RASTBIS0

P_STAND

P_NOTED

P_SPCAL

changing

v_net1

v_net2

v_net3

v_net4

v_net5

v_net6

v_net7

v_net8

v_net9

v_net10

v_net11

v_net.

DATA: BEGIN OF BSID_TAB1 OCCURS 0,

BUKRS LIKE BSID-BUKRS,

PRCTR LIKE BSID-PRCTR,

KUNNR LIKE BSID-KUNNR,

FLAG(1),

UMSKZ LIKE BSID-UMSKZ,

BLART LIKE BSID-BLART,

BELNR LIKE BSID-BELNR,

BUZEI LIKE BSID-BUZEI,

NETDT LIKE BSID-ZFBDT,

ZFBDT LIKE BSID-ZFBDT,

BUDAT LIKE BSID-BUDAT,

BLDAT LIKE BSID-BLDAT,

BSCHL LIKE BSID-BSCHL,

DMBTR LIKE BSID-DMBTR,

SHKZG LIKE BSID-SHKZG,

ZBD1T LIKE BSID-ZBD1T,

ZBD2T LIKE BSID-ZBD2T,

ZBD3T LIKE BSID-ZBD3T,

REBZG LIKE BSID-REBZG,

REBZT LIKE BSID-REBZT,

KOART LIKE BSEG-KOART,

SK1DT LIKE FAEDE-SK1DT,

SK2DT LIKE FAEDE-SK2DT,

DAYSD LIKE SY-TABIX,

END OF BSID_TAB1.

RANGES: R_UMSKZ FOR BSID-UMSKZ.

Data : V_ZFBDT Like bsid-ZFBDT,

V_ZBD1T Like bsid-ZBD1T,

V_ZBD2T Like bsid-ZBD2T,

V_ZBD3T Like bsid-ZBD3T,

V_LINES(8) TYPE n.

IF P_NOTED = 'X'. "CHECK NOTED ITEMS

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'D'.

APPEND R_UMSKZ.

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'L'.

APPEND R_UMSKZ.

ENDIF.

IF P_STAND = 'X'. "CHECK STANDARD ITEMS

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = ' '.

APPEND R_UMSKZ.

ENDIF.

IF P_SPCAL = 'X'. "CHECK SPECIAL G/L TRANSACTION

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'A'.

APPEND R_UMSKZ.

R_UMSKZ-SIGN = 'I'.

R_UMSKZ-OPTION = 'EQ'.

R_UMSKZ-LOW = 'B'.

APPEND R_UMSKZ.

ENDIF.

SELECT * FROM BSID INTO CORRESPONDING FIELDS OF TABLE BSID_TAB

WHERE BUKRS = BUKRS AND

budat <= dat AND

KUNNR = KUNNR AND

UMSKZ in R_UMSKZ.

SELECT * FROM BSAD appending CORRESPONDING FIELDS OF TABLE BSID_TAB

WHERE BUKRS = BUKRS AND

budat <= dat AND

augdt >= dat AND

KUNNR = KUNNR AND

UMSKZ in R_UMSKZ.

DESCRIBE TABLE BSID_TAB LINES V_LINES.

LOOP AT BSID_TAB.

if bsid_tab-BLART = 'DZ'.

Select single ZFBDT ZBD1T ZBD2T ZBD3T

into (V_ZFBDT,V_ZBD1T,V_ZBD2T,V_ZBD3T)

from bsid where BUKRS = BUKRS

and kunnr = bsid_tab-kunnr

and BELNR = bsid_tab-REBZG.

if sy-subrc = 0.

bsid_tab-ZFBDT = V_ZFBDT.

bsid_tab-ZBD1T = V_ZBD1T.

bsid_tab-ZBD2T = V_ZBD2T.

bsid_tab-ZBD3T = V_ZBD3T.

else.

Select single ZFBDT ZBD1T ZBD2T ZBD3T

into (V_ZFBDT,V_ZBD1T,V_ZBD2T,V_ZBD3T)

from bsad where BUKRS = BUKRS

and kunnr = bsid_tab-kunnr

and BELNR = bsid_tab-REBZG.

if sy-subrc <> 0.

bsid_tab-ZFBDT = V_ZFBDT.

bsid_tab-ZBD1T = V_ZBD1T.

bsid_tab-ZBD2T = V_ZBD2T.

bsid_tab-ZBD3T = V_ZBD3T.

endif.

IF BSID_TAB-SHKZG = 'H'.

BSID_TAB-DMBTR = BSID_TAB-DMBTR * ( - 1 ).

ENDIF.

bsid_tab-netdt = bsid_tab-ZFBDT.

bsid_tab-netdt = bsid_tab-budat.

bsid_tab-koart = 'D'.

MODIFY BSID_TAB.

PERFORM CALC_DUE_DATE USING BSID_TAB.

BSID_TAB-DAYSD = DAT - BSID_TAB-NETDT.

IF BSID_TAB-DAYSD <= RASTBIS1.

V_NET1 = V_NET1 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS2.

V_NET2 = V_NET2 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS3.

V_NET3 = V_NET3 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS4.

V_NET4 = V_NET4 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS5.

V_NET5 = V_NET5 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS6.

V_NET6 = V_NET6 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS7.

V_NET7 = V_NET7 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS5.

V_NET8 = V_NET8 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS9.

V_NET9 = V_NET9 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD <= RASTBIS0.

V_NET10 = V_NET10 + BSID_TAB-DMBTR.

ELSEIF BSID_TAB-DAYSD > RASTBIS0.

V_NET11 = V_NET11 + BSID_TAB-DMBTR.

ENDIF.

V_NET = V_NET + BSID_TAB-DMBTR.

MODIFY BSID_TAB.

ENDLOOP.

endform. "calculate_ageing

Calculate Due Date

FORM CALC_DUE_DATE USING P_BSID_TAB STRUCTURE BSID_TAB.

DATA : REFE TYPE P.

IF P_BSID_TAB-KOART = 'K' OR P_BSID_TAB-KOART = 'D'.

IF P_BSID_TAB-ZFBDT IS INITIAL.

P_BSID_TAB-ZFBDT = P_BSID_TAB-BLDAT.

ENDIF.

*~~Nettofälligkeit bestimmen~~--

IF NOT P_BSID_TAB-ZBD3T IS INITIAL.

REFE = P_BSID_TAB-ZBD3T.

ELSE.

IF NOT P_BSID_TAB-ZBD2T IS INITIAL.

REFE = P_BSID_TAB-ZBD2T.

ELSE.

REFE = P_BSID_TAB-ZBD1T.

ENDIF.

*~~Nichtrechnungsbezogene Gutschriften sind sofort fällig~~--

IF P_BSID_TAB-KOART = 'D' AND P_BSID_TAB-SHKZG = 'H'

OR P_BSID_TAB-KOART = 'K' AND P_BSID_TAB-SHKZG = 'S'.

IF P_BSID_TAB-REBZG IS INITIAL.

REFE = 0.

ENDIF.

P_BSID_TAB-NETDT = P_BSID_TAB-ZFBDT + REFE.

*~~Skontofälligkeiten bestimmen~~--

IF NOT P_BSID_TAB-ZBD2T IS INITIAL.

P_BSID_TAB-SK2DT = P_BSID_TAB-ZFBDT + P_BSID_TAB-ZBD2T.

ELSE.

P_BSID_TAB-SK2DT = P_BSID_TAB-NETDT.

ENDIF.

IF NOT P_BSID_TAB-ZBD1T IS INITIAL

OR NOT P_BSID_TAB-ZBD2T IS INITIAL.

P_BSID_TAB-SK1DT = P_BSID_TAB-ZFBDT + P_BSID_TAB-ZBD1T.

ELSE.

P_BSID_TAB-SK1DT = P_BSID_TAB-NETDT.

ENDIF.

*~~Nichtrechnungsbezogene Gutschriften sind sofort fällig~~--

IF P_BSID_TAB-KOART = 'D' AND P_BSID_TAB-SHKZG = 'H'

OR P_BSID_TAB-KOART = 'K' AND P_BSID_TAB-SHKZG = 'S'.

IF P_BSID_TAB-REBZG IS INITIAL.

P_BSID_TAB-SK2DT = P_BSID_TAB-NETDT.

P_BSID_TAB-SK1DT = P_BSID_TAB-NETDT.

ENDIF.

ELSE.
MESSAGE E122 RAISING ACCOUNT_TYPE_NOT_SUPPORTED.
ENDIF.

E_FAEDE = FAEDE.

ENDFORM. "CALC_DUE_DATE

*----

FORM TOP_OF_PAGE *

*----

........ *

*----

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEADING.

ENDFORM. "TOP_OF_PAGE

*&----

*& Form BUILD_LAYOUT

*&----

FORM BUILD_LAYOUT USING P_LAYOUT TYPE SLIS_LAYOUT_ALV.

P_LAYOUT-F2CODE = F2CODE.

P_LAYOUT-ZEBRA = 'X'.

P_LAYOUT-DETAIL_POPUP = 'X'.

ENDFORM. " BUILD_LAYOUT

*&----

*& Form WRITE_OUTPUT

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM WRITE_OUTPUT .

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = REPNAME

I_STRUCTURE_NAME = 'BSID_TAB'
IS_LAYOUT = LAYOUT
IT_FIELDCAT = P_FIELDTAB

TABLES
T_OUTTAB = IT_FINAL.
IF SY-SUBRC <> 0.
WRITE: 'SY-SUBRC: ', SY-SUBRC, 'REUSE_ALV_LIST_DISPLAY'.
ENDIF.

ENDFORM. " WRITE_OUTPUT

*&----

*& Form INITIALIZE_FIELDCAT

*&----

text

*----

-->P_FIELDTAB[] text

*----

FORM INITIALIZE_FIELDCAT."USING P_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV.

fixed columns (obligatory)

DATA ls_fieldcat TYPE slis_fieldcat_alv.

DATA : fieldcat_tab TYPE slis_t_fieldcat_alv,

COL TYPE I .

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'KUNNR'.

ls_fieldcat-reptext_ddic = 'Customer'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'NAME1'.

ls_fieldcat-reptext_ddic = 'Name'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET1'.

ls_fieldcat-reptext_ddic = 'Current'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET2'.

ls_fieldcat-reptext_ddic = 'From 0001 To 0030'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET3'.

ls_fieldcat-reptext_ddic = 'From 0031 To 0060'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET4'.

ls_fieldcat-reptext_ddic = 'From 0061 To 0090'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET5'.

ls_fieldcat-reptext_ddic = 'From 0091 To 0120'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET6'.

ls_fieldcat-reptext_ddic = 'From 0121 From 0150'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET7'.

ls_fieldcat-reptext_ddic = 'From 0151 From 0180'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET8'.

ls_fieldcat-reptext_ddic = 'From 0181 From 0210'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET9'.

ls_fieldcat-reptext_ddic = 'From 0211 From 0240'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET10'.

ls_fieldcat-reptext_ddic = 'From 0241 From 0270'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_NET11'.

ls_fieldcat-reptext_ddic = 'From 0271'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

ls_fieldcat-COL_POS = COL + 1.

ls_fieldcat-tabname = 'IT_FINAL'.

ls_fieldcat-fieldname = 'V_TTLNET'.

ls_fieldcat-reptext_ddic = 'Total'.

ls_fieldcat-do_sum = 'X'.

APPEND ls_fieldcat TO fieldcat_tab.

CLEAR ls_fieldcat.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = REPNAME

IT_FIELDCAT = FIELDCAT_TAB

TABLES

T_OUTTAB = IT_FINAL.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING
I_CALLBACK_PROGRAM = REPNAME

I_STRUCTURE_NAME = 'BSID_TAB'
IS_LAYOUT = LAYOUT

IT_FIELDCAT = fieldcat_tab
TABLES
T_OUTTAB = IT_FINAL[].
IF SY-SUBRC <> 0.
WRITE: 'SY-SUBRC: ', SY-SUBRC, 'REUSE_ALV_LIST_DISPLAY'.
ENDIF.

ENDFORM. " INITIALIZE_FIELDCAT

*&----

*& Form BUILD_EVENTTAB

*&----

text

*----

-->P_EVENTS[] text

*----

FORM BUILD_EVENTTAB USING P_EVENTS TYPE SLIS_T_EVENT.

DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = P_EVENTS.

READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE

INTO LS_EVENT.

IF SY-SUBRC = 0.

MOVE FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.

APPEND LS_EVENT TO P_EVENTS.

ENDIF.

ENDFORM. " BUILD_EVENTTAB

*&----

*& Form BUILD_COMMENT

*&----

text

*----

-->P_HEADING[] text

*----

FORM BUILD_COMMENT USING P_HEADING TYPE SLIS_T_LISTHEADER.

DATA: HLINE TYPE SLIS_LISTHEADER,

TEXT(60) TYPE C,

SEP(20) TYPE C.

CLEAR: HLINE, TEXT.

HLINE-TYP = 'H'.

WRITE: TEXT-101 TO TEXT+23.

HLINE-INFO = TEXT.

APPEND HLINE TO P_HEADING.

CLEAR TEXT.

WRITE: 'User: ' TO TEXT,

SY-UNAME TO TEXT+6,

'Date: ' TO TEXT+25,

SY-DATUM TO TEXT+31,

'Page: ' TO TEXT+50,

SY-PAGNO TO TEXT+56.

HLINE-INFO = TEXT.

APPEND HLINE TO P_HEADING.

ENDFORM. " BUILD_COMMENT