From ab77e6ef5c003f4b3627f7c94d4b40c7eefb9478 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 30 Oct 2015 15:25:23 +0100
Subject: [PATCH] =?utf8?q?GDPDU:=20Behandlung=20von=20Skonto-Steuerr=C3=BC?=
 =?utf8?q?ckbuchungen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

In diesem Fall konkret:
  - 3308.73 Umsatzsteuer
  +    0.10 Erlösminderung
  + 3308.63 gewährte Skonti
---
 SL/GDPDU.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/GDPDU.pm b/SL/GDPDU.pm
index 48bf9e6a3..ed3b6312d 100644
--- a/SL/GDPDU.pm
+++ b/SL/GDPDU.pm
@@ -400,7 +400,7 @@ sub do_datev_csv_export {
     my $is_payment     = any { $_->{link} =~ m{A[PR]_paid} } @{ $transaction };
 
     my ($soll, $haben) = map { $transaction->[$_] } ($transaction->[0]->{amount} > 0 ? (1, 0) : (0, 1));
-    my $tax            = defined($soll->{tax_accno})  ? $soll : $haben;
+    my $tax            = defined($soll->{tax_amount}) ? $soll : defined($haben->{tax_amount}) ? $haben : {};
     my $amount         = defined($soll->{net_amount}) ? $soll : $haben;
     $haben->{notes}    = ($haben->{memo} || $soll->{memo}) if $haben->{memo} || $soll->{memo};
     $haben->{notes}  //= '';
-- 
2.20.1