Revision 95155b0d
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub has_storno {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($self, $myconfig, $form) = @_;
|
||
|
|
||
|
$main::lxdebug->leave_sub() and return 0 unless ($form->{id});
|
||
|
|
||
|
my $dbh = $form->dbconnect($myconfig);
|
||
|
|
||
|
my $query = qq|SELECT storno FROM ar WHERE id = ?|;
|
||
|
my ($result) = selectrow_query($form, $dbh, $query, $form->{id});
|
||
|
|
||
|
$dbh->disconnect();
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return $result;
|
||
|
}
|
||
|
|
||
|
1;
|
||
| SL/IS.pm | ||
|---|---|---|
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub has_storno {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($self, $myconfig, $form) = @_;
|
||
|
|
||
|
$main::lxdebug->leave_sub() and return 0 unless ($form->{id});
|
||
|
|
||
|
my $dbh = $form->dbconnect($myconfig);
|
||
|
|
||
|
my $query = qq|SELECT storno FROM ar WHERE id = ?|;
|
||
|
my ($result) = selectrow_query($form, $dbh, $query, $form->{id});
|
||
|
|
||
|
$dbh->disconnect();
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
|
return $result;
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
| bin/mozilla/is.pl | ||
|---|---|---|
|
$form->error($locale->text('Cannot storno storno invoice!'));
|
||
|
}
|
||
|
|
||
|
if (IC->has_storno(\%myconfig, $form)) {
|
||
|
if (IS->has_storno(\%myconfig, $form)) {
|
||
|
$form->error($locale->text("Invoice has already been storno'd!"));
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
Rechnungsfunktionen gehören natürlich nach IS und nicht nach IC.