|
Lines 57-63
sub printorders {
Link Here
|
| 57 |
|
57 |
|
| 58 |
my $abaskets; |
58 |
my $abaskets; |
| 59 |
my $arrbasket; |
59 |
my $arrbasket; |
| 60 |
my @keys = ('Document', 'Qty', 'RRP tax inc.', 'Discount', 'Tax', 'Total tax exc.', 'Total tax inc.'); |
60 |
my @keys = ('Qty', 'Document', 'RRP tax inc.', 'Discount', 'Tax', 'Total tax exc.', 'Total tax inc.'); |
| 61 |
for my $bkey (@keys) { |
61 |
for my $bkey (@keys) { |
| 62 |
push(@$arrbasket, $bkey); |
62 |
push(@$arrbasket, $bkey); |
| 63 |
} |
63 |
} |
|
Lines 87-94
sub printorders {
Link Here
|
| 87 |
( $line->{copyrightdate} ? ' '. $line->{copyrightdate} : ''); |
87 |
( $line->{copyrightdate} ? ' '. $line->{copyrightdate} : ''); |
| 88 |
} |
88 |
} |
| 89 |
push( @$arrbasket, |
89 |
push( @$arrbasket, |
| 90 |
$titleinfo. ($line->{order_vendornote} ? "\n----------------\nNote for vendor : " . $line->{order_vendornote} : '' ), |
|
|
| 91 |
$line->{quantity}, |
90 |
$line->{quantity}, |
|
|
91 |
$titleinfo. ($line->{order_vendornote} ? "\n----------------\nNote for vendor : " . $line->{order_vendornote} : '' ), |
| 92 |
Koha::Number::Price->new( $line->{rrp_tax_included} )->format, |
92 |
Koha::Number::Price->new( $line->{rrp_tax_included} )->format, |
| 93 |
Koha::Number::Price->new( $line->{discount} )->format . '%', |
93 |
Koha::Number::Price->new( $line->{discount} )->format . '%', |
| 94 |
Koha::Number::Price->new( $line->{tax_rate} * 100 )->format . '%', |
94 |
Koha::Number::Price->new( $line->{tax_rate} * 100 )->format . '%', |
|
Lines 183-189
sub printhead {
Link Here
|
| 183 |
$start += 4; |
183 |
$start += 4; |
| 184 |
} |
184 |
} |
| 185 |
} |
185 |
} |
| 186 |
$text->translate(20/mm, ($height-50)/mm); |
186 |
$text->translate(20/mm, ($height-57)/mm); |
| 187 |
$text->text($bookseller->accountnumber); |
187 |
$text->text($bookseller->accountnumber); |
| 188 |
|
188 |
|
| 189 |
# print delivery infos |
189 |
# print delivery infos |
| 190 |
- |
|
|