Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 95155b0d

Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt

  • ID 95155b0d6ddca4b62319edce20397a3ceebac346
  • Vorgänger 213317d3
  • Nachfolger eb173d13

Rechnungsfunktionen gehören natürlich nach IS und nicht nach IC.

Unterschiede anzeigen:

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