NC5X凭证号补号脚本（包含未结过账的情况）

stonys

1. 
   
2. delete from gl_vouchermaxno;--删除最大号表数据
   
3. delete from gl_vouchernosuppl;--删除补号表数据
   
4. /*以下语句根据凭证表数据重新插入凭证最大号*/
   
5. insert into gl_vouchermaxno
   
6.   (select 0,
   
7.           max(no),
   
8.           a.period,
   
9.           a.pk_glorgbook,
   
10.           max(a.pk_voucher),
    
11.           a.pk_vouchertype,
    
12.           max(ts),
    
13.           a.year
    
14.      from gl_voucher a
    
15.     where a.dr = 0
    
16.       and (a.year || a.period >
    
17.           (select s.settledyear || s.settledperiod
    
18.               from gl_syssettled s
    
19.              where s.pk_glorgbook = a.pk_glorgbook) or
    
20.           (not exists (select s.settledyear || s.settledperiod
    
21.                           from gl_syssettled s
    
22.                          where s.pk_glorgbook = a.pk_glorgbook
    
23.                          and s.settledyear is not null
    
24.                          and s.settledperiod is not null)))
    
25.     group by a.pk_glorgbook, a.year, a.period, a.pk_vouchertype);
    
26. /*创建一个序列，插补号表数据时用*/
    
27. create sequence sttt start with 100000000000000;
    
28. /*以下语句根据最大号表和凭证表数据查出空号，并将其插入到补号表*/
    
29. DECLARE
    
30.   v_orgbook VARCHAR2(20);
    
31.   v_year char(4);
    
32.   v_period char(2);
    
33.   v_vouchertype char(20);
    
34.   CURSOR v_cursor IS
    
35.         SELECT pk_glorgbook,year,period,pk_vouchertype FROM gl_vouchermaxno;
    
36.   v_row v_cursor%ROWTYPE;
    
37.   BEGIN
    
38.      OPEN v_cursor;
    
39.    Loop
    
40.    
    
41.     FETCH v_cursor INTO v_row;
    
42.     v_orgbook := v_row.pk_glorgbook;
    
43.     v_year := v_row.year;
    
44.     v_period :=v_row.period;
    
45.     v_vouchertype := v_row.pk_vouchertype;
    
46.    
    
47.     INSERT INTO gl_vouchernosuppl
    
48.      SELECT 2, b.NO,
    
49.           (SELECT pk_vouchermaxno
    
50.              FROM gl_vouchermaxno
    
51.             WHERE pk_glorgbook = v_orgbook
    
52.             AND YEAR = v_year
    
53.               AND period = v_period
    
54.               AND pk_vouchertype = v_vouchertype),
    
55.           substr(b.pk_glorgbook,16,20) || sttt.NEXTVAL, ts
    
56.      FROM (SELECT a.n AS NO, ts, voucher.pk_voucher,a.pk_glorgbook, nosuppl.pk_vouchermaxno
    
57.              FROM (SELECT ROWNUM AS n, ts AS ts, v_orgbook as pk_glorgbook
    
58.                      FROM gl_voucher
    
59.                     WHERE ROWNUM <=
    
60.                              (SELECT maxno
    
61.                                 FROM gl_vouchermaxno
    
62.                                WHERE pk_glorgbook = v_orgbook
    
63.                                  AND YEAR = v_year
    
64.                                  AND period = v_period
    
65.                                  AND pk_vouchertype = v_vouchertype) and gl_voucher.dr=0) a
    
66.                   LEFT OUTER JOIN
    
67.                   (SELECT pk_voucher, NO
    
68.                      FROM gl_voucher
    
69.                     WHERE gl_voucher.pk_glorgbook = v_orgbook
    
70.                       AND gl_voucher.YEAR = v_year
    
71.                       AND gl_voucher.period = v_period
    
72.                       AND gl_voucher.pk_vouchertype = v_vouchertype
    
73.                       AND gl_voucher.dr = 0) voucher ON voucher.NO = a.n
    
74.                   LEFT OUTER JOIN
    
75.                   (SELECT NO, pk_vouchermaxno
    
76.                      FROM gl_vouchernosuppl
    
77.                     WHERE gl_vouchernosuppl.pk_vouchermaxno =
    
78.                              (SELECT pk_vouchermaxno
    
79.                                 FROM gl_vouchermaxno
    
80.                                WHERE pk_glorgbook = v_orgbook
    
81.                                  AND YEAR = v_year
    
82.                                  AND period = v_period
    
83.                                  AND pk_vouchertype = v_vouchertype)) nosuppl
    
84.                   ON a.n = nosuppl.NO
    
85.                   ) b
    
86.     WHERE b.pk_voucher IS NULL AND pk_vouchermaxno IS NULL;
    
87.     EXIT WHEN v_cursor%NOTFOUND;
    
88.    
    
89.     end Loop;
    
90.     close v_cursor;
    
91.     end;
    
92. /*删除序列*/
    
93.     drop sequence sttt      

复制代码