From: Niclas Zimmermann <niclas@kivitendo-premium.de>
Date: Tue, 30 Oct 2012 10:03:44 +0000 (+0100)
Subject: Verständliche Fehlermeldung bei doppelten Kontonummern
X-Git-Tag: release-3.0.0beta1~38^2~2
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/0e494483d38354fdfac2364ef4d0de0874f1ada7?hp=--cc

Verständliche Fehlermeldung bei doppelten Kontonummern

Bisher kam es nur zu einer verständlichen Fehlermeldung, wenn
man die geänderte Kontonummer speichern wollte. Jetzt wird auch
eine verständliche Fehlermeldung ausgegeben, wenn man das Konto
als neues Konto speichern will.

Siehe auch Ticket #2030
---

0e494483d38354fdfac2364ef4d0de0874f1ada7
diff --git a/SL/AM.pm b/SL/AM.pm
index 1a085b8bd..6862eb773 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -243,6 +243,18 @@ sub save_account {
     $form->{id} = "";
   }
 
+  $query = '
+    SELECT
+    accno
+    FROM chart
+    WHERE accno = ?';
+  my ($accno) = selectrow_query($form, $dbh, $query, $form->{accno});
+
+  if ($accno) {
+    $form->error($::locale->text('Account number not unique!'));
+  }
+
+
   if (!$form->{id} || $form->{id} eq "") {
     $query = qq|SELECT nextval('id')|;
     ($form->{"id"}) = selectrow_query($form, $dbh, $query);
@@ -269,17 +281,6 @@ sub save_account {
       $form->{valid_from} = '';
     };
 
-    $query = '
-      SELECT
-        accno
-      FROM chart
-      WHERE accno = ?';
-    my ($accno) = selectrow_query($form, $dbh, $query, $form->{accno});
-
-    if ($accno) {
-      $form->error($::locale->text('Account number not unique!'));
-    }
-
     $query = qq|UPDATE chart SET
                   accno = ?,
                   description = ?,