Revision 95155b0d
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
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 |
|
Auch abrufbar als: Unified diff
Rechnungsfunktionen gehören natürlich nach IS und nicht nach IC.