From 41250b507beff4ad9f5ca76c24e7bd7a4cdb8713 Mon Sep 17 00:00:00 2001
From: Philip Reetz
Date: Wed, 28 Dec 2005 13:06:38 +0000
Subject: [PATCH] Bei spaeteren Buchungen zu einem Beleg wurde immer der volle
Rechnungsbetrag benutzt
---
SL/DATEV.pm | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index c2549dc7f..f53e9fcc9 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -648,8 +648,14 @@ sub kne_buchungsexport {
'ß' => 'sz');
for (my $i = 0; $i < $trans_lines; $i++) {
- if (abs($transaction->[$i]->{'umsatz'}) > abs($umsatz)) {
- $umsatz = $transaction->[$i]->{'umsatz'};
+ if ($trans_lines == 2) {
+ if (abs($transaction->[$i]->{'amount'}) > abs($umsatz)) {
+ $umsatz = $transaction->[$i]->{'amount'};
+ }
+ } else {
+ if (abs($transaction->[$i]->{'umsatz'}) > abs($umsatz)) {
+ $umsatz = $transaction->[$i]->{'umsatz'};
+ }
}
if ($transaction->[$i]->{'datevautomatik'}) {
$datevautomatik = 1;
--
2.20.1