Revision bddc0f6c
Von Sven Schöling vor etwa 8 Jahren hinzugefügt
| SL/GoBD.pm | ||
|---|---|---|
| 449 | 449 |
$haben->{notes} //= '';
|
| 450 | 450 |
$haben->{notes} = SL::HTML::Util->strip($haben->{notes});
|
| 451 | 451 |
|
| 452 |
my $tax_amount = defined $amount->{net_amount}
|
|
| 453 |
? $::form->format_amount($myconfig, abs($amount->{amount}) - abs($amount->{net_amount}), 5)
|
|
| 454 |
: 0;
|
|
| 452 |
my $tax_amount = defined $amount->{net_amount} ? abs($amount->{amount}) - abs($amount->{net_amount}) : 0;
|
|
| 453 |
|
|
| 454 |
$tax = {} if abs($tax_amount) < 0.001;
|
|
| 455 | 455 |
|
| 456 | 456 |
my %row = ( |
| 457 | 457 |
amount => $::form->format_amount($myconfig, abs($amount->{amount}),5),
|
| 458 | 458 |
debit_accno => $soll->{accno},
|
| 459 | 459 |
debit_accname => $soll->{accname},
|
| 460 | 460 |
debit_amount => $::form->format_amount($myconfig, abs(-$soll->{amount}),5),
|
| 461 |
debit_tax => $soll->{tax_accno} ? $tax_amount : 0,
|
|
| 461 |
debit_tax => $soll->{tax_accno} ? $::form->format_amount($myconfig, $tax_amount, 5) : 0,
|
|
| 462 | 462 |
credit_accno => $haben->{accno},
|
| 463 | 463 |
credit_accname => $haben->{accname},
|
| 464 | 464 |
credit_amount => $::form->format_amount($myconfig, abs($haben->{amount}),5),,
|
| 465 |
credit_tax => $haben->{tax_accno} ? $tax_amount : 0,
|
|
| 466 |
tax => $tax_amount,
|
|
| 465 |
credit_tax => $haben->{tax_accno} ? $::form->format_amount($myconfig, $tax_amount, 5) : 0,
|
|
| 466 |
tax => $::form->format_amount($myconfig, $tax_amount, 5),
|
|
| 467 | 467 |
notes => $haben->{notes},
|
| 468 | 468 |
(map { ($_ => $tax->{$_}) } qw(taxkey tax_accname tax_accno taxdescription)),
|
| 469 | 469 |
(map { ($_ => ($haben->{$_} // $soll->{$_})) } qw(trans_id invnumber name vcnumber transdate gldate itime customer_id vendor_id)),
|
Auch abrufbar als: Unified diff
GoBD: Dialogbuchungen von Steuermengen nicht als versteuert markieren
Behebt das taxkeys != 0 && tax == 0 Problem