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 |
- |
|
|