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 OR REPLACE VIEW money.non_drawer_payment_view AS
 672         SELECT  p.*, c.relname AS payment_type
 673           FROM  money.bnm_payment p
 674                         JOIN pg_class c ON p.tableoid = c.oid
 675           WHERE c.relname NOT IN ('cash_payment','check_payment','credit_card_payment');
 676
 677 CREATE OR REPLACE VIEW money.cashdrawer_payment_view AS
 678         SELECT  ou.id AS org_unit,
 679                 ws.id AS cashdrawer,
 680                 t.payment_type AS payment_type,
 681                 p.payment_ts AS payment_ts,
 682                 p.amount AS amount,
 683                 p.voided AS voided,
 684                 p.note AS note
 685           FROM  actor.org_unit ou
 686                 JOIN actor.workstation ws ON (ou.id = ws.owning_lib)
 687                 LEFT JOIN money.bnm_desk_payment p ON (ws.id = p.cash_drawer)
 688                 LEFT JOIN money.payment_view t ON (p.id = t.id);
 689
 690
 691 -- Create 'aged' clones of billing and payment_view tables
 692 CREATE TABLE money.aged_payment (LIKE money.payment INCLUDING INDEXES);
 693 ALTER TABLE money.aged_payment ADD COLUMN payment_type TEXT NOT NULL;
 694
 695 CREATE TABLE money.aged_billing (LIKE money.billing INCLUDING INDEXES);
 696
 697 CREATE OR REPLACE VIEW money.all_payments AS
 698     SELECT * FROM money.payment_view
 699     UNION ALL
 700     SELECT * FROM money.aged_payment;
 701
 702 CREATE OR REPLACE VIEW money.all_billings AS
 703     SELECT * FROM money.billing
 704     UNION ALL
 705     SELECT * FROM money.aged_billing;
 706
 707 COMMIT;
 708