LP1858448 Aged money control flags
[Evergreen.git] / Open-ILS / src / sql / Pg / 080.schema.money.sql
1 /*
2  * Copyright (C) 2004-2008  Georgia Public Library Service
3  * Copyright (C) 2007-2008  Equinox Software, Inc.
4  * Mike Rylander <miker@esilibrary.com> 
5  *
6  * This program is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU General Public License
8  * as published by the Free Software Foundation; either version 2
9  * of the License, or (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  */
17
18 DROP SCHEMA IF EXISTS money CASCADE;
19
20 BEGIN;
21
22 CREATE SCHEMA money;
23
24 CREATE TABLE money.collections_tracker (
25         id              BIGSERIAL                       PRIMARY KEY,
26         usr             INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED, -- actor.usr.id
27         collector       INT                             NOT NULL REFERENCES actor.usr (id) DEFERRABLE INITIALLY DEFERRED,
28         location        INT                             NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
29         enter_time      TIMESTAMP WITH TIME ZONE
30 );
31 CREATE UNIQUE INDEX m_c_t_usr_collector_location_once_idx ON money.collections_tracker (usr, collector, location);
32 CREATE INDEX m_c_t_collector_idx                          ON money.collections_tracker ( collector );
33
34 CREATE TABLE money.billable_xact (
35         id          BIGSERIAL                   PRIMARY KEY,
36         usr         INT                         NOT NULL, -- actor.usr.id
37         xact_start  TIMESTAMP WITH TIME ZONE    NOT NULL DEFAULT NOW(),
38         xact_finish TIMESTAMP WITH TIME ZONE,
39     unrecovered BOOL
40 );
41 CREATE INDEX m_b_x_open_xacts_idx ON money.billable_xact (usr);
42
43 CREATE TABLE money.grocery ( -- Catchall table for local billing
44         billing_location        INT     NOT NULL, -- library creating transaction
45         note                    TEXT
46 ) INHERITS (money.billable_xact);
47 ALTER TABLE money.grocery ADD PRIMARY KEY (id);
48 CREATE INDEX circ_open_date_idx ON "money".grocery (xact_start) WHERE xact_finish IS NULL;
49 CREATE INDEX m_g_usr_idx ON "money".grocery (usr);
50
51 CREATE TABLE money.billing (
52         id              BIGSERIAL                       PRIMARY KEY,
53         xact            BIGINT                          NOT NULL, -- money.billable_xact.id
54         billing_ts      TIMESTAMP WITH TIME ZONE        NOT NULL, -- DEPRECATED, legacy only
55         voided          BOOL                            NOT NULL DEFAULT FALSE,
56         voider          INT,
57         void_time       TIMESTAMP WITH TIME ZONE,
58         amount          NUMERIC(6,2)                    NOT NULL,
59         billing_type    TEXT                            NOT NULL,
60         btype           INT                             NOT NULL REFERENCES config.billing_type (id) ON DELETE RESTRICT DEFERRABLE INITIALLY DEFERRED,
61         note            TEXT,
62         create_date     TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW(),
63         period_start    TIMESTAMP WITH TIME ZONE,
64         period_end      TIMESTAMP WITH TIME ZONE
65 );
66 CREATE INDEX m_b_xact_idx ON money.billing (xact);
67 CREATE INDEX m_b_time_idx ON money.billing (billing_ts);
68 CREATE INDEX m_b_create_date_idx ON money.billing (create_date);
69 CREATE INDEX m_b_period_start_idx ON money.billing (period_start);
70 CREATE INDEX m_b_period_end_idx ON money.billing (period_end);
71 CREATE INDEX m_b_voider_idx ON money.billing (voider); -- helps user merge function speed
72 CREATE OR REPLACE FUNCTION money.maintain_billing_ts () RETURNS TRIGGER AS $$
73 BEGIN
74         NEW.billing_ts := COALESCE(NEW.period_end, NEW.create_date);
75         RETURN NEW;
76 END;
77 $$ LANGUAGE PLPGSQL;
78 CREATE TRIGGER maintain_billing_ts_tgr BEFORE INSERT OR UPDATE ON money.billing FOR EACH ROW EXECUTE PROCEDURE money.maintain_billing_ts();
79
80 CREATE TABLE money.payment (
81         id              BIGSERIAL                       PRIMARY KEY,
82         xact            BIGINT                          NOT NULL, -- money.billable_xact.id
83         payment_ts      TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT NOW(),
84         voided          BOOL                            NOT NULL DEFAULT FALSE,
85         amount          NUMERIC(6,2)                    NOT NULL,
86         note            TEXT
87 );
88 CREATE INDEX m_p_xact_idx ON money.payment (xact);
89 CREATE INDEX m_p_time_idx ON money.payment (payment_ts);
90
91 CREATE OR REPLACE VIEW money.payment_view AS
92         SELECT  p.*,c.relname AS payment_type
93           FROM  money.payment p
94                 JOIN pg_class c ON (p.tableoid = c.oid);
95
96 CREATE OR REPLACE RULE money_payment_view_update AS ON UPDATE TO money.payment_view DO INSTEAD 
97     UPDATE money.payment SET xact = NEW.xact, payment_ts = NEW.payment_ts, voided = NEW.voided, amount = NEW.amount, note = NEW.note WHERE id = NEW.id;
98
99 CREATE OR REPLACE VIEW money.transaction_billing_type_summary AS
100         SELECT  xact,
101                 billing_type AS last_billing_type,
102                 LAST(note) AS last_billing_note,
103                 MAX(billing_ts) AS last_billing_ts,
104                 SUM(COALESCE(amount,0)) AS total_owed
105           FROM  money.billing
106           WHERE voided IS FALSE
107           GROUP BY xact,billing_type
108           ORDER BY MAX(billing_ts);
109
110
111 CREATE OR REPLACE VIEW money.transaction_payment_summary AS
112         SELECT  xact,
113                 LAST(payment_type) AS last_payment_type,
114                 LAST(note) AS last_payment_note,
115                 MAX(payment_ts) as last_payment_ts,
116                 SUM(COALESCE(amount,0)) AS total_paid
117           FROM  money.payment_view
118           WHERE voided IS FALSE
119           GROUP BY xact
120           ORDER BY MAX(payment_ts);
121
122 CREATE OR REPLACE VIEW money.transaction_billing_with_void_summary AS
123         SELECT  xact,
124                 LAST(billing_type) AS last_billing_type,
125                 LAST(note) AS last_billing_note,
126                 MAX(billing_ts) AS last_billing_ts,
127                 SUM(CASE WHEN voided THEN 0 ELSE COALESCE(amount,0) END) AS total_owed
128           FROM  money.billing
129           GROUP BY xact
130           ORDER BY MAX(billing_ts);
131
132 CREATE OR REPLACE VIEW money.transaction_payment_with_void_summary AS
133         SELECT  xact,
134                 LAST(payment_type) AS last_payment_type,
135                 LAST(note) AS last_payment_note,
136                 MAX(payment_ts) as last_payment_ts,
137                 SUM(CASE WHEN voided THEN 0 ELSE COALESCE(amount,0) END) AS total_paid
138           FROM  money.payment_view
139           GROUP BY xact
140           ORDER BY MAX(payment_ts);
141
142 CREATE OR REPLACE VIEW money.open_transaction_billing_type_summary AS
143         SELECT  xact,
144                 billing_type AS last_billing_type,
145                 LAST(note) AS last_billing_note,
146                 MAX(billing_ts) AS last_billing_ts,
147                 SUM(COALESCE(amount,0)) AS total_owed
148           FROM  money.billing
149           WHERE voided IS FALSE
150           GROUP BY xact,billing_type
151           ORDER BY MAX(billing_ts);
152
153 CREATE OR REPLACE VIEW money.open_transaction_billing_summary AS
154         SELECT  xact,
155                 LAST(billing_type) AS last_billing_type,
156                 LAST(note) AS last_billing_note,
157                 MAX(billing_ts) AS last_billing_ts,
158                 SUM(COALESCE(amount,0)) AS total_owed
159           FROM  money.billing
160           WHERE voided IS FALSE
161           GROUP BY xact
162           ORDER BY MAX(billing_ts);
163
164 CREATE OR REPLACE VIEW money.open_transaction_payment_summary AS
165         SELECT  xact,
166                 LAST(payment_type) AS last_payment_type,
167                 LAST(note) AS last_payment_note,
168                 MAX(payment_ts) as last_payment_ts,
169                 SUM(COALESCE(amount,0)) AS total_paid
170           FROM  money.payment_view
171           WHERE voided IS FALSE
172           GROUP BY xact
173           ORDER BY MAX(payment_ts);
174
175 /* Replacing with the one below.
176 CREATE OR REPLACE VIEW money.billable_xact_with_void_summary AS
177         SELECT  xact.id AS id,
178                 xact.usr AS usr,
179                 xact.xact_start AS xact_start,
180                 xact.xact_finish AS xact_finish,
181                 credit.total_paid,
182                 credit.last_payment_ts,
183                 credit.last_payment_note,
184                 credit.last_payment_type,
185                 debit.total_owed,
186                 debit.last_billing_ts,
187                 debit.last_billing_note,
188                 debit.last_billing_type,
189                 COALESCE(debit.total_owed,0) - COALESCE(credit.total_paid,0) AS balance_owed,
190                 p.relname AS xact_type
191           FROM  money.billable_xact xact
192                 JOIN pg_class p ON (xact.tableoid = p.oid)
193                 LEFT JOIN money.transaction_billing_with_void_summary debit ON (xact.id = debit.xact)
194                 LEFT JOIN money.transaction_payment_with_void_summary credit ON (xact.id = credit.xact);
195 */
196
197 CREATE OR REPLACE VIEW money.billable_xact_with_void_summary AS
198         SELECT  xact.id AS id,
199                 xact.usr AS usr,
200                 xact.xact_start AS xact_start,
201                 xact.xact_finish AS xact_finish,
202                 SUM(credit.amount) AS total_paid,
203                 MAX(credit.payment_ts) AS last_payment_ts,
204                 LAST(credit.note) AS last_payment_note,
205                 LAST(credit.payment_type) AS last_payment_type,
206                 SUM(debit.amount) AS total_owed,
207                 MAX(debit.billing_ts) AS last_billing_ts,
208                 LAST(debit.note) AS last_billing_note,
209                 LAST(debit.billing_type) AS last_billing_type,
210                 COALESCE(SUM(debit.amount),0) - COALESCE(SUM(credit.amount),0) AS balance_owed,
211                 p.relname AS xact_type
212           FROM  money.billable_xact xact
213                 JOIN pg_class p ON (xact.tableoid = p.oid)
214                 LEFT JOIN money.billing debit ON (xact.id = debit.xact)
215                 LEFT JOIN money.payment_view credit ON (xact.id = credit.xact)
216           GROUP BY 1,2,3,4,14
217           ORDER BY MAX(debit.billing_ts), MAX(credit.payment_ts);
218
219 CREATE OR REPLACE VIEW money.billable_xact_summary AS
220         SELECT  xact.id,
221                 xact.usr,
222                 xact.xact_start,
223                 xact.xact_finish,
224                 COALESCE(credit.amount, 0.0::numeric) AS total_paid,
225                 credit.payment_ts AS last_payment_ts,
226                 credit.note AS last_payment_note,
227                 credit.payment_type AS last_payment_type,
228                 COALESCE(debit.amount, 0.0::numeric) AS total_owed,
229                 debit.billing_ts AS last_billing_ts,
230                 debit.note AS last_billing_note,
231                 debit.billing_type AS last_billing_type,
232                 COALESCE(debit.amount, 0.0::numeric) - COALESCE(credit.amount, 0.0::numeric) AS balance_owed,
233                 p.relname AS xact_type
234           FROM  money.billable_xact xact
235                 JOIN pg_class p ON xact.tableoid = p.oid
236                 LEFT JOIN (
237                         SELECT  billing.xact,
238                                 sum(billing.amount) AS amount,
239                                 max(billing.billing_ts) AS billing_ts,
240                                 last(billing.note) AS note,
241                                 last(billing.billing_type) AS billing_type
242                           FROM  money.billing
243                           WHERE billing.voided IS FALSE
244                           GROUP BY billing.xact
245                         ) debit ON xact.id = debit.xact
246                 LEFT JOIN (
247                         SELECT  payment_view.xact,
248                                 sum(payment_view.amount) AS amount,
249                                 max(payment_view.payment_ts) AS payment_ts,
250                                 last(payment_view.note) AS note,
251                                 last(payment_view.payment_type) AS payment_type
252                           FROM  money.payment_view
253                           WHERE payment_view.voided IS FALSE
254                           GROUP BY payment_view.xact
255                         ) credit ON xact.id = credit.xact
256           ORDER BY debit.billing_ts, credit.payment_ts;
257
258 CREATE TABLE money.materialized_billable_xact_summary AS
259         SELECT * FROM money.billable_xact_summary WHERE 1=0;
260
261 -- TODO: Define money.materialized_billable_xact_summary w/ explicit columns and
262 -- remove the definition above for money.billable_xact_summary.
263 CREATE OR REPLACE VIEW money.billable_xact_summary AS 
264     SELECT * FROM money.materialized_billable_xact_summary;
265
266 ALTER TABLE money.materialized_billable_xact_summary ADD PRIMARY KEY (id);
267
268 CREATE INDEX money_mat_summary_usr_idx ON money.materialized_billable_xact_summary (usr);
269 CREATE INDEX money_mat_summary_xact_start_idx ON money.materialized_billable_xact_summary (xact_start);
270
271 CREATE OR REPLACE VIEW money.transaction_billing_summary AS
272     SELECT id as xact,
273         last_billing_type,
274         last_billing_note,
275         last_billing_ts,
276         total_owed
277       FROM money.materialized_billable_xact_summary;
278
279 /* AFTER trigger only! */
280 CREATE OR REPLACE FUNCTION money.mat_summary_create () RETURNS TRIGGER AS $$
281 BEGIN
282         INSERT INTO money.materialized_billable_xact_summary (id, usr, xact_start, xact_finish, total_paid, total_owed, balance_owed, xact_type)
283                 VALUES ( NEW.id, NEW.usr, NEW.xact_start, NEW.xact_finish, 0.0, 0.0, 0.0, TG_ARGV[0]);
284         RETURN NEW;
285 END;
286 $$ LANGUAGE PLPGSQL;
287
288 /* BEFORE or AFTER trigger only! */
289 CREATE OR REPLACE FUNCTION money.mat_summary_update () RETURNS TRIGGER AS $$
290 BEGIN
291         UPDATE  money.materialized_billable_xact_summary
292           SET   usr = NEW.usr,
293                 xact_start = NEW.xact_start,
294                 xact_finish = NEW.xact_finish
295           WHERE id = NEW.id;
296         RETURN NEW;
297 END;
298 $$ LANGUAGE PLPGSQL;
299
300 /* AFTER trigger only! */
301 CREATE OR REPLACE FUNCTION money.mat_summary_delete () RETURNS TRIGGER AS $$
302 BEGIN
303         DELETE FROM money.materialized_billable_xact_summary WHERE id = OLD.id;
304         RETURN OLD;
305 END;
306 $$ LANGUAGE PLPGSQL;
307
308 CREATE TRIGGER mat_summary_create_tgr AFTER INSERT ON money.grocery FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_create ('grocery');
309 CREATE TRIGGER mat_summary_change_tgr AFTER UPDATE ON money.grocery FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_update ();
310 CREATE TRIGGER mat_summary_remove_tgr AFTER DELETE ON money.grocery FOR EACH ROW EXECUTE PROCEDURE money.mat_summary_delete ();
311
312
313
314 /* BEFORE or AFTER trigger */
315 CREATE OR REPLACE FUNCTION money.materialized_summary_billing_add () RETURNS TRIGGER AS $$
316 BEGIN
317         IF NOT NEW.voided THEN
318                 UPDATE  money.materialized_billable_xact_summary
319                   SET   total_owed = COALESCE(total_owed, 0.0::numeric) + NEW.amount,
320                         last_billing_ts = NEW.billing_ts,
321                         last_billing_note = NEW.note,
322                         last_billing_type = NEW.billing_type,
323                         balance_owed = balance_owed + NEW.amount
324                   WHERE id = NEW.xact;
325         END IF;
326
327         RETURN NEW;
328 END;
329 $$ LANGUAGE PLPGSQL;
330
331 /* AFTER trigger only! */
332 CREATE OR REPLACE FUNCTION money.materialized_summary_billing_update () RETURNS TRIGGER AS $$
333 DECLARE
334         old_billing     money.billing%ROWTYPE;
335         old_voided      money.billing%ROWTYPE;
336 BEGIN
337
338         SELECT * INTO old_billing FROM money.billing WHERE xact = NEW.xact AND NOT voided ORDER BY billing_ts DESC LIMIT 1;
339         SELECT * INTO old_voided FROM money.billing WHERE xact = NEW.xact ORDER BY billing_ts DESC LIMIT 1;
340
341         IF NEW.voided AND NOT OLD.voided THEN
342                 IF OLD.id = old_voided.id THEN
343                         UPDATE  money.materialized_billable_xact_summary
344                           SET   last_billing_ts = old_billing.billing_ts,
345                                 last_billing_note = old_billing.note,
346                                 last_billing_type = old_billing.billing_type
347                           WHERE id = OLD.xact;
348                 END IF;
349
350                 UPDATE  money.materialized_billable_xact_summary
351                   SET   total_owed = total_owed - NEW.amount,
352                         balance_owed = balance_owed - NEW.amount
353                   WHERE id = NEW.xact;
354
355         ELSIF NOT NEW.voided AND OLD.voided THEN
356
357                 IF OLD.id = old_billing.id THEN
358                         UPDATE  money.materialized_billable_xact_summary
359                           SET   last_billing_ts = old_billing.billing_ts,
360                                 last_billing_note = old_billing.note,
361                                 last_billing_type = old_billing.billing_type
362                           WHERE id = OLD.xact;
363                 END IF;
364
365                 UPDATE  money.materialized_billable_xact_summary
366                   SET   total_owed = total_owed + NEW.amount,
367                         balance_owed = balance_owed + NEW.amount
368                   WHERE id = NEW.xact;
369
370         ELSE
371                 UPDATE  money.materialized_billable_xact_summary
372                   SET   total_owed = total_owed - (OLD.amount - NEW.amount),
373                         balance_owed = balance_owed - (OLD.amount - NEW.amount)
374                   WHERE id = NEW.xact;
375         END IF;
376
377         RETURN NEW;
378 END;
379 $$ LANGUAGE PLPGSQL;
380
381 /* BEFORE trigger only! */
382 CREATE OR REPLACE FUNCTION money.materialized_summary_billing_del () RETURNS TRIGGER AS $$
383 DECLARE
384         prev_billing    money.billing%ROWTYPE;
385         old_billing     money.billing%ROWTYPE;
386 BEGIN
387         SELECT * INTO prev_billing FROM money.billing WHERE xact = OLD.xact AND NOT voided ORDER BY billing_ts DESC LIMIT 1 OFFSET 1;
388         SELECT * INTO old_billing FROM money.billing WHERE xact = OLD.xact AND NOT voided ORDER BY billing_ts DESC LIMIT 1;
389
390         IF OLD.id = old_billing.id THEN
391                 UPDATE  money.materialized_billable_xact_summary
392                   SET   last_billing_ts = prev_billing.billing_ts,
393                         last_billing_note = prev_billing.note,
394                         last_billing_type = prev_billing.billing_type
395                   WHERE id = OLD.xact;
396         END IF;
397
398         IF NOT OLD.voided THEN
399                 UPDATE  money.materialized_billable_xact_summary
400                   SET   total_owed = total_owed - OLD.amount,
401                         balance_owed = balance_owed - OLD.amount
402                   WHERE id = OLD.xact;
403         END IF;
404
405         RETURN OLD;
406 END;
407 $$ LANGUAGE PLPGSQL;
408
409 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.billing FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_billing_add ();
410 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.billing FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_billing_update ();
411 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.billing FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_billing_del ();
412
413
414 /* BEFORE or AFTER trigger */
415 CREATE OR REPLACE FUNCTION money.materialized_summary_payment_add () RETURNS TRIGGER AS $$
416 BEGIN
417         IF NOT NEW.voided THEN
418                 UPDATE  money.materialized_billable_xact_summary
419                   SET   total_paid = COALESCE(total_paid, 0.0::numeric) + NEW.amount,
420                         last_payment_ts = NEW.payment_ts,
421                         last_payment_note = NEW.note,
422                         last_payment_type = TG_ARGV[0],
423                         balance_owed = balance_owed - NEW.amount
424                   WHERE id = NEW.xact;
425         END IF;
426
427         RETURN NEW;
428 END;
429 $$ LANGUAGE PLPGSQL;
430
431 /* AFTER trigger only! */
432 CREATE OR REPLACE FUNCTION money.materialized_summary_payment_update () RETURNS TRIGGER AS $$
433 DECLARE
434         old_payment     money.payment_view%ROWTYPE;
435         old_voided      money.payment_view%ROWTYPE;
436 BEGIN
437
438         SELECT * INTO old_payment FROM money.payment_view WHERE xact = NEW.xact AND NOT voided ORDER BY payment_ts DESC LIMIT 1;
439         SELECT * INTO old_voided FROM money.payment_view WHERE xact = NEW.xact ORDER BY payment_ts DESC LIMIT 1;
440
441         IF NEW.voided AND NOT OLD.voided THEN
442                 IF OLD.id = old_voided.id THEN
443                         UPDATE  money.materialized_billable_xact_summary
444                           SET   last_payment_ts = old_payment.payment_ts,
445                                 last_payment_note = old_payment.note,
446                                 last_payment_type = old_payment.payment_type
447                           WHERE id = OLD.xact;
448                 END IF;
449
450                 UPDATE  money.materialized_billable_xact_summary
451                   SET   total_paid = total_paid - NEW.amount,
452                         balance_owed = balance_owed + NEW.amount
453                   WHERE id = NEW.xact;
454
455         ELSIF NOT NEW.voided AND OLD.voided THEN
456
457                 IF OLD.id = old_payment.id THEN
458                         UPDATE  money.materialized_billable_xact_summary
459                           SET   last_payment_ts = old_payment.payment_ts,
460                                 last_payment_note = old_payment.note,
461                                 last_payment_type = old_payment.payment_type
462                           WHERE id = OLD.xact;
463                 END IF;
464
465                 UPDATE  money.materialized_billable_xact_summary
466                   SET   total_paid = total_paid + NEW.amount,
467                         balance_owed = balance_owed - NEW.amount
468                   WHERE id = NEW.xact;
469
470         ELSE
471                 UPDATE  money.materialized_billable_xact_summary
472                   SET   total_paid = total_paid - (OLD.amount - NEW.amount),
473                         balance_owed = balance_owed + (OLD.amount - NEW.amount)
474                   WHERE id = NEW.xact;
475         END IF;
476
477         RETURN NEW;
478 END;
479 $$ LANGUAGE PLPGSQL;
480
481 /* BEFORE trigger only! */
482 CREATE OR REPLACE FUNCTION money.materialized_summary_payment_del () RETURNS TRIGGER AS $$
483 DECLARE
484         prev_payment    money.payment_view%ROWTYPE;
485         old_payment     money.payment_view%ROWTYPE;
486 BEGIN
487         SELECT * INTO prev_payment FROM money.payment_view WHERE xact = OLD.xact AND NOT voided ORDER BY payment_ts DESC LIMIT 1 OFFSET 1;
488         SELECT * INTO old_payment FROM money.payment_view WHERE xact = OLD.xact AND NOT voided ORDER BY payment_ts DESC LIMIT 1;
489
490         IF OLD.id = old_payment.id THEN
491                 UPDATE  money.materialized_billable_xact_summary
492                   SET   last_payment_ts = prev_payment.payment_ts,
493                         last_payment_note = prev_payment.note,
494                         last_payment_type = prev_payment.payment_type
495                   WHERE id = OLD.xact;
496         END IF;
497
498         IF NOT OLD.voided THEN
499                 UPDATE  money.materialized_billable_xact_summary
500                   SET   total_paid = total_paid - OLD.amount,
501                         balance_owed = balance_owed + OLD.amount
502                   WHERE id = OLD.xact;
503         END IF;
504
505         RETURN OLD;
506 END;
507 $$ LANGUAGE PLPGSQL;
508
509 CREATE OR REPLACE VIEW money.usr_summary AS
510     SELECT 
511         usr, 
512         sum(total_paid) AS total_paid, 
513         sum(total_owed) AS total_owed, 
514         sum(balance_owed) AS balance_owed
515     FROM money.materialized_billable_xact_summary
516     GROUP BY usr;
517
518
519 CREATE OR REPLACE VIEW money.usr_circulation_summary AS
520         SELECT  usr,
521                 SUM(total_paid) AS total_paid,
522                 SUM(total_owed) AS total_owed, 
523                 SUM(balance_owed) AS balance_owed
524           FROM  money.billable_xact_summary
525           WHERE xact_type = 'circulation'
526           GROUP BY 1;
527
528 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('payment');
529 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('payment');
530 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('payment');
531
532 CREATE TABLE money.bnm_payment (
533         amount_collected        NUMERIC(6,2)    NOT NULL,
534         accepting_usr           INT             NOT NULL
535 ) INHERITS (money.payment);
536 ALTER TABLE money.bnm_payment ADD PRIMARY KEY (id);
537
538 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.bnm_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('bnm_payment');
539 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.bnm_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('bnm_payment');
540 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.bnm_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('bnm_payment');
541
542
543 CREATE TABLE money.forgive_payment () INHERITS (money.bnm_payment);
544 ALTER TABLE money.forgive_payment ADD PRIMARY KEY (id);
545 CREATE INDEX money_forgive_id_idx ON money.forgive_payment (id);
546 CREATE INDEX money_forgive_payment_xact_idx ON money.forgive_payment (xact);
547 CREATE INDEX money_forgive_payment_payment_ts_idx ON money.forgive_payment (payment_ts);
548 CREATE INDEX money_forgive_payment_accepting_usr_idx ON money.forgive_payment (accepting_usr);
549
550 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.forgive_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('forgive_payment');
551 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.forgive_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('forgive_payment');
552 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.forgive_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('forgive_payment');
553
554 CREATE TABLE money.account_adjustment (
555     billing BIGINT REFERENCES money.billing (id) ON DELETE SET NULL
556 ) INHERITS (money.bnm_payment);
557 ALTER TABLE money.account_adjustment ADD PRIMARY KEY (id);
558 CREATE INDEX money_adjustment_id_idx ON money.account_adjustment (id);
559 CREATE INDEX money_account_adjustment_xact_idx ON money.account_adjustment (xact);
560 CREATE INDEX money_account_adjustment_bill_idx ON money.account_adjustment (billing);
561 CREATE INDEX money_account_adjustment_payment_ts_idx ON money.account_adjustment (payment_ts);
562 CREATE INDEX money_account_adjustment_accepting_usr_idx ON money.account_adjustment (accepting_usr);
563
564 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.account_adjustment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('account_adjustment');
565 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.account_adjustment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('account_adjustment');
566 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.account_adjustment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('account_adjustment');
567
568
569 CREATE TABLE money.work_payment () INHERITS (money.bnm_payment);
570 ALTER TABLE money.work_payment ADD PRIMARY KEY (id);
571 CREATE INDEX money_work_id_idx ON money.work_payment (id);
572 CREATE INDEX money_work_payment_xact_idx ON money.work_payment (xact);
573 CREATE INDEX money_work_payment_payment_ts_idx ON money.work_payment (payment_ts);
574 CREATE INDEX money_work_payment_accepting_usr_idx ON money.work_payment (accepting_usr);
575
576 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.work_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('work_payment');
577 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.work_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('work_payment');
578 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.work_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('work_payment');
579
580
581 CREATE TABLE money.credit_payment () INHERITS (money.bnm_payment);
582 ALTER TABLE money.credit_payment ADD PRIMARY KEY (id);
583 CREATE INDEX money_credit_id_idx ON money.credit_payment (id);
584 CREATE INDEX money_credit_payment_xact_idx ON money.credit_payment (xact);
585 CREATE INDEX money_credit_payment_payment_ts_idx ON money.credit_payment (payment_ts);
586 CREATE INDEX money_credit_payment_accepting_usr_idx ON money.credit_payment (accepting_usr);
587
588 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.credit_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('credit_payment');
589 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.credit_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('credit_payment');
590 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.credit_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('credit_payment');
591
592
593 CREATE TABLE money.goods_payment () INHERITS (money.bnm_payment);
594 ALTER TABLE money.goods_payment ADD PRIMARY KEY (id);
595 CREATE INDEX money_goods_id_idx ON money.goods_payment (id);
596 CREATE INDEX money_goods_payment_xact_idx ON money.goods_payment (xact);
597 CREATE INDEX money_goods_payment_payment_ts_idx ON money.goods_payment (payment_ts);
598 CREATE INDEX money_goods_payment_accepting_usr_idx ON money.goods_payment (accepting_usr);
599
600 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.goods_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('goods_payment');
601 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.goods_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('goods_payment');
602 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.goods_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('goods_payment');
603
604
605 CREATE TABLE money.bnm_desk_payment (
606         cash_drawer     INT     REFERENCES actor.workstation (id) DEFERRABLE INITIALLY DEFERRED
607 ) INHERITS (money.bnm_payment);
608 ALTER TABLE money.bnm_desk_payment ADD PRIMARY KEY (id);
609
610 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.bnm_desk_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('bnm_desk_payment');
611 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.bnm_desk_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('bnm_desk_payment');
612 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.bnm_desk_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('bnm_desk_payment');
613
614
615 CREATE OR REPLACE VIEW money.desk_payment_view AS
616         SELECT  p.*,c.relname AS payment_type
617           FROM  money.bnm_desk_payment p
618                 JOIN pg_class c ON (p.tableoid = c.oid);
619
620 CREATE OR REPLACE VIEW money.bnm_payment_view AS
621         SELECT  p.*,c.relname AS payment_type
622           FROM  money.bnm_payment p
623                 JOIN pg_class c ON (p.tableoid = c.oid);
624
625 CREATE TABLE money.cash_payment () INHERITS (money.bnm_desk_payment);
626 ALTER TABLE money.cash_payment ADD PRIMARY KEY (id);
627 CREATE INDEX money_cash_id_idx ON money.cash_payment (id);
628 CREATE INDEX money_cash_payment_xact_idx ON money.cash_payment (xact);
629 CREATE INDEX money_cash_payment_ts_idx ON money.cash_payment (payment_ts);
630 CREATE INDEX money_cash_payment_accepting_usr_idx ON money.cash_payment (accepting_usr);
631 CREATE INDEX money_cash_payment_cash_drawer_idx ON money.cash_payment (cash_drawer);
632
633 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.cash_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('cash_payment');
634 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.cash_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('cash_payment');
635 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.cash_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('cash_payment');
636
637
638 CREATE TABLE money.check_payment (
639         check_number    TEXT    NOT NULL
640 ) INHERITS (money.bnm_desk_payment);
641 ALTER TABLE money.check_payment ADD PRIMARY KEY (id);
642 CREATE INDEX money_check_payment_xact_idx ON money.check_payment (xact);
643 CREATE INDEX money_check_id_idx ON money.check_payment (id);
644 CREATE INDEX money_check_payment_ts_idx ON money.check_payment (payment_ts);
645 CREATE INDEX money_check_payment_accepting_usr_idx ON money.check_payment (accepting_usr);
646 CREATE INDEX money_check_payment_cash_drawer_idx ON money.check_payment (cash_drawer);
647
648 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.check_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('check_payment');
649 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.check_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('check_payment');
650 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.check_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('check_payment');
651
652
653 CREATE TABLE money.credit_card_payment (
654     cc_number     TEXT,
655     cc_processor TEXT,
656     cc_order_number TEXT,
657         approval_code   TEXT
658 ) INHERITS (money.bnm_desk_payment);
659 ALTER TABLE money.credit_card_payment ADD PRIMARY KEY (id);
660 CREATE INDEX money_credit_card_payment_xact_idx ON money.credit_card_payment (xact);
661 CREATE INDEX money_credit_card_id_idx ON money.credit_card_payment (id);
662 CREATE INDEX money_credit_card_payment_ts_idx ON money.credit_card_payment (payment_ts);
663 CREATE INDEX money_credit_card_payment_accepting_usr_idx ON money.credit_card_payment (accepting_usr);
664 CREATE INDEX money_credit_card_payment_cash_drawer_idx ON money.credit_card_payment (cash_drawer);
665
666 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.credit_card_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('credit_card_payment');
667 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.credit_card_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('credit_card_payment');
668 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.credit_card_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('credit_card_payment');
669
670
671 CREATE TABLE money.debit_card_payment () INHERITS (money.bnm_desk_payment);
672 ALTER TABLE money.debit_card_payment ADD PRIMARY KEY (id);
673 CREATE INDEX money_debit_card_payment_xact_idx ON money.debit_card_payment (xact);
674 CREATE INDEX money_debit_card_id_idx ON money.debit_card_payment (id);
675 CREATE INDEX money_debit_card_payment_ts_idx ON money.debit_card_payment (payment_ts);
676 CREATE INDEX money_debit_card_payment_accepting_usr_idx ON money.debit_card_payment (accepting_usr);
677 CREATE INDEX money_debit_card_payment_cash_drawer_idx ON money.debit_card_payment (cash_drawer);
678
679 CREATE TRIGGER mat_summary_add_tgr AFTER INSERT ON money.debit_card_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_add ('debit_card_payment');
680 CREATE TRIGGER mat_summary_upd_tgr AFTER UPDATE ON money.debit_card_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_update ('debit_card_payment');
681 CREATE TRIGGER mat_summary_del_tgr BEFORE DELETE ON money.debit_card_payment FOR EACH ROW EXECUTE PROCEDURE money.materialized_summary_payment_del ('debit_card_payment');
682
683
684 CREATE OR REPLACE VIEW money.non_drawer_payment_view AS
685         SELECT  p.*, c.relname AS payment_type
686           FROM  money.bnm_payment p         
687                         JOIN pg_class c ON p.tableoid = c.oid
688           WHERE c.relname NOT IN ('cash_payment','check_payment','credit_card_payment','debit_card_payment');
689
690 CREATE OR REPLACE VIEW money.cashdrawer_payment_view AS
691         SELECT  ou.id AS org_unit,
692                 ws.id AS cashdrawer,
693                 t.payment_type AS payment_type,
694                 p.payment_ts AS payment_ts,
695                 p.amount AS amount,
696                 p.voided AS voided,
697                 p.note AS note
698           FROM  actor.org_unit ou
699                 JOIN actor.workstation ws ON (ou.id = ws.owning_lib)
700                 LEFT JOIN money.bnm_desk_payment p ON (ws.id = p.cash_drawer)
701                 LEFT JOIN money.payment_view t ON (p.id = t.id);
702
703 -- serves as the basis for the aged payments data.
704 CREATE OR REPLACE VIEW money.payment_view_for_aging AS
705     SELECT p.*,
706         bnm.accepting_usr,
707         bnmd.cash_drawer,
708         maa.billing
709     FROM money.payment_view p
710     LEFT JOIN money.bnm_payment bnm ON bnm.id = p.id
711     LEFT JOIN money.bnm_desk_payment bnmd ON bnmd.id = p.id
712     LEFT JOIN money.account_adjustment maa ON maa.id = p.id;
713
714 -- Create 'aged' clones of billing and payment_view tables
715 CREATE TABLE money.aged_payment (LIKE money.payment INCLUDING INDEXES);
716 ALTER TABLE money.aged_payment 
717     ADD COLUMN payment_type TEXT NOT NULL,
718     ADD COLUMN accepting_usr INTEGER,
719     ADD COLUMN cash_drawer INTEGER,
720     ADD COLUMN billing BIGINT;
721
722 CREATE INDEX aged_payment_accepting_usr_idx ON money.aged_payment(accepting_usr);
723 CREATE INDEX aged_payment_cash_drawer_idx ON money.aged_payment(cash_drawer);
724 CREATE INDEX aged_payment_billing_idx ON money.aged_payment(billing);
725
726 CREATE TABLE money.aged_billing (LIKE money.billing INCLUDING INDEXES);
727
728 CREATE OR REPLACE VIEW money.all_payments AS
729     SELECT * FROM money.payment_view_for_aging
730     UNION ALL
731     SELECT * FROM money.aged_payment;
732
733 CREATE OR REPLACE VIEW money.all_billings AS
734     SELECT * FROM money.billing
735     UNION ALL
736     SELECT * FROM money.aged_billing;
737
738 CREATE OR REPLACE FUNCTION money.age_billings_and_payments() RETURNS INTEGER AS $FUNC$
739 -- Age billings and payments linked to transactions which were 
740 -- completed at least 'older_than' time ago.
741 DECLARE
742     xact_id BIGINT;
743     counter INTEGER DEFAULT 0;
744     keep_age INTERVAL;
745 BEGIN
746
747     SELECT value::INTERVAL INTO keep_age FROM config.global_flag 
748         WHERE name = 'history.money.retention_age' AND enabled;
749
750     -- Confirm interval-based aging is enabled.
751     IF keep_age IS NULL THEN RETURN counter; END IF;
752
753     -- Start with non-circulation transactions
754     FOR xact_id IN SELECT DISTINCT(xact.id) FROM money.billable_xact xact
755         -- confirm there is something to age
756         JOIN money.billing mb ON mb.xact = xact.id
757         -- Avoid aging money linked to non-aged circulations.
758         LEFT JOIN action.circulation circ ON circ.id = xact.id
759         WHERE circ.id IS NULL AND AGE(NOW(), xact.xact_finish) > keep_age LOOP
760
761         PERFORM money.age_billings_and_payments_for_xact(xact_id);
762         counter := counter + 1;
763     END LOOP;
764
765     -- Then handle aged circulation money.
766     FOR xact_id IN SELECT DISTINCT(xact.id) FROM action.aged_circulation xact
767         -- confirm there is something to age
768         JOIN money.billing mb ON mb.xact = xact.id
769         WHERE AGE(NOW(), xact.xact_finish) > keep_age LOOP
770
771         PERFORM money.age_billings_and_payments_for_xact(xact_id);
772         counter := counter + 1;
773     END LOOP;
774
775     RETURN counter;
776 END;
777 $FUNC$ LANGUAGE PLPGSQL;
778
779 CREATE OR REPLACE FUNCTION money.age_billings_and_payments_for_xact
780     (xact_id BIGINT) RETURNS VOID AS $FUNC$
781
782     INSERT INTO money.aged_billing
783         SELECT * FROM money.billing WHERE xact = $1;
784
785     INSERT INTO money.aged_payment 
786         SELECT * FROM money.payment_view_for_aging WHERE xact = xact_id;
787
788     DELETE FROM money.payment WHERE xact = $1;
789     DELETE FROM money.billing WHERE xact = $1;
790
791 $FUNC$ LANGUAGE SQL;
792
793 COMMIT;
794