topic Re: abap in Application Development and Automation Discussions

abap

Former Member — Fri, 25 May 2007 05:54:02 GMT

plz explain me abt,

initialiazation,

and

start of selection,

end of selection.

why we are using these,

what is the use ?

where to use these?

Re: abap

sreeramkumar_madisetty — Fri, 25 May 2007 05:56:24 GMT

initialiazation, : To Initialize the Variables in the Report

start of selection : start the processing like fetching values,displaying etc.

End of Selection : Used in perticular cases like to display Footers etc,

Above all are Events of Reports.

Regards,

Sreeram

Re: abap

Former Member — Fri, 25 May 2007 05:57:58 GMT

They are the basic events in the classical reporting

Initialization is used to Intialize the fields before the selection screen is displayed

start of selection is used to fetch the data from the Database tables based on the fields entered on selection screen

End of selection is used to display the fetched data in the output

see the code

report zf_rept_debtor_ageing

no standard page heading

message-id fb

line-count 65

line-size 230.

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

Purpose : This ABAP program will fetch the Account Receivables for
a Customer for the given period and display the due days.

*----

tables: t001, " Company Codes

t005, " Countries

skb1, " GL Master

kna1. " Customer Master

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

Internal Tables

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

Internal table for BSID (Open Items) data

data: begin of it_bsid occurs 0,

kunnr like bsid-kunnr, " Customer Number

gjahr like bsid-gjahr, " Fiscal Year

belnr like bsid-belnr, " Acc.Document

buzei like bsid-buzei, " Item

budat like bsid-budat, " Posting Date

shkzg like bsid-shkzg, " Dr/Cr Indicator

dmbtr like bsid-dmbtr, " Amount(Local Curr)

wrbtr like bsid-wrbtr, " Amount(Doc Curr)

dmbe2 like bsid-dmbe2, " Amount(USD)

waers like bsid-waers, " Currency

zterm like bsid-zterm, " Payment Terms

vbeln like bsid-vbeln, " Billing Doc

zfbdt like bsid-zfbdt, " Baseline Date

zbd1t like bsid-zbd1t, " No of days

hkont like bsid-hkont, " GL Account

name1 like kna1-name1, " Customer Name

land1 like kna1-land1, " Country

end of it_bsid.

Internal table for BSAD (Closed Items) data

data: begin of it_bsad occurs 0,

kunnr like bsad-kunnr, " Customer Number

gjahr like bsad-gjahr, " Fiscal Year

belnr like bsad-belnr, " Acc.Document

buzei like bsad-buzei, " Item

budat like bsad-budat, " Posting Date

shkzg like bsad-shkzg, " Dr/Cr Indicator

dmbtr like bsad-dmbtr, " Amount(Local Curr)

wrbtr like bsid-wrbtr, " Amount(Doc Curr)

dmbe2 like bsad-dmbe2, " Amount(USD)

waers like bsad-waers, " Currency

zterm like bsid-zterm, " Payment Terms

vbeln like bsid-vbeln, " Billing Doc

zfbdt like bsid-zfbdt, " Baseline Date

zbd1t like bsid-zbd1t, " No of days

hkont like bsid-hkont, " GL Account

name1 like kna1-name1, " Customer Name

land1 like kna1-land1, " Country

end of it_bsad.

Internal table for Report Output

data: begin of it_report occurs 0,

kunnr like bsid-kunnr, " Customer Number

belnr like bsid-belnr, " Acc.Document

name1 like kna1-name1, " Customer Name

land1 like kna1-land1, " Country

shkzg like bsid-shkzg, " Dr/Cr Indicator

budat like bsid-budat, " Posting Date

dmbtr like bsid-dmbtr, " Amount(Local Curr)

wrbtr like bsid-wrbtr, " Amount(Doc Curr)

dmbe2 like bsid-dmbe2, " Amount(USD)

waers like bsid-waers, " Currency

due_amnt like bsid-dmbtr, " Amount(Over Due)

d_amnt1 like bsid-dmbtr, " Amount(0-30 Future Due)

d_amnt2 like bsid-dmbtr, " Amount(31-60 Future Due)

d_amnt3 like bsid-dmbtr, " Amount(61-90 Future Due)

d_amnt4 like bsid-dmbtr, " Amount(91-120 Future Due)

d_amnt5 like bsid-dmbtr, " Amount(more than 120)

due_date like bsid-budat, " Due date

zterm like bsid-zterm, " Payment Terms

vbeln like bsid-vbeln, " Billing Doc

end of it_report.

*----

Declaration of Data and Variables

*----

data: v_days type i, " Difference days

v_waers like t001-waers, " Co.Code Currency

v_sum1 like bsid-dmbtr, " Totals 1

v_sum2 like bsid-dmbtr, " Totals 2

v_sum3 like bsid-dmbtr, " Totals 3

v_sum4 like bsid-dmbtr, " Totals 4

v_sum5 like bsid-dmbtr, " Totals 5

v_sum6 like bsid-dmbtr, " Totals 6

v_sum7 like bsid-dmbtr, " Totals 7

v_sum8 like bsid-dmbe2. " Totals 8

Constants

constants: c_doc_waers(3) value 'USD',

c_mitkz type c value 'D'.

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

Selection Screen

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

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

parameters: p_bukrs like t001-bukrs obligatory. " Company Code

select-options:s_kunnr for kna1-kunnr, " Customer Number

s_land1 for t005-land1, " Country

s_hkont for skb1-saknr. " G/L Account

parameters: p_date like sy-datum obligatory. " Report Date

selection-screen: end of block b1.

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

selection-screen begin of line.

selection-screen comment 2(30) text-003 for field p_rb1.

parameters: p_rb1 radiobutton group rb.

selection-screen end of line.

selection-screen begin of line.

selection-screen comment 2(30) text-004 for field p_rb2.

parameters: p_rb2 radiobutton group rb.

selection-screen end of line.

selection-screen: end of block b2.

selection-screen : begin of block b4 with frame.

selection-screen begin of line.

selection-screen comment 2(29) text-038 for field p_chk1.

parameters: p_chk1 as checkbox.

selection-screen end of line.

selection-screen: end of block b4.

selection-screen : begin of block b3 with frame title text-030.

selection-screen begin of line.

selection-screen comment 2(30) text-031 for field p_rb3.

parameters: p_rb3 radiobutton group rb1.

selection-screen end of line.

selection-screen begin of line.

selection-screen comment 2(30) text-032 for field p_rb4.

parameters: p_rb4 radiobutton group rb1.

selection-screen end of line.

selection-screen: end of block b3.

*********Initialization**********************************************

initialization.

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

At Selection Screen

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

at selection-screen.

Checking for the input values of selection screen.

perform screen_check.

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

Top-Of-Page

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

top-of-page.

if p_rb3 = 'X'.

if p_chk1 = 'X'.

Write the Column Headings for detailed report(in Doc Currency)

perform col_heading2.

else.

Write the Column Headings for detailed report

perform col_heading.

endif.

else.

Write the Column Headings for summary report

perform col_heading1.

endif.

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

Start-Of-Selection

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

start-of-selection.

Get the Customer Open Items from BSID

perform get_open_data.

Get the Customer Closed Items from BSAD

perform get_close_data.

Get the data from BSID,BSAD and KNA1 into one int.table

perform process_data.

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

End-Of-Selection

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

end-of-selection.

if it_report[] is initial.

write : 'No Documents found'(005).

else.

if p_rb3 = 'X'.

Write the Detailed Report

perform write_report.

else.

Write the Summary Report

perform write_report1.

endif.

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

At Line-Selection

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

at line-selection.

When double clicked on BELNR leave to transaction FB03

perform line_sel.

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

&----

*& Form SCREEN_CHECK

&----

Checking for the input values of selection screen

----

form screen_check.

Validation of Company Code

clear t001.

if not p_bukrs is initial.

select bukrs from t001 up to 1 rows

into t001-bukrs

where bukrs = p_bukrs.

endselect.

if sy-subrc ne 0.

message e000 with 'Invalid Company Code'(006).

endif.

Validation of Customer Number

clear kna1.

if not s_kunnr is initial.

select kunnr from kna1 up to 1 rows

into kna1-kunnr

where kunnr in s_kunnr.

endselect.

if sy-subrc ne 0.

message e000 with 'Invalid Customer Number'(007).

endif.

Validation of Country

clear t005.

if not s_land1 is initial.

select land1 from t005 up to 1 rows

into t005-land1

where land1 in s_land1.

endselect.

if sy-subrc ne 0.

message e000 with 'Invalid Country'(036).

endif.

Validation of GL Account

clear skb1.

if not s_hkont is initial.

select saknr from skb1 up to 1 rows

into skb1-saknr

where saknr in s_hkont and

mitkz = c_mitkz.

endselect.

if sy-subrc ne 0.

message e000 with 'Invalid GL Reconciliation Account'(037).

endif.

endform. " SCREEN_CHECK

&----

*& Form COL_HEADING

&----

Write the Column Headings for detailed report

----

form col_heading.

skip .

write: /88 'DEBTOR AGEING REPORT AS AT:'(019) centered,

116 p_date centered, 198 sy-pagno.

skip .

write: /2 'CoCode:'(016),13(4) p_bukrs color 3.

if not s_kunnr is initial.

if not s_kunnr-high is initial.

write: 20 'Customer:'(041),33 s_kunnr-low color 3,

'-', s_kunnr-high color 3.

else.

write: 20 'Customer:'(041),33 s_kunnr-low color 3.

endif.

if not s_land1 is initial.

if not s_land1-high is initial.

write: /2 'Country:'(042),13(4) s_land1-low color 3,

'-', s_land1-high color 3.

else.

write: /2 'Country:'(042),13(4) s_land1-low color 3.

endif.

if not s_hkont is initial.

if not s_hkont-high is initial.

write: 20 'GL Account:'(043),33 s_hkont-low color 3,

'-', s_hkont-high color 3.

else.

write: 20 'GL Account:'(043),33 s_hkont-low color 3.

endif.

else.

if not s_hkont is initial.

if not s_hkont-high is initial.

write: /2 'GL Account:'(043),14 s_hkont-low color 3,

'-', s_hkont-high color 3.

else.

write: /2 'GL Account:'(043),14 s_hkont-low color 3.

endif.

write: 183 'Run Date:'(029), sy-datum.

format color col_heading.

write at /1(203) sy-uline .

write: / sy-vline, 2(10) 'Customer'(008) centered,

12 sy-vline, 13(30) 'Customer Name'(009),

43 sy-vline, 44(3) 'Cty'(014) centered,

47 sy-vline, 48(15) 'Amount'(013) right-justified,

63 sy-vline, 64(4) 'Curr'(011) centered,

68 sy-vline, 69(15) 'Overdue'(012) centered,

84 sy-vline, 85(15) '0 - 30 Days'(010) centered,

100 sy-vline,101(15) '31 - 60 Days'(028) centered,

116 sy-vline,117(15) '61 - 90 Days'(021) centered,

132 sy-vline,133(15) '91 - 120 Days'(022) centered,

148 sy-vline,149(15) 'Above 120 Days'(023) centered,

164 sy-vline,165(10) 'Due Date'(024) centered,

175 sy-vline,176(5) 'PayT'(025) centered,

181 sy-vline,182(10) 'Bill.Doc.'(026) centered,

192 sy-vline,193(10) 'Doc.No.'(027) centered,

203 sy-vline.

write at /1(203) sy-uline.

format color off.

endform. " COL_HEADING

&----

*& Form COL_HEADING1

&----

Write the Column Headings for summary report

----

form col_heading1.

skip .

write: /54 'DEBTOR AGEING REPORT (SUMMARY) AS AT:'(033) centered,

92 p_date centered, 158 sy-pagno.

skip .

write: /2 'CoCode:'(016), 13(4) p_bukrs color 3.

if not s_kunnr is initial.

if not s_kunnr-high is initial.

write: 20 'Customer:'(041),33 s_kunnr-low color 3,

'-', s_kunnr-high color 3.

else.

write: 20 'Customer:'(041),33 s_kunnr-low color 3.

endif.

if not s_land1 is initial.

if not s_land1-high is initial.

write: /2 'Country:'(042),13(4) s_land1-low color 3,

'-', s_land1-high color 3.

else.

write: /2 'Country:'(042),13(4) s_land1-low color 3.

endif.

if not s_hkont is initial.

if not s_hkont-high is initial.

write: 20 'GL Account:'(043),33 s_hkont-low color 3,

'-', s_hkont-high color 3.

else.

write: 20 'GL Account:'(043),33 s_hkont-low color 3.

endif.

else.

if not s_hkont is initial.

if not s_hkont-high is initial.

write: /2 'GL Account:'(043),14 s_hkont-low color 3,

'-', s_hkont-high color 3.

else.

write: /2 'GL Account:'(043),14 s_hkont-low color 3.

endif.

write: 144 'Run Date:'(029), sy-datum.

format color col_heading.

write at /1(164) sy-uline .

write: / sy-vline, 2(10) 'Customer'(008) centered,

12 sy-vline, 13(30) 'Customer Name'(009),

43 sy-vline, 44(3) 'Cty'(014) centered,

47 sy-vline, 48(15) 'Amount'(013) right-justified,

63 sy-vline, 64(4) 'Curr'(011) centered,

68 sy-vline, 69(15) 'Overdue'(012) centered,

84 sy-vline, 85(15) '0 - 30 Days'(010) centered,

100 sy-vline,101(15) '31 - 60 Days'(028) centered,

116 sy-vline,117(15) '61 - 90 Days'(021) centered,

132 sy-vline,133(15) '91 - 120 Days'(022) centered,

148 sy-vline,149(15) 'Above 120 Days'(023) centered,

164 sy-vline.

write at /1(164) sy-uline.

format color off.

endform. " COL_HEADING1

&----

*& Form COL_HEADING2

&----

Write the Column Headings for summary report(in Doc Curr)

----

form col_heading2.

skip .

write: /99 'DEBTOR AGEING REPORT AS AT:'(019) centered,

127 p_date centered, 220 sy-pagno.

skip .

write: /2 'CoCode:'(016),13(4) p_bukrs color 3.

if not s_kunnr is initial.

if not s_kunnr-high is initial.

write: 20 'Customer:'(041),33 s_kunnr-low color 3,

'-', s_kunnr-high color 3.

else.

write: 20 'Customer:'(041),33 s_kunnr-low color 3.

endif.

if not s_land1 is initial.

if not s_land1-high is initial.

write: /2 'Country:'(042),13(4) s_land1-low color 3,

'-', s_land1-high color 3.

else.

write: /2 'Country:'(042),13(4) s_land1-low color 3.

endif.

if not s_hkont is initial.

if not s_hkont-high is initial.

write: 20 'GL Account:'(043),33 s_hkont-low color 3,

'-', s_hkont-high color 3.

else.

write: 20 'GL Account:'(043),33 s_hkont-low color 3.

endif.

else.

if not s_hkont is initial.

if not s_hkont-high is initial.

write: /2 'GL Account:'(043),14 s_hkont-low color 3,

'-', s_hkont-high color 3.

else.

write: /2 'GL Account:'(043),14 s_hkont-low color 3.

endif.

write: 204 'Run Date:'(029), sy-datum.

format color col_heading.

write at /1(225) sy-uline .

write: / sy-vline, 2(10) 'Customer'(008) centered,

12 sy-vline, 13(30) 'Customer Name'(009),

43 sy-vline, 44(3) 'Cty'(014) centered,

47 sy-vline, 48(15) 'Amount'(013) right-justified,

63 sy-vline, 64(4) 'Curr'(011) centered,

68 sy-vline, 69(15) 'Overdue'(012) centered,

84 sy-vline, 85(15) '0 - 30 Days'(010) centered,

100 sy-vline,101(15) '31 - 60 Days'(028) centered,

116 sy-vline,117(15) '61 - 90 Days'(021) centered,

132 sy-vline,133(15) '91 - 120 Days'(022) centered,

148 sy-vline,149(15) 'Above 120 Days'(023) centered,

164 sy-vline,165(10) 'Due Date'(024) centered,

175 sy-vline,176(5) 'PayT'(025) centered,

181 sy-vline,182(10) 'Bill.Doc.'(026) centered,

192 sy-vline,193(10) 'Doc.No.'(027) centered,

203 sy-vline,204(16) 'Amount(Doc.Curr)'(039),

220 sy-vline,221(4) 'Curr'(040),

225 sy-vline.

write at /1(225) sy-uline.

format color off.

endform. " COL_HEADING2

&----

*& Form GET_OPEN_DATA

&----

Get the Customer Open Items from BSID

----

form get_open_data.

select a~kunnr " Customer Number

a~gjahr " Fiscal Year

a~belnr " Acc.Document

a~buzei " Item

a~budat " Posting Date

a~shkzg " Dr/Cr Indicator

a~dmbtr " Amount(Local Curr)

a~wrbtr " Amount(Doc Curr)

a~dmbe2 " Amount(USD)

a~waers " Currency

a~zterm " Payment Terms

a~vbeln " Billing Doc

a~zfbdt " Baseline Date

a~zbd1t " No of days

a~hkont " GL account

b~name1 " Customer Name

b~land1 " Country

into table it_bsid

from bsid as a join kna1 as b

on a_{kunnr = b}kunnr

where a~bukrs = p_bukrs and

a~kunnr in s_kunnr and

a~hkont in s_hkont and

b~land1 in s_land1 and

a~budat le p_date.

sort it_bsid by kunnr gjahr belnr buzei budat.

endform. " GET_OPEN_DATA

&----

*& Form GET_CLOSE_DATA

&----

Get the Customer closed Items from BSID

----

form get_close_data.

select a~kunnr " Customer Number

a~gjahr " Fiscal Year

a~belnr " Acc.Document

a~buzei " Item

a~budat " Posting Date

a~shkzg " Dr/Cr Indicator

a~dmbtr " Amount(Local Curr)

a~wrbtr " Amount(Doc Curr)

a~dmbe2 " Amount(USD)

a~waers " Currency

a~zterm " Payment Terms

a~vbeln " Billing Doc

a~zfbdt " Baseline Date

a~zbd1t " No of days

a~hkont " GL account

b~name1 " Customer Name

b~land1 " Country

into table it_bsad

from bsad as a join kna1 as b

on a_{kunnr = b}kunnr

where a~bukrs = p_bukrs and

a~kunnr in s_kunnr and

a~hkont in s_hkont and

b~land1 in s_land1 and

a~augdt > p_date and

a~budat le p_date.

sort it_bsad by kunnr gjahr belnr buzei budat.

endform. " GET_CLOSE_DATA

&----

*& Form PROCESS_DATA

&----

Get the data from BSID,BSAD and KNA1 into one int.table

----

form process_data.

*Move the data from BSID to final output int table

loop at it_bsid.

move-corresponding it_bsid to it_report.

it_report-due_date = it_bsid-zfbdt + it_bsid-zbd1t.

append it_report.

clear it_report.

endloop.

*Move the data from BSAD to final output int table

loop at it_bsad.

move-corresponding it_bsad to it_report.

it_report-due_date = it_bsad-zfbdt + it_bsad-zbd1t.

append it_report.

clear it_report.

endloop.

sort it_report by kunnr belnr.

loop at it_report.

if it_report-shkzg = 'H'. " Credit

it_report-dmbtr = it_report-dmbtr * -1.

it_report-dmbe2 = it_report-dmbe2 * -1.

endif.

v_days = it_report-due_date - p_date.

For Company Code Currency

if p_rb1 = 'X'.

if v_days le 0.

it_report-due_amnt = it_report-dmbtr.

elseif v_days between 1 and 30.

it_report-d_amnt1 = it_report-dmbtr.

elseif v_days between 31 and 60.

it_report-d_amnt2 = it_report-dmbtr.

elseif v_days between 61 and 90.

it_report-d_amnt3 = it_report-dmbtr.

elseif v_days between 91 and 120.

it_report-d_amnt4 = it_report-dmbtr.

elseif v_days > 120.

it_report-d_amnt5 = it_report-dmbtr.

endif.

For Group Currency

else.

if v_days le 0.

it_report-due_amnt = it_report-dmbe2.

elseif v_days between 1 and 30.

it_report-d_amnt1 = it_report-dmbe2.

elseif v_days between 31 and 60.

it_report-d_amnt2 = it_report-dmbe2.

elseif v_days between 61 and 90.

it_report-d_amnt3 = it_report-dmbe2.

elseif v_days between 91 and 120.

it_report-d_amnt4 = it_report-dmbe2.

elseif v_days > 120.

it_report-d_amnt5 = it_report-dmbe2.

endif.

modify it_report index sy-tabix.

endloop.

endform. " PROCESS_DATA

&----

*& Form WRITE_REPORT

&----

Write the Detailed Report Output

----

form write_report.

clear: v_sum1,v_sum2,v_sum3,v_sum4,v_waers,

v_sum5,v_sum6,v_sum7,v_sum8.

loop at it_report.

at new kunnr.

read table it_report index sy-tabix.

write: / sy-vline, 2(10) it_report-kunnr,

12 sy-vline, 13(30) it_report-name1,

43 sy-vline, 44(3) it_report-land1,

47 sy-vline.

endat.

if p_rb1 = 'X'.

select single waers from t001

into v_waers where bukrs = p_bukrs.

write: 1 sy-vline, 12 sy-vline,

43 sy-vline,

47 sy-vline,

48(15) it_report-dmbtr currency it_report-waers,

63 sy-vline, 64(4) v_waers,

68 sy-vline.

else.

write: 1 sy-vline, 12 sy-vline,

43 sy-vline,

47 sy-vline,

48(15) it_report-dmbe2 currency it_report-waers,

63 sy-vline,64(4) c_doc_waers,

68 sy-vline.

endif.

write: 69(15) it_report-due_amnt currency it_report-waers,

84 sy-vline,

85(15) it_report-d_amnt1 currency it_report-waers,

100 sy-vline,

101(15) it_report-d_amnt2 currency it_report-waers,

116 sy-vline,

117(15) it_report-d_amnt3 currency it_report-waers,

132 sy-vline,

133(15) it_report-d_amnt4 currency it_report-waers,

148 sy-vline,

149(15) it_report-d_amnt5 currency it_report-waers,

164 sy-vline,165(10) it_report-due_date,

175 sy-vline,176(5) it_report-zterm,

181 sy-vline,182(10) it_report-vbeln,

192 sy-vline,193(10) it_report-belnr,

203 sy-vline.

if p_chk1 = 'X'.

write: 204(16) it_report-wrbtr currency it_report-waers,

220 sy-vline, 221(4) it_report-waers,

225 sy-vline.

endif.

new-line.

Totals for end of each Customer

at end of kunnr.

if p_chk1 = 'X'.

write at /1(225) sy-uline.

else.

write at /1(203) sy-uline.

endif.

sum.

format color 4.

if p_rb1 = 'X'.

write: /1 sy-vline, 2 'Total:'(015),

12 sy-vline,

13(10) it_report-kunnr,

43 sy-vline,47 sy-vline,

48(15) it_report-dmbtr currency it_report-waers,

63 sy-vline, 64(3) v_waers,

68 sy-vline,

69(15) it_report-due_amnt currency it_report-waers,

84 sy-vline,

85(15) it_report-d_amnt1 currency it_report-waers,

100 sy-vline,

101(15) it_report-d_amnt2 currency it_report-waers,

116 sy-vline,

117(15) it_report-d_amnt3 currency it_report-waers,

132 sy-vline,

133(15) it_report-d_amnt4 currency it_report-waers,

148 sy-vline,

149(15) it_report-d_amnt5 currency it_report-waers,

164 sy-vline, 175 sy-vline,

181 sy-vline, 192 sy-vline,

203 sy-vline.

if p_chk1 = 'X'.

write: 220 sy-vline, 225 sy-vline.

endif.

else.

write: /1 sy-vline, 2 'Total:'(015),

12 sy-vline,

13(10) it_report-kunnr,

43 sy-vline,

47 sy-vline,

48(15) it_report-dmbe2 currency it_report-waers,

63 sy-vline, 64(3) c_doc_waers,

68 sy-vline,

69(15) it_report-due_amnt currency it_report-waers,

84 sy-vline,

85(15) it_report-d_amnt1 currency it_report-waers,

100 sy-vline,

101(15) it_report-d_amnt2 currency it_report-waers,

116 sy-vline,

117(15) it_report-d_amnt3 currency it_report-waers,

132 sy-vline,

133(15) it_report-d_amnt4 currency it_report-waers,

148 sy-vline,

149(15) it_report-d_amnt5 currency it_report-waers,

164 sy-vline, 175 sy-vline,

181 sy-vline, 192 sy-vline,

203 sy-vline.

if p_chk1 = 'X'.

write: 220 sy-vline, 225 sy-vline.

endif.

format color off.

if p_chk1 = 'X'.

write at /1(225) sy-uline.

else.

write at /1(203) sy-uline.

endif.

endat.

v_sum1 = v_sum1 + it_report-dmbtr.

v_sum2 = v_sum2 + it_report-due_amnt.

v_sum3 = v_sum3 + it_report-d_amnt1.

v_sum4 = v_sum4 + it_report-d_amnt2.

v_sum5 = v_sum5 + it_report-d_amnt3.

v_sum6 = v_sum6 + it_report-d_amnt4.

v_sum7 = v_sum7 + it_report-d_amnt5.

v_sum8 = v_sum8 + it_report-dmbe2.

Hiding the Acc doc no for interactic screen.

hide it_report-belnr.

hide it_report-budat.

clear:it_report-belnr, it_report-budat.

endloop.

Grand Totals for all customers

format color 3.

write: /1 sy-vline, 2 'Gr.Total'(034),

12 sy-vline,13 'As At:'(035),p_date,

43 sy-vline,

47 sy-vline.

For Company Code Currency

if p_rb1 = 'X'.

write: 48(15) v_sum1 currency it_report-waers,

63 sy-vline, 64(4) v_waers,

68 sy-vline.

For Group Currency (USD)

else.

write: 48(15) v_sum8 currency it_report-waers,

63 sy-vline, 64(3) c_doc_waers,

68 sy-vline.

endif.

write: 69(15) v_sum2 currency it_report-waers,

84 sy-vline,

85(15) v_sum3 currency it_report-waers,

100 sy-vline,

101(15) v_sum4 currency it_report-waers,

116 sy-vline,

117(15) v_sum5 currency it_report-waers,

132 sy-vline,

133(15) v_sum6 currency it_report-waers,

148 sy-vline,

149(15) v_sum7 currency it_report-waers,

164 sy-vline, 175 sy-vline,

181 sy-vline, 192 sy-vline,

203 sy-vline.

if p_chk1 = 'X'.

write: 220 sy-vline, 225 sy-vline.

endif.

format color off.

if p_chk1 = 'X'.

write at /1(225) sy-uline.

else.

write at /1(203) sy-uline.

endif.

endform. " WRITE_REPORT

&----

*& Form WRITE_REPORT1

&----

Write the Summary Report Output

----

form write_report1.

clear: v_sum1,v_sum2,v_sum3,v_sum4,v_waers,

v_sum5,v_sum6,v_sum7,v_sum8.

loop at it_report.

at new kunnr.

read table it_report index sy-tabix.

write: / sy-vline, 2(10) it_report-kunnr,

12 sy-vline, 13(30) it_report-name1,

43 sy-vline, 44(3) it_report-land1,

47 sy-vline.

endat.

at end of kunnr.

sum.

if p_rb1 = 'X'.

select single waers from t001

into v_waers where bukrs = p_bukrs.

write: 1 sy-vline, 12 sy-vline,

43 sy-vline, 47 sy-vline,

48(15) it_report-dmbtr currency it_report-waers,

63 sy-vline, 64(4) v_waers,

68 sy-vline,

69(15) it_report-due_amnt currency it_report-waers,

84 sy-vline,

85(15) it_report-d_amnt1 currency it_report-waers,

100 sy-vline,

101(15) it_report-d_amnt2 currency it_report-waers,

116 sy-vline,

117(15) it_report-d_amnt3 currency it_report-waers,

132 sy-vline,

133(15) it_report-d_amnt4 currency it_report-waers,

148 sy-vline,

149(15) it_report-d_amnt5 currency it_report-waers,

164 sy-vline.

else.

write: 1 sy-vline, 12 sy-vline,

43 sy-vline, 47 sy-vline,

48(15) it_report-dmbe2 currency it_report-waers,

63 sy-vline, 64(4) c_doc_waers,

68 sy-vline,

69(15) it_report-due_amnt currency it_report-waers,

84 sy-vline,

85(15) it_report-d_amnt1 currency it_report-waers,

100 sy-vline,

101(15) it_report-d_amnt2 currency it_report-waers,

116 sy-vline,

117(15) it_report-d_amnt3 currency it_report-waers,

132 sy-vline,

133(15) it_report-d_amnt4 currency it_report-waers,

148 sy-vline,

149(15) it_report-d_amnt5 currency it_report-waers,

164 sy-vline.

endif.

write at /1(164) sy-uline.

endat.

Totals

v_sum1 = v_sum1 + it_report-dmbtr.

v_sum2 = v_sum2 + it_report-due_amnt.

v_sum3 = v_sum3 + it_report-d_amnt1.

v_sum4 = v_sum4 + it_report-d_amnt2.

v_sum5 = v_sum5 + it_report-d_amnt3.

v_sum6 = v_sum6 + it_report-d_amnt4.

v_sum7 = v_sum7 + it_report-d_amnt5.

v_sum8 = v_sum8 + it_report-dmbe2.

Hiding the Acc doc no for interactic screen.

hide it_report-belnr.

hide it_report-budat.

clear: it_report-belnr,

it_report-budat.

endloop.

Calculation of Grand Totals

format color 3.

write: /1 sy-vline, 2 'Gr.Total'(034),

12 sy-vline,13 'As At:'(035),p_date,

43 sy-vline,

47 sy-vline.

For Company Code Currency

if p_rb1 = 'X'.

write: 48(15) v_sum1 currency it_report-waers,

63 sy-vline, 64(4) v_waers,

68 sy-vline.

For Group Currency (USD)

else.

write: 48(15) v_sum8 currency it_report-waers,

63 sy-vline, 64(3) c_doc_waers,

68 sy-vline.

endif.

write: 69(15) v_sum2 currency it_report-waers,

84 sy-vline,

85(15) v_sum3 currency it_report-waers,

100 sy-vline,

101(15) v_sum4 currency it_report-waers,

116 sy-vline,

117(15) v_sum5 currency it_report-waers,

132 sy-vline,

133(15) v_sum6 currency it_report-waers,

148 sy-vline,

149(15) v_sum7 currency it_report-waers,

164 sy-vline.

format color off.

write at /1(164) sy-uline.

endform. " WRITE_REPORT1

&----

*& Form LINE_SEL

&----

When double clicked on BELNR leave to transaction FB03

----

form line_sel.

data: lv_field(20),

lv_value(10),

lv_date(10),

lv_gjahr like bsad-gjahr.

get cursor field lv_field value lv_value.

if lv_field = 'IT_REPORT-BELNR'.

if not lv_value is initial.

read current line field value it_report-budat into lv_date.

lv_gjahr = lv_date+6(4).

set parameter id 'BUK' field p_bukrs.

set parameter id 'GJR' field lv_gjahr.

set parameter id 'BLN' field lv_value.

call transaction 'FB03' and skip first screen.

endif.

endform. " LINE_SEL

Reward points if useful

Regards

Anji

Re: abap

Former Member — Fri, 25 May 2007 05:58:56 GMT

Hi,

Please go through sap help by pressing F1 on each event you will get clear idea.

Thanks

Sandeep

Reward if helpful

Re: abap

Former Member — Fri, 25 May 2007 05:59:09 GMT

Hi,

These are the selection screen Events.

initialiazation :

Its used for giving values to the SS.

Ex : T1 = 'Title of the selection screen'.

START-OF-SELECTION marks the start of the program whereas END-OF-SELECTION is generally used to output the list. Also, END-OF-SELECTION is important when you use STOP or REJECT in yout program.

Thanks,

Reward If Helpful.

Re: abap

Former Member — Fri, 25 May 2007 05:59:26 GMT

Hi,

The sequence of events for a report are

INITIALIZATION and then

START -OF-SELECTION

and TOP-OF-PAGE is fired before the list generation.

END-OF-SELECTION.

Initialization : triggered when the report is loaded in memory.

start-of-selection : the first event for displaying the report.

end-of-selection : after the start-of-selection is completed.

This event keyword defines an event block whose event is triggered by the ABAP runtime environment

when calling the executable program selection screen processing of a selection screen.

In an executable program, all statements that are not declarations,

and are listed before the first explicit processing block, are assigned to this event block.

If the program does not contain an explicitly defined event block START-OF-SELECTION,

these statements form the complete event block START-OF-SELECTION.

If a program contains an explicitly defined event block START-OF-SELECTION,

these statements are added to the beginning of the event block.

If the program contains no explicitly defined event blocks,

these statements form the entire event block START-OF-SELECTION.

http://help.sap.com/saphelp_47x200/helpdata/en/56/1eb6c705ad11d2952f0000e8353423/content.htm

Regards,

Priyanka.

Re: abap

Former Member — Fri, 25 May 2007 06:00:33 GMT

hi,

ABAP is an event driven language.

These r all events in ABAP.

Initialization is the event that is executed first.It is used for data declaration.

Start-of-selection-it is used to write the select statement i.e.to retrieve data from the database table.

End-of-selection-It is used to print the data in the required form i.e.write statement.

We have to use these events in the sequential order.

The order is

1.Initialization

2.At-selection-screen

3.Start-of-selection

4.End-of-selection

5.top-of-page

6.End-of-page

For interactive reports there r some additional events

They r

1.At line-selection

2.At-user command

3.Pf-status

Re: abap

Former Member — Fri, 25 May 2007 06:04:46 GMT

Hi,

Event related to reports are not triggered based on any statements in ABAP.

The event are triggered depended on the way the output is generated .

for eg:

Initialization : triggered when the report is loaded in memory.

At selection-screen output : triggered when the selection screen is loaded in memory before being displayed.

At selection-screen / <field> : before leaving the selection screen.

start-of-selection : the first event for displaying the report.

end-of-selection : after the start-of-selection is completed.

classiscal report events.

top-of-page : every time a new page is started in the list.

end-of-page : every time the list data reaches the footer region of the page.

interactive report events.

top of page during line selection : top of page event for secondary list.

at line-selection : evey time user dbl-clicks(F2) on the list data.

at pF<key> : function key from F5 to F12 to perform interactive action on the list.

Regards,

Younus

<b>Reward Helpful Answers:-)</b>