Revision 95155b0d
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 1888 | 1888 |
$main::lxdebug->leave_sub(); |
| 1889 | 1889 |
} |
| 1890 | 1890 |
|
| 1891 |
sub has_storno {
|
|
| 1892 |
$main::lxdebug->enter_sub(); |
|
| 1893 |
|
|
| 1894 |
my ($self, $myconfig, $form) = @_; |
|
| 1895 |
|
|
| 1896 |
$main::lxdebug->leave_sub() and return 0 unless ($form->{id});
|
|
| 1897 |
|
|
| 1898 |
my $dbh = $form->dbconnect($myconfig); |
|
| 1899 |
|
|
| 1900 |
my $query = qq|SELECT storno FROM ar WHERE id = ?|; |
|
| 1901 |
my ($result) = selectrow_query($form, $dbh, $query, $form->{id});
|
|
| 1902 |
|
|
| 1903 |
$dbh->disconnect(); |
|
| 1904 |
|
|
| 1905 |
$main::lxdebug->leave_sub(); |
|
| 1906 |
|
|
| 1907 |
return $result; |
|
| 1908 |
} |
|
| 1909 |
|
|
| 1910 | 1891 |
1; |
| SL/IS.pm | ||
|---|---|---|
| 2223 | 2223 |
$main::lxdebug->leave_sub(); |
| 2224 | 2224 |
} |
| 2225 | 2225 |
|
| 2226 |
sub has_storno {
|
|
| 2227 |
$main::lxdebug->enter_sub(); |
|
| 2228 |
|
|
| 2229 |
my ($self, $myconfig, $form) = @_; |
|
| 2230 |
|
|
| 2231 |
$main::lxdebug->leave_sub() and return 0 unless ($form->{id});
|
|
| 2232 |
|
|
| 2233 |
my $dbh = $form->dbconnect($myconfig); |
|
| 2234 |
|
|
| 2235 |
my $query = qq|SELECT storno FROM ar WHERE id = ?|; |
|
| 2236 |
my ($result) = selectrow_query($form, $dbh, $query, $form->{id});
|
|
| 2237 |
|
|
| 2238 |
$dbh->disconnect(); |
|
| 2239 |
|
|
| 2240 |
$main::lxdebug->leave_sub(); |
|
| 2241 |
|
|
| 2242 |
return $result; |
|
| 2243 |
} |
|
| 2244 |
|
|
| 2226 | 2245 |
1; |
| 2227 | 2246 |
|
| bin/mozilla/is.pl | ||
|---|---|---|
| 1518 | 1518 |
$form->error($locale->text('Cannot storno storno invoice!'));
|
| 1519 | 1519 |
} |
| 1520 | 1520 |
|
| 1521 |
if (IC->has_storno(\%myconfig, $form)) {
|
|
| 1521 |
if (IS->has_storno(\%myconfig, $form)) {
|
|
| 1522 | 1522 |
$form->error($locale->text("Invoice has already been storno'd!"));
|
| 1523 | 1523 |
} |
| 1524 | 1524 |
|
Auch abrufbar als: Unified diff
Rechnungsfunktionen gehören natürlich nach IS und nicht nach IC.