From aaa8864737fdd4c1ca6d27b423256d62b7a4b2ec Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@kivitendo-premium.de>
Date: Tue, 12 Jun 2018 13:43:02 +0200
Subject: [PATCH] Kontoauszug verbuchen: Fehlermeldungen visuell (flash) besser
 hervorheben
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Beim Analysieren von #355 aufgefallen. Falls Probleme beim
Verbuchen der Kontoauszüge auftreten, sollte auch die Flash-Anzeige
nicht grün sein.
---
 SL/Controller/BankTransaction.pm | 11 ++++++++---
 locale/de/all                    |  1 +
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/SL/Controller/BankTransaction.pm b/SL/Controller/BankTransaction.pm
index fcea62217..c220f3c1c 100644
--- a/SL/Controller/BankTransaction.pm
+++ b/SL/Controller/BankTransaction.pm
@@ -505,17 +505,22 @@ sub save_invoices {
       $count += scalar( @{$invoice_ids} );
     }
   }
+  my $max_count = $count;
   foreach (@{ $self->problems }) {
     $count-- if $_->{result} eq 'error';
   }
-  return $count;
+  return ($count, $max_count);
 }
 
 sub action_save_invoices {
   my ($self) = @_;
-  my $count = $self->save_invoices();
+  my ($success_count, $max_count) = $self->save_invoices();
 
-  flash('ok', t8('#1 invoice(s) saved.', $count));
+  if ($success_count == $max_count) {
+    flash('ok', t8('#1 invoice(s) saved.', $success_count));
+  } else {
+    flash('error', t8('At least #1 invoice(s) not saved', $max_count - $success_count));
+  }
 
   $self->action_list();
 }
diff --git a/locale/de/all b/locale/de/all
index 3939d588a..c73db7918 100755
--- a/locale/de/all
+++ b/locale/de/all
@@ -344,6 +344,7 @@ $self->{texts} = {
   'Assortment items'            => 'Sortimentsartikel',
   'Assume Tax Consultant Data in Tax Computation?' => 'Beraterdaten in UStVA übernehmen?',
   'At least'                    => 'Mindestens',
+  'At least #1 invoice(s) not saved' => 'Mindestens #1 Rechnung(en) nicht verarbeitet',
   'At least one Perl module that kivitendo ERP requires for running is not installed on your system.' => 'Mindestes ein Perl-Modul, das kivitendo ERP zur Ausführung benötigt, ist auf Ihrem System nicht installiert.',
   'At least one of the columns #1, customer, customernumber, customer_gln, vendor, vendornumber, vendor_gln (depending on the target table) is required for matching the entry to an existing customer or vendor.' => 'Mindestens eine der Spalten #1, customer, customernumber, customer_gln, vendor, vendornumber, vendor_gln (von Zieltabelle abhängig) wird benötigt, um einen Eintrag einem bestehenden Kunden bzw. Lieferanten zuzuordnen.',
   'At most'                     => 'Höchstens',
-- 
2.20.1