acqui/parcel.pl

   1 #!/usr/bin/perl
   2
   3 #script to receive orders
   4
   5
   6 # Copyright 2000-2002 Katipo Communications
   7 # Copyright 2008-2009 BibLibre SARL
   8 #
   9 # This file is part of Koha.
  10 #
  11 # Koha is free software; you can redistribute it and/or modify it
  12 # under the terms of the GNU General Public License as published by
  13 # the Free Software Foundation; either version 3 of the License, or
  14 # (at your option) any later version.
  15 #
  16 # Koha is distributed in the hope that it will be useful, but
  17 # WITHOUT ANY WARRANTY; without even the implied warranty of
  18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  19 # GNU General Public License for more details.
  20 #
  21 # You should have received a copy of the GNU General Public License
  22 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  23
  24 =head1 NAME
  25
  26 parcel.pl
  27
  28 =head1 DESCRIPTION
  29
  30 This script shows all orders receipt or pending for a given supplier.
  31 It allows to write an order as 'received' when it arrives.
  32
  33 =head1 CGI PARAMETERS
  34
  35 =over 4
  36
  37 =item booksellerid
  38
  39 To know the supplier this script has to show orders.
  40
  41 =item code
  42
  43 is the bookseller invoice number.
  44
  45
  46 =item gst
  47
  48
  49 =item datereceived
  50
  51 To filter the results list on this given date.
  52
  53 =back
  54
  55 =cut
  56
  57 use Modern::Perl;
  58
  59 use C4::Auth;
  60 use C4::Acquisition;
  61 use C4::Budgets;
  62 use C4::Biblio;
  63 use C4::Items;
  64 use CGI qw ( -utf8 );
  65 use C4::Output;
  66 use C4::Suggestions;
  67
  68 use Koha::Acquisition::Baskets;
  69 use Koha::Acquisition::Bookseller;
  70 use Koha::Acquisition::Orders;
  71 use Koha::Biblios;
  72 use Koha::DateUtils;
  73 use Koha::Biblios;
  74
  75 use JSON;
  76
  77 my $input=CGI->new;
  78 my $sticky_filters = $input->param('sticky_filters') || 0;
  79
  80 my ($template, $loggedinuser, $cookie)
  81     = get_template_and_user({template_name => "acqui/parcel.tt",
  82                  query => $input,
  83                  type => "intranet",
  84                  flagsrequired => {acquisition => 'order_receive'},
  85                  debug => 1,
  86 });
  87
  88 my $op = $input->param('op') // '';
  89
  90 # process cancellation first so that list of
  91 # orders to display is calculated after
  92 if ($op eq 'cancelreceipt') {
  93     my $ordernumber = $input->param('ordernumber');
  94     my $parent_ordernumber = CancelReceipt($ordernumber);
  95     unless($parent_ordernumber) {
  96         $template->param(error_cancelling_receipt => 1);
  97     }
  98 }
  99
 100 my $invoiceid = $input->param('invoiceid');
 101 my $invoice;
 102 $invoice = GetInvoiceDetails($invoiceid) if $invoiceid;
 103
 104 unless( $invoiceid and $invoice->{invoiceid} ) {
 105     $template->param(
 106         error_invoice_not_known => 1,
 107         no_orders_to_display    => 1
 108     );
 109     output_html_with_http_headers $input, $cookie, $template->output;
 110     exit;
 111 }
 112
 113 my $booksellerid = $invoice->{booksellerid};
 114 my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
 115
 116 my @orders        = @{ $invoice->{orders} };
 117 my $countlines    = scalar @orders;
 118 my @loop_received = ();
 119 my @book_foot_loop;
 120 my %foot;
 121 my $total_tax_excluded = 0;
 122 my $total_tax_included = 0;
 123
 124 my $subtotal_for_funds;
 125 for my $order ( @orders ) {
 126     $order->{'unitprice'} += 0;
 127
 128     my $order_object = Koha::Acquisition::Orders->find($order->{ordernumber});
 129     if ( $bookseller->invoiceincgst ) {
 130         $order->{ecost}     = $order->{ecost_tax_included};
 131         $order->{unitprice} = $order->{unitprice_tax_included};
 132     }
 133     else {
 134         $order->{ecost}     = $order->{ecost_tax_excluded};
 135         $order->{unitprice} = $order->{unitprice_tax_excluded};
 136     }
 137
 138     $order->{total} = get_rounded_price($order->{unitprice}) * $order->{quantity};
 139
 140     my %line = %{ $order };
 141     $line{invoice} = $invoice->{invoicenumber};
 142     my @itemnumbers = $order_object->items->get_column('itemnumber');
 143     my $biblio = Koha::Biblios->find( $line{biblionumber} );
 144     $line{total_holds} = $biblio ? $biblio->holds->count : 0;
 145     $line{item_holds} = $biblio ? $biblio->current_holds->search(
 146         {
 147             itemnumber => { -in => \@itemnumbers },
 148         }
 149     )->count : 0;
 150     $line{budget} = GetBudgetByOrderNumber( $line{ordernumber} );
 151
 152     $line{tax_value} = $line{tax_value_on_receiving};
 153     $line{tax_rate} = $line{tax_rate_on_receiving};
 154     $foot{$line{tax_rate}}{tax_rate} = $line{tax_rate};
 155     $foot{$line{tax_rate}}{tax_value} += $line{tax_value};
 156     $total_tax_excluded += get_rounded_price($line{unitprice_tax_excluded}) * $line{quantity};
 157     $total_tax_included += get_rounded_price($line{unitprice_tax_included}) * $line{quantity};
 158
 159     my $suggestion   = GetSuggestionInfoFromBiblionumber($line{biblionumber});
 160     $line{suggestionid}         = $suggestion->{suggestionid};
 161     $line{surnamesuggestedby}   = $suggestion->{surnamesuggestedby};
 162     $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
 163
 164     if ( $line{parent_ordernumber} != $line{ordernumber} ) {
 165         if ( grep { $_->{ordernumber} == $line{parent_ordernumber} }
 166             @orders
 167             )
 168         {
 169             $line{cannot_cancel} = 1;
 170         }
 171     }
 172
 173     my $budget_name = GetBudgetName( $line{budget_id} );
 174     $line{budget_name} = $budget_name;
 175
 176     $subtotal_for_funds->{ $line{budget_name} }{ecost} += get_rounded_price($order->{ecost}) * $order->{quantity};
 177     $subtotal_for_funds->{ $line{budget_name} }{unitprice} += $order->{total};
 178
 179     push @loop_received, \%line;
 180 }
 181 push @book_foot_loop, map { $_ } values %foot;
 182
 183 $template->param(
 184     invoiceid             => $invoice->{invoiceid},
 185     invoice               => $invoice->{invoicenumber},
 186     invoiceclosedate      => $invoice->{closedate},
 187     shipmentdate         => $invoice->{shipmentdate},
 188     name                  => $bookseller->name,
 189     booksellerid          => $bookseller->id,
 190     loop_received         => \@loop_received,
 191     book_foot_loop        => \@book_foot_loop,
 192     (uc(C4::Context->preference("marcflavour"))) => 1,
 193     total_tax_excluded    => $total_tax_excluded,
 194     total_tax_included    => $total_tax_included,
 195     subtotal_for_funds    => $subtotal_for_funds,
 196     sticky_filters        => $sticky_filters,
 197 );
 198 output_html_with_http_headers $input, $cookie, $template->output;