Revision 99724025
Von Moritz Bunkus vor fast 11 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 50 | 50 |
use SL::TransNumber; |
| 51 | 51 |
use SL::DB::Default; |
| 52 | 52 |
use SL::DB::Tax; |
| 53 |
use SL::TransNumber; |
|
| 53 | 54 |
use Data::Dumper; |
| 54 | 55 |
|
| 55 | 56 |
use strict; |
| ... | ... | |
| 582 | 583 |
do_query($form, $dbh, $query, $form->{"id"}, $form->{"id"}, $form->{currency});
|
| 583 | 584 |
|
| 584 | 585 |
if (!$form->{invnumber}) {
|
| 585 |
$form->{invnumber} =
|
|
| 586 |
$form->update_defaults($myconfig, $form->{type} eq "credit_note" ?
|
|
| 587 |
"cnnumber" : "invnumber", $dbh); |
|
| 586 |
my $trans_number = SL::TransNumber->new(type => $form->{type}, dbh => $dbh, number => $form->{invnumber}, id => $form->{id});
|
|
| 587 |
$form->{invnumber} = $trans_number->create_unique;
|
|
| 588 | 588 |
} |
| 589 | 589 |
} |
| 590 | 590 |
} |
Auch abrufbar als: Unified diff
IS.pm: SL::TransNumber anstelle von Form->update_defaults für Nummernkreise nutzen