|
Lines 130-143
foreach my $order (@$orders) {
Link Here
|
| 130 |
); |
130 |
); |
| 131 |
my $line = get_infos( $order, $bookseller); |
131 |
my $line = get_infos( $order, $bookseller); |
| 132 |
|
132 |
|
| 133 |
$foot{$$line{gstgsti}}{gstrate} = $$line{gstrate}; |
133 |
$foot{$$line{gstrate}}{gstrate} = $$line{gstrate}; |
| 134 |
$foot{$$line{gstgsti}}{gstvalue} += $$line{gstvalue}; |
134 |
$foot{$$line{gstrate}}{gstvalue} += $$line{gstvalue}; |
| 135 |
$total_gstvalue += $$line{gstvalue}; |
135 |
$total_gstvalue += $$line{gstvalue}; |
| 136 |
$foot{$$line{gstgsti}}{quantity} += $$line{quantity}; |
136 |
$foot{$$line{gstrate}}{quantity} += $$line{quantity}; |
| 137 |
$total_quantity += $$line{quantity}; |
137 |
$total_quantity += $$line{quantity}; |
| 138 |
$foot{$$line{gstgsti}}{totalgste} += $$line{totalgste}; |
138 |
$foot{$$line{gstrate}}{totalgste} += $$line{totalgste}; |
| 139 |
$total_gste += $$line{totalgste}; |
139 |
$total_gste += $$line{totalgste}; |
| 140 |
$foot{$$line{gstgsti}}{totalgsti} += $$line{totalgsti}; |
140 |
$foot{$$line{gstrate}}{totalgsti} += $$line{totalgsti}; |
| 141 |
$total_gsti += $$line{totalgsti}; |
141 |
$total_gsti += $$line{totalgsti}; |
| 142 |
|
142 |
|
| 143 |
$line->{orderline} = $line->{parent_ordernumber}; |
143 |
$line->{orderline} = $line->{parent_ordernumber}; |
| 144 |
- |
|
|