Lines 147-154
my $gst = $bookseller->{gstrate} // C4::Context->preference("gist") // 0;
Link Here
|
147 |
my $datereceived = C4::Dates->new(); |
147 |
my $datereceived = C4::Dates->new(); |
148 |
|
148 |
|
149 |
my $cfstr = "%.2f"; # currency format string -- could get this from currency table. |
149 |
my $cfstr = "%.2f"; # currency format string -- could get this from currency table. |
150 |
my @parcelitems = @{ $invoice->{orders} }; |
150 |
my @orders = @{ $invoice->{orders} }; |
151 |
my $countlines = scalar @parcelitems; |
151 |
my $countlines = scalar @orders; |
152 |
my $totalprice = 0; |
152 |
my $totalprice = 0; |
153 |
my $totalquantity = 0; |
153 |
my $totalquantity = 0; |
154 |
my $total; |
154 |
my $total; |
Lines 159-179
my $total_quantity = 0;
Link Here
|
159 |
my $total_gste = 0; |
159 |
my $total_gste = 0; |
160 |
my $total_gsti = 0; |
160 |
my $total_gsti = 0; |
161 |
|
161 |
|
162 |
for my $item ( @parcelitems ) { |
162 |
for my $order ( @orders ) { |
163 |
$item->{unitprice} = get_value_with_gst_params( $item->{unitprice}, $item->{gstrate}, $bookseller ); |
163 |
$order->{unitprice} = get_value_with_gst_params( $order->{unitprice}, $order->{gstrate}, $bookseller ); |
164 |
$total = ( $item->{'unitprice'} ) * $item->{'quantityreceived'}; |
164 |
$total = ( $order->{unitprice} ) * $order->{quantityreceived}; |
165 |
$item->{'unitprice'} += 0; |
165 |
$order->{'unitprice'} += 0; |
166 |
my %line = %{ $item }; |
166 |
my %line = %{ $order }; |
167 |
my $ecost = get_value_with_gst_params( $line{ecost}, $line{gstrate}, $bookseller ); |
167 |
my $ecost = get_value_with_gst_params( $line{ecost}, $line{gstrate}, $bookseller ); |
168 |
$line{ecost} = sprintf( "%.2f", $ecost ); |
168 |
$line{ecost} = sprintf( "%.2f", $ecost ); |
169 |
$line{invoice} = $invoice->{invoicenumber}; |
169 |
$line{invoice} = $invoice->{invoicenumber}; |
170 |
$line{total} = sprintf($cfstr, $total); |
170 |
$line{total} = sprintf($cfstr, $total); |
171 |
$line{booksellerid} = $invoice->{booksellerid}; |
171 |
$line{booksellerid} = $invoice->{booksellerid}; |
172 |
my ($count) = &GetReservesFromBiblionumber($line{biblionumber},undef,$item->{itemnumber}); |
172 |
$line{holds} = 0; |
173 |
$line{holds} = $count; |
173 |
my @itemnumbers = GetItemnumbersFromOrder( $order->{ordernumber} ); |
|
|
174 |
for my $itemnumber ( @itemnumbers ) { |
175 |
my ( $count ) = &GetReservesFromBiblionumber($line{biblionumber}, undef, $itemnumber); |
176 |
$line{holds} += $count; |
177 |
} |
174 |
$line{budget} = GetBudgetByOrderNumber( $line{ordernumber} ); |
178 |
$line{budget} = GetBudgetByOrderNumber( $line{ordernumber} ); |
175 |
$totalprice += $item->{'unitprice'}; |
179 |
$totalprice += $order->{unitprice}; |
176 |
$line{unitprice} = sprintf( $cfstr, $item->{'unitprice'} ); |
180 |
$line{unitprice} = sprintf( $cfstr, $order->{unitprice} ); |
177 |
my $gste = get_gste( $line{total}, $line{gstrate}, $bookseller ); |
181 |
my $gste = get_gste( $line{total}, $line{gstrate}, $bookseller ); |
178 |
my $gst = get_gst( $line{total}, $line{gstrate}, $bookseller ); |
182 |
my $gst = get_gst( $line{total}, $line{gstrate}, $bookseller ); |
179 |
$foot{$line{gstrate}}{gstrate} = $line{gstrate}; |
183 |
$foot{$line{gstrate}}{gstrate} = $line{gstrate}; |
Lines 189-195
for my $item ( @parcelitems ) {
Link Here
|
189 |
|
193 |
|
190 |
if ( $line{parent_ordernumber} != $line{ordernumber} ) { |
194 |
if ( $line{parent_ordernumber} != $line{ordernumber} ) { |
191 |
if ( grep { $_->{ordernumber} == $line{parent_ordernumber} } |
195 |
if ( grep { $_->{ordernumber} == $line{parent_ordernumber} } |
192 |
@parcelitems |
196 |
@orders |
193 |
) |
197 |
) |
194 |
{ |
198 |
{ |
195 |
$line{cannot_cancel} = 1; |
199 |
$line{cannot_cancel} = 1; |
Lines 200-206
for my $item ( @parcelitems ) {
Link Here
|
200 |
$line{budget_name} = $budget->{'budget_name'}; |
204 |
$line{budget_name} = $budget->{'budget_name'}; |
201 |
|
205 |
|
202 |
push @loop_received, \%line; |
206 |
push @loop_received, \%line; |
203 |
$totalquantity += $item->{'quantityreceived'}; |
207 |
$totalquantity += $order->{quantityreceived}; |
204 |
|
208 |
|
205 |
} |
209 |
} |
206 |
push @book_foot_loop, map { $_ } values %foot; |
210 |
push @book_foot_loop, map { $_ } values %foot; |