部分支付全部清账时，未将清账凭证置为已清账

当部分支付全部清账时，未将清账凭证置为已清账，数据筛查脚本。



脚本：

1. SELECT  BUKRS,
   
2.         KUNNR,
   
3.         UMSKS,
   
4.         UMSKZ,
   
5.         AUGDT,
   
6.         AUGBL,
   
7.         ZUONR,
   
8.         GJAHR,
   
9.         BELNR,
   
10.         BUZEI,
    
11.         BLART,
    
12.         DMBTR,
    
13.         REBZG,
    
14.         REBZJ,
    
15.         REBZZ
    
16. FROM BSID
    
17. WHERE BLART IN ('RV','SA','AB')
    
18. INTO TABLE @DATA(lt_BSID).
    
19. 
    
20. DATA:BEGIN OF lt_rv OCCURS 0,
    
21.   BUKRS TYPE BSID-BUKRS,
    
22.   GJAHR TYPE BSID-GJAHR,
    
23.   BELNR TYPE BSID-BELNR,
    
24.   BUZEI TYPE BSID-BUZEI,
    
25.   DMBTR TYPE BSID-DMBTR,
    
26. END OF lt_rv.
    
27. DATA:BEGIN OF lt_ab OCCURS 0,
    
28.   BUKRS TYPE BSID-BUKRS,
    
29.   GJAHR TYPE BSID-GJAHR,
    
30.   BELNR TYPE BSID-BELNR,
    
31.   BUZEI TYPE BSID-BUZEI,
    
32.   DMBTR TYPE BSID-DMBTR,
    
33. END OF lt_ab.
    
34. DATA:lv_index TYPE I.
    
35. DATA:lt_rv_e LIKE TABLE OF lt_rv.
    
36. 
    
37. LOOP AT lt_BSID ASSIGNING FIELD-SYMBOL(<fs_bsid>).
    
38.   IF <fs_bsid>-BLART = 'RV' OR <fs_bsid>-BLART = 'SA'.
    
39.     CLEAR:lt_rv.
    
40.     lt_rv-BUKRS = <fs_bsid>-BUKRS.
    
41.     lt_rv-GJAHR = <fs_bsid>-GJAHR.
    
42.     lt_rv-BELNR = <fs_bsid>-BELNR.
    
43.     lt_rv-BUZEI = <fs_bsid>-BUZEI.
    
44.     lt_rv-DMBTR = <fs_bsid>-DMBTR.
    
45.     APPEND lt_rv.
    
46.   ELSE.
    
47.     CLEAR:lt_ab.
    
48.     lt_ab-BUKRS = <fs_bsid>-BUKRS.
    
49.     lt_ab-GJAHR = <fs_bsid>-REBZJ.
    
50.     lt_ab-BELNR = <fs_bsid>-REBZG.
    
51.     lt_ab-BUZEI = <fs_bsid>-REBZZ.
    
52.     lt_ab-DMBTR = <fs_bsid>-DMBTR.
    
53.     COLLECT lt_ab.
    
54.   ENDIF.
    
55. ENDLOOP.
    
56. 
    
57. 
    
58. SORT lt_ab BY BUKRS GJAHR BELNR BUZEI DMBTR.
    
59. LOOP AT lt_rv.
    
60.   READ TABLE lt_ab WITH KEY BUKRS = lt_rv-BUKRS GJAHR = lt_rv-GJAHR BELNR = lt_rv-BELNR BUZEI = lt_rv-BUZEI DMBTR = lt_rv-DMBTR BINARY SEARCH.
    
61.   IF sy-subrc = 0.
    
62.     APPEND lt_rv TO lt_rv_e. "收款/应收凭证 部分全部清账时，未置为已清状态数据
    
63.   ENDIF.
    
64. ENDLOOP.
    
65. 
    
66. DELETE lt_BSID[] WHERE REBZG IS INITIAL.
    
67. 
    
68. SORT lt_rv_e BY BUKRS GJAHR BELNR BUZEI.
    
69. LOOP AT lt_BSID ASSIGNING <fs_BSID>.
    
70.   lv_index = sy-tabix.
    
71.   READ TABLE lt_rv_e TRANSPORTING NO FIELDS WITH KEY BUKRS = <fs_BSID>-BUKRS GJAHR = <fs_BSID>-REBZJ BELNR = <fs_BSID>-REBZG BUZEI = <fs_BSID>-REBZZ BINARY SEARCH.
    
72.   IF sy-subrc NE 0.
    
73.     DELETE lt_BSID INDEX lv_index.
    
74.   ENDIF.
    
75. ENDLOOP.
    
76. 
    
77. SORT lt_BSID BY BUKRS ASCENDING REBZJ ASCENDING REBZG ASCENDING REBZZ ASCENDING GJAHR DESCENDING BELNR DESCENDING BUZEI DESCENDING.
    
78. DELETE ADJACENT DUPLICATES FROM lt_BSID COMPARING BUKRS REBZJ REBZG REBZZ.  "剩下的最大好的清账凭证，是最后一次清账凭证，有问题的数据
    
79. 
    
80. DATA:BEGIN OF lt_out OCCURS 0,
    
81.   BUKRS TYPE BSID-BUKRS,
    
82.   KUNNR TYPE BSID-KUNNR,
    
83.   UMSKS TYPE BSID-UMSKS,
    
84.   UMSKZ TYPE BSID-UMSKZ,
    
85.   AUGDT TYPE BSID-AUGDT,
    
86.   AUGBL TYPE BSID-AUGBL,
    
87.   ZUONR TYPE BSID-ZUONR,
    
88.   GJAHR TYPE BSID-GJAHR,
    
89.   BELNR TYPE BSID-BELNR,
    
90.   BUZEI TYPE BSID-BUZEI,
    
91.   BLART TYPE BSID-BLART,
    
92.   DMBTR TYPE BSID-DMBTR,
    
93.   REBZG TYPE BSID-REBZG,
    
94.   REBZJ TYPE BSID-REBZJ,
    
95.   REBZZ TYPE BSID-REBZZ,
    
96.   USNAM TYPE BKPF-USNAM,
    
97. END OF lt_out.
    
98. 
    
99. LOOP AT lt_BSID ASSIGNING <fs_BSID>.
    
100.   CLEAR:lt_out.
     
101.   MOVE-CORRESPONDING <fs_BSID> TO lt_out.
     
102.   SELECT SINGLE USNAM INTO lt_out-USNAM FROM BKPF WHERE BUKRS = <fs_BSID>-BUKRS AND BELNR = <fs_BSID>-BELNR AND GJAHR = <fs_BSID>-GJAHR.
     
103.   APPEND lt_out.
     
104. ENDLOOP.
     
105. 
     
106. WRITE:'end'.

复制代码

lt_out 最后一次清账凭证，需要冲销，修复账号参数，然后重新清账。