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 my @loop_orders = ();
 184 unless( defined $invoice->{closedate} ) {
 185     my $pendingorders;
 186     if ( $op eq "search" or $sticky_filters ) {
 187         my ( $search, $ean, $basketname, $orderno, $basketgroupname );
 188         if ( $sticky_filters ) {
 189             $search = $input->cookie("filter_parcel_summary");
 190             $ean = $input->cookie("filter_parcel_ean");
 191             $basketname = $input->cookie("filter_parcel_basketname");
 192             $orderno = $input->cookie("filter_parcel_orderno");
 193             $basketgroupname = $input->cookie("filter_parcel_basketgroupname");
 194         } else {
 195             $search   = $input->param('summaryfilter') || '';
 196             $ean      = $input->param('eanfilter') || '';
 197             $basketname = $input->param('basketfilter') || '';
 198             $orderno  = $input->param('orderfilter') || '';
 199             $basketgroupname = $input->param('basketgroupnamefilter') || '';
 200         }
 201         $pendingorders = SearchOrders({
 202             booksellerid => $booksellerid,
 203             basketname => $basketname,
 204             ordernumber => $orderno,
 205             search => $search,
 206             ean => $ean,
 207             basketgroupname => $basketgroupname,
 208             pending => 1,
 209             ordered => 1,
 210         });
 211         $template->param(
 212             summaryfilter => $search,
 213             eanfilter => $ean,
 214             basketfilter => $basketname,
 215             orderfilter => $orderno,
 216             basketgroupnamefilter => $basketgroupname,
 217         );
 218     }else{
 219         $pendingorders = SearchOrders({
 220             booksellerid => $booksellerid,
 221             ordered => 1
 222         });
 223     }
 224     my $countpendings = scalar @$pendingorders;
 225
 226     for (my $i = 0 ; $i < $countpendings ; $i++) {
 227         my $order = $pendingorders->[$i];
 228
 229         if ( $bookseller->invoiceincgst ) {
 230             $order->{ecost} = $order->{ecost_tax_included};
 231         } else {
 232             $order->{ecost} = $order->{ecost_tax_excluded};
 233         }
 234         $order->{total} = get_rounded_price($order->{ecost}) * $order->{quantity};
 235
 236         my %line = %$order;
 237
 238         $line{invoice} = $invoice;
 239         $line{booksellerid} = $booksellerid;
 240
 241         my $biblionumber = $line{'biblionumber'};
 242         my $biblio = Koha::Biblios->find( $biblionumber );
 243         my $countbiblio = $biblio ? $biblio->active_orders->count : 0;
 244         my $ordernumber = $line{'ordernumber'};
 245         my $order_object = Koha::Acquisition::Orders->find($ordernumber);
 246         my $cnt_subscriptions = $biblio ? $biblio->subscriptions->count: 0;
 247         my $itemcount   = $biblio ? $biblio->items->count : 0;
 248         my $holds_count = $biblio ? $biblio->holds->count : 0;
 249         my @itemnumbers = $order_object->items->get_column('itemnumber');
 250         my $itemholds = $biblio ? $biblio->holds->search({ itemnumber => { -in => \@itemnumbers } })->count : 0;
 251
 252         my $suggestion   = GetSuggestionInfoFromBiblionumber($line{biblionumber});
 253         $line{suggestionid}         = $suggestion->{suggestionid};
 254         $line{surnamesuggestedby}   = $suggestion->{surnamesuggestedby};
 255         $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
 256
 257         # if the biblio is not in other orders and if there is no items elsewhere and no subscriptions and no holds we can then show the link "Delete order and Biblio" see bug 5680
 258         $line{can_del_bib}          = 1 if $countbiblio <= 1 && $itemcount == scalar @itemnumbers && !($cnt_subscriptions) && !($holds_count);
 259         $line{items}                = ($itemcount) - (scalar @itemnumbers);
 260         $line{left_item}            = 1 if $line{items} >= 1;
 261         $line{left_biblio}          = 1 if $countbiblio > 1;
 262         $line{biblios}              = $countbiblio - 1;
 263         $line{left_subscription}    = 1 if $cnt_subscriptions;
 264         $line{subscriptions}        = $cnt_subscriptions;
 265         $line{left_holds}           = ($holds_count >= 1) ? 1 : 0;
 266         $line{left_holds_on_order}  = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds );
 267         $line{holds}                = $holds_count;
 268         $line{holds_on_order}       = $itemholds?$itemholds:$holds_count if $line{left_holds_on_order};
 269         $line{basket}               = Koha::Acquisition::Baskets->find( $line{basketno} );
 270
 271         my $budget_name = GetBudgetName( $line{budget_id} );
 272         $line{budget_name} = $budget_name;
 273
 274         push @loop_orders, \%line;
 275     }
 276
 277     $template->param(
 278         loop_orders  => \@loop_orders,
 279     );
 280 }
 281
 282 $template->param(
 283     invoiceid             => $invoice->{invoiceid},
 284     invoice               => $invoice->{invoicenumber},
 285     invoiceclosedate      => $invoice->{closedate},
 286     shipmentdate         => $invoice->{shipmentdate},
 287     name                  => $bookseller->name,
 288     booksellerid          => $bookseller->id,
 289     loop_received         => \@loop_received,
 290     loop_orders           => \@loop_orders,
 291     book_foot_loop        => \@book_foot_loop,
 292     (uc(C4::Context->preference("marcflavour"))) => 1,
 293     total_tax_excluded    => $total_tax_excluded,
 294     total_tax_included    => $total_tax_included,
 295     subtotal_for_funds    => $subtotal_for_funds,
 296     sticky_filters        => $sticky_filters,
 297 );
 298 output_html_with_http_headers $input, $cookie, $template->output;