Revision e90048c8
Von Bernd Bleßmann vor fast 11 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 49 | 49 |
use SL::IO; |
| 50 | 50 |
use SL::TransNumber; |
| 51 | 51 |
use SL::DB::Default; |
| 52 |
use SL::DB::Tax; |
|
| 52 | 53 |
use Data::Dumper; |
| 53 | 54 |
|
| 54 | 55 |
use strict; |
| ... | ... | |
| 386 | 387 |
push(@{ $form->{TEMPLATE_ARRAYS}->{tax_nofmt} }, $taxamount );
|
| 387 | 388 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate} }, $form->format_amount($myconfig, $form->{"${item}_rate"} * 100));
|
| 388 | 389 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate_nofmt} }, $form->{"${item}_rate"} * 100);
|
| 389 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxdescription} }, $form->{"${item}_description"} . q{ } . 100 * $form->{"${item}_rate"} . q{%});
|
|
| 390 | 390 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxnumber} }, $form->{"${item}_taxnumber"});
|
| 391 |
|
|
| 392 |
my $tax_obj = SL::DB::Manager::Tax->find_by(taxnumber => $form->{"${item}_taxnumber"});
|
|
| 393 |
my $description = $tax_obj->translated_attribute('taxdescription', $form->{language_id}, 0) if $tax_obj;
|
|
| 394 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxdescription} }, $description . q{ } . 100 * $form->{"${item}_rate"} . q{%});
|
|
| 391 | 395 |
} |
| 392 | 396 |
|
| 393 | 397 |
for my $i (1 .. $form->{paidaccounts}) {
|
Auch abrufbar als: Unified diff
Steuernamen übersetztbar gemacht.