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 Text::CSV::Encoded;
  28
  29 my $input            = new CGI;
  30 my $dbh              = C4::Context->dbh;
  31
  32 my ($template, $borrowernumber, $cookie) = get_template_and_user({
  33     template_name => "reports/cash_register_stats.tt",
  34     query => $input,
  35     type => "intranet",
  36     authnotrequired => 0,
  37     flagsrequired => {reports => '*'},
  38     debug => 1,
  39 });
  40
  41 my $do_it            = $input->param('do_it');
  42 my $output           = $input->param("output");
  43 my $basename         = $input->param("basename");
  44 my $transaction_type = $input->param("transaction_type") || 'ACT';
  45 my $manager_branchcode       = $input->param("branch") || C4::Context->userenv->{'branch'};
  46
  47 $template->param(
  48     do_it => $do_it,
  49     CGIsepChoice => GetDelimiterChoices,
  50 );
  51
  52 #Initialize date pickers to today
  53 my $fromDate = dt_from_string;
  54 my $toDate   = dt_from_string;
  55
  56 my $query_manualinv = "SELECT id, authorised_value FROM authorised_values WHERE category = 'MANUAL_INV'";
  57 my $sth_manualinv = $dbh->prepare($query_manualinv) or die "Unable to prepare query" . $dbh->errstr;
  58 $sth_manualinv->execute() or die "Unable to execute query " . $sth_manualinv->errstr;
  59 my $manualinv_types = $sth_manualinv->fetchall_arrayref({});
  60
  61
  62 if ($do_it) {
  63
  64     $fromDate = output_pref({ dt => eval { dt_from_string($input->param("from")) } || dt_from_string,
  65             dateformat => 'sql', dateonly => 1 }); #for sql query
  66     $toDate   = output_pref({ dt => eval { dt_from_string($input->param("to")) } || dt_from_string,
  67             dateformat => 'sql', dateonly => 1 }); #for sql query
  68
  69     my $whereTType = '';
  70
  71     if ($transaction_type eq 'ALL') { #All Transactons
  72         $whereTType = '';
  73     } elsif ($transaction_type eq 'ACT') { #Active
  74         $whereTType = " accounttype IN ('Pay','C') AND ";
  75     } else { #Single transac type
  76         if ($transaction_type eq 'FORW') {
  77             $whereTType = " accounttype = 'FOR' OR accounttype = 'W' AND ";
  78         } else {
  79             $whereTType = " accounttype = '$transaction_type' AND ";
  80         }
  81     }
  82
  83     my $whereBranchCode = '';
  84     if ($manager_branchcode ne 'ALL') {
  85         $whereBranchCode = "AND m.branchcode = '$manager_branchcode'";
  86     }
  87
  88
  89     my $query = "
  90     SELECT round(amount,2) AS amount, description,
  91         bo.surname AS bsurname, bo.firstname AS bfirstname, m.surname AS msurname, m.firstname AS mfirstname,
  92         bo.cardnumber, br.branchname, bo.borrowernumber,
  93         al.borrowernumber, DATE(al.date) as date, al.accounttype, al.amountoutstanding, al.note,
  94         bi.title, bi.biblionumber, i.barcode, i.itype
  95         FROM accountlines al
  96         LEFT JOIN borrowers bo ON (al.borrowernumber = bo.borrowernumber)
  97         LEFT JOIN borrowers m ON (al.manager_id = m.borrowernumber)
  98         LEFT JOIN branches br ON (br.branchcode = m.branchcode )
  99         LEFT JOIN items i ON (i.itemnumber = al.itemnumber)
 100         LEFT JOIN biblio bi ON (bi.biblionumber = i.biblionumber)
 101         WHERE $whereTType
 102         CAST(al.date AS DATE) BETWEEN ? AND ?
 103         $whereBranchCode
 104         ORDER BY al.date
 105     ";
 106     my $sth_stats = $dbh->prepare($query) or die "Unable to prepare query" . $dbh->errstr;
 107     $sth_stats->execute($fromDate, $toDate) or die "Unable to execute query " . $sth_stats->errstr;
 108
 109     my @loopresult;
 110     my $grantotal = 0;
 111     while ( my $row = $sth_stats->fetchrow_hashref()) {
 112         $row->{amountoutstanding} = 0 if (!$row->{amountoutstanding});
 113         #if ((abs($row->{amount}) - $row->{amountoutstanding}) > 0) {
 114             $row->{amount} = sprintf("%.2f", abs ($row->{amount}));
 115             $row->{date} = dt_from_string($row->{date}, 'sql');
 116
 117             push (@loopresult, $row);
 118             if($transaction_type eq 'ACT' && ($row->{accounttype} !~ /^C$|^CR$|^LR$|^Pay$/)){
 119                 pop @loopresult;
 120                 next;
 121             }
 122             if($row->{accounttype} =~ /^C$|^CR$|^LR$/){
 123                 $grantotal -= abs($row->{amount});
 124                 $row->{amount} = '-' . $row->{amount};
 125             }elsif($row->{accounttype} eq 'FORW' || $row->{accounttype} eq 'W'){
 126             }else{
 127                 $grantotal += abs($row->{amount});
 128             }
 129         #}
 130     }
 131
 132     $grantotal = sprintf("%.2f", $grantotal);
 133
 134     if($output eq 'screen'){
 135         $template->param(
 136             loopresult => \@loopresult,
 137             total => $grantotal,
 138         );
 139     } else{
 140         my $format = 'csv';
 141         my $reportname = $input->param('basename');
 142         my $reportfilename = $reportname ? "$reportname.$format" : "reportresults.$format" ;
 143         #my $reportfilename = "$reportname.html" ;
 144         my $delimiter = C4::Context->preference('delimiter') || ',';
 145             my @rows;
 146             foreach my $row (@loopresult) {
 147                 my @rowValues;
 148                 push @rowValues, $row->{mfirstname},
 149                         $row->{cardnumber},
 150                         $row->{bfirstname},
 151                         $row->{branchname},
 152                         $row->{date},
 153                         $row->{accounttype},
 154                         $row->{amount},
 155                         $row->{title},
 156                         $row->{barcode},
 157                         $row->{itype};
 158                     push (@rows, \@rowValues) ;
 159                 }
 160                 my @total;
 161                 for (1..6){push(@total,"")};
 162                 push(@total, $grantotal);
 163         print $input->header(
 164             -type       => 'text/csv',
 165             -encoding    => 'utf-8',
 166             -attachment => $reportfilename,
 167             -name       => $reportfilename
 168          );
 169         my $csvTemplate = C4::Templates::gettemplate('reports/csv/cash_register_stats.tt', 'intranet', $input);
 170             $csvTemplate->param(sep => $delimiter, rows => \@rows, total => \@total );
 171         print $csvTemplate->output;
 172         exit(1);
 173     }
 174
 175 }
 176
 177 $template->param(
 178     beginDate        => $fromDate,
 179     endDate          => $toDate,
 180     transaction_type => $transaction_type,
 181     branchloop       => Koha::Libraries->search({}, { order_by => ['branchname'] })->unblessed,
 182     manualinv_types  => $manualinv_types,
 183     CGIsepChoice => GetDelimiterChoices,
 184 );
 185
 186 output_html_with_http_headers $input, $cookie, $template->output;
 187
 188 1;