|
Lines 334-340
if ( $op eq 'delete_confirm' ) {
Link Here
|
| 334 |
my $cur = GetCurrency(); |
334 |
my $cur = GetCurrency(); |
| 335 |
|
335 |
|
| 336 |
|
336 |
|
| 337 |
my @results = GetOrders( $basketno ); |
337 |
my @orders = GetOrders( $basketno ); |
| 338 |
my @books_loop; |
338 |
my @books_loop; |
| 339 |
|
339 |
|
| 340 |
my @book_foot_loop; |
340 |
my @book_foot_loop; |
|
Lines 343-349
if ( $op eq 'delete_confirm' ) {
Link Here
|
| 343 |
my $total_gste = 0; |
343 |
my $total_gste = 0; |
| 344 |
my $total_gsti = 0; |
344 |
my $total_gsti = 0; |
| 345 |
my $total_gstvalue = 0; |
345 |
my $total_gstvalue = 0; |
| 346 |
for my $order (@results) { |
346 |
for my $order (@orders) { |
|
|
347 |
$order = C4::Acquisition::populate_order_with_prices({ order => $order, booksellerid => $booksellerid, ordering => 1 }); |
| 347 |
my $line = get_order_infos( $order, $bookseller); |
348 |
my $line = get_order_infos( $order, $bookseller); |
| 348 |
if ( $line->{uncertainprice} ) { |
349 |
if ( $line->{uncertainprice} ) { |
| 349 |
$template->param( uncertainprices => 1 ); |
350 |
$template->param( uncertainprices => 1 ); |
|
Lines 351-357
if ( $op eq 'delete_confirm' ) {
Link Here
|
| 351 |
|
352 |
|
| 352 |
push @books_loop, $line; |
353 |
push @books_loop, $line; |
| 353 |
|
354 |
|
| 354 |
$foot{$$line{gstgsti}}{gstgsti} = $$line{gstgsti}; |
355 |
$foot{$$line{gstgsti}}{gstrate} = $$line{gstrate}; |
| 355 |
$foot{$$line{gstgsti}}{gstvalue} += $$line{gstvalue}; |
356 |
$foot{$$line{gstgsti}}{gstvalue} += $$line{gstvalue}; |
| 356 |
$total_gstvalue += $$line{gstvalue}; |
357 |
$total_gstvalue += $$line{gstvalue}; |
| 357 |
$foot{$$line{gstgsti}}{quantity} += $$line{quantity}; |
358 |
$foot{$$line{gstgsti}}{quantity} += $$line{quantity}; |
|
Lines 365-373
if ( $op eq 'delete_confirm' ) {
Link Here
|
| 365 |
push @book_foot_loop, map {$_} values %foot; |
366 |
push @book_foot_loop, map {$_} values %foot; |
| 366 |
|
367 |
|
| 367 |
# Get cancelled orders |
368 |
# Get cancelled orders |
| 368 |
@results = GetCancelledOrders($basketno); |
369 |
my @cancelledorders = GetCancelledOrders($basketno); |
| 369 |
my @cancelledorders_loop; |
370 |
my @cancelledorders_loop; |
| 370 |
for my $order (@results) { |
371 |
for my $order (@cancelledorders) { |
| 371 |
my $line = get_order_infos( $order, $bookseller); |
372 |
my $line = get_order_infos( $order, $bookseller); |
| 372 |
push @cancelledorders_loop, $line; |
373 |
push @cancelledorders_loop, $line; |
| 373 |
} |
374 |
} |
|
Lines 375-381
if ( $op eq 'delete_confirm' ) {
Link Here
|
| 375 |
my $contract = GetContract({ |
376 |
my $contract = GetContract({ |
| 376 |
contractnumber => $basket->{contractnumber} |
377 |
contractnumber => $basket->{contractnumber} |
| 377 |
}); |
378 |
}); |
| 378 |
my @orders = GetOrders($basketno); |
|
|
| 379 |
|
379 |
|
| 380 |
if ($basket->{basketgroupid}){ |
380 |
if ($basket->{basketgroupid}){ |
| 381 |
$basketgroup = GetBasketgroup($basket->{basketgroupid}); |
381 |
$basketgroup = GetBasketgroup($basket->{basketgroupid}); |
|
Lines 446-473
sub get_order_infos {
Link Here
|
| 446 |
$line{order_received} = ( $qty == $order->{'quantityreceived'} ); |
446 |
$line{order_received} = ( $qty == $order->{'quantityreceived'} ); |
| 447 |
$line{basketno} = $basketno; |
447 |
$line{basketno} = $basketno; |
| 448 |
$line{budget_name} = $budget->{budget_name}; |
448 |
$line{budget_name} = $budget->{budget_name}; |
| 449 |
$line{rrp} = ConvertCurrency( $order->{'currency'}, $line{rrp} ); # FIXME from comm |
|
|
| 450 |
if ( $bookseller->{'listincgst'} ) { |
| 451 |
$line{rrpgsti} = sprintf( "%.2f", $line{rrp} ); |
| 452 |
$line{gstgsti} = sprintf( "%.2f", $line{gstrate} * 100 ); |
| 453 |
$line{rrpgste} = sprintf( "%.2f", $line{rrp} / ( 1 + ( $line{gstgsti} / 100 ) ) ); |
| 454 |
$line{gstgste} = sprintf( "%.2f", $line{gstgsti} / ( 1 + ( $line{gstgsti} / 100 ) ) ); |
| 455 |
$line{ecostgsti} = sprintf( "%.2f", $line{ecost} ); |
| 456 |
$line{ecostgste} = sprintf( "%.2f", $line{ecost} / ( 1 + ( $line{gstgsti} / 100 ) ) ); |
| 457 |
$line{gstvalue} = sprintf( "%.2f", ( $line{ecostgsti} - $line{ecostgste} ) * $line{quantity}); |
| 458 |
$line{totalgste} = sprintf( "%.2f", $order->{quantity} * $line{ecostgste} ); |
| 459 |
$line{totalgsti} = sprintf( "%.2f", $order->{quantity} * $line{ecostgsti} ); |
| 460 |
} else { |
| 461 |
$line{rrpgsti} = sprintf( "%.2f", $line{rrp} * ( 1 + ( $line{gstrate} ) ) ); |
| 462 |
$line{rrpgste} = sprintf( "%.2f", $line{rrp} ); |
| 463 |
$line{gstgsti} = sprintf( "%.2f", $line{gstrate} * 100 ); |
| 464 |
$line{gstgste} = sprintf( "%.2f", $line{gstrate} * 100 ); |
| 465 |
$line{ecostgsti} = sprintf( "%.2f", $line{ecost} * ( 1 + ( $line{gstrate} ) ) ); |
| 466 |
$line{ecostgste} = sprintf( "%.2f", $line{ecost} ); |
| 467 |
$line{gstvalue} = sprintf( "%.2f", ( $line{ecostgsti} - $line{ecostgste} ) * $line{quantity}); |
| 468 |
$line{totalgste} = sprintf( "%.2f", $order->{quantity} * $line{ecostgste} ); |
| 469 |
$line{totalgsti} = sprintf( "%.2f", $order->{quantity} * $line{ecostgsti} ); |
| 470 |
} |
| 471 |
|
449 |
|
| 472 |
if ( $line{uncertainprice} ) { |
450 |
if ( $line{uncertainprice} ) { |
| 473 |
$line{rrpgste} .= ' (Uncertain)'; |
451 |
$line{rrpgste} .= ' (Uncertain)'; |