use base qw/money/;
__PACKAGE__->table('money_billing');
__PACKAGE__->columns(Primary => 'id');
-__PACKAGE__->columns(Essential => qw/xact amount billing_ts note void/);
+__PACKAGE__->columns(Essential => qw/xact amount billing_ts note voided/);
#-------------------------------------------------------------------------------
package money::payment;
amount NUMERIC(6,2) NOT NULL,
billing_ts TIMESTAMP WITH TIME ZONE NOT NULL DEFAULT NOW(),
note TEXT,
- void BOOL NOT NULL DEFALUT FALSE
+ voided BOOL NOT NULL DEFALUT FALSE
);
CREATE INDEX m_b_xact_idx ON money.billing (xact);
amount NUMERIC(6,2) NOT NULL,
payment_ts TIMESTAMP WITH TIME ZONE NOT NULL DEFAULT NOW(),
note TEXT,
- void BOOL NOT NULL DEFALUT FALSE
+ voided BOOL NOT NULL DEFALUT FALSE
);
CREATE INDEX m_p_xact_idx ON money.payment (xact);
MAX(debit.billing_ts) AS last_billing_ts,
SUM(COALESCE(debit.amount,0) - COALESCE(credit.amount,0)) AS balance_owed
FROM money.billable_xact xact
- LEFT JOIN money.billing debit ON (xact.id = debit.xact AND debit.void IS FALSE)
- LEFT JOIN money.payment credit ON (xact.id = credit.xact AND credit.void IS FALSE)
+ LEFT JOIN money.billing debit ON (xact.id = debit.xact AND debit.voided IS FALSE)
+ LEFT JOIN money.payment credit ON (xact.id = credit.xact AND credit.voided IS FALSE)
WHERE xact.xact_finish IS NULL
GROUP BY 1,2,3,4;
my $fine = $session->request(
'open-ils.storage.direct.money.billing.search',
- { xact => $c->id, void => 'f' },
+ { xact => $c->id, voided => 'f' },
{ order_by => 'billing_ts DESC', limit => '1' }
)->gather(1);