View | Details | Raw Unified | Return to bug 18471
Collapse All | Expand All

(-)a/acqui/finishreceive.pl (+3 lines)
Lines 31-36 use C4::Biblio; Link Here
31 
use C4::Items;
 31 
use C4::Items;
32 
use C4::Search;
 32 
use C4::Search;
33 

          33
          

        

            

              
              
              34
              
use Koha::Number::Price;

            

        

          34
          
use Koha::Acquisition::Booksellers;

          35
          
use Koha::Acquisition::Booksellers;

        

        

          35
          

          36
          

        

        

          36
          
use List::MoreUtils qw/any/;

          37
          
use List::MoreUtils qw/any/;

        

  

    
      
            Lines 57-62
          my $bookfund         = $input->param("bookfund");
      
      
        Link Here
      
    
  

        

          57
          
my $order            = GetOrder($ordernumber);

          58
          
my $order            = GetOrder($ordernumber);

        

        

          58
          
my $new_ordernumber  = $ordernumber;

          59
          
my $new_ordernumber  = $ordernumber;

        

        

          59
          

          60
          

        

            

              
              
              61
              
$unitprice = Koha::Number::Price->new( $unitprice )->unformat();

            

            

              62
              

            

        

          60
          
#need old receivedate if we update the order, parcel.pl only shows the right parcel this way FIXME

          63
          
#need old receivedate if we update the order, parcel.pl only shows the right parcel this way FIXME

        

        

          61
          
if ($quantityrec > $origquantityrec ) {

          64
          
if ($quantityrec > $origquantityrec ) {

        

        

          62
          
    my @received_items = ();

          65
          
    my @received_items = ();

        



(-)a/acqui/invoice.pl
      (-3 / +2 lines)




  

    
      
            Lines 124-131
          my $total_tax_value = 0;
      
      
        Link Here
      
    
  

        

          124
          
foreach my $order (@$orders) {

          124
          
foreach my $order (@$orders) {

        

        

          125
          
    my $line = get_infos( $order, $bookseller);

          125
          
    my $line = get_infos( $order, $bookseller);

        

        

          126
          

          126
          

        

          
            

              127
              
    $line->{total_tax_excluded} = Koha::Number::Price->new( $line->{unitprice_tax_excluded} * $line->{quantity} )->format;


              127
              
    $line->{total_tax_excluded} = $line->{unitprice_tax_excluded} * $line->{quantity};

            

            

              128
              
    $line->{total_tax_included} = Koha::Number::Price->new( $line->{unitprice_tax_included} * $line->{quantity} )->format;


              128
              
    $line->{total_tax_included} = $line->{unitprice_tax_included} * $line->{quantity};

            

        

          129
          

          129
          

        

        

          130
          
    $line->{tax_value} = $line->{tax_value_on_receiving};

          130
          
    $line->{tax_value} = $line->{tax_value_on_receiving};

        

        

          131
          
    $line->{tax_rate} = $line->{tax_rate_on_receiving};

          131
          
    $line->{tax_rate} = $line->{tax_rate_on_receiving};

        

            

              132
              
- 

              
              
            






  

  Return to bug 18471