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