From 43e21b93333a9a8a40fa4561a6fbf716132340cb Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Mon, 23 Nov 2015 17:50:01 +0100
Subject: [PATCH] GoBD: credit/debit_amount formatieren

---
 SL/GoBD.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/SL/GoBD.pm b/SL/GoBD.pm
index 40998a2de..7fbc2714a 100644
--- a/SL/GoBD.pm
+++ b/SL/GoBD.pm
@@ -448,9 +448,6 @@ sub do_datev_csv_export {
     $haben->{notes}  //= '';
     $haben->{notes}    =  SL::HTML::Util->strip($haben->{notes});
 
-    my $net_amount = defined $amount->{net_amount}
-                   ? $::form->format_amount($myconfig, abs($amount->{net_amount}), 5)
-                   : 0;
     my $tax_amount = defined $amount->{net_amount}
                    ? $::form->format_amount($myconfig, abs($amount->{amount}) - abs($amount->{net_amount}), 5)
                    : 0;
@@ -459,11 +456,11 @@ sub do_datev_csv_export {
       amount           => $::form->format_amount($myconfig, abs($amount->{amount}),5),
       debit_accno      => $soll->{accno},
       debit_accname    => $soll->{accname},
-      debit_amount     => -$soll->{amount},
+      debit_amount     => $::form->format_amount($myconfig, abs(-$soll->{amount}),5),
       debit_tax        => $soll->{tax_accno} ? $tax_amount : 0,
       credit_accno     => $haben->{accno},
       credit_accname   => $haben->{accname},
-      credit_amount    => $haben->{amount},
+      credit_amount    => $::form->format_amount($myconfig, abs($haben->{amount}),5),,
       credit_tax       => $haben->{tax_accno} ? $tax_amount : 0,
       tax              => $tax_amount,
       notes            => $haben->{notes},
-- 
2.20.1