|
Lines 64-70
SELECT
Link Here
|
| 64 |
aqinvoices.invoicenumber, |
64 |
aqinvoices.invoicenumber, |
| 65 |
quantityreceived, |
65 |
quantityreceived, |
| 66 |
unitprice, |
66 |
unitprice, |
| 67 |
datereceived |
67 |
datereceived, |
|
|
68 |
aqbooksellers.name as vendorname |
| 68 |
FROM (aqorders, aqbasket) |
69 |
FROM (aqorders, aqbasket) |
| 69 |
LEFT JOIN biblio ON |
70 |
LEFT JOIN biblio ON |
| 70 |
biblio.biblionumber=aqorders.biblionumber |
71 |
biblio.biblionumber=aqorders.biblionumber |
|
Lines 74-79
LEFT JOIN items ON
Link Here
|
| 74 |
aqorders_items.itemnumber = items.itemnumber |
75 |
aqorders_items.itemnumber = items.itemnumber |
| 75 |
LEFT JOIN aqinvoices ON |
76 |
LEFT JOIN aqinvoices ON |
| 76 |
aqorders.invoiceid = aqinvoices.invoiceid |
77 |
aqorders.invoiceid = aqinvoices.invoiceid |
|
|
78 |
LEFT JOIN aqbooksellers ON |
| 79 |
aqbasket.booksellerid = aqbooksellers.id |
| 77 |
WHERE |
80 |
WHERE |
| 78 |
aqorders.basketno=aqbasket.basketno AND |
81 |
aqorders.basketno=aqbasket.basketno AND |
| 79 |
budget_id=? AND |
82 |
budget_id=? AND |
|
Lines 93-100
while ( my $data = $sth->fetchrow_hashref ) {
Link Here
|
| 93 |
my $recv = $data->{'quantityreceived'}; |
96 |
my $recv = $data->{'quantityreceived'}; |
| 94 |
if ( $recv > 0 ) { |
97 |
if ( $recv > 0 ) { |
| 95 |
my $rowtotal = $recv * $data->{'unitprice'}; |
98 |
my $rowtotal = $recv * $data->{'unitprice'}; |
| 96 |
$data->{'rowtotal'} = sprintf( "%.2f", $rowtotal ); |
99 |
$data->{'rowtotal'} = $rowtotal; |
| 97 |
$data->{'unitprice'} = sprintf( "%.2f", $data->{'unitprice'} ); |
|
|
| 98 |
$subtotal += $rowtotal; |
100 |
$subtotal += $rowtotal; |
| 99 |
push @spent, $data; |
101 |
push @spent, $data; |
| 100 |
} |
102 |
} |
|
Lines 112-118
$sth->execute($bookfund);
Link Here
|
| 112 |
my @shipmentcosts; |
114 |
my @shipmentcosts; |
| 113 |
while (my $data = $sth->fetchrow_hashref) { |
115 |
while (my $data = $sth->fetchrow_hashref) { |
| 114 |
push @shipmentcosts, { |
116 |
push @shipmentcosts, { |
| 115 |
shipmentcost => sprintf("%.2f", $data->{shipmentcost}), |
117 |
shipmentcost => $data->{shipmentcost}, |
| 116 |
invoicenumber => $data->{invoicenumber} |
118 |
invoicenumber => $data->{invoicenumber} |
| 117 |
}; |
119 |
}; |
| 118 |
$total += $data->{shipmentcost}; |
120 |
$total += $data->{shipmentcost}; |
|
Lines 124-131
while ( my $adj = $adjustments->next ){
Link Here
|
| 124 |
$total += $adj->adjustment; |
126 |
$total += $adj->adjustment; |
| 125 |
} |
127 |
} |
| 126 |
|
128 |
|
| 127 |
$total = sprintf( "%.2f", $total ); |
|
|
| 128 |
|
| 129 |
$template->param( |
129 |
$template->param( |
| 130 |
fund => $bookfund, |
130 |
fund => $bookfund, |
| 131 |
spent => \@spent, |
131 |
spent => \@spent, |