View | Details | Raw Unified | Return to bug 12976
Collapse All | Expand All

(-)a/acqui/invoice.pl (-6 / +5 lines)
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
- 

Return to bug 12976