- -

Till reconciliation

- -

Search between two dates -

- - -

Payments

- - - - - - - - - - - - - - - [% FOREACH loop IN loop1 %] - - - - - - - - - - - - [% END %] -

Library	Date/time	Surname	First name	Description	Charge type	Invoice amount	Payment type	Payment amount
[% loop.branch %]	[% loop.datetime %]	[% loop.surname %]	[% loop.firstname %]	[% loop.description %]	[% loop.accounttype %]	[% loop.amount %]	[% loop.type %]	[% loop.value %]

- -

- Total amount paid: [% totalpaid %] -

- - -

Credits

- - - - - - - - - - - - - [% FOREACH loop IN loop2 %] - - - - - - - - - - [% END %] -

Library	Date/time	Surname	First name	Description	Charge type	Invoice amount
[% loop.creditbranch %]	[% loop.creditdate %]	[% loop.creditsurname %]	[% loop.creditfirstname %]	[% loop.creditdescription %]	[% loop.creditaccounttype %]	[% loop.creditamount %]

Total amount credits: [% totalcredits %]
Total number written off: [% totalwritten %] charges

- - -

Refunds

- - - - - - - - - - - - - [% FOREACH loop IN loop3 %] - - - - - - - - - - [% END %] -

Library	Date/time	Surname	First name	Description	Charge type	Invoice amount
[% loop.refundbranch %]	[% loop.refunddate %]	[% loop.refundsurname %]	[% loop.refundfirstname %]	[% loop.refunddescription %]	[% loop.refundaccounttype %]	[% loop.refundamount %]

Total amount refunds: [% totalrefund %]
Total amount of cash collected: [% totalcash %]

-[% INCLUDE 'reports-menu.inc' %] -

-[% INCLUDE 'intranet-bottom.inc' %] diff --git a/reports/stats.screen.pl b/reports/stats.screen.pl deleted file mode 100755 index 9ce4fe8917..0000000000 --- a/reports/stats.screen.pl +++ /dev/null @@ -1,265 +0,0 @@ -#!/usr/bin/perl - -# Copyright Katipo Communications 2006 -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it -# under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 3 of the License, or -# (at your option) any later version. -# -# Koha is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with Koha; if not, see . - - -use strict; -#use warnings; FIXME - Bug 2505 -use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth; -use C4::Context; -use C4::Stats; -use C4::Accounts; -use C4::Debug; -use Date::Manip; - -my $input = new CGI; -my $time = $input->param('time'); -my $time2 = $input->param('time2'); -my $op = $input->param('submit'); - -my ( $template, $loggedinuser, $cookie ) = get_template_and_user( - { - template_name => "reports/stats_screen.tt", - query => $input, - type => "intranet", - flagsrequired => { reports => '*' }, - } -); - -( $time = "today" ) if !$time; -( $time2 = "tomorrow" ) if !$time2; - -my $date = ParseDate($time); -my $date2 = ParseDate($time2); -$date = UnixDate( $date, '%Y-%m-%d' ); -$date2 = UnixDate( $date2, '%Y-%m-%d' ); -$debug and warn "MASON: TIME: $time, $time2"; -$debug and warn "MASON: DATE: $date, $date2"; - -# get a list of every payment -my @payments = TotalPaid( $date, $date2 ); - -my $count = @payments; - -$debug and warn "MASON: number of payments=$count\n"; - -my $i = 0; -my $totalcharges = 0; -my $totalcredits = 0; -my $totalpaid = 0; -my $totalwritten = 0; -my @loop1; -my @loop2; - -# lets get a a list of all individual item charges paid for by that payment - -foreach my $payment (@payments) { - - my @charges; - if ( $payment->{'type'} ne 'writeoff' ) { - - @charges = getcharges( - $payment->{'borrowernumber'}, - $payment->{'timestamp'}, - $payment->{'proccode'} - ); - $totalcharges++; - my $count = @charges; - - # getting each of the charges and putting them into a array to be printed out - #this loops per charge per person - for ( my $i2 = 0 ; $i2 < $count ; $i2++ ) { - my $hour = substr( $payment->{'timestamp'}, 8, 2 ); - my $min = substr( $payment->{'timestamp'}, 10, 2 ); - my $sec = substr( $payment->{'timestamp'}, 12, 2 ); - my $time = "$hour:$min:$sec"; - my $time2 = "$payment->{'date'}"; - - # my $branch=Getpaidbranch($time2,$payment->{'borrowernumber'}); - my $branch = $payment->{'branch'}; - - # lets build up a row - my %rows1 = ( - branch => $branch, - datetime => $payment->{'datetime'}, - surname => $payment->{'surname'}, - firstname => $payment->{'firstname'}, - description => $charges[$i2]->{'description'}, - accounttype => $charges[$i2]->{'accounttype'}, - amount => sprintf( "%.2f", $charges[$i2]->{'amount'} ) - , # rounding amounts to 2dp - type => $payment->{'type'}, - value => sprintf( "%.2f", $payment->{'value'} ) - ); # rounding amounts to 2dp - - push( @loop1, \%rows1 ); - - } - $totalpaid = $totalpaid + $payment->{'value'}; - $debug and warn "totalpaid = $totalpaid"; - } - else { - ++$totalwritten; - } - -} - -#get credits and append to the bottom of payments -my @credits = getcredits( $date, $date2 ); - -my $count = @credits; -my $i = 0; - -while ( $i < $count ) { - - my %rows2 = ( - creditbranch => $credits[$i]->{'branchcode'}, - creditdate => $credits[$i]->{'date'}, - creditsurname => $credits[$i]->{'surname'}, - creditfirstname => $credits[$i]->{'firstname'}, - creditdescription => $credits[$i]->{'description'}, - creditaccounttype => $credits[$i]->{'accounttype'}, - creditamount => sprintf( "%.2f", $credits[$i]->{'amount'} ) - ); - - push( @loop2, \%rows2 ); - $totalcredits = $totalcredits + $credits[$i]->{'amount'}; - $i++; #increment the while loop -} - -#takes off first char minus sign "-100.00" -$totalcredits = substr( $totalcredits, 1 ); - -my $totalrefunds = 0; -my @loop3; -my @refunds = getrefunds( $date, $date2 ); -$count = @refunds; -$i = 0; - -while ( $i < $count ) { - - my %rows3 = ( - refundbranch => $refunds[$i]->{'branchcode'}, - refunddate => $refunds[$i]->{'datetime'}, - refundsurname => $refunds[$i]->{'surname'}, - refundfirstname => $refunds[$i]->{'firstname'}, - refunddescription => $refunds[$i]->{'description'}, - refundaccounttype => $refunds[$i]->{'accounttype'}, - refundamount => sprintf( "%.2f", $refunds[$i]->{'amount'} ) - ); - - push( @loop3, \%rows3 ); - $totalrefunds = $totalrefunds + $refunds[$i]->{'amount'}; - $i++; #increment the while loop -} - -my $totalcash = $totalpaid - $totalrefunds; - -if ( $op eq 'To Excel' ) { - - my $csv = Text::CSV_XS->new( - { - 'quote_char' => '"', - 'escape_char' => '"', - 'sep_char' => ',', - 'binary' => 1 - } - ); - - print $input->header( - -type => 'application/vnd.ms-excel', - -attachment => "stats.csv", - ); - print -"Branch, Datetime, Surname, Firstnames, Description, Type, Invoice amount, Payment type, Payment Amount\n"; - - $DB::single = 1; - - for my $row (@loop1) { - my @array = ( - $row->{'branch'}, $row->{'datetime'}, - $row->{'surname'}, $row->{'firstname'}, - $row->{'description'}, $row->{'accounttype'}, - $row->{'amount'}, $row->{'type'}, - $row->{'value'} - ); - - $csv->combine(@array); - my $string = $csv->string(@array); - print $string, "\n"; - } - print ",,,,,,,\n"; - print -"Branch, Date/time, Surname, Firstname, Description, Charge Type, Invoice Amount\n"; - - for my $row (@loop2) { - - my @array = ( - $row->{'creditbranch'}, $row->{'creditdate'}, - $row->{'creditsurname'}, $row->{'creditfirstname'}, - $row->{'creditdescription'}, $row->{'creditaccounttype'}, - $row->{'creditamount'} - ); - - $csv->combine(@array); - my $string = $csv->string(@array); - print $string, "\n"; - } - print ",,,,,,,\n"; - print -"Branch, Date/time, Surname, Firstname, Description, Charge Type, Invoice Amount\n"; - - for my $row (@loop3) { - my @array = ( - $row->{'refundbranch'}, $row->{'refunddate'}, - $row->{'refundsurname'}, $row->{'refundfirstname'}, - $row->{'refunddescription'}, $row->{'refundaccounttype'}, - $row->{'refundamount'} - ); - - $csv->combine(@array); - my $string = $csv->string(@array); - print $string, "\n"; - - } - - print ",,,,,,,\n"; - print ",,,,,,,\n"; - print ",,Total Amount Paid, $totalpaid\n"; - print ",,Total Number Written, $totalwritten\n"; - print ",,Total Amount Credits, $totalcredits\n"; - print ",,Total Amount Refunds, $totalrefunds\n"; -} -else { - $template->param( - date => $time, - date2 => $time2, - loop1 => \@loop1, - loop2 => \@loop2, - loop3 => \@loop3, - totalpaid => $totalpaid, - totalcredits => $totalcredits, - totalwritten => $totalwritten, - totalrefund => $totalrefunds, - totalcash => $totalcash, - ); - output_html_with_http_headers $input, $cookie, $template->output; -} - -- 2.39.5