Revision 5ceaf343
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 1423 | 1423 |
return $rc; |
| 1424 | 1424 |
} |
| 1425 | 1425 |
|
| 1426 |
sub has_storno {
|
|
| 1427 |
$main::lxdebug->enter_sub(); |
|
| 1428 |
|
|
| 1429 |
my ($self, $myconfig, $form) = @_; |
|
| 1430 |
|
|
| 1431 |
$main::lxdebug->leave_sub() and return 0 unless ($form->{id});
|
|
| 1432 |
|
|
| 1433 |
my $dbh = $form->dbconnect($myconfig); |
|
| 1434 |
|
|
| 1435 |
my $query = qq|SELECT storno FROM ap WHERE id = ?|; |
|
| 1436 |
my ($result) = selectrow_query($form, $dbh, $query, $form->{id});
|
|
| 1437 |
|
|
| 1438 |
$dbh->disconnect(); |
|
| 1439 |
|
|
| 1440 |
$main::lxdebug->leave_sub(); |
|
| 1441 |
|
|
| 1442 |
return $result; |
|
| 1443 |
} |
|
| 1444 |
|
|
| 1426 | 1445 |
1; |
| bin/mozilla/ir.pl | ||
|---|---|---|
| 972 | 972 |
$form->error($locale->text('Cannot storno storno invoice!'));
|
| 973 | 973 |
} |
| 974 | 974 |
|
| 975 |
if (IR->has_storno(\%myconfig, $form)) {
|
|
| 976 |
$form->error($locale->text("Invoice has already been storno'd!"));
|
|
| 977 |
} |
|
| 978 |
|
|
| 975 | 979 |
$form->{storno_id} = $form->{id};
|
| 976 | 980 |
$form->{storno} = 1;
|
| 977 | 981 |
$form->{id} = "";
|
| locale/de/ir | ||
|---|---|---|
| 81 | 81 |
'Invoice Number' => 'Rechnungsnummer', |
| 82 | 82 |
'Invoice Number missing!' => 'Rechnungsnummer fehlt!', |
| 83 | 83 |
'Invoice deleted!' => 'Rechnung gel?scht!', |
| 84 |
'Invoice has already been storno\'d!' => 'Diese Rechnung wurde bereits storniert.', |
|
| 84 | 85 |
'Item not on file!' => 'Dieser Artikel ist nicht in der Datenbank!', |
| 85 | 86 |
'Jan' => 'Jan', |
| 86 | 87 |
'January' => 'Januar', |
Auch abrufbar als: Unified diff
Definitiv verhindern, dass Einkaufsrechnungen doppelt storniert werden können.