冲销客户清账时，查询关联清账凭证脚本

1、清账凭证正序打印输出

1. PARAMETERS:p_bukrs TYPE bkpf-bukrs DEFAULT '3100',
   
2.            p_belnr TYPE bkpf-belnr,
   
3.            p_gjahr TYPE bkpf-gjahr.
   
4. 
   
5. DATA:lv_gjahr TYPE bseg-gjahr.
   
6. DATA:lv_belnr TYPE bseg-belnr.
   
7. DATA:ls_bsad  TYPE bsad.
   
8. 
   
9. lv_gjahr = p_gjahr.
   
10. lv_belnr = p_belnr.
    
11. 
    
12. DO.
    
13.   IF lv_belnr IS INITIAL.
    
14.     EXIT.
    
15.   ENDIF.
    
16. 
    
17.   CLEAR:ls_bsad.
    
18.   SELECT SINGLE *
    
19.     FROM bsad
    
20.     WHERE bukrs = @p_bukrs
    
21.       AND gjahr = @lv_gjahr
    
22.       AND belnr = @lv_belnr
    
23.       AND buzei = '001'
    
24.     INTO @ls_bsad.
    
25.   IF sy-subrc = 0.
    
26.     IF ls_bsad-augbl = lv_belnr AND ls_bsad-augdt+0(4) = lv_gjahr.
    
27.       CLEAR:lv_belnr,lv_gjahr.
    
28.     ELSE.
    
29.       WRITE:/ ls_bsad-augdt+0(4),ls_bsad-augbl.
    
30. 
    
31.       lv_gjahr = ls_bsad-augdt+0(4).
    
32.       lv_belnr = ls_bsad-augbl.
    
33.     ENDIF.
    
34.   ELSE.
    
35.     EXIT.
    
36.   ENDIF.
    
37. ENDDO.

复制代码

2、清账凭证倒序打印输出

1. PARAMETERS:p_bukrs TYPE bkpf-bukrs DEFAULT '3100',
   
2.            p_belnr TYPE bkpf-belnr,
   
3.            p_gjahr TYPE bkpf-gjahr.
   
4. 
   
5. DATA:BEGIN OF lt_out OCCURS 0,
   
6.        gjahr_belnr TYPE char20,
   
7.      END OF lt_out.
   
8. 
   
9. DATA:lv_gjahr TYPE bseg-gjahr.
   
10. DATA:lv_belnr TYPE bseg-belnr.
    
11. DATA:ls_bsad  TYPE bsad.
    
12. DATA:lv_string TYPE string.
    
13. 
    
14. lv_gjahr = p_gjahr.
    
15. lv_belnr = p_belnr.
    
16. 
    
17. DO.
    
18.   IF lv_belnr IS INITIAL.
    
19.     EXIT.
    
20.   ENDIF.
    
21. 
    
22.   CLEAR:ls_bsad.
    
23.   SELECT SINGLE *
    
24.     FROM bsad
    
25.     WHERE bukrs = @p_bukrs
    
26.       AND gjahr = @lv_gjahr
    
27.       AND belnr = @lv_belnr
    
28.       AND buzei = '001'
    
29.     INTO @ls_bsad.
    
30.   IF sy-subrc = 0.
    
31.     IF ls_bsad-augbl = lv_belnr AND ls_bsad-augdt+0(4) = lv_gjahr.
    
32.       CLEAR:lv_belnr,lv_gjahr.
    
33.     ELSE.
    
34.       CLEAR:lt_out.
    
35.       lt_out-gjahr_belnr = ls_bsad-augdt+0(4) && '/' && ls_bsad-augbl.
    
36.       APPEND lt_out.
    
37. 
    
38.       lv_gjahr = ls_bsad-augdt+0(4).
    
39.       lv_belnr = ls_bsad-augbl.
    
40.     ENDIF.
    
41.   ELSE.
    
42.     EXIT.
    
43.   ENDIF.
    
44. 
    
45. ENDDO.
    
46. 
    
47. IF lt_out[] IS NOT INITIAL.
    
48.   SORT lt_out BY gjahr_belnr DESCENDING.
    
49.   LOOP AT lt_out.
    
50.     IF lv_string IS INITIAL.
    
51.       lv_string = lt_out-gjahr_belnr.
    
52.     ELSE.
    
53.       lv_string = lv_string && ',' && lt_out-gjahr_belnr.
    
54.     ENDIF.
    
55.   ENDLOOP.
    
56.   WRITE:/ lv_string.
    
57. ENDIF.
    
58. 
    
59. *IF LT_OUT[] IS NOT INITIAL.
    
60. *SORT LT_OUT BY gjahr_belnr DESCENDING.
    
61. *LOOP AT LT_OUT.
    
62. *  WRITE:/ LT_OUT-gjahr_belnr.
    
63. *ENDLOOP.
    
64. *ENDIF.

复制代码