Revision 0e494483
Von Niclas Zimmermann vor etwa 12 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 243 | 243 |
$form->{id} = "";
|
| 244 | 244 |
} |
| 245 | 245 |
|
| 246 |
$query = ' |
|
| 247 |
SELECT |
|
| 248 |
accno |
|
| 249 |
FROM chart |
|
| 250 |
WHERE accno = ?'; |
|
| 251 |
my ($accno) = selectrow_query($form, $dbh, $query, $form->{accno});
|
|
| 252 |
|
|
| 253 |
if ($accno) {
|
|
| 254 |
$form->error($::locale->text('Account number not unique!'));
|
|
| 255 |
} |
|
| 256 |
|
|
| 257 |
|
|
| 246 | 258 |
if (!$form->{id} || $form->{id} eq "") {
|
| 247 | 259 |
$query = qq|SELECT nextval('id')|;
|
| 248 | 260 |
($form->{"id"}) = selectrow_query($form, $dbh, $query);
|
| ... | ... | |
| 269 | 281 |
$form->{valid_from} = '';
|
| 270 | 282 |
}; |
| 271 | 283 |
|
| 272 |
$query = ' |
|
| 273 |
SELECT |
|
| 274 |
accno |
|
| 275 |
FROM chart |
|
| 276 |
WHERE accno = ?'; |
|
| 277 |
my ($accno) = selectrow_query($form, $dbh, $query, $form->{accno});
|
|
| 278 |
|
|
| 279 |
if ($accno) {
|
|
| 280 |
$form->error($::locale->text('Account number not unique!'));
|
|
| 281 |
} |
|
| 282 |
|
|
| 283 | 284 |
$query = qq|UPDATE chart SET |
| 284 | 285 |
accno = ?, |
| 285 | 286 |
description = ?, |
Auch abrufbar als: Unified diff
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