|
Lines 208-220
for (my $i = 0 ; $i < $countpendings ; $i++) {
Link Here
|
| 208 |
$totalPqtyrcvd +=$line{quantityreceived}; |
208 |
$totalPqtyrcvd +=$line{quantityreceived}; |
| 209 |
$totalPecost += $line{ecost}; |
209 |
$totalPecost += $line{ecost}; |
| 210 |
$line{ecost} = sprintf("%.2f",$line{ecost}); |
210 |
$line{ecost} = sprintf("%.2f",$line{ecost}); |
| 211 |
$line{ordertotal} = sprintf("%.2f",$line{ecost}*$line{quantity}); |
211 |
$line{ordertotal} = PlaceCurrencySymbol(sprintf("%.2f",$line{ecost}*$line{quantity})); |
| 212 |
$line{unitprice} = sprintf("%.2f",$line{unitprice}); |
212 |
$line{unitprice} = PlaceCurrencySymbol(sprintf("%.2f",$line{unitprice})); |
| 213 |
$line{invoice} = $invoice; |
213 |
$line{invoice} = $invoice; |
| 214 |
$line{gst} = $gst; |
214 |
$line{gst} = $gst; |
| 215 |
$line{total} = $total; |
215 |
$line{total} = $total; |
| 216 |
$line{supplierid} = $supplierid; |
216 |
$line{supplierid} = $supplierid; |
| 217 |
$ordergrandtotal += $line{ecost} * $line{quantity}; |
217 |
$ordergrandtotal += $line{ecost} * $line{quantity}; |
|
|
218 |
$line{ecost} = PlaceCurrencySymbol($line{ecost}); |
| 218 |
|
219 |
|
| 219 |
my $biblionumber = $line{'biblionumber'}; |
220 |
my $biblionumber = $line{'biblionumber'}; |
| 220 |
my $countbiblio = CountBiblioInOrders($biblionumber); |
221 |
my $countbiblio = CountBiblioInOrders($biblionumber); |
|
Lines 299-315
$template->param(
Link Here
|
| 299 |
loop_received => \@loop_received, |
300 |
loop_received => \@loop_received, |
| 300 |
countpending => $countpendings, |
301 |
countpending => $countpendings, |
| 301 |
loop_orders => \@loop_orders, |
302 |
loop_orders => \@loop_orders, |
| 302 |
totalprice => sprintf($cfstr, $totalprice), |
303 |
totalprice => PlaceCurrencySymbol(sprintf($cfstr, $totalprice)), |
| 303 |
totalfreight => $totalfreight, |
304 |
totalfreight => $totalfreight, |
| 304 |
totalquantity => $totalquantity, |
305 |
totalquantity => $totalquantity, |
| 305 |
tototal => sprintf($cfstr, $tototal), |
306 |
tototal => PlaceCurrencySymbol(sprintf($cfstr, $tototal)), |
| 306 |
ordergrandtotal => sprintf($cfstr, $ordergrandtotal), |
307 |
ordergrandtotal => PlaceCurrencySymbol(sprintf($cfstr, $ordergrandtotal)), |
| 307 |
gst => $gst, |
308 |
gst => $gst, |
| 308 |
grandtot => sprintf($cfstr, $tototal + $gst), |
309 |
grandtot => PlaceCurrencySymbol(sprintf($cfstr, $tototal + $gst)), |
| 309 |
totalPunitprice => sprintf("%.2f", $totalPunitprice), |
310 |
totalPunitprice => PlaceCurrencySymbol(sprintf("%.2f", $totalPunitprice)), |
| 310 |
totalPquantity => $totalPquantity, |
311 |
totalPquantity => $totalPquantity, |
| 311 |
totalPqtyrcvd => $totalPqtyrcvd, |
312 |
totalPqtyrcvd => $totalPqtyrcvd, |
| 312 |
totalPecost => sprintf("%.2f", $totalPecost), |
313 |
totalPecost => PlaceCurrencySymbol(sprintf("%.2f", $totalPecost)), |
| 313 |
resultsperpage => $resultsperpage, |
314 |
resultsperpage => $resultsperpage, |
| 314 |
); |
315 |
); |
| 315 |
output_html_with_http_headers $input, $cookie, $template->output; |
316 |
output_html_with_http_headers $input, $cookie, $template->output; |