|
Lines 169-196
sub printbasketgrouppdf{
Link Here
|
| 169 |
croak $@; |
169 |
croak $@; |
| 170 |
} |
170 |
} |
| 171 |
|
171 |
|
| 172 |
$ord->{rrp} = ConvertCurrency( $ord->{'currency'}, $ord->{rrp} ); |
172 |
$ord = C4::Acquisition::populate_order_with_prices({ order => $ord, booksellerid => $bookseller->{id}, ordering => 1 }); |
| 173 |
if ( $bookseller->{'listincgst'} ) { |
|
|
| 174 |
$ord->{rrpgsti} = sprintf( "%.2f", $ord->{rrp} ); |
| 175 |
$ord->{gstgsti} = sprintf( "%.2f", $ord->{gstrate} * 100 ); |
| 176 |
$ord->{rrpgste} = sprintf( "%.2f", $ord->{rrp} / ( 1 + ( $ord->{gstgsti} / 100 ) ) ); |
| 177 |
$ord->{gstgste} = sprintf( "%.2f", $ord->{gstgsti} / ( 1 + ( $ord->{gstgsti} / 100 ) ) ); |
| 178 |
$ord->{ecostgsti} = sprintf( "%.2f", $ord->{ecost} ); |
| 179 |
$ord->{ecostgste} = sprintf( "%.2f", $ord->{ecost} / ( 1 + ( $ord->{gstgsti} / 100 ) ) ); |
| 180 |
$ord->{gstvalue} = sprintf( "%.2f", ( $ord->{ecostgsti} - $ord->{ecostgste} ) * $ord->{quantity}); |
| 181 |
$ord->{totalgste} = sprintf( "%.2f", $ord->{quantity} * $ord->{ecostgste} ); |
| 182 |
$ord->{totalgsti} = sprintf( "%.2f", $ord->{quantity} * $ord->{ecostgsti} ); |
| 183 |
} else { |
| 184 |
$ord->{rrpgsti} = sprintf( "%.2f", $ord->{rrp} * ( 1 + ( $ord->{gstrate} ) ) ); |
| 185 |
$ord->{rrpgste} = sprintf( "%.2f", $ord->{rrp} ); |
| 186 |
$ord->{gstgsti} = sprintf( "%.2f", $ord->{gstrate} * 100 ); |
| 187 |
$ord->{gstgste} = sprintf( "%.2f", $ord->{gstrate} * 100 ); |
| 188 |
$ord->{ecostgsti} = sprintf( "%.2f", $ord->{ecost} * ( 1 + ( $ord->{gstrate} ) ) ); |
| 189 |
$ord->{ecostgste} = sprintf( "%.2f", $ord->{ecost} ); |
| 190 |
$ord->{gstvalue} = sprintf( "%.2f", ( $ord->{ecostgsti} - $ord->{ecostgste} ) * $ord->{quantity}); |
| 191 |
$ord->{totalgste} = sprintf( "%.2f", $ord->{quantity} * $ord->{ecostgste} ); |
| 192 |
$ord->{totalgsti} = sprintf( "%.2f", $ord->{quantity} * $ord->{ecostgsti} ); |
| 193 |
} |
| 194 |
my $bib = GetBiblioData($ord->{biblionumber}); |
173 |
my $bib = GetBiblioData($ord->{biblionumber}); |
| 195 |
my $itemtypes = GetItemTypes(); |
174 |
my $itemtypes = GetItemTypes(); |
| 196 |
|
175 |
|
|
Lines 212-228
sub printbasketgrouppdf{
Link Here
|
| 212 |
} |
191 |
} |
| 213 |
} |
192 |
} |
| 214 |
|
193 |
|
| 215 |
my $ba_order = { |
194 |
$ord->{itemtype} = ( $ord->{itemtype} and $bib->{itemtype} ) ? $itemtypes->{$bib->{itemtype}}->{description} : undef; |
| 216 |
isbn => ($ord->{isbn} ? $ord->{isbn} : undef), |
195 |
$ord->{en} = $en ? $en : undef; |
| 217 |
itemtype => ( $ord->{itemtype} and $bib->{itemtype} ? $itemtypes->{$bib->{itemtype}}->{description} : undef ), |
196 |
$ord->{edition} = $edition ? $edition : undef; |
| 218 |
en => ( $en ? $en : undef ), |
|
|
| 219 |
edition => ( $edition ? $edition : undef ), |
| 220 |
}; |
| 221 |
for my $key ( qw/ gstrate author title itemtype publishercode copyrightdate publicationyear discount quantity rrpgsti rrpgste gstgsti gstgste ecostgsti ecostgste gstvalue totalgste totalgsti order_vendornote / ) { |
| 222 |
$ba_order->{$key} = $ord->{$key}; |
| 223 |
} |
| 224 |
|
197 |
|
| 225 |
push(@ba_orders, $ba_order); |
198 |
push(@ba_orders, $ord); |
| 226 |
} |
199 |
} |
| 227 |
$orders{$basket->{basketno}} = \@ba_orders; |
200 |
$orders{$basket->{basketno}} = \@ba_orders; |
| 228 |
} |
201 |
} |
| 229 |
- |
|
|