Bug 6934: New features, note added to transaction information, total caculated for...
[koha.git] / reports / cash_register_stats.pl
1 #!/usr/bin/perl
2 #
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation;
8 #
9 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
10 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
11 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
12 #
13 # You should have received a copy of the GNU General Public License along
14 # with Koha; if not, write to the Free Software Foundation, Inc.,
15 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
16
17 use Modern::Perl;
18 use C4::Auth;
19 use CGI;
20 use C4::Context;
21 use C4::Reports;
22 use C4::Output;
23 use C4::Koha;
24 use C4::Circulation;
25 use DateTime;
26 use Koha::DateUtils;
27 use C4::Budgets qw/GetCurrency GetCurrencies/;
28 #use Data::Dumper;
29 #use Smart::Comments;
30
31 my $input            = new CGI;
32 my $dbh              = C4::Context->dbh;
33 my $fullreportname   = "reports/cash_register_stats.tt";
34
35 my ($template, $borrowernumber, $cookie) = get_template_and_user({
36     template_name => $fullreportname,
37     query => $input,
38     type => "intranet",
39     authnotrequired => 0,
40     flagsrequired => {reports => '*'},
41     debug => 1,
42 });
43
44 my $do_it            = $input->param('do_it');
45 my $output           = $input->param("output");
46 my $basename         = $input->param("basename");
47 my $transaction_type = $input->param("transaction_type") || 'ACT';
48 my $manager_branchcode       = $input->param("branch") || C4::Context->userenv->{'branch'};
49 our $sep = $input->param("sep") // ',';
50 $sep = "\t" if ($sep eq 'tabulation');
51
52 $template->param(
53     do_it => $do_it,
54     CGIsepChoice => GetDelimiterChoices,
55 );
56
57 #Initialize date pickers to today
58 my $fromDate = dt_from_string;
59 my $toDate   = dt_from_string;
60 ### fromdate today: $fromDate
61
62 my $query_manualinv = "SELECT id, authorised_value FROM authorised_values WHERE category = 'MANUAL_INV'";
63 my $sth_manualinv = $dbh->prepare($query_manualinv) or die "Unable to prepare query" . $dbh->errstr;
64 $sth_manualinv->execute() or die "Unable to execute query " . $sth_manualinv->errstr;
65 my $manualinv_types = $sth_manualinv->fetchall_arrayref({});
66
67 ### $manualinv_types
68
69 if ($do_it) {
70
71     $fromDate = output_pref({ dt => eval { dt_from_string($input->param("filter_date_begin")) } || dt_from_string,
72             dateformat => 'sql', dateonly => 1 }); #for sql query
73     $toDate   = output_pref({ dt => eval { dt_from_string($input->param("filter_date_end")) } || dt_from_string,
74             dateformat => 'sql', dateonly => 1 }); #for sql query
75
76     my $whereTType = '';
77
78     if ($transaction_type eq 'ALL') { #All Transactons
79         $whereTType = '';
80     } elsif ($transaction_type eq 'ACT') { #Active
81         $whereTType = " accounttype NOT IN ('F', 'FU', 'FOR', 'M', 'L') AND ";
82     } else { #Single transac type
83         if ($transaction_type eq 'FORW') {
84             $whereTType = " accounttype = 'FOR' OR accounttype = 'W' AND ";
85         } else {
86             $whereTType = " accounttype = '$transaction_type' AND ";
87         }
88     }
89
90     my $whereBranchCode = '';
91     if ($manager_branchcode ne 'ALL') {
92         $whereBranchCode = "AND m.branchcode = '$manager_branchcode'";
93     }
94
95     ### $transaction_type;
96
97     my $query = "
98     SELECT round(amount,2) AS amount, description,
99         bo.surname AS bsurname, bo.firstname AS bfirstname, m.surname AS msurname, m.firstname AS mfirstname,
100         bo.cardnumber, br.branchname, bo.borrowernumber,
101         al.borrowernumber, DATE(al.date) as date, al.accounttype, al.amountoutstanding, al.note,
102         bi.title, bi.biblionumber, i.barcode, i.itype
103         FROM accountlines al
104         LEFT JOIN borrowers bo ON (al.borrowernumber = bo.borrowernumber)
105         LEFT JOIN borrowers m ON (al.manager_id = m.borrowernumber)
106         LEFT JOIN branches br ON (br.branchcode = m.branchcode )
107         LEFT JOIN items i ON (i.itemnumber = al.itemnumber)
108         LEFT JOIN biblio bi ON (bi.biblionumber = i.biblionumber)
109         WHERE $whereTType
110         CAST(al.date AS DATE) BETWEEN ? AND ?
111         $whereBranchCode
112         ORDER BY al.date
113     ";
114     my $sth_stats = $dbh->prepare($query) or die "Unable to prepare query" . $dbh->errstr;
115     $sth_stats->execute($fromDate, $toDate) or die "Unable to execute query " . $sth_stats->errstr;
116
117     my @loopresult;
118     my $grantotal = 0;
119     while ( my $row = $sth_stats->fetchrow_hashref()) {
120         $row->{amountoutstanding} = 0 if (!$row->{amountoutstanding});
121         #if ((abs($row->{amount}) - $row->{amountoutstanding}) > 0) {
122             $row->{amount} = sprintf("%.2f", abs ($row->{amount}));
123             $row->{date} = dt_from_string($row->{date}, 'sql');
124             ### date : $row->{date}
125
126             push (@loopresult, $row);
127             if($transaction_type eq 'ACT' && ($row->{accounttype} !~ /^C$|^CR$|^LR$|^Pay$/)){
128                 pop @loopresult;
129                 next;
130             }
131             if($row->{accounttype} =~ /^C$|^CR$|^LR$/){
132                 $grantotal -= abs($row->{amount});
133                 $row->{amount} = '-' . $row->{amount};
134             }elsif($row->{accounttype} eq 'FORW' || $row->{accounttype} eq 'W'){
135             }else{
136                 $grantotal += abs($row->{amount});
137             }
138         #}
139     }
140
141     my @currency = GetCurrency();
142     $grantotal = sprintf("%.2f", $grantotal);
143
144     if($output eq 'screen'){
145         $template->param(
146             loopresult => \@loopresult,
147             total => $grantotal,
148         );
149     } else{
150         binmode STDOUT, ':encoding(UTF-8)';
151         print $input->header(
152             -type => 'application/vnd.sun.xml.calc',
153             -encoding => 'utf-8',
154             -name => "$basename.csv",
155             -attachment => "$basename.csv"
156         );
157
158         print "Manager name".$sep;
159         print "Borrower cardnumber".$sep;
160         print "Borrower name".$sep;
161         print "Branch".$sep;
162         print "Transaction date".$sep;
163         print "Transaction type".$sep;
164         print "Amount".$sep;
165         print "Biblio title".$sep;
166         print "Barcode".$sep;
167         print "Document type"."\n";
168
169         foreach my $item (@loopresult){
170             print $item->{mfirstname}. ' ' . $item->{msurname} . $sep;
171             print $item->{cardnumber}.$sep;
172             print $item->{bfirstname}. ' ' . $item->{bsurname} . $sep;
173             print $item->{branchname}.$sep;
174             print $item->{date}.$sep;
175             print $item->{accounttype}.$sep;
176             print $item->{amount}.$sep;
177             print $item->{title}.$sep;
178             print $item->{barcode}.$sep;
179             print $item->{itype}."\n";
180         }
181
182         print $sep x 6;
183         print $grantotal."\n";
184         exit(1);
185     }
186
187 }
188
189 ### fromdate final: $fromDate
190 ### toDate final: $toDate
191 $template->param(
192     beginDate        => dt_from_string($fromDate),
193     endDate          => dt_from_string($toDate),
194     transaction_type => $transaction_type,
195     branchloop       => C4::Branch::GetBranchesLoop($manager_branchcode),
196     manualinv_types  => $manualinv_types,
197     CGIsepChoice => GetDelimiterChoices,
198 );
199
200 output_html_with_http_headers $input, $cookie, $template->output;
201
202 1;