From 0e494483d38354fdfac2364ef4d0de0874f1ada7 Mon Sep 17 00:00:00 2001
From: Niclas Zimmermann <niclas@kivitendo-premium.de>
Date: Tue, 30 Oct 2012 11:03:44 +0100
Subject: [PATCH] =?utf8?q?Verst=C3=A4ndliche=20Fehlermeldung=20bei=20doppe?=
=?utf8?q?lten=20Kontonummern?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit
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
---
SL/AM.pm | 23 ++++++++++++-----------
1 file changed, 12 insertions(+), 11 deletions(-)
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 = ?,
--
2.20.1