Revision 3f78c062
Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 645 | 645 |
return $final_version; |
| 646 | 646 |
} |
| 647 | 647 |
|
| 648 |
sub increment_version_number {
|
|
| 649 |
my ($self) = @_; |
|
| 650 |
|
|
| 651 |
die t8('This sub-version is not yet finalized') if !$self->is_final_version;
|
|
| 652 |
|
|
| 653 |
my $current_version_number = $self->current_version_number; |
|
| 654 |
my $new_version_number = $current_version_number + 1; |
|
| 655 |
|
|
| 656 |
my $new_number = $self->number; |
|
| 657 |
$new_number =~ s/-$current_version_number$//; |
|
| 658 |
$self->number($new_number . '-' . $new_version_number); |
|
| 659 |
$self->add_order_version(SL::DB::OrderVersion->new(version => $new_version_number)); |
|
| 660 |
} |
|
| 661 |
|
|
| 648 | 662 |
sub netamount_base_currency {
|
| 649 | 663 |
my ($self) = @_; |
| 650 | 664 |
|
Auch abrufbar als: Unified diff
Order-Controller: Unterversion hochzählen über Model:Record umgesetzt
Todo: SL::Model::Record->save verwenden, sobald implementiert