From a6f7df18b090bf9eaa160027cddbd0d9b4b22cc2 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Wed, 8 Jul 2020 13:48:37 +0200 Subject: [PATCH] Bugfix #435 Einkaufsrechnung mit Leistungsdatum zieht falsche Steuer MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Steuer für die acc_trans sollte anhand von deliverdate berechnet werden. An der Oberfläche wird die Steuer richtig angezeigt, die DATEV-Prüfung beschwert sich aber glücklicherweise --- SL/IR.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/SL/IR.pm b/SL/IR.pm index 1ed136c6d..082e2aa57 100644 --- a/SL/IR.pm +++ b/SL/IR.pm @@ -549,6 +549,7 @@ SQL if ($form->{currency} ne $defaultcurrency) && !$exchangerate; # record acc_trans transactions + my $taxdate = $form->{deliverydate} ? $form->{deliverydate} : $form->{invdate}; foreach my $trans_id (keys %{ $form->{amount} }) { foreach my $accno (keys %{ $form->{amount}{$trans_id} }) { $form->{amount}{$trans_id}{$accno} = $form->round_amount($form->{amount}{$trans_id}{$accno}, 2); @@ -575,7 +576,7 @@ SQL ORDER BY startdate DESC LIMIT 1), (SELECT link FROM chart WHERE accno = ?))|; @values = ($trans_id, $accno, $form->{amount}{$trans_id}{$accno}, - conv_date($form->{invdate}), $accno, conv_date($form->{invdate}), $project_id, $accno, conv_date($form->{invdate}), $accno); + conv_date($form->{invdate}), $accno, conv_date($taxdate), $project_id, $accno, conv_date($taxdate), $accno); do_query($form, $dbh, $query, @values); } } -- 2.20.1