Revision 930e5ecb
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/DB/Vendor.pm | ||
|---|---|---|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 | 5 |
use SL::DB::MetaSetup::Vendor; |
| 6 |
use SL::DB::Helper::TransNumberGenerator; |
|
| 6 | 7 |
|
| 7 | 8 |
use SL::DB::VC; |
| 8 | 9 |
|
| ... | ... | |
| 24 | 25 |
__PACKAGE__->meta->make_manager_class; |
| 25 | 26 |
__PACKAGE__->meta->initialize; |
| 26 | 27 |
|
| 28 |
__PACKAGE__->before_save('_before_save_set_vendornumber');
|
|
| 29 |
|
|
| 30 |
sub _before_save_set_vendornumber {
|
|
| 31 |
my ($self) = @_; |
|
| 32 |
|
|
| 33 |
$self->create_trans_number if $self->vendornumber eq ''; |
|
| 34 |
} |
|
| 35 |
|
|
| 27 | 36 |
1; |
Auch abrufbar als: Unified diff
Vergabe von Kunden-/Lieferantennummer beim Speichern eines VC-Objektes implementiert