From e0c7677eddbc7b90d87d8df6539908af7f269e2e Mon Sep 17 00:00:00 2001 From: =?utf8?q?Stephan=20K=C3=B6hler?= Date: Sat, 26 Nov 2005 12:09:01 +0000 Subject: [PATCH] Merge von 604 aus unstable: Datev Bug Fehler bei negativen Umsaetzen behoben --- SL/DATEV.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/SL/DATEV.pm b/SL/DATEV.pm index c202e05e2..e48b4db2f 100644 --- a/SL/DATEV.pm +++ b/SL/DATEV.pm @@ -651,7 +651,7 @@ sub kne_buchungsexport { } } - $umsatzsumme += $umsatz; + $umsatzsumme += abs($umsatz); # Umwandlung von Umlauten und Sonderzeichen in erlaubte Zeichen bei Textfeldern foreach $umlaut (keys(%umlaute)) { @@ -696,6 +696,7 @@ sub kne_buchungsexport { $blockcount++; $total_bytes = ($blockcount) * 256; } + $umsatz = abs($umsatz); $vorzeichen = ($umsatz > 0) ? "+" : "-"; $buchungssatz .= $vorzeichen . &formatumsatz($umsatz, 0); $remaining_bytes = $total_bytes - length($buchungssatz . $header); -- 2.20.1