1 package Koha::Cash::Register::Action;
3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
24 use base qw(Koha::Object);
30 Koha::Cash::Register::Action - Koha cashregister::action Object class
40 Return the manager linked to this cash register::action
46 my $rs = $self->_result->manager;
48 return Koha::Patron->_new_from_dbic($rs);
53 Return the register linked to this cash register::action
59 my $rs = $self->_result->register;
61 return Koha::Cash::Register->_new_from_dbic($rs);
66 my $cashup_summary = $action->cashup_summary;
68 Return a hashref containing a summary of transactions that make up this cashup action.
75 my $prior_cashup = Koha::Cash::Register::Actions->search(
78 'timestamp' => { '<' => $self->timestamp },
79 register_id => $self->register_id
82 order_by => { '-desc' => [ 'timestamp', 'id' ] },
87 my $previous = $prior_cashup->single;
94 [ $previous->_result->get_column('timestamp'), $self->timestamp ]
97 : { 'date' => { '<' => $self->timestamp } };
99 my $outgoing_transactions = $self->register->accountlines->search(
100 { %{$conditions}, credit_type_code => undef },
102 my $income_transactions = $self->register->accountlines->search(
103 { %{$conditions}, debit_type_code => undef },
106 my $income_summary = Koha::Account::Offsets->search(
109 { '-in' => $income_transactions->_resultset->get_column('accountlines_id')->as_query },
110 'me.debit_id' => { '!=' => undef }
113 join => { 'debit' => 'debit_type_code' },
114 group_by => [ 'debit.debit_type_code', 'debit_type_code.description' ],
115 'select' => [ { sum => 'me.amount' }, 'debit.debit_type_code', 'debit_type_code.description' ],
116 'as' => [ 'total', 'debit_type_code', 'debit_description' ],
120 my $outgoing_summary = Koha::Account::Offsets->search(
123 { '-in' => $outgoing_transactions->_resultset->get_column('accountlines_id')->as_query },
124 'me.credit_id' => { '!=' => undef }
127 join => { 'credit' => 'credit_type_code' },
128 group_by => [ 'credit.credit_type_code', 'credit_type_code.description' ],
129 'select' => [ { sum => 'me.amount' }, 'credit.credit_type_code', 'credit_type_code.description' ],
130 'as' => [ 'total', 'credit_type_code', 'credit_description' ],
136 total => $_->get_column('total'),
137 debit_type_code => $_->get_column('debit_type_code'),
138 debit_type => { description => $_->get_column('debit_description') }
140 } $income_summary->as_list;
143 total => $_->get_column('total'),
144 credit_type_code => $_->get_column('credit_type_code'),
145 credit_type => { description => $_->get_column('credit_description') }
147 } $outgoing_summary->as_list;
150 from_date => $previous ? $previous->timestamp : undef,
151 to_date => $self->timestamp,
153 outgoing => \@outgoing,
154 income_transactions => $income_transactions,
155 outgoing_transactions => $outgoing_transactions,
161 =head2 Internal methods
170 return 'CashRegisterAction';
177 Martin Renvoize <martin.renvoize@ptfs-europe.com>