acqui/parcel.pl

   1 #!/usr/bin/perl
   2
   3 #script to recieve 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 under the
  12 # terms of the GNU General Public License as published by the Free Software
  13 # Foundation; either version 2 of the License, or (at your option) any later
  14 # version.
  15 #
  16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  18 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  19 #
  20 # You should have received a copy of the GNU General Public License along
  21 # with Koha; if not, write to the Free Software Foundation, Inc.,
  22 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  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 he 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 strict;
  58 use warnings;
  59
  60 use C4::Auth;
  61 use C4::Acquisition;
  62 use C4::Budgets;
  63 use C4::Bookseller qw/ GetBookSellerFromId /;
  64 use C4::Biblio;
  65 use C4::Items;
  66 use CGI;
  67 use C4::Output;
  68 use C4::Dates qw/format_date format_date_in_iso/;
  69 use C4::Suggestions;
  70 use JSON;
  71
  72 my $input=new CGI;
  73
  74 sub get_value_with_gst_params {
  75     my $value = shift;
  76     my $gstrate = shift;
  77     my $bookseller = shift;
  78     if ( $bookseller->{listincgst} ) {
  79         if ( $bookseller->{invoiceincgst} ) {
  80             return $value;
  81         } else {
  82             return $value / ( 1 + $gstrate );
  83         }
  84     } else {
  85         if ( $bookseller->{invoiceincgst} ) {
  86             return $value * ( 1 + $gstrate );
  87         } else {
  88             return $value;
  89         }
  90     }
  91 }
  92
  93 sub get_gste {
  94     my $value = shift;
  95     my $gstrate = shift;
  96     my $bookseller = shift;
  97     return $bookseller->{invoiceincgst}
  98         ? $value / ( 1 + $gstrate )
  99         : $value;
 100 }
 101
 102 sub get_gst {
 103     my $value = shift;
 104     my $gstrate = shift;
 105     my $bookseller = shift;
 106     return $bookseller->{invoiceincgst}
 107         ? $value / ( 1 + $gstrate ) * $gstrate
 108         : $value * ( 1 + $gstrate ) - $value;
 109 }
 110
 111 my ($template, $loggedinuser, $cookie)
 112     = get_template_and_user({template_name => "acqui/parcel.tmpl",
 113                  query => $input,
 114                  type => "intranet",
 115                  authnotrequired => 0,
 116                  flagsrequired => {acquisition => 'order_receive'},
 117                  debug => 1,
 118 });
 119
 120 my $invoiceid = $input->param('invoiceid');
 121 my $invoice;
 122 $invoice = GetInvoiceDetails($invoiceid) if $invoiceid;
 123
 124 unless( $invoiceid and $invoice->{invoiceid} ) {
 125     $template->param(
 126         error_invoice_not_known => 1,
 127         no_orders_to_display    => 1
 128     );
 129     output_html_with_http_headers $input, $cookie, $template->output;
 130     exit;
 131 }
 132
 133 my $op = $input->param('op') // '';
 134
 135 if ($op eq 'cancelreceipt') {
 136     my $ordernumber = $input->param('ordernumber');
 137     my $parent_ordernumber = CancelReceipt($ordernumber);
 138     unless($parent_ordernumber) {
 139         $template->param(error_cancelling_receipt => 1);
 140     }
 141 }
 142
 143 my $booksellerid = $invoice->{booksellerid};
 144 my $bookseller = GetBookSellerFromId($booksellerid);
 145 my $gst = $bookseller->{gstrate} // C4::Context->preference("gist") // 0;
 146 my $datereceived = C4::Dates->new();
 147
 148 my $cfstr         = "%.2f";                                                           # currency format string -- could get this from currency table.
 149 my @parcelitems   = @{ $invoice->{orders} };
 150 my $countlines    = scalar @parcelitems;
 151 my $totalprice    = 0;
 152 my $totalquantity = 0;
 153 my $total;
 154 my @loop_received = ();
 155 my @book_foot_loop;
 156 my %foot;
 157 my $total_quantity = 0;
 158 my $total_gste = 0;
 159 my $total_gsti = 0;
 160
 161 for my $item ( @parcelitems ) {
 162     $item->{unitprice} = get_value_with_gst_params( $item->{unitprice}, $item->{gstrate}, $bookseller );
 163     $total = ( $item->{'unitprice'} ) * $item->{'quantityreceived'};
 164     $item->{'unitprice'} += 0;
 165     my %line = %{ $item };
 166     my $ecost = get_value_with_gst_params( $line{ecost}, $line{gstrate}, $bookseller );
 167     $line{ecost} = sprintf( "%.2f", $ecost );
 168     $line{invoice} = $invoice->{invoicenumber};
 169     $line{total} = sprintf($cfstr, $total);
 170     $line{booksellerid} = $invoice->{booksellerid};
 171     $totalprice += $item->{'unitprice'};
 172     $line{unitprice} = sprintf( $cfstr, $item->{'unitprice'} );
 173     my $gste = get_gste( $line{total}, $line{gstrate}, $bookseller );
 174     my $gst = get_gst( $line{total}, $line{gstrate}, $bookseller );
 175     $foot{$line{gstrate}}{gstrate} = $line{gstrate};
 176     $foot{$line{gstrate}}{value} += sprintf( "%.2f", $gst );
 177     $total_quantity += $line{quantity};
 178     $total_gste += $gste;
 179     $total_gsti += $gste + $gst;
 180
 181     my $suggestion   = GetSuggestionInfoFromBiblionumber($line{biblionumber});
 182     $line{suggestionid}         = $suggestion->{suggestionid};
 183     $line{surnamesuggestedby}   = $suggestion->{surnamesuggestedby};
 184     $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
 185
 186     if ( $line{parent_ordernumber} != $line{ordernumber} ) {
 187         if ( grep { $_->{ordernumber} == $line{parent_ordernumber} }
 188             @parcelitems )
 189         {
 190             $line{cannot_cancel} = 1;
 191         }
 192     }
 193
 194     my $budget = GetBudget( $line{budget_id} );
 195     $line{budget_name} = $budget->{'budget_name'};
 196
 197     push @loop_received, \%line;
 198     $totalquantity += $item->{'quantityreceived'};
 199
 200 }
 201 push @book_foot_loop, map { $_ } values %foot;
 202
 203 my @loop_orders = ();
 204 if(!defined $invoice->{closedate}) {
 205     my $pendingorders;
 206     if($input->param('op') eq "search"){
 207         my $search   = $input->param('summaryfilter') || '';
 208         my $ean      = $input->param('eanfilter') || '';
 209         my $basketname = $input->param('basketfilter') || '';
 210         my $orderno  = $input->param('orderfilter') || '';
 211         my $basketgroupname = $input->param('basketgroupnamefilter') || '';
 212         $pendingorders = SearchOrders({
 213             booksellerid => $booksellerid,
 214             basketname => $basketname,
 215             ordernumber => $orderno,
 216             search => $search,
 217             ean => $ean,
 218             basketgroupname => $basketgroupname,
 219             pending => 1,
 220         });
 221         $template->param(
 222             summaryfilter => $search,
 223             eanfilter => $ean,
 224             basketfilter => $basketname,
 225             orderfilter => $orderno,
 226             basketgroupnamefilter => $basketgroupname,
 227         );
 228     }else{
 229         $pendingorders = SearchOrders({
 230             booksellerid => $booksellerid,
 231             pending => 1
 232         });
 233     }
 234     my $countpendings = scalar @$pendingorders;
 235
 236     for (my $i = 0 ; $i < $countpendings ; $i++) {
 237         my %line;
 238         %line = %{$pendingorders->[$i]};
 239
 240         my $ecost = get_value_with_gst_params( $line{ecost}, $line{gstrate}, $bookseller );
 241         $line{unitprice} = get_value_with_gst_params( $line{unitprice}, $line{gstrate}, $bookseller );
 242         $line{quantity} += 0;
 243         $line{quantityreceived} += 0;
 244         $line{unitprice}+=0;
 245         $line{ecost} = sprintf( "%.2f", $ecost );
 246         $line{ordertotal} = sprintf( "%.2f", $ecost * $line{quantity} );
 247         $line{unitprice} = sprintf("%.2f",$line{unitprice});
 248         $line{invoice} = $invoice;
 249         $line{booksellerid} = $booksellerid;
 250
 251
 252
 253         my $biblionumber = $line{'biblionumber'};
 254         my $countbiblio = CountBiblioInOrders($biblionumber);
 255         my $ordernumber = $line{'ordernumber'};
 256         my @subscriptions = GetSubscriptionsId ($biblionumber);
 257         my $itemcount = GetItemsCount($biblionumber);
 258         my $holds  = GetHolds ($biblionumber);
 259         my @items = GetItemnumbersFromOrder( $ordernumber );
 260         my $itemholds;
 261         foreach my $item (@items){
 262             my $nb = GetItemHolds($biblionumber, $item);
 263             if ($nb){
 264                 $itemholds += $nb;
 265             }
 266         }
 267
 268         my $suggestion   = GetSuggestionInfoFromBiblionumber($line{biblionumber});
 269         $line{suggestionid}         = $suggestion->{suggestionid};
 270         $line{surnamesuggestedby}   = $suggestion->{surnamesuggestedby};
 271         $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
 272
 273         # 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
 274         $line{can_del_bib}          = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !(@subscriptions) && !($holds);
 275         $line{items}                = ($itemcount) - (scalar @items);
 276         $line{left_item}            = 1 if $line{items} >= 1;
 277         $line{left_biblio}          = 1 if $countbiblio > 1;
 278         $line{biblios}              = $countbiblio - 1;
 279         $line{left_subscription}    = 1 if scalar @subscriptions >= 1;
 280         $line{subscriptions}        = scalar @subscriptions;
 281         $line{left_holds}           = ($holds >= 1) ? 1 : 0;
 282         $line{left_holds_on_order}  = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds );
 283         $line{holds}                = $holds;
 284         $line{holds_on_order}       = $itemholds?$itemholds:$holds if $line{left_holds_on_order};
 285
 286         my $budget = GetBudget( $line{budget_id} );
 287         $line{budget_name} = $budget->{'budget_name'};
 288
 289         push @loop_orders, \%line;
 290     }
 291
 292     $template->param(
 293         loop_orders  => \@loop_orders,
 294     );
 295 }
 296
 297 $template->param(
 298     invoiceid             => $invoice->{invoiceid},
 299     invoice               => $invoice->{invoicenumber},
 300     invoiceclosedate      => $invoice->{closedate},
 301     datereceived          => $datereceived->output('iso'),
 302     invoicedatereceived   => $datereceived->output('iso'),
 303     formatteddatereceived => $datereceived->output(),
 304     name                  => $bookseller->{'name'},
 305     booksellerid          => $bookseller->{id},
 306     countreceived         => $countlines,
 307     loop_received         => \@loop_received,
 308     loop_orders           => \@loop_orders,
 309     book_foot_loop        => \@book_foot_loop,
 310     totalprice            => sprintf($cfstr, $totalprice),
 311     totalquantity         => $totalquantity,
 312     (uc(C4::Context->preference("marcflavour"))) => 1,
 313     total_quantity       => $total_quantity,
 314     total_gste           => sprintf( "%.2f", $total_gste ),
 315     total_gsti           => sprintf( "%.2f", $total_gsti ),
 316 );
 317 output_html_with_http_headers $input, $cookie, $template->output;