ZFI001应收账龄

在sap中是没有标准的应收账龄报表的，要实现这个功能可以使用下面三种方法：

1：利用BW手段完成该功能

2：运用ABAP技术实现该功能

3：也可以利用外部的语言直接捞数据库

当然作为一名ABAPer只好选择方法2咯。

通过前面课程的学习，对这个功能的实现了充分的准备了，选择是ScriptForm。

所以先在se71建立(有不熟悉的童鞋可以先学习ScriptForm的系列课程)

1基本设置数据

2.字符格式

3.段落格式

4.页面，窗口设置

4.1Main 窗口

4.2BILLTO窗口

4.3 COMPANY窗口

4.4 FOOTER窗口

5.接下来就要到se38 写代码啦

[plain] view plain copy print ?

1. *&---------------------------------------------------------------------*  
2. *& Report  ZFI001  
3. *&---------------------------------------------------------------------*  
4. * Author  : Jasson.Lee  
5. * Date    : 2011.04.23  
6. * Purpose :  
7. * Modi Log: 2011.07.16 Gavin 加 按InvoiceNo排序/ 客户地址过长/多币别  
8. *----------------------------------------------------------------------  
9. report  zfi001.  
10. tables: bsad,bsid,kna1,knb1,tnapr.  
11.   
12. *--------------------------------  
13. * Selection Screen  
14. *--------------------------------  
15. selection-screen begin of block b1 with frame title text-001.  
16. select-options:  
17.    s_kunnr for kna1-kunnr.                "CustomerNo  
18. parameters:  
19.   p_bukrs like knb1-bukrs obligatory  default 3000.  "Company Code  
20. selection-screen end of block b1.  
21. * For Line Items  
22. selection-screen begin of block b2 with frame title text-002.  
23. *Open Items  
24. parameters: rb_open radiobutton group bc default 'X',  
25.             p_kdate like bsad-budat default sy-datum.  
26. selection-screen skip.  
27. *Cleared Items  
28. parameters: rb_close  radiobutton group bc.  
29. select-options:s_augdt for bsad-augdt.  
30. parameters: p_odate like bsad-budat.  
31. selection-screen skip.  
32. *All Items  
33. *PARAMETERS: RB_ALL   RADIOBUTTON GROUP BC.  
34. *SELECT-OPTIONS:S_BUDAT  FOR BSAD-BUDAT.  
35. *SELECTION-SCREEN SKIP.  
36. selection-screen end of block b2.  
37.   
38. data:begin of t_bsad occurs 0.  
39. data:price1 type p decimals 2,  
40.      price2 type p decimals 2,  
41.      price3 type p decimals 2,  
42.      price4 type p decimals 2,  
43.      price5 type p decimals 2,  
44.      pswbt1 type p decimals 2.  
45.         include structure bsad.  
46. data:end of t_bsad.  
47.   
48. data:begin of t_bsad1 occurs 0.  
49.         include structure t_bsad.  
50. data:end of t_bsad1.  
51.   
52. data:begin of t_bsad2 occurs 0,  
53.      kunnr like kna1-kunnr,  
54.     end of t_bsad2.  
55.   
56. data:begin of t_bsid occurs 0.  
57. data:price1 type p decimals 2,  
58.      price2 type p decimals 2,  
59.      price3 type p decimals 2,  
60.      price4 type p decimals 2,  
61.      price5 type p decimals 2,  
62.      pswbt1 type p decimals 2.  
63.         include structure bsid.  
64. data:end of t_bsid.  
65.   
66. data:begin of t_kna1 occurs 0,  
67.      kunnr  like kna1-kunnr,  
68.      name1  like adrc-name1,  
69.      city1  like adrc-city1,  
70.      pcode  like adrc-post_code1,  
71.      street like adrc-street,  
72.      str_suppl3 like adrc-str_suppl3,  
73.      location like adrc-location,  
74.      landx  like t005t-landx,  
75.      end of t_kna1.  
76.   
77. data:begin of t_sum occurs 0,  
78.      kunnr like bsad-kunnr,  
79.      bukrs like bsad-bukrs,  
80.      pswsl like bsad-pswsl,  
81.      psum  type p decimals 2,  
82.      psum1 type p decimals 2,  
83.      psum2 type p decimals 2,  
84.      psum3 type p decimals 2,  
85.      psum4 type p decimals 2,  
86.      psum5 type p decimals 2,  
87.      end of t_sum.  
88. data:begin of t_sum0 occurs 0.  
89.         include structure t_sum.  
90. data:end of t_sum0.  
91.   
92. data :w_loop like sy-tabix.  
93. data :p_coco like knb1-bukrs.  
94. data :w_total(10) type c.  
95. data :w_loop1 like sy-tabix.  
96. data :w_loop2 like sy-tabix.  
97. data :w_loop3 like sy-tabix.  
98. data :rcount like sy-tabix.  
99.   
100.   
101. *--------------------------------  
102. * Initialization  
103. *--------------------------------  
104. initialization.  
105.   
106. *--------------------------------  
107. * At Selection Screen PBO  
108. *--------------------------------  
109. at selection-screen output.  
110. *--------------------------------  
111. * Start of Selection  
112. *--------------------------------  
113. start-of-selection.  
114.   perform get_data.  
115.   perform get_custome