Lines 124-140
my $subtotal_for_funds;
Link Here
|
124 |
for my $order ( @orders ) { |
124 |
for my $order ( @orders ) { |
125 |
$order->{'unitprice'} += 0; |
125 |
$order->{'unitprice'} += 0; |
126 |
|
126 |
|
127 |
if ( $bookseller->{listincgst} and not $bookseller->{invoiceincgst} ) { |
127 |
if ( $bookseller->{invoiceincgst} ) { |
128 |
$order->{ecost} = $order->{ecost_tax_excluded}; |
|
|
129 |
$order->{unitprice} = $order->{unitprice_tax_excluded}; |
130 |
} |
131 |
elsif ( not $bookseller->{listinct} and $bookseller->{invoiceincgst} ) { |
132 |
$order->{ecost} = $order->{ecost_tax_included}; |
128 |
$order->{ecost} = $order->{ecost_tax_included}; |
133 |
$order->{unitprice} = $order->{unitprice_tax_included}; |
129 |
$order->{unitprice} = $order->{unitprice_tax_included}; |
134 |
} else { |
130 |
} |
135 |
$order->{ecost} = $order->{ecost_tax_excluded}; |
131 |
else { |
|
|
132 |
$order->{ecost} = $order->{ecost_tax_excluded}; |
136 |
$order->{unitprice} = $order->{unitprice_tax_excluded}; |
133 |
$order->{unitprice} = $order->{unitprice_tax_excluded}; |
137 |
} |
134 |
} |
|
|
135 |
|
138 |
$order->{total} = $order->{unitprice} * $order->{quantity}; |
136 |
$order->{total} = $order->{unitprice} * $order->{quantity}; |
139 |
|
137 |
|
140 |
my %line = %{ $order }; |
138 |
my %line = %{ $order }; |
Lines 224-232
unless( defined $invoice->{closedate} ) {
Link Here
|
224 |
for (my $i = 0 ; $i < $countpendings ; $i++) { |
222 |
for (my $i = 0 ; $i < $countpendings ; $i++) { |
225 |
my $order = $pendingorders->[$i]; |
223 |
my $order = $pendingorders->[$i]; |
226 |
|
224 |
|
227 |
if ( $bookseller->{listincgst} and not $bookseller->{invoiceincgst} ) { |
225 |
if ( $bookseller->{invoiceincgst} ) { |
228 |
$order->{ecost} = $order->{ecost_tax_excluded}; |
|
|
229 |
} elsif ( not $bookseller->{listinct} and $bookseller->{invoiceincgst} ) { |
230 |
$order->{ecost} = $order->{ecost_tax_included}; |
226 |
$order->{ecost} = $order->{ecost_tax_included}; |
231 |
} else { |
227 |
} else { |
232 |
$order->{ecost} = $order->{ecost_tax_excluded}; |
228 |
$order->{ecost} = $order->{ecost_tax_excluded}; |
233 |
- |
|
|